Source Code

These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:
  • B1 — Revision 292
  • B2 — Revision 302
  • B3 — Revision 302
  • B4 — Revision 302
  • B5 — Revision 292
  • B6 — Revision 306
These dumps were then modified using memos, checklists, observed address changes, and the Sundance GSOPs to get the entire program to match Sundance revision 306 as closely as possible. Without more information, it is not possible to say how close it actually is; however, this code should be quite close. It is capable of flying the whole Apollo 9 mission using the original checklists and padload. Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

025643,000002:                                                                                                  ## Copyright:   Public domain.
025644,000003:                                                                                                  ## Filename:    P34-P35,_P74-P75.agc
025645,000004:                                                                                                  ## Purpose:     A section of an attempt to reconstruct Sundance revision 306
025646,000005:                                                                                                  ##              as closely as possible with available information. Sundance
025647,000006:                                                                                                  ##              306 is the source code for the Lunar Module's (LM) Apollo
025648,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 9. This program was created
025649,000008:                                                                                                  ##              using the mixed-revision SundanceXXX as a starting point, and
025650,000009:                                                                                                  ##              pulling back features from Luminary 69 believed to have been
025651,000010:                                                                                                  ##              added based on memos, checklists, observed address changes,
025652,000011:                                                                                                  ##              or the Sundance GSOPs.
025653,000012:                                                                                                  ## Assembler:   yaYUL
025654,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
025655,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
025656,000015:                                                                                                  ## Mod history: 2020-07-24 MAS  Created from SundanceXXX.
025657,000016:                                                                                                  ##              2020-07-29 MAS  Doubled some units in R36, and added a call
025658,000017:                                                                                                  ##                              to SETXDSP to it. Also changed the P35/P75
025659,000018:                                                                                                  ##                              leadin to match Luminary 69, and added CENTANG
025660,000019:                                                                                                  ##                              initialization to P34/P74.
025661,000020: 
025662,000021: 
025663,000022: 
025664,000023:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
025665,000024: 
025666,000025:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
025667,000026:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
025668,000027: 
025669,000028:                                                                                                  #  PURPOSE
025670,000029: 
025671,000030:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
025672,000031:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
025673,000032:                                                                                                  #                PHASE INITIATION (TPI) MANEUVER, GIVEN -
025674,000033: 
025675,000034:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
025676,000035:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
025677,000036: 
025678,000037:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
025679,000038:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
025680,000039: 
025681,000040:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
025682,000041: 
025683,000042:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
025684,000043:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
025685,000044: 
025686,000045:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
025687,000046:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
025688,000047:                                                                                                  #                ASTRONAUT/GROUND.
025689,000048: 
025690,000049:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
025691,000050:                                                                                                  #                THRUSTING PROGRAM.
025692,000051: 
025693,000052:                                                                                                  #  ASSUMPTIONS
025694,000053: 
025695,000054:                                                                                                  #        (1)     LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
025696,000055:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
025697,000056:                                                                                                  #                THEREFORE -
025698,000057: 
025699,000058:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
025700,000059:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
025701,000060:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
025702,000061:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
025703,000062: 
025704,000063:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
025705,000064:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
025706,000065: 
025707,000066:                                                                                                  #                (C)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
025708,000067:                                                                                                  #                        ORBITS WAS MINIMIZED.
025709,000068: 
025710,000069:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
025711,000070:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
025712,000071:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
025713,000072: 
025714,000073:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
025715,000074:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
025716,000075:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
025717,000076:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
025718,000077: 
025719,000078:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
025720,000079:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
025721,000080: 
025722,000081:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
025723,000082:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
025724,000083:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
025725,000084:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
025726,000085:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
025727,000086:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
025728,000087: 
025729,000088:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
025730,000089:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
025731,000090:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
025732,000091:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
025733,000092:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
025734,000093:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
025735,000094:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
025736,000095:                                                                                                  #                THRUSTING MANEUVER.
025737,000096: 
025738,000097:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
025739,000098: 
025740,000099:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
025741,000100: 
025742,000101:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
025743,000102:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
025744,000103:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
025745,000104:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
025746,000105: 
025747,000106:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
025748,000107:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
025749,000108: 
025750,000109:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
025751,000110:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
025752,000111:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
025753,000112: 
025754,000113:                                                                                                  #        (7)     ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
025755,000114:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
025756,000115:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
025757,000116:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
025758,000117:                                                                                                  #                THROUGH THE USE OF V06N52.
025759,000118: 
025760,000119:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
025761,000120:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
025762,000121:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
025763,000122:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
025764,000123:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
025765,000124: 
025766,000125:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
025767,000126: 
025768,000127:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
025769,000128: 
025770,000129:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
025771,000130: 
025772,000131:                                                                                                  #  INPUT
025773,000132: 
025774,000133:                                                                                                  #        (1)     TTPI    TIME OF THE TPI MANEUVER
025775,000134:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
025776,000135:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
025777,000136:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
025778,000137: 
025779,000138:                                                                                                  #  OUTPUT
025780,000139: 
025781,000140:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
025782,000141:                                                                                                  #        (2)     TTOGO           TIME TO GO
025783,000142:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
025784,000143:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
025785,000144:                                                                                                  #                 OR
025786,000145:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
025787,000146:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
025788,000147:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
025789,000148:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
025790,000149:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI - LINE OF SIGHT
025791,000150:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
025792,000151: 
025793,000152:                                                                                                  #  DOWNLINK
025794,000153: 
025795,000154:                                                                                                  #        (1)     TTPI            TIME OF THE TPI MANEUVER
025796,000155:                                                                                                  #        (2)     TIG             TIME OF THE TPI MANEUVER
025797,000156:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
025798,000157:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
025799,000158:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
025800,000159:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI - REFERENCE COORDINATES
025801,000160:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
025802,000161: 
025803,000162:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
025804,000163: 
025805,000164:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
025806,000165:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
025807,000166:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
025808,000167:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
025809,000168: 
025810,000169:                                                                                                  #  SUBROUTINES USED
025811,000170: 
025812,000171:                                                                                                  #        AVFLAGA
025813,000172:                                                                                                  #        AVFLAGP
025814,000173:                                                                                                  #        VNPOOH
025815,000174:                                                                                                  #        DISPLAYE
025816,000175:                                                                                                  #        SELECTMU
025817,000176:                                                                                                  #        PRECSET
025818,000177:                                                                                                  #        S33/34.1
025819,000178:                                                                                                  #        ALARM
025820,000179:                                                                                                  #        BANKCALL
025821,000180:                                                                                                  #        GOFLASH
025822,000181:                                                                                                  #        GOTOPOOH
025823,000182:                                                                                                  #        TIMETHET
025824,000183:                                                                                                  #        S34/35.2
025825,000184:                                                                                                  #        PERIAPO1
025826,000185:                                                                                                  #        SHIFTR1
025827,000186:                                                                                                  #        S34/35.5
025828,000187:                                                                                                  #        VN1645
025829,000188: 
025830,000189: 35,2000                                           SETLOC   CSI/CDH                               
025831,000190: 35,2000                                           BANK                                           
025832,000191: 35,2503  E7,1455                                  EBANK=   SUBEXIT                               
025833,000192: 35,2503                                           COUNT*   $$/P3474                              
025834,000193: 35,2503           02405        P34                TC       AVFLAGA                               
025835,000194: 35,2504           02506                           TC       P34/P74A                              
025836,000195: 35,2505           02412        P74                TC       AVFLAGP                               
025837,000196: 35,2506           33622        P34/P74A           CAF      V06N37                                #  TTPI
025838,000197: 35,2507           03611                           TC       VNPOOH                                

The following three instructions may have been added in Sundance 302.

025840,000199: 35,2510           00006                           EXTEND                                         
025841,000200: 35,2511           33644                           DCA      130DEG                                
025842,000201: 35,2512           53606                           DXCH     CENTANG                               
025843,000202: 35,2513           03570                           TC       DISPLAYE                              #  ELEV AND CENTANG
025844,000203: 35,2514           06014                           TC       INTPRET                               
025845,000204: 35,2515           71214                           CLEAR    DLOAD                                 
025846,000205: 35,2516           01270                                    ETPIFLAG                              
025847,000206: 35,2517           03623                                    TTPI                                  
025848,000207: 35,2520           17425                           STODL    TIG                                   
025849,000208: 35,2521           02265                                    ELEV                                  
025850,000209: 35,2522           43054                           BZE      SET                                   
025851,000210: 35,2523           72525                                    P34/P74B                              
025852,000211: 35,2524           01070                                    ETPIFLAG                              
025853,000212: 35,2525           77624        P34/P74B           CALL                                           
025854,000213: 35,2526           20045                                    SELECTMU                              
025855,000214: 35,2527                        DELELO             EQUALS   26D                                   
025856,000215: 35,2527           43145        P34/P74C           DLOAD    SET                                   
025857,000216: 35,2530           06233                                    ZEROVECS                              
025858,000217: 35,2531           03460                                    ITSWICH                               
025859,000218: 35,2532           43014                           BON      CLEAR                                 
025860,000219: 35,2533           01310                                    ETPIFLAG                              
025861,000220: 35,2534           72536                                    SWCHSET                               
025862,000221: 35,2535           03660                                    ITSWICH                               
025863,000222: 35,2536           02335        SWCHSET            STORE    NOMTPI                                
025864,000223: 35,2537           43345        INTLOOP            DLOAD    DAD                                   
025865,000224: 35,2540           03623                                    TTPI                                  
025866,000225: 35,2541           02335                                    NOMTPI                                
025867,000226: 35,2542           34041                           STCALL   TDEC1                                 
025868,000227: 35,2543           46150                                    PRECSET                               
025869,000228: 35,2544           77624                           CALL                                           
025870,000229: 35,2545           72716                                    S33/34.1                              
025871,000230: 35,2546           77454                           BZE      EXIT                                  
025872,000231: 35,2547           72560                                    SWCHCLR                               
025873,000232: 35,2550           05651                           TC       ALARM                                 
025874,000233: 35,2551           00611                           OCT      611                                   
025875,000234: 35,2552           35056                           CAF      V05N09                                
025876,000235: 35,2553           04655                           TC       BANKCALL                              
025877,000236: 35,2554           20406                           CADR     GOFLASH                               
025878,000237: 35,2555           04106                           TC       GOTOPOOH                              
025879,000238: 35,2556           02506                           TC       P34/P74A                              #  PROCEED
025880,000239: 35,2557           02550                           TC       -7                                    #  V32
025881,000240: 
025882,000241: 35,2560           43014        SWCHCLR            BONCLR   BON                                   
025883,000242: 35,2561           03600                                    ITSWICH                               
025884,000243: 35,2562           72537                                    INTLOOP                               
025885,000244: 35,2563           01310                                    ETPIFLAG                              
025886,000245: 35,2564           72570                                    P34/P74D                              #  DISPLAY TTPI
025887,000246: 35,2565           77776                           EXIT                                           
025888,000247: 35,2566           03570                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
025889,000248: 35,2567           02573                           TC       P34/P74E                              
025890,000249: 35,2570           77776        P34/P74D           EXIT                                           
025891,000250: 35,2571           33622                           CAF      V06N37                                #  TTPI
025892,000251: 35,2572           03611                           TC       VNPOOH                                
025893,000252: 35,2573           06014        P34/P74E           TC       INTPRET                               
025894,000253: 35,2574           71201                           SETPD    DLOAD                                 
025895,000254: 35,2575           00001                                    0D                                    
025896,000255: 35,2576           02333                                    RTX1                                  
025897,000256: 35,2577           14047                           STODL    X1                                    
025898,000257: 35,2600           03606                                    CENTANG                               
025899,000258: 35,2601           71406                           PUSH     COS                                   
025900,000259: 35,2602           16732                           STODL    CSTH                                  
025901,000260: 35,2603           77756                           SIN                                            
025902,000261: 35,2604           26730                           STOVL    SNTH                                  
025903,000262: 35,2605           03537                                    RPASS3                                
025904,000263: 35,2606           77657                           VSR*                                           
025905,000264: 35,2607           57176                                    0,2                                   
025906,000265: 35,2610           26655                           STOVL    RVEC                                  
025907,000266: 35,2611           03545                                    VPASS3                                
025908,000267: 35,2612           43057                           VSR*     SET                                   
025909,000268: 35,2613           57176                                    0,2                                   
025910,000269: 35,2614           03466                                    RVSW                                  
025911,000270: 35,2615           36744                           STCALL   VVEC                                  
025912,000271: 35,2616           24732                                    TIMETHET                              
025913,000272: 35,2617           77745                           DLOAD                                          
025914,000273: 35,2620           03623                                    TTPI                                  
025915,000274: 35,2621           03577                           STORE    INTIME                                #  FOR INITVEL
025916,000275: 35,2622           77615                           DAD                                            
025917,000276: 35,2623           00037                                    T                                     #  RENDEZVOUS TIME
025918,000277: 35,2624           37616                           STCALL   TPASS4                                #  FOR INITVEL
025919,000278: 35,2625           73240                                    S34/35.2                              
025920,000279: 35,2626           51575                           VLOAD    ABVAL                                 
025921,000280: 35,2627           03363                                    DELVEET3                              
025922,000281: 35,2630           27563                           STOVL    DELVTPI                               
025923,000282: 35,2631           03473                                    VPASS4                                
025924,000283: 35,2632           51451                           VSU      ABVAL                                 
025925,000284: 35,2633           03553                                    VTPRIME                               
025926,000285: 35,2634           27565                           STOVL    DELVTPF                               
025927,000286: 35,2635           03523                                    RACT3                                 
025928,000287: 35,2636           45115                           PDVL     CALL                                  
025929,000288: 35,2637           02357                                    VIPRIME                               
025930,000289: 35,2640           46106                                    PERIAPO1                              
025931,000290: 35,2641           77624                           CALL                                           
025932,000291: 35,2642           46216                                    SHIFTR1                               
025933,000292: 35,2643           17575                           STODL    POSTTPI                               
025934,000293: 35,2644           03623                                    TTPI                                  
025935,000294: 35,2645           03425                           STORE    TIG                                   
025936,000295: 35,2646           77776                           EXIT                                           
025937,000296: 35,2647           33624                           CAF      V06N58                                
025938,000297: 35,2650           03611                           TC       VNPOOH                                
025939,000298: 35,2651           06014                           TC       INTPRET                               
025940,000299: 35,2652           77624                           CALL                                           
025941,000300: 35,2653           73437                                    S34/35.5                              
025942,000301: 35,2654           77624                           CALL                                           
025943,000302: 35,2655           73502                                    VN1645                                
025944,000303: 35,2656           77650                           GOTO                                           
025945,000304: 35,2657           72527                                    P34/P74C                              
025946,000305:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
025947,000306: 
025948,000307:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
025949,000308:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
025950,000309: 
025951,000310:                                                                                                  #  PURPOSE
025952,000311: 
025953,000312:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
025954,000313:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
025955,000314:                                                                                                  #                MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
025956,000315:                                                                                                  #                VEHICLE RENDEZVOUS.
025957,000316: 
025958,000317:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
025959,000318:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
025960,000319:                                                                                                  #                ASTRONAUT/GROUND.
025961,000320: 
025962,000321:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
025963,000322:                                                                                                  #                THRUSTING PROGRAM.
025964,000323: 
025965,000324:                                                                                                  #  ASSUMPTIONS
025966,000325: 
025967,000326:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
025968,000327: 
025969,000328:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
025970,000329:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
025971,000330: 
025972,000331:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
025973,000332:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
025974,000333:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
025975,000334:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
025976,000335:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
025977,000336:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
025978,000337: 
025979,000338:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
025980,000339: 
025981,000340:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
025982,000341:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
025983,000342:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
025984,000343:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
025985,000344: 
025986,000345:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
025987,000346:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
025988,000347: 
025989,000348:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
025990,000349:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
025991,000350:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
025992,000351: 
025993,000352:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
025994,000353:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
025995,000354:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
025996,000355: 
025997,000356:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
025998,000357:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
025999,000358:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
026000,000359:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
026001,000360:                                                                                                  #                THROUGH THE USE OF V06N52.
026002,000361: 
026003,000362:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
026004,000363:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
026005,000364:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
026006,000365:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
026007,000366:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
026008,000367: 
026009,000368:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
026010,000369: 
026011,000370:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
026012,000371: 
026013,000372:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
026014,000373: 
026015,000374:                                                                                                  #  INPUT
026016,000375: 
026017,000376:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT - SAVED FROM P34/P74
026018,000377:                                                                                                  #  OUTPUT
026019,000378: 
026020,000379:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
026021,000380:                                                                                                  #        (2)     TTOGO           TIME TO GO
026022,000381:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
026023,000382:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID - LINE OF SIGHT
026024,000383:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
026025,000384: 
026026,000385:                                                                                                  #  DOWNLINK
026027,000386: 
026028,000387:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
026029,000388:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM - REFERENCE COORDINATES
026030,000389:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
026031,000390:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
026032,000391: 
026033,000392:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
026034,000393:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
026035,000394:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
026036,000395:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
026037,000396: 
026038,000397:                                                                                                  #  SUBROUTINES USED
026039,000398: 
026040,000399:                                                                                                  #        AVFLAGA
026041,000400:                                                                                                  #        AVFLAGP
026042,000401:                                                                                                  #        LOADTIME
026043,000402:                                                                                                  #        SELECTMU
026044,000403:                                                                                                  #        PRECSET
026045,000404:                                                                                                  #        S34/35.1
026046,000405:                                                                                                  #        S34/35.2
026047,000406:                                                                                                  #        S34/35.5
026048,000407:                                                                                                  #        VN1645
026049,000408: 
026050,000409: 35,2660                                           COUNT*   $$/P3575                              
026051,000410: 35,2660  E7,1562                                  EBANK=   KT                                    
026052,000411: 
026053,000412: 35,2660           02405        P35                TC       AVFLAGA                               
026054,000413: 35,2661           00006                           EXTEND                                         
026055,000414: 35,2662           31401                           DCA      ATIGINC                               
026056,000415: 35,2663           02667                           TC       P35/P75A                              
026057,000416: 35,2664           02412        P75                TC       AVFLAGP                               
026058,000417: 35,2665           00006                           EXTEND                                         
026059,000418: 35,2666           31403                           DCA      PTIGINC                               
026060,000419: 35,2667           53563        P35/P75A           DXCH     KT                                    
026061,000420: 35,2670           06014                           TC       INTPRET                               
026062,000421: 35,2671           77624                           CALL                                           
026063,000422: 35,2672           20045                                    SELECTMU                              
026064,000423: 35,2673           77634        P35/P75B           RTB                                            
026065,000424: 35,2674           21454                                    LOADTIME                              
026066,000425: 35,2675           03565                           STORE    TSTRT                                 
026067,000426: 35,2676           77615                           DAD                                            
026068,000427: 35,2677           03563                                    KT                                    
026069,000428: 35,2700           03425                           STORE    TIG                                   
026070,000429: 35,2701           03577                           STORE    INTIME                                #  FOR INITVEL
026071,000430: 35,2702           34041                           STCALL   TDEC1                                 
026072,000431: 35,2703           46150                                    PRECSET                               #  ADVANCE BOTH VEHICLES
026073,000432: 35,2704           77624                           CALL                                           
026074,000433: 35,2705           73226                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
026075,000434: 35,2706           77624                           CALL                                           
026076,000435: 35,2707           73240                                    S34/35.2                              #  GET DELTA V(LV)
026077,000436: 35,2710           77624                           CALL                                           
026078,000437: 35,2711           73437                                    S34/35.5                              
026079,000438: 35,2712           77624                           CALL                                           
026080,000439: 35,2713           73502                                    VN1645                                
026081,000440: 35,2714           77650                           GOTO                                           
026082,000441: 35,2715           72673                                    P35/P75B                              
026083,000442:                                                                                                  #  ..... S33/34.1 .....
026084,000443: 
026085,000444: 35,2716           66220        S33/34.1           STQ      SSP                                   
026086,000445: 35,2717           03450                                    NORMEX                                
026087,000446: 35,2720           03601                                    TITER                                 
026088,000447: 35,2721           40000                           OCT      40000                                 
026089,000448: 35,2722           40345                           DLOAD    SETPD                                 
026090,000449: 35,2723           33633                                    MAX250                                
026091,000450: 35,2724           00001                                    0D                                    
026092,000451: 35,2725           27561                           STOVL    SECMAX                                
026093,000452: 35,2726           03523                                    RACT3                                 
026094,000453: 35,2727           27465                           STOVL    RAPREC                                
026095,000454: 35,2730           03531                                    VACT3                                 
026096,000455: 35,2731           27473                           STOVL    VAPREC                                
026097,000456: 35,2732           03537                                    RPASS3                                
026098,000457: 35,2733           27507                           STOVL    RPPREC                                
026099,000458: 35,2734           03545                                    VPASS3                                
026100,000459: 35,2735           03515                           STORE    VPPREC                                
026101,000460: 35,2736           77624        ELCALC             CALL                                           
026102,000461: 35,2737           73226                                    S34/35.1                              #  NORMAL AND LOS
026103,000462: 35,2740           63235                           VXV      PDVL                                  
026104,000463: 35,2741           03523                                    RACT3                                 #  (RA*VA)*RA 0D
026105,000464: 35,2742           53515                           PDVL     UNIT                                  #  ULOS AT 6D
026106,000465: 35,2743           03523                                    RACT3                                 
026107,000466: 35,2744           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
026108,000467: 35,2745           51352                           VSL2     BVSU                                  
026109,000468: 35,2746           02325                                    ULOS                                  
026110,000469: 35,2747           63256                           UNIT     PDVL                                  #  UP AT 0D
026111,000470: 35,2750           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
026112,000471: 35,2751           00001                                    0D                                    #  UP IN MPAC
026113,000472: 35,2752           75241                           DOT      SIGN                                  
026114,000473: 35,2753           02325                                    ULOS                                  
026115,000474: 35,2754           65552                           SL1      ACOS                                  
026116,000475: 35,2755           50315                           PDVL     DOT                                   #  EA AT 0D
026117,000476: 35,2756           02325                                    ULOS                                  
026118,000477: 35,2757           03523                                    RACT3                                 
026119,000478: 35,2760           71244                           BPL      DLOAD                                 
026120,000479: 35,2761           72764                                    TESTY                                 
026121,000480: 35,2762           06241                                    DPPOSMAX                              
026122,000481: 35,2763           41425                           DSU      PUSH                                  
026123,000482: 35,2764           71214        TESTY              BOFF     DLOAD                                 
026124,000483: 35,2765           03740                                    ITSWICH                               
026125,000484: 35,2766           73213                                    ELEX                                  
026126,000485: 35,2767           03563                                    DELEL                                 
026127,000486: 35,2770           14033                           STODL    DELELO                                
026128,000487: 35,2771           77625                           DSU                                            
026129,000488: 35,2772           02265                                    ELEV                                  
026130,000489: 35,2773           03563                           STORE    DELEL                                 
026131,000490: 35,2774           45246                           ABS      DSU                                   
026132,000491: 35,2775           33637                                    ELEPS                                 
026133,000492: 35,2776           77640                           BMN                                            
026134,000493: 35,2777           73223                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
026135,000494: 35,3000           70535        FIGTIME            SLOAD    SR1                                   
026136,000495: 35,3001           03601                                    TITER                                 
026137,000496: 35,3002           72030                           BHIZ     LXA,1                                 
026138,000497: 35,3003           03450                                    NORMEX                                #  TOO MANY ITERATIONS
026139,000498: 35,3004           00154                                    MPAC                                  
026140,000499: 35,3005           77330                           SXA,1    VLOAD                                 
026141,000500: 35,3006           03600                                    TITER                                 
026142,000501: 35,3007           03537                                    RPASS3                                
026143,000502: 35,3010           65256                           UNIT     PDDL                                  
026144,000503: 35,3011           00045                                    36D                                   
026145,000504: 35,3012           53515                           PDVL     UNIT                                  
026146,000505: 35,3013           03523                                    RACT3                                 
026147,000506: 35,3014           77725                           PDDL                                           
026148,000507: 35,3015           41525                           PDDL     PUSH                                  
026149,000508: 35,3016           00045                                    36D                                   
026150,000509: 35,3017           77621                           BDSU                                           
026151,000510: 35,3020           00015                                    12D                                   
026152,000511: 35,3021           14037                           STODL    30D                                   #  RP - RA MAGNITUDES
026153,000512: 35,3022           06231                                    DPHALF                                
026154,000513: 35,3023           41425                           DSU      PUSH                                  
026155,000514: 35,3024           02265                                    ELEV                                  
026156,000515: 35,3025           50165                           SIGN     BMN                                   
026157,000516: 35,3026           00037                                    30D                                   
026158,000517: 35,3027           03450                                    NORMEX                                
026159,000518: 35,3030           71545                           DLOAD    COS                                   
026160,000519: 35,3031           56205                           DMP      DDV                                   
026161,000520: 35,3032           00017                                    14D                                   
026162,000521: 35,3033           00015                                    12D                                   
026163,000522: 35,3034           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
026164,000523: 35,3035           00035                           STORE    28D                                   
026165,000524: 35,3036           44246                           ABS      BDSU                                  
026166,000525: 35,3037           06231                                    DPHALF                                
026167,000526: 35,3040           77240                           BMN      VLOAD                                 
026168,000527: 35,3041           03450                                    NORMEX                                
026169,000528: 35,3042           02275                                    UNRM                                  
026170,000529: 35,3043           53435                           VXV      UNIT                                  
026171,000530: 35,3044           00007                                    6D                                    #  UN*RA
026172,000531: 35,3045           41241                           DOT      DMP                                   
026173,000532: 35,3046           03531                                    VACT3                                 
026174,000533: 35,3047           00015                                    12D                                   
026175,000534: 35,3050           47315                           PDVL     VXV                                   
026176,000535: 35,3051           00001                                    0D                                    
026177,000536: 35,3052           03545                                    VPASS3                                
026178,000537: 35,3053           53435                           VXV      UNIT                                  
026179,000538: 35,3054           00001                                    0D                                    #  (RP*VP)*RP
026180,000539: 35,3055           41241                           DOT      DMP                                   
026181,000540: 35,3056           03545                                    VPASS3                                
026182,000541: 35,3057           00017                                    14D                                   
026183,000542: 35,3060           77621                           BDSU                                           
026184,000543: 35,3061           63301                           NORM     PDVL                                  #  NORMALIZED WA - WP 12D
026185,000544: 35,3062           00047                                    X1                                    
026186,000545: 35,3063           00007                                    6D                                    
026187,000546: 35,3064           50235                           VXV      DOT                                   
026188,000547: 35,3065           00001                                    0D                                    
026189,000548: 35,3066           02275                                    UNRM                                  #  RA*RP.UN 14D
026190,000549: 35,3067           50315                           PDVL     DOT                                   
026191,000550: 35,3070           00001                                    0D                                    
026192,000551: 35,3071           00007                                    6D                                    
026193,000552: 35,3072           65552                           SL1      ACOS                                  
026194,000553: 35,3073           77765                           SIGN                                           
026195,000554: 35,3074           43225                           DSU      DAD                                   #  ALPHA PI
026196,000555: 35,3075           06231                                    DPHALF                                
026197,000556: 35,3076           02265                                    ELEV                                  
026198,000557: 35,3077           65525                           PDDL     ACOS                                  
026199,000558: 35,3100           00035                                    28D                                   
026200,000559: 35,3101           75221                           BDSU     SIGN                                  
026201,000560: 35,3102           06231                                    DPHALF                                
026202,000561: 35,3103           00037                                    30D                                   #  CONTAINS RP-RA
026203,000562: 35,3104           77615                           DAD                                            
026204,000563: 35,3105           56205                           DMP      DDV                                   
026205,000564: 35,3106           33631                                    TWOPI                                 
026206,000565: 35,3107           77605                           DMP                                            
026207,000566: 35,3110           41257                           SL*      DMP                                   
026208,000567: 35,3111           20176                                    0          -3,1                       
026209,000568: 35,3112           51406                           PUSH     ABS                                   
026210,000569: 35,3113           50025                           DSU      BMN                                   
026211,000570: 35,3114           03561                                    SECMAX                                
026212,000571: 35,3115           73121                                    OKMAX                                 
026213,000572: 35,3116           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
026214,000573: 35,3117           03561                                    SECMAX                                
026215,000574: 35,3120           77606                           PUSH                                           
026216,000575: 35,3121           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
026217,000576: 35,3122           03601                                    TITER                                 
026218,000577: 35,3123           73131                                    REPETE                                
026219,000578: 35,3124           71331                           SSP      DLOAD                                 
026220,000579: 35,3125           03601                                    TITER                                 
026221,000580: 35,3126           37777                           OCT      37777                                 
026222,000581: 35,3127           77650                           GOTO                                           
026223,000582: 35,3130           73167                                    STORDELT                              
026224,000583: 35,3131           41345        REPETE             DLOAD    DMP                                   
026225,000584: 35,3132           03563                                    DELEL                                 
026226,000585: 35,3133           00033                                    DELELO                                
026227,000586: 35,3134           71244                           BPL      DLOAD                                 
026228,000587: 35,3135           73145                                    NEXTES                                
026229,000588: 35,3136           03561                                    SECMAX                                
026230,000589: 35,3137           77605                           DMP                                            
026231,000590: 35,3140           33635                                    THIRD                                 
026232,000591: 35,3141           17561                           STODL    SECMAX                                
026233,000592: 35,3142           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
026234,000593: 35,3143           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
026235,000594: 35,3144           73155                                    RESIGN                                
026236,000595: 35,3145           51545        NEXTES             DLOAD    ABS                                   
026237,000596: 35,3146           03563                                    DELEL                                 
026238,000597: 35,3147           51525                           PDDL     ABS                                   
026239,000598: 35,3150           00033                                    DELELO                                
026240,000599: 35,3151           77625                           DSU                                            
026241,000600: 35,3152           71240                           BMN      DLOAD                                 
026242,000601: 35,3153           73160                                    REVERS                                #  WRONG DIRECTION
026243,000602: 35,3154           77646                           ABS                                            
026244,000603: 35,3155           52165        RESIGN             SIGN     GOTO                                  
026245,000604: 35,3156           03575                                    DELTEEO                               
026246,000605: 35,3157           73167                                    STORDELT                              
026247,000606: 35,3160           57545        REVERS             DLOAD    DCOMP                                 
026248,000607: 35,3161           03575                                    DELTEEO                               
026249,000608: 35,3162           70406                           PUSH     SR1                                   
026250,000609: 35,3163           03575                           STORE    DELTEEO                               
026251,000610: 35,3164           77615                           DAD                                            
026252,000611: 35,3165           77650                           GOTO                                           
026253,000612: 35,3166           73170                                    ADTIME                                
026254,000613: 35,3167           03575        STORDELT           STORE    DELTEEO                               
026255,000614: 35,3170           77615        ADTIME             DAD                                            
026256,000615: 35,3171           02335                                    NOMTPI                                #  SUM OF DELTA T:S
026257,000616: 35,3172           02335                           STORE    NOMTPI                                
026258,000617: 35,3173           63375                           VLOAD    PDVL                                  
026259,000618: 35,3174           03473                                    VAPREC                                
026260,000619: 35,3175           03465                                    RAPREC                                
026261,000620: 35,3176           77624                           CALL                                           
026262,000621: 35,3177           73377                                    GOINT                                 
026263,000622: 35,3200           77624                           CALL                                           
026264,000623: 35,3201           46172                                    ACTIVE                                #  STORE NEW RACT3 VACT3
026265,000624: 35,3202           63375                           VLOAD    PDVL                                  
026266,000625: 35,3203           03515                                    VPPREC                                
026267,000626: 35,3204           03507                                    RPPREC                                
026268,000627: 35,3205           77624                           CALL                                           
026269,000628: 35,3206           73377                                    GOINT                                 
026270,000629: 35,3207           77624                           CALL                                           
026271,000630: 35,3210           46202                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
026272,000631: 35,3211           77650                           GOTO                                           
026273,000632: 35,3212           72736                                    ELCALC                                
026274,000633: 35,3213           43345        ELEX               DLOAD    DAD                                   
026275,000634: 35,3214           03623                                    TTPI                                  
026276,000635: 35,3215           02335                                    NOMTPI                                
026277,000636: 35,3216           17623                           STODL    TTPI                                  
026278,000637: 35,3217           77614                           BON                                            
026279,000638: 35,3220           01310                                    ETPIFLAG                              
026280,000639: 35,3221           73223                                    TIMEX                                 
026281,000640: 35,3222           02265                           STORE    ELEV                                  
026282,000641: 35,3223           52145        TIMEX              DLOAD    GOTO                                  
026283,000642: 35,3224           06233                                    ZEROVECS                              
026284,000643: 35,3225           03450                                    NORMEX                                
026285,000644: 
026286,000645:                                                                                                  #  ..... S34/35.1 .....
026287,000646: 
026288,000647:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
026289,000648:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
026290,000649: 
026291,000650: 35,3226           52375        S34/35.1           VLOAD    VSU                                   
026292,000651: 35,3227           03537                                    RPASS3                                
026293,000652: 35,3230           03523                                    RACT3                                 
026294,000653: 35,3231           41456                           UNIT     PUSH                                  
026295,000654: 35,3232           26325                           STOVL    ULOS                                  
026296,000655: 35,3233           03523                                    RACT3                                 
026297,000656: 35,3234           53435                           VXV      UNIT                                  
026298,000657: 35,3235           03531                                    VACT3                                 
026299,000658: 35,3236           02275                           STORE    UNRM                                  
026300,000659: 35,3237           77616                           RVQ                                            
026301,000660: 
026302,000661:                                                                                                  #  ..... S34/35.2 .....
026303,000662: 
026304,000663:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
026305,000664: 
026306,000665: 35,3240           77220        S34/35.2           STQ      VLOAD                                 
026307,000666: 35,3241           03450                                    NORMEX                                
026308,000667: 35,3242           03545                                    VPASS3                                
026309,000668: 35,3243           65315                           PDVL     PDDL                                  
026310,000669: 35,3244           03537                                    RPASS3                                
026311,000670: 35,3245           03577                                    INTIME                                
026312,000671: 35,3246           65325                           PDDL     PDDL                                  
026313,000672: 35,3247           03616                                    TPASS4                                
026314,000673: 35,3250           06233                                    ZEROVECS                              
026315,000674: 35,3251           45006                           PUSH     CALL                                  
026316,000675: 35,3252           73403                                    INTINT                                #  GET TARGET VECTOR
026317,000676: 35,3253           25772        S3435.25           STOVL    RTARG                                 
026318,000677: 35,3254           00007                                    VATT                                  
026319,000678: 35,3255           27473                           STOVL    VPASS4                                
026320,000679: 35,3256           01772                                    RTARG                                 
026321,000680:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U)
026322,000681: 35,3257           63256                           UNIT     PDVL                                  #  UNIT RP
026323,000682: 35,3260           03523                                    RACT3                                 
026324,000683: 35,3261           41456                           UNIT     PUSH                                  #  UNIT RA
026325,000684: 35,3262           50235                           VXV      DOT                                   
026326,000685: 35,3263           00001                                    0D                                    
026327,000686: 35,3264           02275                                    UNRM                                  #  RA*RP.U
026328,000687: 35,3265           77715                           PDVL                                           
026329,000688: 35,3266           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
026330,000689: 35,3267           00001                                    0D                                    
026331,000690: 35,3270           75326                           ACOS     SIGN                                  
026332,000691: 35,3271           43244                           BPL      DAD                                   
026333,000692: 35,3272           73274                                    NOPIE                                 
026334,000693: 35,3273           06241                                    DPPOSMAX                              #  REASONABLE TWO PI
026335,000694: 35,3274           15770        NOPIE              STODL    ACTCENT                               
026336,000695: 35,3275           03616                                    TPASS4                                
026337,000696: 35,3276           77625                           DSU                                            
026338,000697: 35,3277           03577                                    INTIME                                
026339,000698: 35,3300           02355                           STORE    DELLT4                                
026340,000699: 35,3301           45135                           SLOAD    CALL                                  
026341,000700: 35,3302           33641                                    DECTWO                                
026342,000701: 35,3303           22002                                    PREINITV                              
026343,000702: 35,3304           77624                           CALL                                           
026344,000703: 35,3305           73364                                    LOMAT                                 
026345,000704: 35,3306           64375                           VLOAD    MXV                                   
026346,000705: 35,3307           03363                                    DELVEET3                              
026347,000706: 35,3310           00001                                    0D                                    
026348,000707: 35,3311           77772                           VSL1                                           
026349,000708: 35,3312           36267                           STCALL   DELVLVC                               
026350,000709: 35,3313           03450                                    NORMEX                                
026351,000710: 
026352,000711:                                                                                                  #  ..... S34/35.3 .....
026353,000712: 
026354,000713: 35,3314           45020        S34/35.3           STQ      CALL                                  
026355,000714: 35,3315           03450                                    NORMEX                                
026356,000715: 35,3316           73364                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
026357,000716: 35,3317           61375                           VLOAD    VXM                                   
026358,000717: 35,3320           02267                                    DELVLVC                               #  NEW DEL V TPI
026359,000718: 35,3321           00001                                    0D                                    
026360,000719: 35,3322           77772                           VSL1                                           
026361,000720: 35,3323           03363                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
026362,000721: 35,3324           63255                           VAD      PDVL                                  
026363,000722: 35,3325           03531                                    VACT3                                 #  NEW V REQ
026364,000723: 35,3326           03523                                    RACT3                                 
026365,000724: 35,3327           65325                           PDDL     PDDL                                  
026366,000725: 35,3330           03425                                    TIG                                   
026367,000726: 35,3331           03616                                    TPASS4                                
026368,000727: 35,3332           41525                           PDDL     PUSH                                  
026369,000728: 35,3333           06241                                    DPPOSMAX                              
026370,000729: 35,3334           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
026371,000730: 35,3335           73403                                    INTINT                                
026372,000731: 35,3336           77775                           VLOAD                                          
026373,000732: 35,3337           00001                                    RATT                                  
026374,000733: 35,3340           01772                           STORE    RTARG                                 
026375,000734: 35,3341           41575        NOVRWRT            VLOAD    PUSH                                  
026376,000735: 35,3342           02325                                    ULOS                                  
026377,000736: 35,3343           57435                           VXV      VCOMP                                 
026378,000737: 35,3344           02275                                    UNRM                                  
026379,000738: 35,3345           41456                           UNIT     PUSH                                  
026380,000739: 35,3346           76435                           VXV      VSL1                                  
026381,000740: 35,3347           02325                                    ULOS                                  
026382,000741: 35,3350           77715                           PDVL                                           
026383,000742: 35,3351           64315                           PDVL     MXV                                   
026384,000743: 35,3352           03363                                    DELVEET3                              
026385,000744: 35,3353           00001                                    0D                                    
026386,000745: 35,3354           77772                           VSL1                                           
026387,000746: 35,3355           36317                           STCALL   DVLOS                                 
026388,000747: 35,3356           03450                                    NORMEX                                
026389,000748: 
026390,000749:                                                                                                  #  ..... S34/35.4 .....
026391,000750: 
026392,000751: 35,3357           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
026393,000752: 35,3360           03450                                    NORMEX                                
026394,000753: 35,3361           00001                                    0D                                    
026395,000754: 35,3362           77650                           GOTO                                           
026396,000755: 35,3363           73341                                    NOVRWRT                               
026397,000756: 
026398,000757:                                                                                                  #  ..... LOMAT     .....
026399,000758: 
026400,000759: 35,3364           57575        LOMAT              VLOAD    VCOMP                                 
026401,000760: 35,3365           02275                                    UNRM                                  
026402,000761: 35,3366           24007                           STOVL    6D                                    #  Y
026403,000762: 35,3367           03523                                    RACT3                                 
026404,000763: 35,3370           57456                           UNIT     VCOMP                                 
026405,000764: 35,3371           00015                           STORE    12D                                   
026406,000765: 35,3372           76435                           VXV      VSL1                                  
026407,000766: 35,3373           02275                                    UNRM                                  #  Z*-Y
026408,000767: 35,3374           00001                           STORE    0D                                    
026409,000768: 35,3375           43401                           SETPD    RVQ                                   
026410,000769: 35,3376           00023                                    18D                                   
026411,000770: 35,3377           65325        GOINT              PDDL     PDDL                                  #  DO
026412,000771: 35,3400           06233                                    ZEROVECS                              #        NOT
026413,000772: 35,3401           02335                                    NOMTPI                                
026414,000773: 35,3402           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
026415,000774: 35,3403           45020        INTINT             STQ      CALL                                  
026416,000775: 35,3404           03452                                    RTRN                                  
026417,000776: 35,3405           27362                                    INTSTALL                              
026418,000777: 35,3406           71214                           CLEAR    DLOAD                                 
026419,000778: 35,3407           01673                                    INTYPFLG                              
026420,000779: 35,3410           43054                           BZE      SET                                   
026421,000780: 35,3411           73413                                    +2                                    
026422,000781: 35,3412           01473                                    INTYPFLG                              
026423,000782: 35,3413           45545                           DLOAD    STADR                                 
026424,000783: 35,3414           63736                           STODL    TDEC1                                 
026425,000784: 35,3415           73014                           SET      LXA,2                                 
026426,000785: 35,3416           00063                                    MOONFLAG                              
026427,000786: 35,3417           02333                                    RTX2                                  
026428,000787: 35,3420           43014                           BON      CLEAR                                 
026429,000788: 35,3421           04303                                    CMOONFLG                              
026430,000789: 35,3422           73424                                    ALLSET                                
026431,000790: 35,3423           00263                                    MOONFLAG                              
026432,000791: 35,3424           25517        ALLSET             STOVL    TET                                   
026433,000792: 35,3425           77657                           VSR*                                           
026434,000793: 35,3426           57176                                    0,2                                   
026435,000794: 35,3427           25535                           STOVL    RCV                                   
026436,000795: 35,3430           77657                           VSR*                                           
026437,000796: 35,3431           57176                                    0,2                                   
026438,000797: 35,3432           35543                           STCALL   VCV                                   
026439,000798: 35,3433           27060                                    INTEGRVS                              
026440,000799: 35,3434           52175                           VLOAD    GOTO                                  
026441,000800: 35,3435           00001                                    RATT                                  
026442,000801: 35,3436           03452                                    RTRN                                  
026443,000802: 
026444,000803:                                                                                                  #  ..... S34/35.5 .....
026445,000804:                                                                                                  #  SUBROUTINES USED
026446,000805:                                                                                                  #        BANKCALL
026447,000806:                                                                                                  #        GOFLASH
026448,000807:                                                                                                  #        GOTOPOOH
026449,000808:                                                                                                  #        S34/35.3
026450,000809:                                                                                                  #        S34/35.4
026451,000810:                                                                                                  #        VNPOOH
026452,000811: 
026453,000812: 35,3437           43020        S34/35.5           STQ      BON                                   
026454,000813: 35,3440           03455                                    SUBEXIT                               
026455,000814: 35,3441           01311                                    FINALFLG                              
026456,000815: 35,3442           73446                                    FLAGON                                
026457,000816: 35,3443           52014                           SET      GOTO                                  
026458,000817: 35,3444           00470                                    UPDATFLG                              
026459,000818: 35,3445           73472                                    FLAGOFF                               
026460,000819: 35,3446           77414        FLAGON             CLEAR    EXIT                                  
026461,000820: 35,3447           03274                                    NTARGFLG                              
026462,000821: 35,3450           33626                 +2        CAF      V06N81                                
026463,000822: 35,3451           04655                           TC       BANKCALL                              
026464,000823: 35,3452           20406                           CADR     GOFLASH                               
026465,000824: 35,3453           04106                           TC       GOTOPOOH                              
026466,000825: 35,3454           03461                           TC       +5                                    #  PRO
026467,000826: 35,3455           06014                           TC       INTPRET                               
026468,000827: 35,3456           77414                           SET      EXIT                                  
026469,000828: 35,3457           03074                                    NTARGFLG                              
026470,000829: 35,3460           03450                           TC       FLAGON     +2                         
026471,000830: 
026472,000831: 35,3461           06014                           TC       INTPRET                               
026473,000832: 35,3462           45014                           BOFF     CALL                                  
026474,000833: 35,3463           03354                                    NTARGFLG                              
026475,000834: 35,3464           73466                                    NOCHG                                 
026476,000835: 35,3465           73314                                    S34/35.3                              
026477,000836: 35,3466           77214        NOCHG              CLEAR    VLOAD                                 
026478,000837: 35,3467           01267                                    XDELVFLG                              
026479,000838: 35,3470           03363                                    DELVEET3                              
026480,000839: 35,3471           03643                           STORE    DELVSIN                               
026481,000840: 35,3472           77624        FLAGOFF            CALL                                           
026482,000841: 35,3473           73357                                    S34/35.4                              
026483,000842: 35,3474           77776                           EXIT                                           
026484,000843: 35,3475           33625                           CAF      V06N59                                
026485,000844: 35,3476           03611                           TC       VNPOOH                                
026486,000845: 35,3477           06014                           TC       INTPRET                               
026487,000846: 35,3500           77650                           GOTO                                           
026488,000847: 35,3501           03455                                    SUBEXIT                               
026489,000848: 
026490,000849:                                                                                                  #  ..... VN1645    .....
026491,000850: 
026492,000851:                                                                                                  #  SUBROUTINES USED
026493,000852:                                                                                                  #        P3XORP7X
026494,000853:                                                                                                  #        GET+MGA
026495,000854:                                                                                                  #        BANKCALL
026496,000855:                                                                                                  #        DELAYJOB
026497,000856:                                                                                                  #        COMPTGO
026498,000857:                                                                                                  #        GOFLASHR
026499,000858:                                                                                                  #        GOTOPOOH
026500,000859:                                                                                                  #        FLAGUP
026501,000860: 
026502,000861: 35,3502           71220        VN1645             STQ      DLOAD                                 
026503,000862: 35,3503           03455                                    SUBEXIT                               
026504,000863: 35,3504           33642                                    DP-.01                                
026505,000864: 35,3505           02261                           STORE    +MGA                                  #  MGA = -.01
026506,000865: 35,3506           71214                           BOFF     DLOAD                                 
026507,000866: 35,3507           01351                                    FINALFLG                              
026508,000867: 35,3510           73530                                    GET45                                 
026509,000868: 35,3511           33642                                    DP-.01                                
026510,000869: 35,3512           77615                           DAD                                            
026511,000870: 35,3513           33642                                    DP-.01                                
026512,000871: 35,3514           02261                           STORE    +MGA                                  #  MGA = -.02
026513,000872: 35,3515           77414                           BOFF     EXIT                                  
026514,000873: 35,3516           01742                                    REFSMFLG                              
026515,000874: 35,3517           73530                                    GET45                                 
026516,000875: 35,3520           03603                           TC       P3XORP7X                              
026517,000876: 35,3521           03523                           TC       +2                                    #  P3X
026518,000877: 35,3522           03531                           TC       GET45      +1                         #  P7X
026519,000878: 35,3523           06014                           TC       INTPRET                               
026520,000879: 35,3524           41575                           VLOAD    PUSH                                  
026521,000880: 35,3525           03643                                    DELVSIN                               
026522,000881: 35,3526           77624                           CALL                                           #  COMPUTE MGA
026523,000882: 35,3527           20007                                    GET+MGA                               
026524,000883: 35,3530           77776        GET45              EXIT                                           
026525,000884: 35,3531           02465                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
026526,000885: 35,3532           31455                           CA       SUBEXIT                               
026527,000886: 35,3533           55451                           TS       QSAVED                                
026528,000887: 35,3534           35047                           CAF      1SEC                                  
026529,000888: 35,3535           04655                           TC       BANKCALL                              
026530,000889: 35,3536           01732                           CADR     DELAYJOB                              
026531,000890: 35,3537           33627                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
026532,000891: 35,3540           04655                           TC       BANKCALL                              
026533,000892: 35,3541           20406                           CADR     GOFLASH                               
026534,000893: 35,3542           03545                           TC       KILCLOCK                              #  TERMINATE
026535,000894: 35,3543           03550                           TC       N45PROC                               #  PROCEED
026536,000895: 35,3544           03560                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
026537,000896: 35,3545           33630        KILCLOCK           CA       TWOPI                                 
026538,000897: 35,3546           55175                           TS       DISPDEX                               
026539,000898: 35,3547           04106                           TC       GOTOPOOH                              
026540,000899: 35,3550           40076        N45PROC            CS       FLAGWRD2                              
026541,000900: 35,3551           75021                           MASK     BIT6                                  
026542,000901: 35,3552           00006                           EXTEND                                         
026543,000902: 35,3553           13545                           BZF      KILCLOCK                              #  FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
026544,000903: 35,3554           05423                           TC       PHASCHNG                              
026545,000904: 35,3555           04024                           OCT      04024                                 
026546,000905: 35,3556           05566                           TC       UPFLAG                                #  SET
026547,000906: 35,3557           00047                           ADRES    FINALFLG                              #  FINALFLG
026548,000907: 35,3560           33630        CLUPDATE           CA       TWOPI                                 
026549,000908: 35,3561           55175                           TS       DISPDEX                               
026550,000909: 35,3562           05423                           TC       PHASCHNG                              
026551,000910: 35,3563           04024                           OCT      04024                                 
026552,000911: 35,3564           06014                           TC       INTPRET                               
026553,000912: 35,3565           52014                           CLEAR    GOTO                                  
026554,000913: 35,3566           00670                                    UPDATFLG                              
026555,000914: 35,3567           03451                                    QSAVED                                
026556,000915: 
026557,000916:                                                                                                  #  ..... DISPLAYE  .....
026558,000917: 
026559,000918:                                                                                                  #  SUBROUTINES USED
026560,000919:                                                                                                  #        BANKCALL
026561,000920:                                                                                                  #        GOFLASHR
026562,000921:                                                                                                  #        GOTOPOOH
026563,000922:                                                                                                  #        BLANKET
026564,000923:                                                                                                  #        ENDOFJOB
026565,000924: 
026566,000925: 35,3570           00006        DISPLAYE           EXTEND                                         
026567,000926: 35,3571           23450                           QXCH     NORMEX                                
026568,000927: 35,3572           33623                           CAF      V06N55                                
026569,000928: 35,3573           04655                           TCR      BANKCALL                              
026570,000929: 35,3574           20544                           CADR     GOFLASHR                              
026571,000930: 35,3575           14106                           TCF      GOTOPOOH                              
026572,000931: 35,3576           01450                           TC       NORMEX                                
026573,000932: 35,3577           13572                           TCF      -5                                    
026574,000933: 35,3600           35026                           CAF      BIT1                                  #  BLANK R1
026575,000934: 35,3601           05556                           TCR      BLANKET                               
026576,000935: 35,3602           15225                           TCF      ENDOFJOB                              
026577,000936: 
026578,000937:                                                                                                  #  ..... P3XORP7X  .....
026579,000938: 
026580,000939: 35,3603           37715        P3XORP7X           CAF      HIGH9                                 
026581,000940: 35,3604           71012                           MASK     MODREG                                
026582,000941: 35,3605           00006                           EXTEND                                         
026583,000942: 35,3606           13610                           BZF      +2                                    
026584,000943: 35,3607           24002                           INCR     Q                                     
026585,000944: 35,3610           00002                           RETURN                                         
026586,000945: 
026587,000946:                                                                                                  #  ..... VNPOOH   .....
026588,000947: 
026589,000948:                                                                                                  #  SUBROUTINES USED
026590,000949:                                                                                                  #        BANKCALL
026591,000950:                                                                                                  #        GOFLASH
026592,000951:                                                                                                  #        GOTOPOOH
026593,000952: 
026594,000953: 35,3611           00006        VNPOOH             EXTEND                                         
026595,000954: 35,3612           23452                           QXCH     RTRN                                  
026596,000955: 35,3613           55602                           TS       VERBNOUN                              
026597,000956: 35,3614           31602                           CA       VERBNOUN                              
026598,000957: 35,3615           04655                           TCR      BANKCALL                              
026599,000958: 35,3616           20406                           CADR     GOFLASH                               
026600,000959: 35,3617           14106                           TCF      GOTOPOOH                              
026601,000960: 35,3620           01452                           TC       RTRN                                  
026602,000961: 35,3621           13614                           TCF      -5                                    
026603,000962: 
026604,000963:                                                                                                  #  ..... CONSTANTS .....
026605,000964: 
026606,000965: 35,3622           01445        V06N37             VN       0637                                  
026607,000966: 35,3623           01467        V06N55             VN       0655                                  
026608,000967: 35,3624           01472        V06N58             VN       0658                                  
026609,000968: 35,3625           01473        V06N59             VN       0659                                  
026610,000969: 35,3626           01521        V06N81             VN       0681                                  
026611,000970: 35,3627           04055        V16N45             VN       1645                                  
026612,000971: 35,3630           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
026613,000972: 
026614,000973: 35,3632           00001 20650  MAX250             2DEC     25         E3                         
026615,000974: 
026616,000975: 35,3634           12525 12525  THIRD              2DEC     .333333333                            
026617,000976: 
026618,000977: 35,3636           00004 21505  ELEPS              2DEC     .27777777  E-3                        
026619,000978: 35,3640           00002        DECTWO             OCT      2                                     
026620,000979: 35,3641           77777        DP-.01             OCT      77777                                 #  CONSTANTS
026621,000980: 35,3642           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
026622,000981: 

The following constant may have been added in Sundance 302.

026624,000983: 35,3643           13434 16162  130DEG             2DEC     .3611111111                            
026625,000984: 
026626,000985: 
026627,000986:                                                                                                  #  ..... INITVEL .....
026628,000987: 
026629,000988:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
026630,000989:                                                                                                  #  MOD BY WHITE.P                DATE  21NOV67
026631,000990: 
026632,000991:                                                                                                  #  FUNCTIONAL DESCRIPTION
026633,000992: 
026634,000993:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
026635,000994:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
026636,000995:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
026637,000996:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
026638,000997:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
026639,000998:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
026640,000999:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
026641,001000:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
026642,001001:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
026643,001002:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
026644,001003: 
026645,001004:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
026646,001005:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
026647,001006:                                                                                                  #        SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
026648,001007:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
026649,001008:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
026650,001009:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
026651,001010:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
026652,001011:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
026653,001012: 
026654,001013:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
026655,001014:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
026656,001015:                                                                                                  #        TRAJECTORY COMPUTATIONS.
026657,001016: 
026658,001017:                                                                                                  #  CALLING SEQUENCE
026659,001018: 
026660,001019:                                                                                                  #        L       CALL
026661,001020:                                                                                                  #        L+1             INITVEL
026662,001021:                                                                                                  #        L+2     (RETURN - ALWAYS)
026663,001022: 
026664,001023:                                                                                                  #  INPUT
026665,001024: 
026666,001025:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
026667,001026:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
026668,001027:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
026669,001028:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
026670,001029:                                                                                                  #        (5)     INTIME          TIME OF RINIT
026671,001030:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
026672,001031:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
026673,001032:                                                                                                  #        (8)     X1              -2 FOR EARTH, -10D FOR LUNAR
026674,001033:                                                                                                  #        (9)     B29FLAG         CLEAR IF EARTH IS CENTRAL BODY
026675,001034:                                                                                                  #        PUSHLOC SET AT 4D
026676,001035: 
026677,001036:                                                                                                  #  OUTPUT
026678,001037: 
026679,001038:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
026680,001039:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
026681,001040:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
026682,001041:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
026683,001042: 
026684,001043:                                                                                                  #  SUBROUTINES USED
026685,001044: 
026686,001045:                                                                                                  #        LAMBERT
026687,001046:                                                                                                  #        INTSTALL
026688,001047:                                                                                                  #        INTEGRVS
026689,001048: 
026690,001049: 11,2000                                           SETLOC   INTVEL                                
026691,001050: 11,2000                                           BANK                                           
026692,001051: 
026693,001052: 11,2000                                           COUNT*   $$/INITV                              
026694,001053: 11,2000           01252 25253  EPSFOUR            2DEC     .0416666666                            
026695,001054: 
026696,001055: 11,2002           43001        PREINITV           SETPD    CLEAR                                 
026697,001056: 11,2003           00001                                    0                                     
026698,001057: 11,2004           00275                                    B29FLAG                               
026699,001058: 11,2005           63325                           PDDL     PDVL                                  
026700,001059: 11,2006           22001                                    EPSFOUR                               
026701,001060: 11,2007           03523                                    RACT3                                 
026702,001061: 11,2010           26341                           STOVL    RINIT                                 
026703,001062: 11,2011           03531                                    VACT3                                 
026704,001063: 11,2012           02347                           STORE    VINIT                                 
026705,001064: 11,2013           43160                           AXC,1    BOFF                                  
026706,001065: 11,2014           00002                                    2D                                    
026707,001066: 11,2015           04343                                    CMOONFLG                              
026708,001067: 11,2016           22022                                    INITVEL                               
026709,001068: 11,2017           74014                           SET      AXC,1                                 
026710,001069: 11,2020           00075                                    B29FLAG                               
026711,001070: 11,2021           00012                                    10D                                   
026712,001071: 
026713,001072: 11,2022           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
026714,001073: 11,2023           00475                                    GUESSW                                
026715,001074: 11,2024           77620        HAVEGUES           STQ                                            
026716,001075: 11,2025           03452                                    RTRN                                  
026717,001076: 11,2026           43130                           SXA,1    BOFF                                  
026718,001077: 11,2027           03564                                    X1INPUT                               
026719,001078: 11,2030           00355                                    B29FLAG                               
026720,001079: 11,2031           22043                                    INITVEL1                              
026721,001080: 11,2032           72575                           VLOAD    VSL2                                  
026722,001081: 11,2033           02341                                    RINIT                                 #  B29
026723,001082: 11,2034           26341                           STOVL    RINIT                                 #  B27
026724,001083: 11,2035           02347                                    VINIT                                 #  B7
026725,001084: 11,2036           77752                           VSL2                                           
026726,001085: 11,2037           26347                           STOVL    VINIT                                 #  B5
026727,001086: 11,2040           01772                                    RTARG                                 
026728,001087: 11,2041           77752                           VSL2                                           
026729,001088: 11,2042           01772                           STORE    RTARG                                 
026730,001089:                                                                                                  #  INITIALIZATION
026731,001090: 
026732,001091: 11,2043           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
026733,001092: 11,2044           03604                                    ITCTR                                 
026734,001093: 11,2045           77776                                    0          -1                         
026735,001094: 11,2046           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4)   (+2)
026736,001095: 11,2047           17654                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4)          (PL 0D)
026737,001096: 11,2050           67154                           LXA,2    SXA,2                                 
026738,001097: 11,2051           00154                                    MPAC                                  
026739,001098: 11,2052           02701                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
026740,001099: 11,2053           77775                           VLOAD                                          
026741,001100: 11,2054           02341                                    RINIT                                 
026742,001101: 11,2055           26655                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
026743,001102: 11,2056           01772                                    RTARG                                 
026744,001103: 11,2057           16663                           STODL    R2VEC                                 #  R2VEC EQ RTARG
026745,001104: 11,2060           02355                                    DELLT4                                
026746,001105: 11,2061           02671                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
026747,001106: 11,2062           77201                           SETPD    VLOAD                                 
026748,001107: 11,2063           00001                                    0D                                    #  INITIALIZE PL TO 0D
026749,001108: 11,2064           02341                                    RINIT                                 #  MPAC EQ RINIT (+29)
026750,001109: 11,2065           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)                     (PL 6D)
026751,001110: 11,2066           53435                           VXV      UNIT                                  
026752,001111: 11,2067           02347                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI   (+8)
026753,001112: 11,2070           26674                           STOVL    UN                                    
026754,001113: 11,2071           01772                                    RTARG                                 
026755,001114: 11,2072           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)                 (PL 0D)
026756,001115: 11,2073           43015                           DAD      CLEAR                                 
026757,001116: 11,2074           03654                                    COZY4                                 
026758,001117: 11,2075           03665                                    NORMSW                                
026759,001118: 11,2076           03654                           STORE    COZY4                                 
026760,001119: 11,2077           43044        INITVEL2           BPL      SET                                   
026761,001120: 11,2100           22122                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
026762,001121: 11,2101           03465                                    NORMSW                                
026763,001122: 
026764,001123:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
026765,001124: 
026766,001125: 11,2102           41575                           VLOAD    PUSH                                  #                                    (PL 6D)
026767,001126: 11,2103           02663                                    R2VEC                                 #  RC TO 6D (+29)
026768,001127: 11,2104           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D)
026769,001128: 11,2105           46206                           PUSH     VPROJ                                 #                                    (PL 8D)
026770,001129: 11,2106           02674                                    UN                                    
026771,001130: 11,2107           51352                           VSL2     BVSU                                  
026772,001131: 11,2110           74256                           UNIT     VXSC                                  #                                    (PL 0D)
026773,001132: 11,2111           77772                           VSL1                                           
026774,001133: 11,2112           02663                           STORE    R2VEC                                 
026775,001134: 11,2113           67351                           TLOAD    SLOAD                                 
026776,001135: 11,2114           22276                                    ZEROVEC                               
026777,001136: 11,2115           03604                                    ITCTR                                 
026778,001137: 11,2116           77244                           BPL      VLOAD                                 
026779,001138: 11,2117           22122                                    INITVEL3                              
026780,001139: 11,2120           02663                                    R2VEC                                 
026781,001140: 11,2121           01772                           STORE    RTARG                                 
026782,001141: 11,2122           63345        INITVEL3           DLOAD    PDVL                                  #                                    (PL 2D)
026783,001142: 11,2123           22001                                    EPSFOUR                               #  POSITIVE VALUE
026784,001143: 11,2124           02674                                    UN                                    
026785,001144: 11,2125           50235                           VXV      DOT                                   #                                    (PL 2D)
026786,001145: 11,2126           02655                                    R1VEC                                 
026787,001146: 11,2127           02663                                    R2VEC                                 
026788,001147: 11,2130           71244                           BPL      DLOAD                                 #                                    (PL 0D)
026789,001148: 11,2131           22133                                    INITVEL4                              
026790,001149: 11,2132           41476                           DCOMP    PUSH                                  #                                    (PL 2D)
026791,001150: 11,2133           67154        INITVEL4           LXA,2    SXA,2                                 
026792,001151: 11,2134           00000                                    0D                                    
026793,001152: 11,2135           02672                                    GEOMSGN                               
026794,001153:                                                                                                  #  SET INPUTS UP FOR LAMBERT
026795,001154: 
026796,001155: 11,2136           43131                           SSP      BOFF                                  
026797,001156: 11,2137           00027                                    ITERCTR                               
026798,001157: 11,2140           00024                                    20D                                   
026799,001158: 11,2141           03752                                    AVEGFLAG                              
026800,001159: 11,2142           22146                                    +4                                    
026801,001160: 11,2143           77731                           SSP                                            
026802,001161: 11,2144           00027                                    ITERCTR                               
026803,001162: 11,2145           00005                                    5                                     
026804,001163: 11,2146           45150                           LXA,1    CALL                                  
026805,001164: 11,2147           03564                                    X1INPUT                               
026806,001165:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
026807,001166: 
026808,001167: 11,2150           25254                                    LAMBERT                               
026809,001168: 
026810,001169:                                                                                                  #        DELETE THRU 4521
026811,001170:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
026812,001171: 
026813,001172: 11,2151           77214                           CLEAR    VLOAD                                 
026814,001173: 11,2152           00675                                    GUESSW                                
026815,001174: 11,2153           02744                                    VVEC                                  
026816,001175: 
026817,001176:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
026818,001177: 
026819,001178: 11,2154           16357                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
026820,001179: 
026821,001180:                                                                                                  #     IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
026822,001181:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
026823,001182: 
026824,001183: 11,2155           02702                                    VTARGTAG                              
026825,001184: 11,2156           45030                           BHIZ     CALL                                  
026826,001185: 11,2157           22237                                    INITVEL7                              
026827,001186: 11,2160           27362                                    INTSTALL                              
026828,001187: 
026829,001188: 11,2161           63154                           LXA,2    INCR,2                                
026830,001189: 11,2162           03564                                    X1INPUT                               
026831,001190: 11,2163           00002                                    2D                                    
026832,001191: 11,2164           43135                           SLOAD    CLEAR                                 
026833,001192: 11,2165           00050                                    X2                                    
026834,001193: 11,2166           00263                                    MOONFLAG                              
026835,001194: 11,2167           43030                           BHIZ     SET                                   
026836,001195: 11,2170           22172                                    INITVEL5                              
026837,001196: 11,2171           00063                                    MOONFLAG                              
026838,001197: 11,2172           77775        INITVEL5           VLOAD                                          
026839,001198: 11,2173           02341                                    RINIT                                 
026840,001199: 11,2174           02655                           STORE    R1VEC                                 
026841,001200: 11,2175           25535                           STOVL    RCV                                   
026842,001201: 11,2176           02357                                    VIPRIME                               
026843,001202: 11,2177           15543                           STODL    VCV                                   
026844,001203: 11,2200           03577                                    INTIME                                
026845,001204: 11,2201           01517                           STORE    TET                                   
026846,001205: 11,2202           43015                           DAD      CLEAR                                 
026847,001206: 11,2203           02355                                    DELLT4                                
026848,001207: 11,2204           01673                                    INTYPFLG                              
026849,001208: 11,2205           34041                           STCALL   TDEC1                                 
026850,001209: 11,2206           27060                                    INTEGRVS                              
026851,001210: 11,2207           77775                           VLOAD                                          
026852,001211: 11,2210           00025                                    VATT1                                 
026853,001212: 11,2211           02703                           STORE    VTARGET                               
026854,001213:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
026855,001214:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
026856,001215: 
026857,001216: 11,2212           63154                           LXA,2    INCR,2                                
026858,001217: 11,2213           03603                                    ITCTR                                 
026859,001218: 11,2214           00001                                    1D                                    #  INCREMENT ITCTR
026860,001219: 11,2215           55134                           SXA,2    XSU,2                                 
026861,001220: 11,2216           03603                                    ITCTR                                 
026862,001221: 11,2217           02701                                    VTARGTAG                              
026863,001222: 11,2220           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
026864,001223: 11,2221           00050                                    X2                                    
026865,001224: 11,2222           22234                                    INITVEL6                              
026866,001225: 
026867,001226:                                                                                                  #  OFFSET CONIC TARGET VECTOR
026868,001227: 
026869,001228: 11,2223           52375                           VLOAD    VSU                                   
026870,001229: 11,2224           01772                                    RTARG                                 
026871,001230: 11,2225           00017                                    RATT1                                 
026872,001231: 11,2226           77655                           VAD                                            
026873,001232: 11,2227           02663                                    R2VEC                                 
026874,001233: 11,2230           16663                           STODL    R2VEC                                 
026875,001234: 11,2231           03654                                    COZY4                                 
026876,001235: 11,2232           77650                           GOTO                                           
026877,001236: 11,2233           22077                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
026878,001237:                                                                                                  #  COMPUTE THE DELTA VELOCITY
026879,001238: 
026880,001239: 11,2234           77775        INITVEL6           VLOAD                                          
026881,001240: 11,2235           02663                                    R2VEC                                 
026882,001241: 11,2236           01772                           STORE    RTARG                                 
026883,001242: 11,2237           52375        INITVEL7           VLOAD    VSU                                   
026884,001243: 11,2240           02357                                    VIPRIME                               
026885,001244: 11,2241           02347                                    VINIT                                 
026886,001245: 11,2242           27363                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)
026887,001246: 11,2243           02703                                    VTARGET                               
026888,001247: 11,2244           03553                           STORE    VTPRIME                               
026889,001248: 11,2245           70414                           BOFF     VSR2                                  
026890,001249: 11,2246           00355                                    B29FLAG                               
026891,001250: 11,2247           22262                                    INITVELX                              
026892,001251: 11,2250           27553                           STOVL    VTPRIME                               
026893,001252: 11,2251           02357                                    VIPRIME                               
026894,001253: 11,2252           77742                           VSR2                                           
026895,001254: 11,2253           26357                           STOVL    VIPRIME                               
026896,001255: 11,2254           01772                                    RTARG                                 
026897,001256: 11,2255           77742                           VSR2                                           
026898,001257: 11,2256           25772                           STOVL    RTARG                                 
026899,001258: 11,2257           03363                                    DELVEET3                              
026900,001259: 11,2260           77742                           VSR2                                           
026901,001260: 11,2261           03363                           STORE    DELVEET3                              
026902,001261: 11,2262           72001        INITVELX           SETPD    LXA,1                                 
026903,001262: 11,2263           00001                                    0D                                    
026904,001263: 11,2264           03564                                    X1INPUT                               
026905,001264: 11,2265           77650                           GOTO                                           
026906,001265: 11,2266           03452                                    RTRN                                  
026907,001266: 
026908,001267:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
026909,001268: 
026910,001269:                                                                                                  #  ..... MIDGIM .....
026911,001270: 
026912,001271:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
026913,001272:                                                                                                  #   REVISION 03, 17 FEB 67
026914,001273: 
026915,001274:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
026916,001275:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
026917,001276:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
026918,001277:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
026919,001278:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
026920,001279: 
026921,001280:                                                                                                  #  .. INPUTS ..
026922,001281: 
026923,001282:                                                                                                  #        NAME    MEANING                                         UNITS/SCALING/MODE
026924,001283: 
026925,001284:                                                                                                  #        AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE                     BIT
026926,001285:                                                                                                  #       COMPUTER INT FLAG - 0 IS LEM COMPUTER, 1 IS CSM COMPUTER                 BIT
026927,001286:                                                                                                  #        RINIT   ACTIVE VEHICLE RADIUS VECTOR                    METERS/CSEC (+7) VT
026928,001287:                                                                                                  #        VINIT   ACTIVE VEHICLE VELOCITY VECTOR                  METERS/CSEC (+7) VT
026929,001288:                                                                                                  #        0D(PL)  ACTIVE VEHICLE DELTA VELOCITY VECTOR            METERS/CSEC (+7) VT
026930,001289: 
026931,001290:                                                                                                  #  .. OUTPUTS ..
026932,001291: 
026933,001292:                                                                                                  #     NAME       MEANING                                         UNITS/SCALING/MODE
026934,001293: 
026935,001294:                                                                                                  #     +MGA       + MIDDLE GIMBAL ANGLE                           REVOLUTIONS (+0) DP
026936,001295:                                                                                                  #     DELVLVC    DELTA VELOCITY VECTOR IN LV COORD.              METERS/CSEC (+7) VT
026937,001296:                                                                                                  #     MGLVFLAG   INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.       -       BIT
026938,001297: 
026939,001298:                                                                                                  #  .. CALLING SEQUENCE ..
026940,001299: 
026941,001300:                                                                                                  #        L       CALL
026942,001301:                                                                                                  #        L+1             MIDGIM
026943,001302:                                                                                                  #        L+2     (RETURN - ALWAYS)
026944,001303: 
026945,001304:                                                                                                  #  .. NO SUBROUTINES CALLED ..
026946,001305: 
026947,001306:                                                                                                  #  .. DEBRIS - ERASEABLE TEMPORARY USAGE
026948,001307: 
026949,001308:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
026950,001309: 
026951,001310:                                                                                                  #  .. ALARMS - NONE ..
026952,001311: 
026953,001312:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
026954,001313: 
026955,001314: 10,2000                                           SETLOC   MIDDGIM                               
026956,001315: 10,2000                                           BANK                                           
026957,001316: 
026958,001317: 10,2000                                           COUNT*   $$/MIDG                               
026959,001318: 
026960,001319: 10,2000           20000 00000  HALFREV            2DEC     1          B-1                        
026961,001320: 
026962,001321: 10,2002           43014        MIDGIM             BON      BOFF                                  
026963,001322: 10,2003           01312                                    AVFLAG                                
026964,001323: 10,2004           20022                                    MIDGIM1                               
026965,001324: 10,2005           02747                                    COMPUTER                              
026966,001325: 10,2006           20025                                    GET.LVC                               
026967,001326:                                                                                                  #  COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
026968,001327: 10,2007           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE  UV (+1)
026969,001328: 10,2010           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
026970,001329: 10,2011           01744                                    REFSMMAT   +6                         #   FROM +2 TO +1 FOR ASIN ROUTINE
026971,001330: 10,2012           51136                           ARCSIN   BPL                                   
026972,001331: 10,2013           20017                                    SETMGA                                
026973,001332: 10,2014           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
026974,001333: 10,2015           20001                                    HALFREV                               #  ADDING ONE REVOLUTION
026975,001334: 10,2016           20001                                    HALFREV                               
026976,001335: 10,2017           02261        SETMGA             STORE    +MGA                                  
026977,001336: 10,2020           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
026978,001337: 10,2021           02675                                    MGLVFLAG                              #      AND EXIT
026979,001338: 10,2022           77614        MIDGIM1            BOFF                                           
026980,001339: 10,2023           02747                                    COMPUTER                              
026981,001340: 10,2024           20007                                    GET+MGA                               
026982,001341:                                                                                                  #  COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES.
026983,001342: 10,2025           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC, UNITIZE UR
026984,001343: 10,2026           02341                                    RINIT                                 
026985,001344: 10,2027           77676                           VCOMP                                          #  U(-R)
026986,001345: 10,2030           00023                           STORE    18D                                   #  U(-R) TO 18D
026987,001346: 10,2031           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
026988,001347: 10,2032           02347                                    VINIT                                 
026989,001348: 10,2033           00015                           STORE    12D                                   #  U(V*R) TO 12D
026990,001349: 10,2034           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
026991,001350: 10,2035           00023                                    18D                                   
026992,001351: 10,2036           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
026993,001352: 10,2037           00001                                    0D                                    #  DELTA V (+7) IN 0D
026994,001353: 10,2040           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
026995,001354: 10,2041           00007                                    6D                                    #  AND SCALE +7 IN MPAC
026996,001355: 10,2042           02267                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
026997,001356: 10,2043           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
026998,001357: 10,2044           02475                                    MGLVFLAG                              #  AND EXIT
026999,001358: 
027000,001359:                                                                                                  #  ..... END OF MIDGIM ROUTINE .....
027001,001360: 
027002,001361: 
027003,001362: 10,2045           77160        SELECTMU           AXC,1    AXT,2                                 
027004,001363: 10,2046           00002                                    2D                                    
027005,001364: 10,2047           00000                                    0D                                    
027006,001365: 10,2050           77614                           BOFF                                           
027007,001366: 10,2051           04343                                    CMOONFLG                              
027008,001367: 10,2052           20056                                    SETMUER                               
027009,001368: 10,2053           77160                           AXC,1    AXT,2                                 
027010,001369: 10,2054           00012                                    10D                                   
027011,001370: 10,2055           00002                                    2D                                    
027012,001371: 10,2056           66143        SETMUER            DLOAD*   SXA,1                                 
027013,001372: 10,2057           10765                                    MUTABLE    +4,1                       
027014,001373: 10,2060           02332                                    RTX1                                  
027015,001374: 10,2061           22335                           STODL*   RTSR1/MU                              
027016,001375: 10,2062           10757                                    MUTABLE    -2,1                       
027017,001376: 10,2063           54214                           BOFF     SR                                    
027018,001377: 10,2064           04343                                    CMOONFLG                              
027019,001378: 10,2065           20067                                    RTRNMU                                
027020,001379: 10,2066           20607                                    6D                                    
027021,001380: 10,2067           02337        RTRNMU             STORE    RTMU                                  
027022,001381: 10,2070           43134                           SXA,2    CLEAR                                 
027023,001382: 10,2071           02333                                    RTX2                                  
027024,001383: 10,2072           01271                                    FINALFLG                              
027025,001384: 10,2073           43014                           SET      SET                                   
027026,001385: 10,2074           00470                                    UPDATFLG                              
027027,001386: 10,2075           00472                                    TRACKFLG                              
027028,001387: 10,2076           77650                           GOTO                                           
027029,001388: 10,2077           73502                                    VN1645                                
027030,001389: 
027031,001390:                                                                                                  #  ..... PERIAPO .....
027032,001391: 
027033,001392:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
027034,001393:                                                                                                  #  MOD BY WHITE.P                DATE 18JAN68
027035,001394: 
027036,001395:                                                                                                  #  FUNCTIONAL DESCRIPTION
027037,001396: 
027038,001397:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
027039,001398:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
027040,001399:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
027041,001400: 
027042,001401:                                                                                                  #        SETRAD IS CALLED TO  DETERMINE THE RADIUS OF THE PRIMARY BODY.
027043,001402: 
027044,001403:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
027045,001404:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
027046,001405: 
027047,001406:                                                                                                  #  CALLING SEQUENCE
027048,001407: 
027049,001408:                                                                                                  #        L       CALL
027050,001409:                                                                                                  #        L+1             PERIAPO
027051,001410:                                                                                                  #        L+2     (RETURN - ALWAYS)
027052,001411: 
027053,001412:                                                                                                  #  INPUT
027054,001413: 
027055,001414:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
027056,001415:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
027057,001416:                                                                                                  #        (2)     VVEC    VELOCITY VECTOR IN METERS/CENTISECOND
027058,001417:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
027059,001418:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
027060,001419:                                                                                                  #                        EARTH -2, MOON -10
027061,001420: 
027062,001421:                                                                                                  #  OUTPUT
027063,001422: 
027064,001423:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
027065,001424:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
027066,001425:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
027067,001426:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
027068,001427:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
027069,001428:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
027070,001429:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
027071,001430:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
027072,001431:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
027073,001432:                                                                                                  #                        SCALE FACTOR - +3
027074,001433:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
027075,001434:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
027076,001435:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
027077,001436: 
027078,001437:                                                                                                  #  SUBROUTINES USED
027079,001438: 
027080,001439:                                                                                                  #        SETRAD
027081,001440:                                                                                                  #        APSIDES
027082,001441: 
027083,001442: 23,2000                                           SETLOC   APOPERI                               
027084,001443: 23,2000                                           BANK                                           
027085,001444: 
027086,001445: 23,2104                                           COUNT*   $$/PERAP                              
027087,001446: 
027088,001447: 23,2104           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
027089,001448:                                                                                                  #  = 20 909 901.57 FT
027090,001449: 
027091,001450: 23,2106           53754        PERIAPO1           LXA,2    VSR*                                  
027092,001451: 23,2107           02333                                    RTX2                                  
027093,001452: 23,2110           57176                                    0,2                                   
027094,001453: 23,2111           26744                           STOVL    VVEC                                  
027095,001454: 23,2112           53750                           LXA,1    VSR*                                  
027096,001455: 23,2113           02332                                    RTX1                                  
027097,001456: 23,2114           57176                                    0,2                                   
027098,001457: 23,2115           02655                           STORE    RVEC                                  
027099,001458: 23,2116           45020        PERIAPO            STQ      CALL                                  
027100,001459: 23,2117           03450                                    NORMEX                                
027101,001460: 23,2120           46134                                    SETRAD                                
027102,001461: 23,2121           37656                           STCALL   XXXALT                                
027103,001462: 23,2122           25726                                    APSIDES                               
027104,001463: 23,2123           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
027105,001464: 23,2124           00003                                    2D                                    
027106,001465: 23,2125           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
027107,001466: 23,2126           03656                                    XXXALT                                
027108,001467: 23,2127           00001                                    0D                                    
027109,001468: 23,2130           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
027110,001469: 23,2131           03656                                    XXXALT                                
027111,001470: 23,2132           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
027112,001471: 23,2133           03450                                    NORMEX                                
027113,001472: 
027114,001473:                                                                                                  #  SETRAD
027115,001474: 
027116,001475: 23,2134           41545        SETRAD             DLOAD    PUSH                                  
027117,001476: 23,2135           06105                                    RPAD                                  
027118,001477: 23,2136           63130                           SXA,1    INCR,2                                
027119,001478: 23,2137           00047                                    X2                                    
027120,001479: 23,2140           00002                                    2D                                    
027121,001480: 23,2141           46135                           SLOAD    BHIZ                                  
027122,001481: 23,2142           00050                                    X2                                    
027123,001482: 23,2143           46147                                    SETRADX                               
027124,001483: 23,2144           51575                           VLOAD    ABVAL                                 
027125,001484: 23,2145           02025                                    RLS                                   
027126,001485: 23,2146           77725                           PDDL                                           
027127,001486: 23,2147           43545        SETRADX            DLOAD    RVQ                                   
027128,001487: 
027129,001488:                                                                                                  #  PRECSET
027130,001489: 
027131,001490: 23,2150           77620        PRECSET            STQ                                            
027132,001491: 23,2151           03450                                    NORMEX                                
027133,001492: 23,2152           37561                           STCALL   TDEC2                                 
027134,001493: 23,2153           27030                                    LEMPREC                               
027135,001494: 23,2154           77624                           CALL                                           
027136,001495: 23,2155           46166                                    LEMSTORE                              
027137,001496: 23,2156           77745                           DLOAD                                          
027138,001497: 23,2157           03561                                    TDEC2                                 
027139,001498: 23,2160           34041                           STCALL   TDEC1                                 
027140,001499: 23,2161           27014                                    CSMPREC                               
027141,001500: 23,2162           77624                           CALL                                           
027142,001501: 23,2163           46176                                    CSMSTORE                              
027143,001502: 23,2164           77650                           GOTO                                           
027144,001503: 23,2165           03450                                    NORMEX                                
027145,001504: 23,2166           43175        LEMSTORE           VLOAD    BOFF                                  
027146,001505: 23,2167           00001                                    RATT                                  
027147,001506: 23,2170           01352                                    AVFLAG                                
027148,001507: 23,2171           46202                                    PASSIVE                               
027149,001508: 23,2172           27523        ACTIVE             STOVL    RACT3                                 
027150,001509: 23,2173           00007                                    VATT                                  
027151,001510: 23,2174           03531                           STORE    VACT3                                 
027152,001511: 23,2175           77616                           RVQ                                            
027153,001512: 23,2176           43175        CSMSTORE           VLOAD    BOFF                                  
027154,001513: 23,2177           00001                                    RATT                                  
027155,001514: 23,2200           01352                                    AVFLAG                                
027156,001515: 23,2201           46172                                    ACTIVE                                
027157,001516: 23,2202           27537        PASSIVE            STOVL    RPASS3                                
027158,001517: 23,2203           00007                                    VATT                                  
027159,001518: 23,2204           03545                           STORE    VPASS3                                
027160,001519: 23,2205           77616                           RVQ                                            
027161,001520: 
027162,001521:                                                                                                  #  VECSHIFT 
027163,001522: 23,2206           53754        VECSHIFT           LXA,2    VSR*                                  
027164,001523: 23,2207           02333                                    RTX2                                  
027165,001524: 23,2210           57176                                    0,2                                   
027166,001525: 23,2211           63350                           LXA,1    PDVL                                  
027167,001526: 23,2212           02332                                    RTX1                                  
027168,001527: 23,2213           63257                           VSR*     PDVL                                  
027169,001528: 23,2214           57176                                    0,2                                   
027170,001529: 23,2215           77616                           RVQ                                            
027171,001530: 
027172,001531:                                                                                                  #  SHIFTR1
027173,001532: 
027174,001533: 23,2216           53754        SHIFTR1            LXA,2    SL*                                   
027175,001534: 23,2217           02333                                    RTX2                                  
027176,001535: 23,2220           57576                                    0,2                                   
027177,001536: 23,2221           77616                           RVQ                                            
027178,001537: 
027179,001538: 
027180,001539:                                                                                                  #  PROGRAM DESCRIPTION
027181,001540:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
027182,001541:                                                                                                  #  MOD NO. 0             DATE    22 DECEMBER 67
027183,001542:                                                                                                  #  MOD BY N.M.NEVILLE    LOG SECTION EXTENDED VERBS
027184,001543:                                                                                                  #  FUNCTIONAL DESCRIPTION
027185,001544: 
027186,001545:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
027187,001546:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y , YDOT , PSI). (REQUESTED BY DSKY).
027188,001547: 
027189,001548:                                                                                                  #  CALLING SEQUENCE
027190,001549: 
027191,001550:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY V 90 E
027192,001551: 
027193,001552:                                                                                                  #  SUBROUTINES CALLED
027194,001553: 
027195,001554:                                                                                                  #  EXDSPRET
027196,001555:                                                                                                  #  GOMARKF
027197,001556:                                                                                                  #  CSMPREC
027198,001557:                                                                                                  #  LEMPREC
027199,001558:                                                                                                  #  SGNAGREE
027200,001559:                                                                                                  #  LOADTIME
027201,001560: 
027202,001561:                                                                                                  #  NORMAL EXIT MODES
027203,001562: 
027204,001563:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
027205,001564: 
027206,001565:                                                                                                  #  ALARM OR ABORT EXIT MODES
027207,001566: 
027208,001567:                                                                                                  #  NONE
027209,001568: 
027210,001569:                                                                                                  #  OUTPUT
027211,001570: 
027212,001571:                                                                                                  #  DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI
027213,001572: 
027214,001573:                                                                                                  #  DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE
027215,001574:                                                                                                  #  REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY.
027216,001575: 
027217,001576:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
027218,001577: 
027219,001578:                                                                                                  #  CSM AND LEM STATE VECTORS
027220,001579: 
027221,001580:                                                                                                  #  DEBRIS
027222,001581: 
027223,001582:                                                                                                  #  CENTRALS A,Q,L
027224,001583:                                                                                                  #  OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
027225,001584: 
027226,001585: 20,2204                                           BANK     20                                    
027227,001586: 04,2000                                           SETLOC   R36LM                                 
027228,001587: 04,2000                                           BANK                                           
027229,001588: 04,2530  E4,1614                                  EBANK=   RPASS36                               
027230,001589: 
027231,001590: 04,2530                                           COUNT*   $$/R36                                
027232,001591: 

The following call to SETXDSP may have been added in Sundance 302. Whether it was, and where exactly it was, is currently unclear. Our current thinking is that it occurred here, right at the beginning, since this is similar to what R32 does.

027236,001595: 04,2530           07766        R36                TC       SETXDSP                               
027237,001596: 04,2531           22007                           ZL                                             
027238,001597: 04,2532           35030                           CAF      ZERO                                  #  SET TIME OF EVENT TO ZERO FOR FIRST
027239,001598: 04,2533           53053                           DXCH     DSPTEMX                               #  DISPLAY
027240,001599: 04,2534           32664                           CAF      V06N16N                               
027241,001600: 04,2535           04655                           TC       BANKCALL                              
027242,001601: 04,2536           20226                           CADR     GOMARKF                               
027243,001602: 04,2537           15564                           TCF      ENDEXT                                #  TERMINATE
027244,001603: 04,2540           12542                           TCF      +2                                    #  PROCEED
027245,001604: 04,2541           12534                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
027246,001605: 04,2542           53053                           DXCH     DSPTEMX                               
027247,001606: 04,2543           00006                           EXTEND                                         
027248,001607: 04,2544           12653                           BZF      LREGCHK                               #  A-REG ZERO GOTO CHECK L-REG FOR ZERO
027249,001608: 04,2545           52155        ASTROTIM           DXCH     MPAC                                  #  A-REG NON-ZERO, TIME = ASTRO INPUT TIME
027250,001609: 04,2546           06014                           TC       INTPRET                               
027251,001610: 04,2547           77634                           RTB                                            
027252,001611: 04,2550           21662                                    DPMODE                                
027253,001612: 04,2551           34041        R36INT             STCALL   TDEC1                                 
027254,001613: 04,2552           27014                                    OTHPREC                               
027255,001614: 04,2553           63375                           VLOAD    PDVL                                  
027256,001615: 04,2554           00007                                    VATT                                  
027257,001616: 04,2555           00001                                    RATT                                  #  -
027258,001617: 04,2556           02215                           STORE    RPASS36                               #  R
027259,001618: 04,2557           63256                           UNIT     PDVL                                  #   P
027260,001619: 04,2560           53435                           VXV      UNIT                                  #  -
027261,001620: 04,2561           77626                           STADR                                          
027262,001621: 04,2562           61554                           STODL    UNP36                                 #  U
027263,001622: 04,2563           00015                                    TAT                                   
027264,001623: 04,2564           34041                           STCALL   TDEC1                                 
027265,001624: 04,2565           27030                                    THISPREC                              
027266,001625: 04,2566           63375                           VLOAD    PDVL                                  #                  -
027267,001626: 04,2567           00007                                    VATT                                  #  VELOCITY VECTOR V             00D
027268,001627: 04,2570           00001                                    RATT                                  #                   A
027269,001628: 04,2571           77725                           PDDL                                           
027270,001629: 04,2572           00015                                    TAT                                   #  SAVE TIME IN LOCATION 30D FOR REDISPLAY
027271,001630: 04,2573           24037                           STOVL    30D                                   #                  -
027272,001631: 04,2574           41406                           PUSH     PUSH                                  #  POSITION VECTOR R  IN 06D AND 12D
027273,001632: 04,2575           63245                           BVSU     PDVL                                  #                   A   -   -
027274,001633: 04,2576           02215                                    RPASS36                               #  LINE OF SIGHT VECTOR R - R    12D
027275,001634: 04,2577           72441                           DOT      SL1                                   #                        P   A
027276,001635: 04,2600           02223                                    UNP36                                 #      -   -
027277,001636: 04,2601           26207                           STOVL    RANGE                                 #  Y = U . R
027278,001637: 04,2602           00001                                    00D                                   #           A
027279,001638: 04,2603           72441                           DOT      SL1                                   
027280,001639: 04,2604           02223                                    UNP36                                 #  .   -   -
027281,001640: 04,2605           26211                           STOVL    RRATE                                 #  Y = U . V
027282,001641: 04,2606           00007                                    06D                                   #  -        A  -
027283,001642: 04,2607           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
027284,001643: 04,2610           47235                           VXV      VXV                                   #   RA          A
027285,001644: 04,2611           00001                                    00D                                   #   -    -     -     -
027286,001645: 04,2612           00023                                    18D                                   #  (U  X V ) X U   = U
027287,001646: 04,2613           53552                           VSL2     UNIT                                  #    RA   A     RA    A

The following UNIT was added in Sundance 302.

027289,001648: 04,2614           77656                           UNIT                                           
027290,001649: 04,2615           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D
027291,001650: 04,2616           00023                                    18D                                   
027292,001651: 04,2617           74241                           DOT      VXSC                                  #  -
027293,001652: 04,2620           00015                                    12D                                   #  U
027294,001653: 04,2621           77752                           VSL2                                           #   L
027295,001654: 04,2622           53445                           BVSU     UNIT                                  

The following UNIT was added in Sundance 302.

027297,001656: 04,2623           77656                           UNIT                                           
027298,001657: 04,2624           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
027299,001658: 04,2625           00001                                    00D                                   #  PLANE
027300,001659: 04,2626           65552                           SL1      ARCCOS                                #               -   -
027301,001660: 04,2627           26213                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
027302,001661: 04,2630           50235                           VXV      DOT                                   #                A   L
027303,001662: 04,2631           00001                                    00D                                   
027304,001663: 04,2632           71244                           BPL      DLOAD                                 
027305,001664: 04,2633           10640                                    R36TAG2                               
027306,001665: 04,2634           22307                                    LODPMAX                               
027307,001666: 04,2635           77625                           DSU                                            
027308,001667: 04,2636           02213                                    RTHETA                                
027309,001668: 04,2637           02213                           STORE    RTHETA                                
027310,001669: 04,2640           47145        R36TAG2            DLOAD    RTB                                   
027311,001670: 04,2641           00037                                    30D                                   
027312,001671: 04,2642           21510                                    SGNAGREE                              
027313,001672: 04,2643           01053                           STORE    DSPTEMX                               
027314,001673: 04,2644           77776                           EXIT                                           
027315,001674: 04,2645           32665                           CAF      V06N90N                               #   DISPLAY Y , YDOT , AND PSI
027316,001675: 04,2646           04655                           TC       BANKCALL                              
027317,001676: 04,2647           20226                           CADR     GOMARKF                               
027318,001677: 04,2650           15564                           TCF      ENDEXT                                #  TERMINATE
027319,001678: 04,2651           15564                           TCF      ENDEXT                                #  PROCEED , END OF PROGRAM
027320,001679: 04,2652           12533                           TCF      R36        +3                         #  REDISPLAY OUTPUT
027321,001680: 04,2653           56001        LREGCHK            XCH      L                                     
027322,001681: 04,2654           00006                           EXTEND                                         
027323,001682: 04,2655           12660                           BZF      ENTTIM2                               #  L-REG ZERO, SET TIME = PRESENT TIME
027324,001683: 04,2656           56001                           XCH      L                                     #  L-REG NON ZERO, TIME = ASTRO INPUT TIME
027325,001684: 04,2657           12545                           TCF      ASTROTIM                              
027326,001685: 04,2660           06014        ENTTIM2            TC       INTPRET                               
027327,001686: 04,2661           52034                           RTB      GOTO                                  
027328,001687: 04,2662           21454                                    LOADTIME                              
027329,001688: 04,2663           10551                                    R36INT                                
027330,001689: 04,2664           01420        V06N16N            VN       00616                                 
027331,001690: 04,2665           01532        V06N90N            VN       00690                                 

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