Source Code

These source-code files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology". It is believed that the original listing was preserved by AGC developer Don Eyles, copied/reduced by AGC developer Hugh Blair-Smith, passed by AGC developer James Kernan to collector David Craig, scanned by Gary Neff, and then passed to the Dibner Institute where unfortunately the high-quality scans were reduced in legibility as part of the online-presentation process, and the original scans discarded. The source code was transcribed from those images by Ron Burkey. The images from the Dibner Institute website, and unfortunately not the discarded original high-quality scans, though with a few high-quality replacement scans provided directly by Gary Neff, are now available at the Virtual AGC project website. Report any conversion errors to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date of the printout, not the date of the program revision.

027808,000002:                                                                                                  ## Copyright:   Public domain.
027809,000003:                                                                                                  ## Filename:    P34-35_P74-75.agc
027810,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
027811,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
027812,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
027813,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
027814,000008:                                                                                                  ##              that the code format has been changed to conform to the
027815,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
027816,000010:                                                                                                  ##              original YUL assembler.
027817,000011:                                                                                                  ## Reference:   pp. 665-709 of 1729.pdf.
027818,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
027819,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo
027820,000014:                                                                                                  ## Mod history: 05/22/03 RSB.   Began transcribing.
027821,000015:                                                                                                  ##              2010-10-25 JL   Added missing # in comments.
027822,000016:                                                                                                  ##              2011-05-07 JL   Removed workaround.
027823,000017: 

Page 665

027825,000019:                                                                                                  #  TRANSFER PHASE INITITIATION (TPI) PROGRAMS (P34 AND P74)
027826,000020:                                                                                                  #  MOD NO -1                     LOG SECTION -- P32-P35, P72-P75
027827,000021:                                                                                                  #  MOD BY WHITE, P.              DATE: 1 JUNE 67
027828,000022: 
027829,000023:                                                                                                  #  PURPOSE
027830,000024:                                                                                                  #        (1)     TO CALCULATE TEH REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
027831,000025:                                                                                                  #                REQUIRED BY TEH ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
027832,000026:                                                                                                  #                PHASE INITITATION (TPI) MANEUVER, GIVEN --
027833,000027:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
027834,000028:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
027835,000029:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
027836,000030:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
027837,000031:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
027838,000032:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027839,000033:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027840,000034:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
027841,000035:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
027842,000036:                                                                                                  #                ASTRONAUT/GROUND.
027843,000037:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
027844,000038:                                                                                                  #                THRUSTING PROGRAM.
027845,000039: 
027846,000040:                                                                                                  #  ASSUMPTIONS
027847,000041:                                                                                                  #        (1)     LM ONLY -- THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
027848,000042:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
027849,000043:                                                                                                  #                THEREFORE --
027850,000044:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
027851,000045:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
027852,000046:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
027853,000047:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
027854,000048:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
027855,000049:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
027856,000050:                                                                                                  #                (C)     THE VARIATION OF TEH ALTITUDE DIFFERENCE BETWEEN THE
027857,000051:                                                                                                  #                        ORBITS WAS MINIMIZED.
027858,000052:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
027859,000053:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 666

027861,000055:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
027862,000056:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
027863,000057:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
027864,000058:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
027865,000059:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
027866,000060:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
027867,000061:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
027868,000062:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
027869,000063:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
027870,000064:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
027871,000065:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
027872,000066:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
027873,000067:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
027874,000068:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027875,000069:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
027876,000070:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027877,000071:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
027878,000072:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027879,000073:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
027880,000074:                                                                                                  #                MARK COUNTER IS ZEROED BY TEH SELECTION OF P20 AND AFTER EACH
027881,000075:                                                                                                  #                THRUSTING MANEUVER.
027882,000076:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027883,000077:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS --
027884,000078: 
027885,000079:                                                                                                  #                        ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS
027886,000080:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027887,000081:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
027888,000082:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027889,000083: 
027890,000084:                                                                                                  #                        FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027891,000085:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
027892,000086: 
027893,000087:                                                                                                  #                        EXTERNAL DELTA V FLAG -- DESIGNATES THE TYPE OF STEERING
027894,000088:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
027895,000089:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
027896,000090: 
027897,000091:                                                                                                  #        (7)     ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER
027898,000092:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, TEH VALUE OF THE ACTIVE
027899,000093:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STURED.
027900,000094:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
027901,000095:                                                                                                  #                THROUGH THE USE OF V06N52.
027902,000096: 
027903,000097:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
027904,000098:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 667

027906,000100:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
027907,000101:                                                                                                  #                ASTRONAUT SHOULD REASSES THE INPUT TARGETING PARAMETERS BASED
027908,000102:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
027909,000103:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY TEH ASTRONAUT BY DSKY ENTRY --
027910,000104: 
027911,000105:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
027912,000106: 
027913,000107:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
027914,000108: 
027915,000109:                                                                                                  #  INPUT
027916,000110:                                                                                                  #        (1)     TTPI    TIME OF TEH TPI MANEUVER.
027917,000111:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
027918,000112:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
027919,000113:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
027920,000114: 
027921,000115:                                                                                                  #  OUTPUT
027922,000116:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
027923,000117:                                                                                                  #        (2)     TTOGO           TIME TO GO
027924,000118:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
027925,000119:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
027926,000120:                                                                                                  #                 OR
027927,000121:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
027928,000122:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
027929,000123:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
027930,000124:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
027931,000125:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI -- LINE OF SIGHT
027932,000126:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI -- LOCAL VERTICAL COORDINATES
027933,000127: 
027934,000128:                                                                                                  #  DOWNLINK
027935,000129:                                                                                                  #        (1)     TTPI            TIME OF TPI MANEUVER
027936,000130:                                                                                                  #        (2)     TIG             TIME OF TPI MANEUVER
027937,000131:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
027938,000132:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
027939,000133:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
027940,000134:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI -- REFERENCE COORDINATES
027941,000135:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
027942,000136: 
027943,000137:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
027944,000138:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
027945,000139:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
027946,000140:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
027947,000141:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
027948,000142: 
027949,000143:                                                                                                  #  SUBROUTINES USED
027950,000144:                                                                                                  #        AVFLAGA

Page 668

027952,000146:                                                                                                  #        AVFLAGP
027953,000147:                                                                                                  #        VNP00H
027954,000148:                                                                                                  #        DISPLAYE
027955,000149:                                                                                                  #        SELECTMU
027956,000150:                                                                                                  #        PRECSET
027957,000151:                                                                                                  #        S33/34.1
027958,000152:                                                                                                  #        ALARM
027959,000153:                                                                                                  #        BANKCALL
027960,000154:                                                                                                  #        GOFLASH
027961,000155:                                                                                                  #        GOTOP00H
027962,000156:                                                                                                  #        TIMETHET
027963,000157:                                                                                                  #        S34/35.2
027964,000158:                                                                                                  #        PERIAPO1
027965,000159:                                                                                                  #        SHIFTR1
027966,000160:                                                                                                  #        S34/35.5
027967,000161:                                                                                                  #        VN1645
027968,000162: 
027969,000163: 35,2000                                           SETLOC   CSI/CDH                               
027970,000164: 35,2000                                           BANK                                           
027971,000165: 35,2455  E7,1470                                  EBANK=   SUBEXIT                               
027972,000166: 35,2455                                           COUNT*   $$/P3474                              
027973,000167: 35,2455           02354        P34                TC       AVFLAGA                               
027974,000168: 35,2456           02460                           TC       P34/P74A                              
027975,000169: 35,2457           02361        P74                TC       AVFLAGP                               
027976,000170: 35,2460           02366        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
027977,000171: 35,2461           33632                           CAF      V06N37                                #  TTPI
027978,000172: 35,2462           03621                           TC       VNP00H                                
027979,000173: 35,2463           00006                           EXTEND                                         
027980,000174: 35,2464           33655                           DCA      130DEG                                
027981,000175: 35,2465           53621                           DXCH     CENTANG                               
027982,000176: 35,2466           32424                           CAF      P30ZERO                               
027983,000177: 35,2467           55466                           TS       NN                                    
027984,000178: 35,2470           03603                           TC       DISPLAYE                              #  ELEV AND CENTANG
027985,000179: 35,2471           06042                           TC       INTPRET                               
027986,000180: 35,2472           71214                           CLEAR    DLOAD                                 
027987,000181: 35,2473           01270                                    ETPIFLAG                              
027988,000182: 35,2474           03636                                    TTPI                                  
027989,000183: 35,2475           17442                           STODL    TIG                                   
027990,000184: 35,2476           02257                                    ELEV                                  
027991,000185: 35,2477           43054                           BZE      SET                                   
027992,000186: 35,2500           72502                                    P34/P74B                              
027993,000187: 35,2501           01070                                    ETPIFLAG                              
027994,000188: 35,2502           77624        P34/P74B           CALL                                           
027995,000189: 35,2503           20000                                    SELECTMU                              
027996,000190: 35,2504                        DELELO             EQUALS   26D                                   
027997,000191: 35,2504           43145        P34/P74C           DLOAD    SET                                   
027998,000192: 35,2505           06524                                    ZEROVECS                              
027999,000193: 35,2506           03460                                    ITSWICH                               
028000,000194: 35,2507           43014                           BON      CLEAR                                 
028001,000195: 35,2510           01310                                    ETPIFLAG                              

Page 669

028003,000197: 35,2511           72513                                    SWCHSET                               
028004,000198: 35,2512           03660                                    ITSWICH                               
028005,000199: 35,2513           02317        SWCHSET            STORE    NOMTPI                                
028006,000200: 35,2514           43345        INTLOOP            DLOAD    DAD                                   
028007,000201: 35,2515           03636                                    TTPI                                  
028008,000202: 35,2516           02317                                    NOMTPI                                
028009,000203: 35,2517           34041                           STCALL   TDEC1                                 
028010,000204: 35,2520           46403                                    PRECSET                               
028011,000205: 35,2521           77624                           CALL                                           
028012,000206: 35,2522           72674                                    S33/34.1                              
028013,000207: 35,2523           77454                           BZE      EXIT                                  
028014,000208: 35,2524           72535                                    SWCHCLR                               
028015,000209: 35,2525           05567                           TC       ALARM                                 
028016,000210: 35,2526           00611                           OCT      611                                   
028017,000211: 35,2527           35006                           CAF      V05N09                                
028018,000212: 35,2530           04616                           TC       BANKCALL                              
028019,000213: 35,2531           20477                           CADR     GOFLASH                               
028020,000214: 35,2532           06001                           TC       GOTOP00H                              
028021,000215: 35,2533           02460                           TC       P34/P74A                              #  PROCEED
028022,000216: 35,2534           02525                           TC       -7                                    #  V32
028023,000217: 
028024,000218: 35,2535           43014        SWCHCLR            BONCLR   BON                                   
028025,000219: 35,2536           03600                                    ITSWICH                               
028026,000220: 35,2537           72514                                    INTLOOP                               
028027,000221: 35,2540           01310                                    ETPIFLAG                              
028028,000222: 35,2541           72545                                    P34/P74D                              #  DISPLAY TTPI
028029,000223: 35,2542           77776                           EXIT                                           
028030,000224: 35,2543           03603                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
028031,000225: 35,2544           02550                           TC       P34/P74E                              
028032,000226: 35,2545           77776        P34/P74D           EXIT                                           
028033,000227: 35,2546           33632                           CAF      V06N37                                #  TTPI
028034,000228: 35,2547           03621                           TC       VNP00H                                
028035,000229: 35,2550           06042        P34/P74E           TC       INTPRET                               
028036,000230: 35,2551           71201                           SETPD    DLOAD                                 
028037,000231: 35,2552           00001                                    0D                                    
028038,000232: 35,2553           02777                                    RTX1                                  
028039,000233: 35,2554           14047                           STODL    X1                                    
028040,000234: 35,2555           03621                                    CENTANG                               
028041,000235: 35,2556           71406                           PUSH     COS                                   
028042,000236: 35,2557           16732                           STODL    CSTH                                  
028043,000237: 35,2560           77756                           SIN                                            
028044,000238: 35,2561           26730                           STOVL    SNTH                                  
028045,000239: 35,2562           03552                                    RPASS3                                
028046,000240: 35,2563           77657                           VSR*                                           
028047,000241: 35,2564           57176                                    0,2                                   
028048,000242: 35,2565           26655                           STOVL    RVEC                                  
028049,000243: 35,2566           03560                                    VPASS3                                
028050,000244: 35,2567           43057                           VSR*     SET                                   
028051,000245: 35,2570           57176                                    0,2                                   
028052,000246: 35,2571           03466                                    RVSW                                  

Page 670

028054,000248: 35,2572           36744                           STCALL   VVEC                                  
028055,000249: 35,2573           24732                                    TIMETHET                              
028056,000250: 35,2574           77745                           DLOAD                                          
028057,000251: 35,2575           03636                                    TTPI                                  
028058,000252: 35,2576           03610                           STORE    INTIME                                #  FOR INITVEL
028059,000253: 35,2577           77615                           DAD                                            
028060,000254: 35,2600           00037                                    T                                     #  RENDEZVOUS TIME
028061,000255: 35,2601           37631                           STCALL   TPASS4                                #  FOR INITVEL
028062,000256: 35,2602           73216                                    S34/35.2                              
028063,000257: 35,2603           51575                           VLOAD    ABVAL                                 
028064,000258: 35,2604           02366                                    DELVEET3                              
028065,000259: 35,2605           27576                           STOVL    DELVTPI                               
028066,000260: 35,2606           03506                                    VPASS4                                
028067,000261: 35,2607           51451                           VSU      ABVAL                                 
028068,000262: 35,2610           03566                                    VTPRIME                               
028069,000263: 35,2611           26350                           STOVL    DELVTPF                               
028070,000264: 35,2612           03536                                    RACT3                                 
028071,000265: 35,2613           45115                           PDVL     CALL                                  
028072,000266: 35,2614           02337                                    VIPRIME                               
028073,000267: 35,2615           46341                                    PERIAPO1                              
028074,000268: 35,2616           77624                           CALL                                           
028075,000269: 35,2617           46451                                    SHIFTR1                               
028076,000270: 35,2620           17606                           STODL    POSTTPI                               
028077,000271: 35,2621           03636                                    TTPI                                  
028078,000272: 35,2622           03442                           STORE    TIG                                   
028079,000273: 35,2623           77776                           EXIT                                           
028080,000274: 35,2624           33634                           CAF      V06N58                                
028081,000275: 35,2625           03621                           TC       VNP00H                                
028082,000276: 35,2626           06042                           TC       INTPRET                               
028083,000277: 35,2627           77624                           CALL                                           
028084,000278: 35,2630           73432                                    S34/35.5                              
028085,000279: 35,2631           77624                           CALL                                           
028086,000280: 35,2632           73515                                    VN1645                                
028087,000281: 35,2633           77650                           GOTO                                           
028088,000282: 35,2634           72504                                    P34/P74C                              

Page 671

028090,000284:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
028091,000285:                                                                                                  #  MOD NO -1                     LOG SECTION -- P32-P35, P72-P75
028092,000286:                                                                                                  #  MOD BY WHITE, P.              DATE:  1 JUNE 67
028093,000287: 
028094,000288:                                                                                                  #  PURPOSE
028095,000289:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028096,000290:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
028097,000291:                                                                                                  #                MID-COURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
028098,000292:                                                                                                  #                VEHICLE RENDEZVOUS.
028099,000293:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028100,000294:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028101,000295:                                                                                                  #                ASTRONAUT/GROUND.
028102,000296:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
028103,000297:                                                                                                  #                THRUSTING PROGRAM.
028104,000298: 
028105,000299:                                                                                                  #  ASSUMPTIONS
028106,000300:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028107,000301:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028108,000302:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
028109,000303:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
028110,000304:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
028111,000305:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
028112,000306:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
028113,000307:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
028114,000308:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
028115,000309:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS --
028116,000310: 
028117,000311:                                                                                                  #                        THE ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS
028118,000312:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028119,000313:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028120,000314:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028121,000315: 
028122,000316:                                                                                                  #                        FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028123,000317:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028124,000318: 
028125,000319:                                                                                                  #                        EXTERNAL DELTA V FLAG -- DESIGNATES THE TYPE OF STEERING
028126,000320:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY TEH THRUSTING
028127,000321:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028128,000322: 
028129,000323:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
028130,000324:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
028131,000325:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.

Page 672

028133,000327:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER
028134,000328:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028135,000329:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028136,000330:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028137,000331:                                                                                                  #                THROUGH THE USE OF V06N52
028138,000332: 
028139,000333:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028140,000334:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
028141,000335:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
028142,000336:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028143,000337:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
028144,000338:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY --
028145,000339: 
028146,000340:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
028147,000341: 
028148,000342:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
028149,000343: 
028150,000344:                                                                                                  #  INPUT
028151,000345:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT -- SAVED FROM P34/P74
028152,000346: 
028153,000347:                                                                                                  #  OUTPUT
028154,000348:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
028155,000349:                                                                                                  #        (2)     TTOGO           TIME TO GO
028156,000350:                                                                                                  #        (3)     +MGA            MIDOLF GIMBAL ANGLE
028157,000351:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID -- LINE OF SIGHT
028158,000352:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID -- LOCAL VERTICAL COORDINATES
028159,000353: 
028160,000354:                                                                                                  #  DOWNLINK
028161,000355:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
028162,000356:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM -- REFERENCE COORDINATES
028163,000357:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028164,000358: 
028165,000359:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028166,000360:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
028167,000361:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
028168,000362:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028169,000363:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION.
028170,000364: 
028171,000365:                                                                                                  #  SUBROUTINES USED
028172,000366:                                                                                                  #        AVFLAGA
028173,000367:                                                                                                  #        AVFLAGP
028174,000368:                                                                                                  #        LOADTIME
028175,000369:                                                                                                  #        SELECTMU
028176,000370:                                                                                                  #        PRECSET
028177,000371:                                                                                                  #        S34/35.1
028178,000372:                                                                                                  #        S34/35.2

Page 673

028180,000374:                                                                                                  #        S34/35.5
028181,000375:                                                                                                  #        VN1645
028182,000376: 
028183,000377: 35,2635                                           COUNT*   $$/P3575                              
028184,000378: 35,2635  E7,1575                                  EBANK=   KT                                    
028185,000379: 
028186,000380: 35,2635           02354        P35                TC       AVFLAGA                               
028187,000381: 35,2636           00006                           EXTEND                                         
028188,000382: 35,2637           31401                           DCA      ATIGINC                               
028189,000383: 35,2640           02644                           TC       P35/P75A                              
028190,000384: 35,2641           02361        P75                TC       AVFLAGP                               
028191,000385: 35,2642           00006                           EXTEND                                         
028192,000386: 35,2643           31403                           DCA      PTIGINC                               
028193,000387: 35,2644           53576        P35/P75A           DXCH     KT                                    
028194,000388: 35,2645           02366                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
028195,000389: 35,2646           06042                           TC       INTPRET                               
028196,000390: 35,2647           77624                           CALL                                           
028197,000391: 35,2650           20000                                    SELECTMU                              
028198,000392: 35,2651           77634        P35/P75B           RTB                                            
028199,000393: 35,2652           21574                                    LOADTIME                              
028200,000394: 35,2653           03612                           STORE    TSTRT                                 
028201,000395: 35,2654           77615                           DAD                                            
028202,000396: 35,2655           03576                                    KT                                    
028203,000397: 35,2656           03442                           STORE    TIG                                   
028204,000398: 35,2657           03610                           STORE    INTIME                                #  FOR INITVEL
028205,000399: 35,2660           34041                           STCALL   TDEC1                                 
028206,000400: 35,2661           46403                                    PRECSET                               #  ADVANCE BOTH VEHICLES
028207,000401: 35,2662           77624                           CALL                                           
028208,000402: 35,2663           73204                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
028209,000403: 35,2664           77624                           CALL                                           
028210,000404: 35,2665           73216                                    S34/35.2                              #  GET DELTA V(LV)
028211,000405: 35,2666           77624                           CALL                                           
028212,000406: 35,2667           73432                                    S34/35.5                              
028213,000407: 35,2670           77624                           CALL                                           
028214,000408: 35,2671           73515                                    VN1645                                
028215,000409: 35,2672           77650                           GOTO                                           
028216,000410: 35,2673           72651                                    P35/P75B                              

Page 674

028218,000412:                                                                                                  #  ***** S33/34.1 *****
028219,000413: 
028220,000414: 35,2674           66220        S33/34.1           STQ      SSP                                   
028221,000415: 35,2675           03463                                    NORMEX                                
028222,000416: 35,2676           03614                                    TITER                                 
028223,000417: 35,2677           40000                           OCT      40000                                 
028224,000418: 35,2700           40345                           DLOAD    SETPD                                 
028225,000419: 35,2701           33643                                    MAX250                                
028226,000420: 35,2702           00001                                    0D                                    
028227,000421: 35,2703           27574                           STOVL    SECMAX                                
028228,000422: 35,2704           03536                                    RACT3                                 
028229,000423: 35,2705           27500                           STOVL    RAPREC                                
028230,000424: 35,2706           03544                                    VACT3                                 
028231,000425: 35,2707           27506                           STOVL    VAPREC                                
028232,000426: 35,2710           03552                                    RPASS3                                
028233,000427: 35,2711           27522                           STOVL    RPPREC                                
028234,000428: 35,2712           03560                                    VPASS3                                
028235,000429: 35,2713           03530                           STORE    VPPREC                                
028236,000430: 35,2714           77624        ELCALC             CALL                                           
028237,000431: 35,2715           73204                                    S34/35.1                              #  NORMAL AND LOS
028238,000432: 35,2716           63235                           VXV      PDVL                                  
028239,000433: 35,2717           03536                                    RACT3                                 #  (RA*VA)*RA 0D
028240,000434: 35,2720           53515                           PDVL     UNIT                                  #  ULOS AT 6D
028241,000435: 35,2721           03536                                    RACT3                                 
028242,000436: 35,2722           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
028243,000437: 35,2723           51352                           VSL2     BVSU                                  
028244,000438: 35,2724           02311                                    ULOS                                  
028245,000439: 35,2725           63256                           UNIT     PDVL                                  #  UP AT 0D
028246,000440: 35,2726           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
028247,000441: 35,2727           00001                                    0D                                    #  UP IN MPAC
028248,000442: 35,2730           75241                           DOT      SIGN                                  
028249,000443: 35,2731           02311                                    ULOS                                  
028250,000444: 35,2732           65552                           SL1      ACOS                                  
028251,000445: 35,2733           50315                           PDVL     DOT                                   #  EA AT 0D
028252,000446: 35,2734           02311                                    ULOS                                  
028253,000447: 35,2735           03536                                    RACT3                                 
028254,000448: 35,2736           71244                           BPL      DLOAD                                 
028255,000449: 35,2737           72742                                    TESTY                                 
028256,000450: 35,2740           06532                                    DPPOSMAX                              
028257,000451: 35,2741           41425                           DSU      PUSH                                  
028258,000452: 35,2742           71214        TESTY              BOFF     DLOAD                                 
028259,000453: 35,2743           03740                                    ITSWICH                               
028260,000454: 35,2744           73171                                    ELEX                                  
028261,000455: 35,2745           03576                                    DELEL                                 
028262,000456: 35,2746           14033                           STODL    DELELO                                
028263,000457: 35,2747           77625                           DSU                                            
028264,000458: 35,2750           02257                                    ELEV                                  
028265,000459: 35,2751           03576                           STORE    DELEL                                 
028266,000460: 35,2752           45246                           ABS      DSU                                   
028267,000461: 35,2753           33647                                    ELEPS                                 

Page 675

028269,000463: 35,2754           77640                           BMN                                            
028270,000464: 35,2755           73201                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
028271,000465: 35,2756           70535        FIGTIME            SLOAD    SR1                                   
028272,000466: 35,2757           03614                                    TITER                                 
028273,000467: 35,2760           72030                           BHIZ     LXA,1                                 
028274,000468: 35,2761           03463                                    NORMEX                                #  TOO MANY ITERATIONS
028275,000469: 35,2762           00154                                    MPAC                                  
028276,000470: 35,2763           77330                           SXA,1    VLOAD                                 
028277,000471: 35,2764           03613                                    TITER                                 
028278,000472: 35,2765           03552                                    RPASS3                                
028279,000473: 35,2766           65256                           UNIT     PDDL                                  
028280,000474: 35,2767           00045                                    36D                                   
028281,000475: 35,2770           53515                           PDVL     UNIT                                  
028282,000476: 35,2771           03536                                    RACT3                                 
028283,000477: 35,2772           77725                           PDDL                                           
028284,000478: 35,2773           41525                           PDDL     PUSH                                  
028285,000479: 35,2774           00045                                    36D                                   
028286,000480: 35,2775           77621                           BDSU                                           
028287,000481: 35,2776           00015                                    12D                                   
028288,000482: 35,2777           14037                           STODL    30D                                   #  RP-RA MAGNITUDES
028289,000483: 35,3000           06522                                    DPHALF                                
028290,000484: 35,3001           41425                           DSU      PUSH                                  
028291,000485: 35,3002           02257                                    ELEV                                  
028292,000486: 35,3003           50165                           SIGN     BMN                                   
028293,000487: 35,3004           00037                                    30D                                   
028294,000488: 35,3005           03463                                    NORMEX                                
028295,000489: 35,3006           71545                           DLOAD    COS                                   
028296,000490: 35,3007           56205                           DMP      DDV                                   
028297,000491: 35,3010           00017                                    14D                                   
028298,000492: 35,3011           00015                                    12D                                   
028299,000493: 35,3012           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
028300,000494: 35,3013           00035                           STORE    28D                                   
028301,000495: 35,3014           44246                           ABS      BDSU                                  
028302,000496: 35,3015           06522                                    DPHALF                                
028303,000497: 35,3016           77240                           BMN      VLOAD                                 
028304,000498: 35,3017           03463                                    NORMEX                                
028305,000499: 35,3020           02261                                    UNRM                                  
028306,000500: 35,3021           53435                           VXV      UNIT                                  
028307,000501: 35,3022           00007                                    6D                                    #  UN*RA
028308,000502: 35,3023           41241                           DOT      DMP                                   
028309,000503: 35,3024           03544                                    VACT3                                 
028310,000504: 35,3025           00015                                    12D                                   
028311,000505: 35,3026           47315                           PDVL     VXV                                   
028312,000506: 35,3027           00001                                    0D                                    
028313,000507: 35,3030           03560                                    VPASS3                                
028314,000508: 35,3031           53435                           VXV      UNIT                                  
028315,000509: 35,3032           00001                                    0D                                    #  (RP*VP)*RP
028316,000510: 35,3033           41241                           DOT      DMP                                   
028317,000511: 35,3034           03560                                    VPASS3                                
028318,000512: 35,3035           00017                                    14D                                   

Page 676

028320,000514: 35,3036           77621                           BDSU                                           
028321,000515: 35,3037           63301                           NORM     PDVL                                  #  NORMALIZED WA-WP 12D
028322,000516: 35,3040           00047                                    X1                                    
028323,000517: 35,3041           00007                                    6D                                    
028324,000518: 35,3042           50235                           VXV      DOT                                   
028325,000519: 35,3043           00001                                    0D                                    
028326,000520: 35,3044           02261                                    UNRM                                  #  RA*RP.UN 14D
028327,000521: 35,3045           50315                           PDVL     DOT                                   
028328,000522: 35,3046           00001                                    0D                                    
028329,000523: 35,3047           00007                                    6D                                    
028330,000524: 35,3050           65552                           SL1      ACOS                                  
028331,000525: 35,3051           77765                           SIGN                                           
028332,000526: 35,3052           43225                           DSU      DAD                                   #  ALPHA PI
028333,000527: 35,3053           06522                                    DPHALF                                
028334,000528: 35,3054           02257                                    ELEV                                  
028335,000529: 35,3055           65525                           PDDL     ACOS                                  
028336,000530: 35,3056           00035                                    28D                                   
028337,000531: 35,3057           75221                           BDSU     SIGN                                  
028338,000532: 35,3060           06522                                    DPHALF                                
028339,000533: 35,3061           00037                                    30D                                   #  CONTAINS RP-RA
028340,000534: 35,3062           77615                           DAD                                            
028341,000535: 35,3063           56205                           DMP      DDV                                   
028342,000536: 35,3064           33641                                    TWOPI                                 
028343,000537: 35,3065           77605                           DMP                                            
028344,000538: 35,3066           41257                           SL*      DMP                                   
028345,000539: 35,3067           20176                                    0          -3,1                       
028346,000540: 35,3070           51406                           PUSH     ABS                                   
028347,000541: 35,3071           50025                           DSU      BMN                                   
028348,000542: 35,3072           03574                                    SECMAX                                
028349,000543: 35,3073           73077                                    OKMAX                                 
028350,000544: 35,3074           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
028351,000545: 35,3075           03574                                    SECMAX                                
028352,000546: 35,3076           77606                           PUSH                                           
028353,000547: 35,3077           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
028354,000548: 35,3100           03614                                    TITER                                 
028355,000549: 35,3101           73107                                    REPETE                                
028356,000550: 35,3102           71331                           SSP      DLOAD                                 
028357,000551: 35,3103           03614                                    TITER                                 
028358,000552: 35,3104           37777                           OCT      37777                                 
028359,000553: 35,3105           77650                           GOTO                                           
028360,000554: 35,3106           73145                                    STORDELT                              
028361,000555: 35,3107           41345        REPETE             DLOAD    DMP                                   
028362,000556: 35,3110           03576                                    DELEL                                 
028363,000557: 35,3111           00033                                    DELELO                                
028364,000558: 35,3112           71244                           BPL      DLOAD                                 
028365,000559: 35,3113           73123                                    NEXTES                                
028366,000560: 35,3114           03574                                    SECMAX                                
028367,000561: 35,3115           77605                           DMP                                            
028368,000562: 35,3116           33645                                    THIRD                                 
028369,000563: 35,3117           17574                           STODL    SECMAX                                

Page 677

028371,000565: 35,3120           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
028372,000566: 35,3121           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
028373,000567: 35,3122           73133                                    RESIGN                                
028374,000568: 35,3123           51545        NEXTES             DLOAD    ABS                                   
028375,000569: 35,3124           03576                                    DELEL                                 
028376,000570: 35,3125           51525                           PDDL     ABS                                   
028377,000571: 35,3126           00033                                    DELELO                                
028378,000572: 35,3127           77625                           DSU                                            
028379,000573: 35,3130           71240                           BMN      DLOAD                                 
028380,000574: 35,3131           73136                                    REVERS                                #  WRONG DIRECTION
028381,000575: 35,3132           77646                           ABS                                            
028382,000576: 35,3133           52165        RESIGN             SIGN     GOTO                                  
028383,000577: 35,3134           03606                                    DELTEEO                               
028384,000578: 35,3135           73145                                    STORDELT                              
028385,000579: 35,3136           57545        REVERS             DLOAD    DCOMP                                 
028386,000580: 35,3137           03606                                    DELTEEO                               
028387,000581: 35,3140           70406                           PUSH     SR1                                   
028388,000582: 35,3141           03606                           STORE    DELTEEO                               
028389,000583: 35,3142           77615                           DAD                                            
028390,000584: 35,3143           77650                           GOTO                                           
028391,000585: 35,3144           73146                                    ADTIME                                
028392,000586: 35,3145           03606        STORDELT           STORE    DELTEEO                               
028393,000587: 35,3146           77615        ADTIME             DAD                                            
028394,000588: 35,3147           02317                                    NOMTPI                                #  SUM OF DELTA T'S
028395,000589: 35,3150           02317                           STORE    NOMTPI                                
028396,000590: 35,3151           63375                           VLOAD    PDVL                                  
028397,000591: 35,3152           03506                                    VAPREC                                
028398,000592: 35,3153           03500                                    RAPREC                                
028399,000593: 35,3154           77624                           CALL                                           
028400,000594: 35,3155           73372                                    GOINT                                 
028401,000595: 35,3156           77624                           CALL                                           
028402,000596: 35,3157           46425                                    ACTIVE                                #  STORE NEW RACT3 VACT3
028403,000597: 35,3160           63375                           VLOAD    PDVL                                  
028404,000598: 35,3161           03530                                    VPPREC                                
028405,000599: 35,3162           03522                                    RPPREC                                
028406,000600: 35,3163           77624                           CALL                                           
028407,000601: 35,3164           73372                                    GOINT                                 
028408,000602: 35,3165           77624                           CALL                                           
028409,000603: 35,3166           46435                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
028410,000604: 35,3167           77650                           GOTO                                           
028411,000605: 35,3170           72714                                    ELCALC                                
028412,000606: 35,3171           43345        ELEX               DLOAD    DAD                                   
028413,000607: 35,3172           03636                                    TTPI                                  
028414,000608: 35,3173           02317                                    NOMTPI                                
028415,000609: 35,3174           17636                           STODL    TTPI                                  
028416,000610: 35,3175           77614                           BON                                            
028417,000611: 35,3176           01310                                    ETPIFLAG                              
028418,000612: 35,3177           73201                                    TIMEX                                 
028419,000613: 35,3200           02257                           STORE    ELEV                                  
028420,000614: 35,3201           52145        TIMEX              DLOAD    GOTO                                  

Page 678

028422,000616: 35,3202           06524                                    ZEROVECS                              
028423,000617: 35,3203           03463                                    NORMEX                                
028424,000618: 

Page 679

028426,000620:                                                                                                  #  ***** S34/35.1 *****
028427,000621: 
028428,000622:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
028429,000623:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
028430,000624: 
028431,000625: 35,3204           52375        S34/35.1           VLOAD    VSU                                   
028432,000626: 35,3205           03552                                    RPASS3                                
028433,000627: 35,3206           03536                                    RACT3                                 
028434,000628: 35,3207           41456                           UNIT     PUSH                                  
028435,000629: 35,3210           26311                           STOVL    ULOS                                  
028436,000630: 35,3211           03536                                    RACT3                                 
028437,000631: 35,3212           53435                           VXV      UNIT                                  
028438,000632: 35,3213           03544                                    VACT3                                 
028439,000633: 35,3214           02261                           STORE    UNRM                                  
028440,000634: 35,3215           77616                           RVQ                                            
028441,000635: 

Page 680

028443,000637:                                                                                                  #  ***** S34/35.2 *****
028444,000638: 
028445,000639:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
028446,000640: 
028447,000641: 35,3216           77220        S34/35.2           STQ      VLOAD                                 
028448,000642: 35,3217           03470                                    SUBEXIT                               
028449,000643: 35,3220           03560                                    VPASS3                                
028450,000644: 35,3221           65315                           PDVL     PDDL                                  
028451,000645: 35,3222           03552                                    RPASS3                                
028452,000646: 35,3223           03610                                    INTIME                                
028453,000647: 35,3224           65325                           PDDL     PDDL                                  
028454,000648: 35,3225           03631                                    TPASS4                                
028455,000649: 35,3226           33641                                    TWOPI                                 #  CONIC
028456,000650: 35,3227           46125                           PDDL     BHIZ                                  
028457,000651: 35,3230           03467                                    NN                                    
028458,000652: 35,3231           73235                                    S3435.23                              
028459,000653: 35,3232           77745                           DLOAD                                          
028460,000654: 35,3233           41545                           DLOAD    PUSH                                  
028461,000655: 35,3234           06524                                    ZEROVECS                              #  PRECISION
028462,000656: 35,3235           77624        S3435.23           CALL                                           
028463,000657: 35,3236           73376                                    INTINT                                #  GET TARGET VECTOR
028464,000658: 35,3237           27444        S3435.25           STOVL    RTARG                                 
028465,000659: 35,3240           00007                                    VATT                                  
028466,000660: 35,3241           27506                           STOVL    VPASS4                                
028467,000661: 35,3242           03444                                    RTARG                                 
028468,000662:                                                                                                  #  COMPUTE PHI = PI + (ACC(UNIT RA.UNIT RP) - PI) SIGN(RA*RP.U)
028469,000663: 35,3243           63256                           UNIT     PDVL                                  #  UNIT RP
028470,000664: 35,3244           03536                                    RACT3                                 
028471,000665: 35,3245           41456                           UNIT     PUSH                                  #  UNIT RA
028472,000666: 35,3246           50235                           VXV      DOT                                   
028473,000667: 35,3247           00001                                    0D                                    
028474,000668: 35,3250           02261                                    UNRM                                  #  RA*RP.U
028475,000669: 35,3251           77715                           PDVL                                           
028476,000670: 35,3252           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
028477,000671: 35,3253           00001                                    0D                                    
028478,000672: 35,3254           75326                           ACOS     SIGN                                  
028479,000673: 35,3255           43244                           BPL      DAD                                   
028480,000674: 35,3256           73260                                    NOPIE                                 
028481,000675: 35,3257           06532                                    DPPOSMAX                              #  REASONABLE TWO PI
028482,000676: 35,3260           15756        NOPIE              STODL    ACTCENT                               
028483,000677: 35,3261           03631                                    TPASS4                                
028484,000678: 35,3262           77625                           DSU                                            
028485,000679: 35,3263           03610                                    INTIME                                
028486,000680: 35,3264           03452                           STORE    DELLT4                                
028487,000681: 35,3265           40335                           SLOAD    SETPD                                 
028488,000682: 35,3266           03467                                    NN                                    #  NUMBER OF OFFSETS
028489,000683: 35,3267           00001                                    0D                                    
028490,000684: 35,3270           63325                           PDDL     PDVL                                  
028491,000685: 35,3271           33653                                    EPSFOUR                               
028492,000686: 35,3272           03536                                    RACT3                                 
028493,000687: 35,3273           26323                           STOVL    RINIT                                 

Page 681

028495,000689: 35,3274           03544                                    VACT3                                 
028496,000690: 35,3275           36331                           STCALL   VINIT                                 
028497,000691: 35,3276           22000                                    INITVEL                               
028498,000692: 35,3277           77624                           CALL                                           
028499,000693: 35,3300           73357                                    LOMAT                                 
028500,000694: 35,3301           64375                           VLOAD    MXV                                   
028501,000695: 35,3302           02366                                    DELVEET3                              
028502,000696: 35,3303           00001                                    0D                                    
028503,000697: 35,3304           77772                           VSL1                                           
028504,000698: 35,3305           37434                           STCALL   DELVLVC                               
028505,000699: 35,3306           03470                                    SUBEXIT                               
028506,000700: 

Page 682

028508,000702:                                                                                                  #  ***** S34/35.3 *****
028509,000703: 
028510,000704: 35,3307           45020        S34/35.3           STQ      CALL                                  
028511,000705: 35,3310           03463                                    NORMEX                                
028512,000706: 35,3311           73357                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
028513,000707: 35,3312           61375                           VLOAD    VXM                                   
028514,000708: 35,3313           03434                                    DELVLVC                               #  NEW DEL V TPI
028515,000709: 35,3314           00001                                    0D                                    
028516,000710: 35,3315           77772                           VSL1                                           
028517,000711: 35,3316           02366                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
028518,000712: 35,3317           63255                           VAD      PDVL                                  
028519,000713: 35,3320           03544                                    VACT3                                 #  NEW V REQ
028520,000714: 35,3321           03536                                    RACT3                                 
028521,000715: 35,3322           65325                           PDDL     PDDL                                  
028522,000716: 35,3323           03442                                    TIG                                   
028523,000717: 35,3324           03631                                    TPASS4                                
028524,000718: 35,3325           41525                           PDDL     PUSH                                  
028525,000719: 35,3326           06532                                    DPPOSMAX                              
028526,000720: 35,3327           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
028527,000721: 35,3330           73376                                    INTINT                                
028528,000722: 35,3331           77775                           VLOAD                                          
028529,000723: 35,3332           00001                                    RATT                                  
028530,000724: 35,3333           03444                           STORE    RTARG                                 
028531,000725: 35,3334           41575        NOVRWRT            VLOAD    PUSH                                  
028532,000726: 35,3335           02311                                    ULOS                                  
028533,000727: 35,3336           57435                           VXV      VCOMP                                 
028534,000728: 35,3337           02261                                    UNRM                                  
028535,000729: 35,3340           41456                           UNIT     PUSH                                  
028536,000730: 35,3341           76435                           VXV      VSL1                                  
028537,000731: 35,3342           02311                                    ULOS                                  
028538,000732: 35,3343           77715                           PDVL                                           
028539,000733: 35,3344           64315                           PDVL     MXV                                   
028540,000734: 35,3345           02366                                    DELVEET3                              
028541,000735: 35,3346           00001                                    0D                                    
028542,000736: 35,3347           77772                           VSL1                                           
028543,000737: 35,3350           36303                           STCALL   DVLOS                                 
028544,000738: 35,3351           03463                                    NORMEX                                
028545,000739: 

Page 683

028547,000741:                                                                                                  #  ***** S34/35.4 *****
028548,000742: 
028549,000743: 35,3352           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
028550,000744: 35,3353           03463                                    NORMEX                                
028551,000745: 35,3354           00001                                    0D                                    
028552,000746: 35,3355           77650                           GOTO                                           
028553,000747: 35,3356           73334                                    NOVRWRT                               
028554,000748: 

Page 684

028556,000750:                                                                                                  #  ***** LOMAT *****
028557,000751: 
028558,000752: 35,3357           57575        LOMAT              VLOAD    VCOMP                                 
028559,000753: 35,3360           02261                                    UNRM                                  
028560,000754: 35,3361           24007                           STOVL    6D                                    #  Y
028561,000755: 35,3362           03536                                    RACT3                                 
028562,000756: 35,3363           57456                           UNIT     VCOMP                                 
028563,000757: 35,3364           00015                           STORE    12D                                   
028564,000758: 35,3365           76435                           VXV      VSL1                                  
028565,000759: 35,3366           02261                                    UNRM                                  #  Z*-Y
028566,000760: 35,3367           00001                           STORE    0D                                    
028567,000761: 35,3370           43401                           SETPD    RVQ                                   
028568,000762: 35,3371           00023                                    18D                                   
028569,000763: 35,3372           65325        GOINT              PDDL     PDDL                                  #  DO
028570,000764: 35,3373           06524                                    ZEROVECS                              #        NOT
028571,000765: 35,3374           02317                                    NOMTPI                                
028572,000766: 35,3375           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
028573,000767: 35,3376           45020        INTINT             STQ      CALL                                  
028574,000768: 35,3377           03465                                    RTRN                                  
028575,000769: 35,3400           27410                                    INTSTALL                              
028576,000770: 35,3401           71214                           CLEAR    DLOAD                                 
028577,000771: 35,3402           01673                                    INTYPFLG                              
028578,000772: 35,3403           43054                           BZE      SET                                   
028579,000773: 35,3404           73406                                    +2                                    
028580,000774: 35,3405           01473                                    INTYPFLG                              
028581,000775: 35,3406           45545                           DLOAD    STADR                                 
028582,000776: 35,3407           63736                           STODL    TDEC1                                 
028583,000777: 35,3410           73014                           SET      LXA,2                                 
028584,000778: 35,3411           00063                                    MOONFLAG                              
028585,000779: 35,3412           02777                                    RTX2                                  
028586,000780: 35,3413           43014                           BON      CLEAR                                 
028587,000781: 35,3414           04303                                    CMOONFLG                              
028588,000782: 35,3415           73417                                    ALLSET                                
028589,000783: 35,3416           00263                                    MOONFLAG                              
028590,000784: 35,3417           25517        ALLSET             STOVL    TET                                   
028591,000785: 35,3420           77657                           VSR*                                           
028592,000786: 35,3421           57176                                    0,2                                   
028593,000787: 35,3422           25535                           STOVL    RCV                                   
028594,000788: 35,3423           77657                           VSR*                                           
028595,000789: 35,3424           57176                                    0,2                                   
028596,000790: 35,3425           35543                           STCALL   VCV                                   
028597,000791: 35,3426           27106                                    INTEGRVS                              
028598,000792: 35,3427           52175                           VLOAD    GOTO                                  
028599,000793: 35,3430           00001                                    RATT                                  
028600,000794: 35,3431           03465                                    RTRN                                  
028601,000795: 

Page 685

028603,000797:                                                                                                  #  ***** S34/35.5 *****
028604,000798: 
028605,000799:                                                                                                  #  SUBROUTINES USED
028606,000800:                                                                                                  #        BANKCALL
028607,000801:                                                                                                  #        GOFLASH
028608,000802:                                                                                                  #        GOTOP00H
028609,000803:                                                                                                  #        S34/35.3
028610,000804:                                                                                                  #        S34.35.4
028611,000805:                                                                                                  #        VNP00H
028612,000806: 
028613,000807: 35,3432           43020        S34/35.5           STQ      BON                                   
028614,000808: 35,3433           03470                                    SUBEXIT                               
028615,000809: 35,3434           01311                                    FINALFLG                              
028616,000810: 35,3435           73441                                    FLAGON                                
028617,000811: 35,3436           52014                           SET      GOTO                                  
028618,000812: 35,3437           00470                                    UPDATFLG                              
028619,000813: 35,3440           73505                                    FLAGOFF                               
028620,000814: 35,3441           77214        FLAGON             CLEAR    VLOAD                                 
028621,000815: 35,3442           03274                                    NTARGFLG                              
028622,000816: 35,3443           03434                                    DELVLVC                               
028623,000817: 35,3444           01236                           STORE    GDT/2                                 
028624,000818: 35,3445           77776                           EXIT                                           
028625,000819: 35,3446           33636                 +5        CAF      V06N81                                
028626,000820: 35,3447           04616                           TC       BANKCALL                              
028627,000821: 35,3450           20477                           CADR     GOFLASH                               
028628,000822: 35,3451           06001                           TC       GOTOP00H                              
028629,000823: 35,3452           03454                           TC       +2                                    #  PRO
028630,000824: 35,3453           03446                           TC       FLAGON     +5                         #  LOAD
028631,000825: 35,3454           35016                 +2        CA       EBANK7                                
028632,000826: 35,3455           54003                           TS       EBANK                                 #  TO BE SURE
028633,000827: 
028634,000828: 35,3456           22007                           ZL                                             
028635,000829: 35,3457           34756                           CA       FIVE                                  
028636,000830: 35,3460           54002        NTARGCHK           TS       Q                                     
028637,000831: 35,3461           50002                           INDEX    Q                                     
028638,000832: 35,3462           41433                           CS       DELVLVC                               
028639,000833: 35,3463           50002                           INDEX    Q                                     
028640,000834: 35,3464           61235                           AD       GDT/2                                 
028641,000835: 35,3465           26001                           ADS      L                                     
028642,000836: 35,3466           10002                           CCS      Q                                     
028643,000837: 35,3467           13460                           TCF      NTARGCHK                              
028644,000838: 35,3470           22000                           LXCH     A                                     
028645,000839: 35,3471           00006                           EXTEND                                         
028646,000840: 35,3472           13475                           BZF      +3                                    
028647,000841: 35,3473           05504                           TC       UPFLAG                                
028648,000842: 35,3474           00146                           ADRES    NTARGFLG                              
028649,000843: 
028650,000844: 35,3475           06042                           TC       INTPRET                               
028651,000845: 35,3476           45014                           BOFF     CALL                                  
028652,000846: 35,3477           03354                                    NTARGFLG                              

Page 686

028654,000848: 35,3500           73502                                    NOCHG                                 
028655,000849: 35,3501           73307                                    S34/35.3                              
028656,000850: 35,3502           77775        NOCHG              VLOAD                                          
028657,000851: 35,3503           02366                                    DELVEET3                              
028658,000852: 35,3504           03656                           STORE    DELVSIN                               
028659,000853: 35,3505           77624        FLAGOFF            CALL                                           
028660,000854: 35,3506           73352                                    S34/35.4                              
028661,000855: 35,3507           77776                           EXIT                                           
028662,000856: 35,3510           33635                           CAF      V06N59                                
028663,000857: 35,3511           03621                           TC       VNP00H                                
028664,000858: 35,3512           06042                           TC       INTPRET                               
028665,000859: 35,3513           77650                           GOTO                                           
028666,000860: 35,3514           03470                                    SUBEXIT                               
028667,000861: 

Page 687

028669,000863:                                                                                                  #  ***** VN1645 *****
028670,000864: 
028671,000865:                                                                                                  #  SUBROUTINES USED
028672,000866:                                                                                                  #        P3XORP7X
028673,000867:                                                                                                  #        GET+MGA
028674,000868:                                                                                                  #        BANKCALL
028675,000869:                                                                                                  #        DELAYJOB
028676,000870:                                                                                                  #        COMPTGO
028677,000871:                                                                                                  #        GOFLASHR
028678,000872:                                                                                                  #        GOTOP00H
028679,000873:                                                                                                  #        FLAGUP
028680,000874: 
028681,000875: 35,3515           71220        VN1645             STQ      DLOAD                                 
028682,000876: 35,3516           03470                                    SUBEXIT                               
028683,000877: 35,3517           33651                                    DP-.01                                
028684,000878: 35,3520           02253                           STORE    +MGA                                  #  MGA = -.01
028685,000879: 35,3521           71214                           BOFF     DLOAD                                 
028686,000880: 35,3522           01351                                    FINALFLG                              
028687,000881: 35,3523           73543                                    GET45                                 
028688,000882: 35,3524           33651                                    DP-.01                                
028689,000883: 35,3525           77615                           DAD                                            
028690,000884: 35,3526           33651                                    DP-.01                                
028691,000885: 35,3527           02253                           STORE    +MGA                                  #  MGA = -.02
028692,000886: 35,3530           77414                           BOFF     EXIT                                  
028693,000887: 35,3531           01742                                    REFSMFLG                              
028694,000888: 35,3532           73543                                    GET45                                 
028695,000889: 35,3533           03613                           TC       P3XORP7X                              
028696,000890: 35,3534           03536                           TC       +2                                    #  P3X
028697,000891: 35,3535           03544                           TC       GET45      +1                         #  P7X
028698,000892: 35,3536           06042                           TC       INTPRET                               
028699,000893: 35,3537           41575                           VLOAD    PUSH                                  
028700,000894: 35,3540           03656                                    DELVSIN                               
028701,000895: 35,3541           77624                           CALL                                           #  COMPUTE MGA
028702,000896: 35,3542           15725                                    GET+MGA                               
028703,000897: 35,3543           77776        GET45              EXIT                                           
028704,000898: 35,3544           02437                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
028705,000899: 35,3545           31470                           CA       SUBEXIT                               
028706,000900: 35,3546           55464                           TS       QSAVED                                
028707,000901: 35,3547           34777                           CAF      1SEC                                  
028708,000902: 35,3550           04616                           TC       BANKCALL                              
028709,000903: 35,3551           01736                           CADR     DELAYJOB                              
028710,000904: 35,3552           33637                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
028711,000905: 35,3553           04616                           TC       BANKCALL                              
028712,000906: 35,3554           20477                           CADR     GOFLASH                               
028713,000907: 35,3555           03560                           TC       KILCLOCK                              #  TERMINATE
028714,000908: 35,3556           03563                           TC       N45PROC                               #  PROCEED
028715,000909: 35,3557           03573                           TC       CLUPDATE                              #  RECYCLE -- RETURN FOR INITIAL COMPUTATION
028716,000910: 35,3560           30005        KILCLOCK           CA       Z                                     
028717,000911: 35,3561           55162                           TS       DISPDEX                               

Page 688

028719,000913: 35,3562           06001                           TC       GOTOP00H                              
028720,000914: 35,3563           40076        N45PROC            CS       FLAGWRD2                              
028721,000915: 35,3564           74746                           MASK     BIT6                                  
028722,000916: 35,3565           00006                           EXTEND                                         
028723,000917: 35,3566           13560                           BZF      KILCLOCK                              #  FINALFLG IS SET -- FLASH V37 -- AWAIT NEW PGM
028724,000918: 35,3567           05353                           TC       PHASCHNG                              
028725,000919: 35,3570           04024                           OCT      04024                                 
028726,000920: 35,3571           05504                           TC       UPFLAG                                #  SET
028727,000921: 35,3572           00047                           ADRES    FINALFLG                              #  FINALFLG
028728,000922: 35,3573           30005        CLUPDATE           CA       Z                                     
028729,000923: 35,3574           55162                           TS       DISPDEX                               
028730,000924: 35,3575           05353                           TC       PHASCHNG                              
028731,000925: 35,3576           04024                           OCT      04024                                 
028732,000926: 35,3577           06042                           TC       INTPRET                               
028733,000927: 35,3600           52014                           CLEAR    GOTO                                  
028734,000928: 35,3601           00670                                    UPDATFLG                              
028735,000929: 35,3602           03464                                    QSAVED                                
028736,000930: 

Page 689

028738,000932:                                                                                                  #  ***** DISPLAYE *****
028739,000933: 
028740,000934:                                                                                                  #  SUBROUTINES USED
028741,000935:                                                                                                  #        BANKCALL
028742,000936:                                                                                                  #        GOFLASHR
028743,000937:                                                                                                  #        GOTOP00H
028744,000938:                                                                                                  #        BLANKET
028745,000939:                                                                                                  #        ENDOFJOB
028746,000940: 
028747,000941: 35,3603           00006        DISPLAYE           EXTEND                                         
028748,000942: 35,3604           23463                           QXCH     NORMEX                                
028749,000943: 35,3605           33633                           CAF      V06N55                                
028750,000944: 35,3606           04616                           TCR      BANKCALL                              
028751,000945: 35,3607           20477                           CADR     GOFLASH                               
028752,000946: 35,3610           16001                           TCF      GOTOP00H                              
028753,000947: 35,3611           01463                           TC       NORMEX                                
028754,000948: 35,3612           13605                           TCF      -5                                    
028755,000949: 

Page 690

028757,000951:                                                                                                  #  ***** P3XORP7X *****
028758,000952: 
028759,000953: 35,3613           37747        P3XORP7X           CAF      HIGH9                                 
028760,000954: 35,3614           71010                           MASK     MODREG                                
028761,000955: 35,3615           00006                           EXTEND                                         
028762,000956: 35,3616           13620                           BZF      +2                                    
028763,000957: 35,3617           24002                           INCR     Q                                     
028764,000958: 35,3620           00002                           RETURN                                         
028765,000959: 
028766,000960:                                                                                                  #  ***** VNP00H *****
028767,000961: 
028768,000962:                                                                                                  #  SUBROUTINES USED
028769,000963:                                                                                                  #        BANKCALL
028770,000964:                                                                                                  #        GOFLASH
028771,000965:                                                                                                  #        GOTOP00H
028772,000966: 
028773,000967: 35,3621           00006        VNP00H             EXTEND                                         
028774,000968: 35,3622           23465                           QXCH     RTRN                                  
028775,000969: 35,3623           55615                           TS       VERBNOUN                              
028776,000970: 35,3624           31615                           CA       VERBNOUN                              
028777,000971: 35,3625           04616                           TCR      BANKCALL                              
028778,000972: 35,3626           20477                           CADR     GOFLASH                               
028779,000973: 35,3627           16001                           TCF      GOTOP00H                              
028780,000974: 35,3630           01465                           TC       RTRN                                  
028781,000975: 35,3631           13624                           TCF      -5                                    
028782,000976: 

Page 691

028784,000978:                                                                                                  #  ***** CONSTANTS *****
028785,000979: 
028786,000980: 35,3632           01445        V06N37             VN       0637                                  
028787,000981: 35,3633           01467        V06N55             VN       0655                                  
028788,000982: 35,3634           01472        V06N58             VN       0658                                  
028789,000983: 35,3635           01473        V06N59             VN       0659                                  
028790,000984: 35,3636           01521        V06N81             VN       0681                                  
028791,000985: 35,3637           04055        V16N45             VN       1645                                  
028792,000986: 35,3640           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
028793,000987: 35,3642           00001 20650  MAX250             2DEC     25         E3                         
028794,000988: 35,3644           12525 12525  THIRD              2DEC     .333333333                            
028795,000989: 35,3646           00004 21505  ELEPS              2DEC     .27777777  E-3                        
028796,000990: 35,3650           77777        DP-.01             OCT      77777                                 #  CONSTANTS
028797,000991: 35,3651           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
028798,000992: 35,3652           01252 25253  EPSFOUR            2DEC     .0416666666                            
028799,000993: 35,3654           13434 16162  130DEG             2DEC     .3611111111                            
028800,000994: 

Page 692

028802,000996:                                                                                                  #  ***** INITVEL *****
028803,000997:                                                                                                  #  MOD NO -1                     LOG SECTION -- P34-P35, P74-P75
028804,000998:                                                                                                  #  MOD BY WHITE, P.              DATE:  21 NOV 67
028805,000999: 
028806,001000:                                                                                                  #  FUNCTIONAL
028807,001001:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
028808,001002:                                                                                                  #        A TRAJECTORY OF SPECIFIC TRANSFER TIME BETWEEN SPECIFIED INITIAL
028809,001003:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
028810,001004:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
028811,001005:                                                                                                  #        OFFSETS).  IN ADDITION, IN TH EPRECISION TRAJECTORY CASE, THE
028812,001006:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
028813,001007:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
028814,001008:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
028815,001009:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
028816,001010:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
028817,001011: 
028818,001012:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
028819,001013:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
028820,001014:                                                                                                  #        SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
028821,001015:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
028822,001016:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
028823,001017:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
028824,001018:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
028825,001019:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
028826,001020: 
028827,001021:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMUTATIONS AND
028828,001022:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
028829,001023:                                                                                                  #        TRAJECTORY COMPUTATIONS.
028830,001024: 
028831,001025:                                                                                                  #  CALLING SEQUENCE
028832,001026:                                                                                                  #        L       CALL
028833,001027:                                                                                                  #        L+1             INITVEL
028834,001028:                                                                                                  #        L+2     (RETURN -- ALWAYS)
028835,001029: 
028836,001030:                                                                                                  #  INPUT
028837,001031:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
028838,001032:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
028839,001033:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
028840,001034:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
028841,001035:                                                                                                  #        (5)     INTIME          TIME OF RINIT
028842,001036:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
028843,001037:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
028844,001038:                                                                                                  #        (8)     RTX1            -2 FOR EARTH, -10D FOR LUNAR
028845,001039:                                                                                                  #        (9)     RTX2            COORDINATE SYSTEM ORIGIN -- 0 FOR EARTH, 2 FOR LUNAR
028846,001040:                                                                                                  #        PUSHLOC SET AT 4D
028847,001041: 

Page 693

028849,001043:                                                                                                  #  OUTPUT
028850,001044:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
028851,001045:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
028852,001046:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
028853,001047:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
028854,001048: 
028855,001049:                                                                                                  #  SUBROUTINES USED
028856,001050:                                                                                                  #        LAMBERT
028857,001051:                                                                                                  #        INTSTALL
028858,001052:                                                                                                  #        INTEGRVS
028859,001053: 
028860,001054: 11,2000                                           SETLOC   INTVEL                                
028861,001055: 11,2000                                           BANK                                           
028862,001056: 
028863,001057: 11,2000                                           COUNT*   $$/INITV                              
028864,001058: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
028865,001059: 11,2001           00475                                    GUESSW                                
028866,001060: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
028867,001061: 11,2003           03444                                    RTARG                                 
028868,001062: 11,2004           03463                                    NORMEX                                
028869,001063: 11,2005           03472                           STORE    RTARG1                                
028870,001064: 11,2006           77646                           ABVAL                                          
028871,001065: 11,2007           03723                           STORE    RTMAG                                 
028872,001066: 11,2010           46135                           SLOAD    BHIZ                                  
028873,001067: 11,2011           03000                                    RTX2                                  
028874,001068: 11,2012           22026                                    INITVEL1                              
028875,001069: 11,2013           72575                           VLOAD    VSL2                                  
028876,001070: 11,2014           02323                                    RINIT                                 #  B29
028877,001071: 11,2015           26323                           STOVL    RINIT                                 #  B27
028878,001072: 11,2016           02331                                    VINIT                                 #  B7
028879,001073: 11,2017           77752                           VSL2                                           
028880,001074: 11,2020           26331                           STOVL    VINIT                                 #  B5
028881,001075: 11,2021           03472                                    RTARG1                                
028882,001076: 11,2022           77752                           VSL2                                           
028883,001077: 11,2023           03472                           STORE    RTARG1                                
028884,001078: 11,2024           77646                           ABVAL                                          
028885,001079: 11,2025           03723                           STORE    RTMAG                                 
028886,001080: 
028887,001081:                                                                                                  #  INITIALIZATION
028888,001082: 
028889,001083: 11,2026           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
028890,001084: 11,2027           03617                                    ITCTR                                 
028891,001085: 11,2030           77776                                    0          -1                         
028892,001086: 11,2031           70546                           COSINE   SR1                                   #  CALCULATE COSING (E4) (+2)
028893,001087: 11,2032           17667                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4) (PL 0D)
028894,001088: 11,2033           67154                           LXA,2    SXA,2                                 
028895,001089: 11,2034           00154                                    MPAC                                  
028896,001090: 11,2035           02701                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
028897,001091: 11,2036           77775                           VLOAD                                          

Page 694

028899,001093: 11,2037           02323                                    RINIT                                 
028900,001094: 11,2040           26655                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
028901,001095: 11,2041           03472                                    RTARG1                                
028902,001096: 11,2042           16663                           STODL    R2VEC                                 #  R2VEC EQ RTARG
028903,001097: 11,2043           03452                                    DELLT4                                
028904,001098: 11,2044           02671                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
028905,001099: 11,2045           77201                           SETPD    VLOAD                                 
028906,001100: 11,2046           00001                                    0D                                    #  INITIALIZE PL TO 0D
028907,001101: 11,2047           02323                                    RINIT                                 #  MPAC EQ RINIT (+29)
028908,001102: 11,2050           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)         (PL 6D)
028909,001103: 11,2051           53435                           VXV      UNIT                                  
028910,001104: 11,2052           02331                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI (+8)
028911,001105: 11,2053           26674                           STOVL    UN                                    
028912,001106: 11,2054           03472                                    RTARG1                                
028913,001107: 11,2055           50256                           UNIT     DOT                                   #  TEMP*RT.URI (+2)      (PL 0D)
028914,001108: 11,2056           43015                           DAD      CLEAR                                 
028915,001109: 11,2057           03667                                    COZY4                                 
028916,001110: 11,2060           03665                                    NORMSW                                
028917,001111: 11,2061           03667                           STORE    COZY4                                 
028918,001112: 11,2062           43044        INITVEL2           BPL      SET                                   
028919,001113: 11,2063           22105                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
028920,001114: 11,2064           03465                                    NORMSW                                
028921,001115: 
028922,001116:                                                                                                  #  ROTATE RC INTO YC PLANE -- SET UNIT NORMAL TO YC
028923,001117: 
028924,001118: 11,2065           41575                           VLOAD    PUSH                                  #                (PL 6D)
028925,001119: 11,2066           02663                                    R2VEC                                 #  RC TO 6D (+29)
028926,001120: 11,2067           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
028927,001121: 11,2070           46206                           PUSH     VPROJ                                 #                (PL 8D)
028928,001122: 11,2071           02674                                    UN                                    
028929,001123: 11,2072           51352                           VSL2     BVSU                                  
028930,001124: 11,2073           74256                           UNIT     VXSC                                  #                (PL 0D)
028931,001125: 11,2074           77772                           VSL1                                           
028932,001126: 11,2075           02663                           STORE    R2VEC                                 
028933,001127: 11,2076           67351                           TLOAD    SLOAD                                 
028934,001128: 11,2077           24007                                    ZEROVEC                               
028935,001129: 11,2100           03617                                    ITCTR                                 
028936,001130: 11,2101           77244                           BPL      VLOAD                                 
028937,001131: 11,2102           22105                                    INITVEL3                              
028938,001132: 11,2103           02663                                    R2VEC                                 
028939,001133: 11,2104           03472                           STORE    RTARG1                                
028940,001134: 11,2105           63345        INITVEL3           DLOAD    PDVL                                  #                                (PL 2D)
028941,001135: 11,2106           26007                                    MUEARTH                               #  POSITIVE VALUE
028942,001136: 11,2107           02663                                    R2VEC                                 
028943,001137: 11,2110           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)              (PL 8D)
028944,001138: 11,2111           02655                                    R1VEC                                 
028945,001139: 11,2112           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)              (PL 14D)
028946,001140: 11,2113           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
028947,001141: 11,2114           00003                                    2D                                    
028948,001142: 11,2115           77606                           PUSH                                           #                                (PL 20D)
028949,001143: 11,2116           71350                           LXA,1    DLOAD                                 

Page 695

028951,001145: 11,2117           02776                                    RTX1                                  
028952,001146: 11,2120           00023                                    18D                                   
028953,001147: 11,2121           62040                           BMN      INCR,1                                
028954,001148: 11,2122           22124                                    +2                                    
028955,001149: 11,2123           77767                           DEC      -8         B-14                       
028956,001150: 11,2124           67310                           INCR,1   SLOAD                                 
028957,001151: 11,2125           00012                                    10D                                   
028958,001152: 11,2126           00047                                    X1                                    
028959,001153: 11,2127           77230                           BHIZ     VLOAD                                 #                        (PL 14D)
028960,001154: 11,2130           22132                                    +2                                    
028961,001155: 11,2131           41476                           VCOMP    PUSH                                  #                        (PL 20 D)
028962,001156: 11,2132           77775                           VLOAD                                          #                        (PL 14D)
028963,001157: 11,2133           50235                           VXV      DOT                                   #                        (PL 2D)
028964,001158: 11,2134           71244                           BPL      DLOAD                                 #                        (PL 0D)
028965,001159: 11,2135           22137                                    INITVEL4                              
028966,001160: 11,2136           41476                           DCOMP    PUSH                                  #                        (PL 2D)
028967,001161: 11,2137           67154        INITVEL4           LXA,2    SXA,2                                 
028968,001162: 11,2140           00000                                    0D                                    
028969,001163: 11,2141           02672                                    GEOMSGN                               
028970,001164: 
028971,001165:                                                                                                  #  SET INPUTS UP FOR LAMBERT
028972,001166: 
028973,001167: 11,2142           66350                           LXA,1    SSP                                   
028974,001168: 11,2143           02776                                    RTX1                                  
028975,001169: 11,2144           00027                                    ITERCTR                               
028976,001170: 11,2145           00024                                    20D                                   
028977,001171: 
028978,001172:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
028979,001173: 
028980,001174: 11,2146           77624                           CALL                                           
028981,001175: 11,2147           25212                                    LAMBERT                               
028982,001176: 
028983,001177:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
028984,001178: 
028985,001179: 11,2150           77214                           CLEAR    VLOAD                                 
028986,001180: 11,2151           00675                                    GUESSW                                
028987,001181: 11,2152           02744                                    VVEC                                  
028988,001182: 
028989,001183:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
028990,001184: 
028991,001185: 11,2153           16337                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
028992,001186: 
028993,001187:                                                                                                  #  IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
028994,001188:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
028995,001189: 
028996,001190: 11,2154           02702                                    VTARGTAG                              
028997,001191: 11,2155           45030                           BHIZ     CALL                                  
028998,001192: 11,2156           22233                                    INITVEL7                              
028999,001193: 11,2157           27410                                    INTSTALL                              
029000,001194: 11,2160           43135                           SLOAD    CLEAR                                 
029001,001195: 11,2161           03000                                    RTX2                                  
029002,001196: 11,2162           00263                                    MOONFLAG                              
029003,001197: 11,2163           43030                           BHIZ     SET                                   

Page 696

029005,001199: 11,2164           22166                                    INITVEL5                              
029006,001200: 11,2165           00063                                    MOONFLAG                              
029007,001201: 11,2166           77775        INITVEL5           VLOAD                                          
029008,001202: 11,2167           02323                                    RINIT                                 
029009,001203: 11,2170           02655                           STORE    R1VEC                                 
029010,001204: 11,2171           25535                           STOVL    RCV                                   
029011,001205: 11,2172           02337                                    VIPRIME                               
029012,001206: 11,2173           15543                           STODL    VCV                                   
029013,001207: 11,2174           03610                                    INTIME                                
029014,001208: 11,2175           01517                           STORE    TET                                   
029015,001209: 11,2176           43015                           DAD      CLEAR                                 
029016,001210: 11,2177           03452                                    DELLT4                                
029017,001211: 11,2200           01673                                    INTYPFLG                              
029018,001212: 11,2201           34041                           STCALL   TDEC1                                 
029019,001213: 11,2202           27106                                    INTEGRVS                              
029020,001214: 11,2203           77775                           VLOAD                                          
029021,001215: 11,2204           00025                                    VATT1                                 
029022,001216: 11,2205           02703                           STORE    VTARGET                               
029023,001217: 
029024,001218:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
029025,001219:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
029026,001220: 
029027,001221: 11,2206           63154                           LXA,2    INCR,2                                
029028,001222: 11,2207           03616                                    ITCTR                                 
029029,001223: 11,2210           00001                                    1D                                    #  INCREMENT ITCTR
029030,001224: 11,2211           55134                           SXA,2    XSU,2                                 
029031,001225: 11,2212           03616                                    ITCTR                                 
029032,001226: 11,2213           02701                                    VTARGTAG                              
029033,001227: 11,2214           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
029034,001228: 11,2215           00050                                    X2                                    
029035,001229: 11,2216           22230                                    INITVEL6                              
029036,001230: 
029037,001231:                                                                                                  #  OFFSET CONIC TARGET VECTGOR
029038,001232: 
029039,001233: 11,2217           52375                           VLOAD    VSU                                   
029040,001234: 11,2220           03472                                    RTARG1                                
029041,001235: 11,2221           00017                                    RATT1                                 
029042,001236: 11,2222           77655                           VAD                                            
029043,001237: 11,2223           02663                                    R2VEC                                 
029044,001238: 11,2224           16663                           STODL    R2VEC                                 
029045,001239: 11,2225           03667                                    COZY4                                 
029046,001240: 11,2226           77650                           GOTO                                           
029047,001241: 11,2227           22062                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
029048,001242: 
029049,001243:                                                                                                  #  COMPUTE THE DELTA VELOCITY
029050,001244: 
029051,001245: 11,2230           77775        INITVEL6           VLOAD                                          
029052,001246: 11,2231           02663                                    R2VEC                                 
029053,001247: 11,2232           03472                           STORE    RTARG1                                
029054,001248: 11,2233           52375        INITVEL7           VLOAD    VSU                                   
029055,001249: 11,2234           02337                                    VIPRIME                               
029056,001250: 11,2235           02331                                    VINIT                                 

Page 697

029058,001252: 11,2236           26366                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)
029059,001253: 11,2237           02703                                    VTARGET                               
029060,001254: 11,2240           03566                           STORE    VTPRIME                               
029061,001255: 11,2241           46135                           SLOAD    BHIZ                                  
029062,001256: 11,2242           03000                                    RTX2                                  
029063,001257: 11,2243           22260                                    INITVELX                              
029064,001258: 11,2244           70575                           VLOAD    VSR2                                  
029065,001259: 11,2245           03566                                    VTPRIME                               
029066,001260: 11,2246           27566                           STOVL    VTPRIME                               
029067,001261: 11,2247           02337                                    VIPRIME                               
029068,001262: 11,2250           77742                           VSR2                                           
029069,001263: 11,2251           26337                           STOVL    VIPRIME                               
029070,001264: 11,2252           03472                                    RTARG1                                
029071,001265: 11,2253           77742                           VSR2                                           
029072,001266: 11,2254           27472                           STOVL    RTARG1                                
029073,001267: 11,2255           02366                                    DELVEET3                              
029074,001268: 11,2256           77742                           VSR2                                           
029075,001269: 11,2257           02366                           STORE    DELVEET3                              
029076,001270: 11,2260           70750        INITVELX           LXA,1    DLOAD*                                
029077,001271: 11,2261           02776                                    RTX1                                  
029078,001272: 11,2262           10003                                    MUTABLE    -2,1                       
029079,001273: 11,2263           41206                           PUSH     DMP                                   
029080,001274: 11,2264           02742                                    R1A                                   
029081,001275: 11,2265           56342                           SR1      DDV                                   
029082,001276: 11,2266           00041                                    R1                                    
029083,001277: 11,2267           17721                           STODL    MU/A                                  
029084,001278: 11,2270           77661                           SR                                             
029085,001279: 11,2271           20607                                    6                                     
029086,001280: 11,2272           03717                           STORE    MUASTEER                              
029087,001281: 11,2273           77201                           SETPD    VLOAD                                 
029088,001282: 11,2274           00001                                    0D                                    
029089,001283: 11,2275           03472                                    RTARG1                                
029090,001284: 11,2276           03444                           STORE    RTARG                                 
029091,001285: 11,2277           52014                           CLEAR    GOTO                                  
029092,001286: 11,2300           01267                                    XDELVFLG                              
029093,001287: 11,2301           03463                                    NORMEX                                
029094,001288: 
029095,001289:                                                                                                  #  ***** END OF INITVEL ROUTINE *****
029096,001290: 

Page 698

029098,001292:                                                                                                  #  ***** MIDGIM *****
029099,001293:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
029100,001294:                                                                                                  #  REVISION 03, 17 FEB 67
029101,001295: 
029102,001296:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
029103,001297:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
029104,001298:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSY LIST), OTHERWISE
029105,001299:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
029106,001300:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
029107,001301: 
029108,001302:                                                                                                  #  ** INPUTS **
029109,001303:                                                                                                  #        NAME    MEANING                                         UNITS/SCALING/MODE
029110,001304:                                                                                                  #        AVFLAG  INT FLAG -- 0 IS CSM ACTIVE, 1 IS LEM ACTIVE    BIT
029111,001305:                                                                                                  #        RINIT   ACTIVE VEHICLE RADIUS VECTOR                    METERS/CSEC (+7) VT
029112,001306:                                                                                                  #        VINIT   ACTIVE VEHICLE VELOCITY VECTOR                  METERS/CSEC (+7) VT
029113,001307:                                                                                                  #        0D(PL)  ACTIVE VEHICLE DELTA VELOCITY VECTOR            METERS/CSEC (+7) VT
029114,001308: 
029115,001309:                                                                                                  #  ** OUTPUTS **
029116,001310:                                                                                                  #     NAME       MEANING                                         UNITS/SCALING/MODE
029117,001311:                                                                                                  #     +MGA       + MIDDLE GIMBAL ANGLE                           REVOLUTIONS (+0) DP
029118,001312:                                                                                                  #     DELVLVC    DELTA VELOCITY VECTOR IN LV COORD.              METERS/CSEC (+7) VT
029119,001313:                                                                                                  #     MGLVFLAG   INT FLAG: 0 IS +MGA COMUTED, 1 IS DELVLVC COMP. BIT
029120,001314: 
029121,001315:                                                                                                  #  ** CALLING SEQUENCE **
029122,001316:                                                                                                  #        L       CALL
029123,001317:                                                                                                  #        L+1             MIDGIM
029124,001318:                                                                                                  #        L+2     (RETURN -- ALWAYS)
029125,001319: 
029126,001320:                                                                                                  #  ** NO SUBROUTINES CALLED **
029127,001321: 
029128,001322:                                                                                                  #  ** DEBRIS -- ERASABLE TEMPORARY USAGE **
029129,001323:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
029130,001324: 
029131,001325:                                                                                                  #  ** ALARMS -- NONE **
029132,001326: 

Page 699

029134,001328: 06,2000                                           SETLOC   MIDDGIM                               
029135,001329: 06,2000                                           BANK                                           
029136,001330: 
029137,001331: 06,3723                                           COUNT*   $$/MIDG                               
029138,001332: 
029139,001333: 06,3723           20000 00000  HALFREV            2DEC     1          B-1                        
029140,001334: 
029141,001335: 06,3725           53575        GET+MGA            VLOAD    UNIT                                  #  PL 0D) V (+7) TO MPAC UNITIZE UV (+1)
029142,001336: 06,3726           77656                           UNIT                                           
029143,001337: 06,3727           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
029144,001338: 06,3730           01742                                    REFSMMAT   +6                         #  FROM +2 TO +1 FOR ASIN ROUTINE
029145,001339: 06,3731           51136                           ARCSIN   BPL                                   
029146,001340: 06,3732           15736                                    SETMGA                                
029147,001341: 06,3733           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
029148,001342: 06,3734           15724                                    HALFREV                               #  ADDING ONE REVOLUTION
029149,001343: 06,3735           15724                                    HALFREV                               
029150,001344: 06,3736           02253        SETMGA             STORE    +MGA                                  
029151,001345: 06,3737           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
029152,001346: 06,3740           02675                                    MGLVFLAG                              #  AND EXIT
029153,001347: 06,3741           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC UNITZE UR
029154,001348: 06,3742           02323                                    RINIT                                 
029155,001349: 06,3743           77676                           VCOMP                                          #  U(-R)
029156,001350: 06,3744           00023                           STORE    18D                                   #  U(-R) TO 18D
029157,001351: 06,3745           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
029158,001352: 06,3746           02331                                    VINIT                                 
029159,001353: 06,3747           00015                           STORE    12D                                   #  U(V*R) TO 12D
029160,001354: 06,3750           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
029161,001355: 06,3751           00023                                    18D                                   
029162,001356: 06,3752           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
029163,001357: 06,3753           00001                                    0D                                    #  DELTA V (+7) IN 0D
029164,001358: 06,3754           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
029165,001359: 06,3755           00007                                    6D                                    #  AND SCALE +7 IN MPAC
029166,001360: 06,3756           03434                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7(
029167,001361: 06,3757           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
029168,001362: 06,3760           02475                                    MGLVFLAG                              #  AND EXIT
029169,001363: 
029170,001364:                                                                                                  #  ***** END OF MIDGIM ROUTINE *****
029171,001365: 

Page 700

029173,001367: 10,2000                                           BANK     10                                    
029174,001368: 10,2000                                           SETLOC   SLCTMU                                
029175,001369: 10,2000                                           BANK                                           
029176,001370: 10,2000                                           COUNT*   $$/MIDG                               
029177,001371: 
029178,001372: 10,2000           77160        SELECTMU           AXC,1    AXT,2                                 
029179,001373: 10,2001           00002                                    2D                                    
029180,001374: 10,2002           00000                                    0D                                    
029181,001375: 10,2003           77614                           BOFF                                           
029182,001376: 10,2004           04343                                    CMOONFLG                              
029183,001377: 10,2005           20011                                    SETMUER                               
029184,001378: 10,2006           77160                           AXC,1    AXT,2                                 
029185,001379: 10,2007           00012                                    10D                                   
029186,001380: 10,2010           00002                                    2D                                    
029187,001381: 10,2011           66143        SETMUER            DLOAD*   SXA,1                                 
029188,001382: 10,2012           10011                                    MUTABLE    +4,1                       
029189,001383: 10,2013           02776                                    RTX1                                  
029190,001384: 10,2014           22317                           STODL*   RTSR1/MU                              
029191,001385: 10,2015           10003                                    MUTABLE    -2,1                       
029192,001386: 10,2016           54214                           BOFF     SR                                    
029193,001387: 10,2017           04343                                    CMOONFLG                              
029194,001388: 10,2020           20022                                    RTRNMU                                
029195,001389: 10,2021           20607                                    6D                                    
029196,001390: 10,2022           02321        RTRNMU             STORE    RTMU                                  
029197,001391: 10,2023           43134                           SXA,2    CLEAR                                 
029198,001392: 10,2024           02777                                    RTX2                                  
029199,001393: 10,2025           01271                                    FINALFLG                              
029200,001394: 10,2026           77650                           GOTO                                           
029201,001395: 10,2027           73515                                    VN1645                                
029202,001396: 

Page 701

029204,001398:                                                                                                  #  ***** PERIAPO *****
029205,001399:                                                                                                  #  MOD NO -1                     LOG SECTION -- P34-P35, P74-P75
029206,001400:                                                                                                  #  MOD BY WHITE, P.              DATE 18 JAN 68
029207,001401: 
029208,001402:                                                                                                  #  FUNCTIONAL DESCRIPTION
029209,001403:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
029210,001404:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
029211,001405:                                                                                                  #        TRAJECTORY AND THE PRIMARY BODY.
029212,001406: 
029213,001407:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
029214,001408: 
029215,001409:                                                                                                  #        APSIDES IS CALLED TO SOVE FOR THE TWO BODY RADII OF APOCENTER AND
029216,001410:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
029217,001411: 
029218,001412:                                                                                                  #  CALLING SEQUENCE
029219,001413:                                                                                                  #        L       CALL
029220,001414:                                                                                                  #        L+1             PERIAPO
029221,001415:                                                                                                  #        L+2     (RETURN -- ALWAYS)
029222,001416: 
029223,001417:                                                                                                  #  INPUT
029224,001418:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
029225,001419:                                                                                                  #                        SCALE FACTOR -- EARTH +29, MOON +27
029226,001420:                                                                                                  #        (2)     VVEC    VELOCITY VECTORY IN METERS/CENTISECOND
029227,001421:                                                                                                  #                        SCALE FACTOR -- EARTH +7, MOON +5
029228,001422:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
029229,001423:                                                                                                  #                        EARTH -1, MOON -10
029230,001424: 
029231,001425:                                                                                                  #  OUTPUT
029232,001426:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
029233,001427:                                                                                                  #                        SCALE FACTOR -- EARTH +29, MOON +27
029234,001428:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
029235,001429:                                                                                                  #                        SCALE FACTOR -- EARTH +29, MOON +27
029236,001430:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
029237,001431:                                                                                                  #                        SCALE FACTOR -- EARTH +29, MOON +27
029238,001432:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
029239,001433:                                                                                                  #                        SCALE FACTOR -- EARTH +29, MOON +27
029240,001434:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
029241,001435:                                                                                                  #                        SCALE FACTOR -- +3
029242,001436:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
029243,001437:                                                                                                  #                        SCALE FACTOR -- EARTH +29, MOON +27
029244,001438:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
029245,001439: 
029246,001440:                                                                                                  #  SUBROUTINES USED
029247,001441:                                                                                                  #        SETRAD

Page 702

029249,001443:                                                                                                  #        APSIDES
029250,001444: 
029251,001445: 23,2000                                           SETLOC   APOPERI                               
029252,001446: 23,2000                                           BANK                                           
029253,001447: 
029254,001448: 23,2337                                           COUNT*   $$/PERAP                              
029255,001449: 
029256,001450: 23,2337           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
029257,001451:                                                                                                  #  = 20 909 901.57 FT
029258,001452: 
029259,001453: 23,2341           53754        PERIAPO1           LXA,2    VSR*                                  
029260,001454: 23,2342           02777                                    RTX2                                  
029261,001455: 23,2343           57176                                    0,2                                   
029262,001456: 23,2344           26744                           STOVL    VVEC                                  
029263,001457: 23,2345           53750                           LXA,1    VSR*                                  
029264,001458: 23,2346           02776                                    RTX1                                  
029265,001459: 23,2347           57176                                    0,2                                   
029266,001460: 23,2350           02655                           STORE    RVEC                                  
029267,001461: 23,2351           45020        PERIAPO            STQ      CALL                                  
029268,001462: 23,2352           03463                                    NORMEX                                
029269,001463: 23,2353           46367                                    SETRAD                                
029270,001464: 23,2354           37671                           STCALL   XXXALT                                
029271,001465: 23,2355           25704                                    APSIDES                               
029272,001466: 23,2356           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
029273,001467: 23,2357           00003                                    2D                                    
029274,001468: 23,2360           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
029275,001469: 23,2361           03671                                    XXXALT                                
029276,001470: 23,2362           00001                                    0D                                    
029277,001471: 23,2363           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
029278,001472: 23,2364           03671                                    XXXALT                                
029279,001473: 23,2365           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
029280,001474: 23,2366           03463                                    NORMEX                                
029281,001475: 

Page 703

029283,001477: 23,2367           41545        SETRAD             DLOAD    PUSH                                  
029284,001478: 23,2370           06340                                    RPAD                                  
029285,001479: 23,2371           63130                           SXA,1    INCR,2                                
029286,001480: 23,2372           00047                                    X2                                    
029287,001481: 23,2373           00002                                    2D                                    
029288,001482: 23,2374           46135                           SLOAD    BHIZ                                  
029289,001483: 23,2375           00050                                    X2                                    
029290,001484: 23,2376           46402                                    SETRADX                               
029291,001485: 23,2377           51575                           VLOAD    ABVAL                                 
029292,001486: 23,2400           02023                                    RLS                                   
029293,001487: 23,2401           77725                           PDDL                                           
029294,001488: 23,2402           43545        SETRADX            DLOAD    RVQ                                   
029295,001489: 

Page 704

029297,001491: 23,2403           77620        PRECSET            STQ                                            
029298,001492: 23,2404           03463                                    NORMEX                                
029299,001493: 23,2405           37574                           STCALL   TDEC2                                 
029300,001494: 23,2406           27056                                    LEMPREC                               
029301,001495: 23,2407           77624                           CALL                                           
029302,001496: 23,2410           46421                                    LEMSTORE                              
029303,001497: 23,2411           77745                           DLOAD                                          
029304,001498: 23,2412           03574                                    TDEC2                                 
029305,001499: 23,2413           34041                           STCALL   TDEC1                                 
029306,001500: 23,2414           27042                                    CSMPREC                               
029307,001501: 23,2415           77624                           CALL                                           
029308,001502: 23,2416           46431                                    CSMSTORE                              
029309,001503: 23,2417           77650                           GOTO                                           
029310,001504: 23,2420           03463                                    NORMEX                                
029311,001505: 23,2421           43175        LEMSTORE           VLOAD    BOFF                                  
029312,001506: 23,2422           00001                                    RATT                                  
029313,001507: 23,2423           01352                                    AVFLAG                                
029314,001508: 23,2424           46435                                    PASSIVE                               
029315,001509: 23,2425           27536        ACTIVE             STOVL    RACT3                                 
029316,001510: 23,2426           00007                                    VATT                                  
029317,001511: 23,2427           03544                           STORE    VACT3                                 
029318,001512: 23,2430           77616                           RVQ                                            
029319,001513: 23,2431           43175        CSMSTORE           VLOAD    BOFF                                  
029320,001514: 23,2432           00001                                    RATT                                  
029321,001515: 23,2433           01352                                    AVFLAG                                
029322,001516: 23,2434           46425                                    ACTIVE                                
029323,001517: 23,2435           27552        PASSIVE            STOVL    RPASS3                                
029324,001518: 23,2436           00007                                    VATT                                  
029325,001519: 23,2437           03560                           STORE    VPASS3                                
029326,001520: 23,2440           77616                           RVQ                                            
029327,001521: 

Page 705

029329,001523: 23,2441           53754        VECSHIFT           LXA,2    VSR*                                  
029330,001524: 23,2442           02777                                    RTX2                                  
029331,001525: 23,2443           57176                                    0,2                                   
029332,001526: 23,2444           63350                           LXA,1    PDVL                                  
029333,001527: 23,2445           02776                                    RTX1                                  
029334,001528: 23,2446           63257                           VSR*     PDVL                                  
029335,001529: 23,2447           57176                                    0,2                                   
029336,001530: 23,2450           77616                           RVQ                                            
029337,001531: 

Page 706

029339,001533: 23,2451           53754        SHIFTR1            LXA,2    SL*                                   
029340,001534: 23,2452           02777                                    RTX2                                  
029341,001535: 23,2453           57576                                    0,2                                   
029342,001536: 23,2454           77616                           RVQ                                            
029343,001537: 

Page 707

029345,001539:                                                                                                  #  PROGRAM DESCRIPTION
029346,001540: 
029347,001541:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
029348,001542:                                                                                                  #  MOD NO. 0             DATE 22 DECEMBER 67
029349,001543:                                                                                                  #  MOD BY N.M.NEVILLE    LOG SECTION EXTENDED VERBS
029350,001544:                                                                                                  #  FUNCTIONAL DESCRIPTION
029351,001545: 
029352,001546:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
029353,001547:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI).  (REQUESTED BY DSKY).
029354,001548: 
029355,001549:                                                                                                  #  CALLING SEQUENCE
029356,001550:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V 90 E
029357,001551: 
029358,001552:                                                                                                  #  SUBROUTINES CALLED
029359,001553:                                                                                                  #        EXDSPRET
029360,001554:                                                                                                  #        GOMARKF
029361,001555:                                                                                                  #        CSMPREC
029362,001556:                                                                                                  #        LEMPREC
029363,001557:                                                                                                  #        SGNAGREE
029364,001558:                                                                                                  #        LOADTIME
029365,001559: 
029366,001560:                                                                                                  #  NORMAL EXIT MODES
029367,001561:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
029368,001562: 
029369,001563:                                                                                                  #  ALARM OR ABORT EXIT MODES
029370,001564:                                                                                                  #        NONE
029371,001565: 
029372,001566:                                                                                                  #  OUTPUT
029373,001567:                                                                                                  #        DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
029374,001568: 
029375,001569:                                                                                                  #        DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
029376,001570:                                                                                                  #        REGISTERS RANGE, RRATE, AND RTHETA RESPECTIVELY.
029377,001571: 
029378,001572:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029379,001573:                                                                                                  #        CSM AND LEM STATE VECTORS
029380,001574: 
029381,001575:                                                                                                  #  DEBRIS
029382,001576:                                                                                                  #        CENTRALS A,Q,L
029383,001577:                                                                                                  #        OTHER:  THOSE USED BY THE ABOVE LISTED SUBROUTINES
029384,001578: 
029385,001579: 20,2115                                           BANK     20                                    
029386,001580: 04,2000                                           SETLOC   R36LM                                 
029387,001581: 04,2000                                           BANK                                           

Page 708

029389,001583: 04,2642  E7,1441                                  EBANK=   TIG                                   
029390,001584: 04,2642                                           COUNT*   $$/R36                                
029391,001585: 
029392,001586: 04,2642           00006        R36                EXTEND                                         
029393,001587: 04,2643           31442                           DCA      TIG                                   #  SET TIME-OF-EVEN TO TIG FOR NOMINAL
029394,001588: 04,2644           53051                           DXCH     DSPTEMX                               #  DISPLAY
029395,001589: 04,2645           32755                           CAF      V06N16N                               
029396,001590: 04,2646           04616                           TC       BANKCALL                              
029397,001591: 04,2647           20334                           CADR     GOMARKF                               
029398,001592: 04,2650           15472                           TCF      ENDEXT                                #  TERMINATE
029399,001593: 04,2651           12653                           TCF      +2                                    #  PROCEED
029400,001594: 04,2652           12645                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
029401,001595: 04,2653           06042                           TC       INTPRET                               
029402,001596: 04,2654           53145                           DLOAD    BZE                                   
029403,001597: 04,2655           01051                                    DSPTEMX                               
029404,001598: 04,2656           10752                                    GETNOW                                #  ASTRO-LOADED ZERO, GET PRESS TIME
029405,001599: 04,2657           34041        R36INT             STCALL   TDEC1                                 
029406,001600: 04,2660           27042                                    OTHPREC                               
029407,001601: 04,2661           63375                           VLOAD    PDVL                                  
029408,001602: 04,2662           00007                                    VATT                                  
029409,001603: 04,2663           00001                                    RATT                                  #  -
029410,001604: 04,2664           02207                           STORE    RPASS36                               #  R
029411,001605: 04,2665           63256                           UNIT     PDVL                                  #  P
029412,001606: 04,2666           53435                           VXV      UNIT                                  #  -
029413,001607: 04,2667           77626                           STADR                                          
029414,001608: 04,2670           61562                           STODL    UNP36                                 #  U
029415,001609: 04,2671           00015                                    TAT                                   
029416,001610: 04,2672           34041                           STCALL   TDEC1                                 
029417,001611: 04,2673           27056                                    THISPREC                              
029418,001612: 04,2674           63375                           VLOAD    PDVL                                  #                        -
029419,001613: 04,2675           00007                                    VATT                                  #  VELOCITY VECTOR       V       00D
029420,001614: 04,2676           00001                                    RATT                                  #                         A
029421,001615: 04,2677           41406                           PUSH     PUSH                                  #  POSITION VECTOR       R   IN  06D AND 12D
029422,001616: 04,2700           63245                           BVSU     PDVL                                  #                         A
029423,001617: 04,2701           02207                                    RPASS36                               #  LINE OF SIGHT VECTOR  R - R   12D
029424,001618: 04,2702           72441                           DOT      SL1                                   #                         P   A
029425,001619: 04,2703           02215                                    UNP36                                 #      _   _
029426,001620: 04,2704           26201                           STOVL    RANGE                                 #  Y = U . R
029427,001621: 04,2705           00001                                    00D                                   #           A
029428,001622: 04,2706           72441                           DOT      SL1                                   
029429,001623: 04,2707           02215                                    UNP36                                 #  .   _   _
029430,001624: 04,2710           26203                           STOVL    RRATE                                 #  Y = U . V
029431,001625: 04,2711           00007                                    06D                                   #  _        A
029432,001626: 04,2712           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
029433,001627: 04,2713           47235                           VXV      VXV                                   #   RA          A
029434,001628: 04,2714           00001                                    00D                                   #   _    _     _     _
029435,001629: 04,2715           00023                                    18D                                   #  (U  X V ) X U   = U
029436,001630: 04,2716           53552                           VSL2     UNIT                                  #    RA   A     RA    A
029437,001631: 04,2717           77656                           UNIT                                           
029438,001632: 04,2720           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D

Page 709

029440,001634: 04,2721           00023                                    18D                                   
029441,001635: 04,2722           74241                           DOT      VXSC                                  #  _
029442,001636: 04,2723           00015                                    12D                                   #  U
029443,001637: 04,2724           77752                           VSL2                                           #   L
029444,001638: 04,2725           53445                           BVSU     UNIT                                  
029445,001639: 04,2726           77656                           UNIT                                           
029446,001640: 04,2727           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
029447,001641: 04,2730           00001                                    00D                                   #  PLANE
029448,001642: 04,2731           65552                           SL1      ARCCOS                                #               _   _
029449,001643: 04,2732           26205                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
029450,001644: 04,2733           50235                           VXV      DOT                                   #                A   L
029451,001645: 04,2734           00001                                    00D                                   
029452,001646: 04,2735           71244                           BPL      DLOAD                                 
029453,001647: 04,2736           10743                                    R36TAG2                               
029454,001648: 04,2737           24020                                    LODPMAX                               
029455,001649: 04,2740           77625                           DSU                                            
029456,001650: 04,2741           02205                                    RTHETA                                
029457,001651: 04,2742           02205                           STORE    RTHETA                                
029458,001652: 04,2743           77776        R36TAG2            EXIT                                           
029459,001653: 04,2744           32756                           CAF      V06N90N                               #  DISPLAY Y, YDOT, AND PSI.
029460,001654: 04,2745           04616                           TC       BANKCALL                              
029461,001655: 04,2746           20334                           CADR     GOMARKF                               
029462,001656: 04,2747           15472                           TCF      ENDEXT                                #  TERMINATE
029463,001657: 04,2750           15472                           TCF      ENDEXT                                #  PROCEED, END OF PROGRAM
029464,001658: 04,2751           12642                           TCF      R36                                   #  RECYCLE, TIG OR ASTRO-OPTION
029465,001659: 04,2752           52034        GETNOW             RTB      GOTO                                  #  ASTRO-SELECTED PRESENT TIME
029466,001660: 04,2753           21574                                    LOADTIME                              
029467,001661: 04,2754           10657                                    R36INT                                
029468,001662: 04,2755           01420        V06N16N            VN       00616                                 
029469,001663: 04,2756           01532        V06N90N            VN       00690                                 

End of include-file P34-35_P74-75.agc.  Parent file is MAIN.agc