Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

020561,000002:                                                                                                  ## Copyright:   Public domain.
020562,000003:                                                                                                  ## Filename:    P34-35_P74-75.agc
020563,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
020564,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
020565,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
020566,000007:                                                                                                  ##              Apollo 15-17.
020567,000008:                                                                                                  ## Assembler:   yaYUL
020568,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
020569,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
020570,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
020571,000012:                                                                                                  ## Mod history: 2009-08-19 SN   Adapted from corresponding Comanche 055 file.
020572,000013:                                                                                                  ##              2009-09-03 JL   Fixed symbol names.
020573,000014:                                                                                                  ##              2009-09-04 JL   Fixed a bunch of typos. Fixed page comments.
020574,000015:                                                                                                  ##              2009-09-07 JL   Fixed typos.
020575,000016:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
020576,000017:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
020577,000018:                                                                                                  ##              2011-05-07 JL   Removed workaround.
020578,000019:                                                                                                  ##              2017-02-07 RSB  Proofed comment text by diff'ing vs Comanche 55
020579,000020:                                                                                                  ##                              and corrected errors found, and a little bit
020580,000021:                                                                                                  ##                              of octopus/ProoferComments where the mismatch
020581,000022:                                                                                                  ##                              in the diff was too great.
020582,000023: 

Page 463

020584,000025:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
020585,000026: 
020586,000027:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
020587,000028:                                                                                                  #  MOD BY WHITE.P        DATE 1JUNE67
020588,000029: 
020589,000030:                                                                                                  #  PURPOSE
020590,000031: 
020591,000032:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020592,000033:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
020593,000034:                                                                                                  #            PHASE INITIATION (TPI) MANEUVER, GIVEN -
020594,000035: 
020595,000036:                                                                                                  #            (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
020596,000037:                                                                                                  #                THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
020597,000038: 
020598,000039:                                                                                                  #            (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
020599,000040:                                                                                                  #                INTERCEPT TIME (TIG (TPF)).
020600,000041: 
020601,000042:                                                                                                  #        (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
020602,000043: 
020603,000044:                                                                                                  #        (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
020604,000045:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
020605,000046: 
020606,000047:                                                                                                  #        (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020607,000048:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020608,000049:                                                                                                  #            ASTRONAUT/GROUND.
020609,000050: 
020610,000051:                                                                                                  #        (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
020611,000052:                                                                                                  #            THRUSTING PROGRAM.
020612,000053: 
020613,000054:                                                                                                  #  ASSUMPTIONS
020614,000055: 
020615,000056:                                                                                                  #        (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
020616,000057:                                                                                                  #            THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
020617,000058:                                                                                                  #            THEREFORE -
020618,000059: 
020619,000060:                                                                                                  #            (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
020620,000061:                                                                                                  #                BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
020621,000062:                                                                                                  #                A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
020622,000063:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
020623,000064: 
020624,000065:                                                                                                  #            (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
020625,000066:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
020626,000067: 
020627,000068:                                                                                                  #            (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
020628,000069:                                                                                                  #                ORBITS WAS MINIMIZED.
020629,000070: 
020630,000071:                                                                                                  #            (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
020631,000072: 
020632,000073:                                                                                                  #                CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 464

020634,000075:                                                                                                  #                ORBIT OR 85 NM FOR EARTH ORBIT.
020635,000076: 
020636,000077:                                                                                                  #            (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
020637,000078:                                                                                                  #                THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
020638,000079:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
020639,000080:                                                                                                  #                IN AN OUT-OF-PLANE MANEUVER.
020640,000081: 
020641,000082:                                                                                                  #        (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
020642,000083:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
020643,000084: 
020644,000085:                                                                                                  #        (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
020645,000086:                                                                                                  #            TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
020646,000087:                                                                                                  #            VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
020647,000088:                                                                                                  #            THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
020648,000089:                                                                                                  #            FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
020649,000090:                                                                                                  #            FLIGHT PLAN MANEUVER SEQUENCES.
020650,000091: 
020651,000092:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
020652,000093:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
020653,000094:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
020654,000095:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
020655,000096:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
020656,000097:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
020657,000098:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
020658,000099:                                                                                                  #            THRUSTING MANEUVER.
020659,000100: 
020660,000101:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020661,000102: 
020662,000103:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020663,000104: 
020664,000105:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020665,000106:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020666,000107:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020667,000108:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020668,000109: 
020669,000110:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020670,000111:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020671,000112: 
020672,000113:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020673,000114:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020674,000115:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020675,000116: 
020676,000117:                                                                                                  #        (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
020677,000118:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020678,000119:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020679,000120:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020680,000121:                                                                                                  #            THROUGH THE USE OF V06N52.
020681,000122: 
020682,000123:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020683,000124:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 465

020685,000126:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020686,000127:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020687,000128:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
020688,000129: 
020689,000130:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020690,000131: 
020691,000132:                                                                                                  #                P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
020692,000133: 
020693,000134:                                                                                                  #                P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
020694,000135: 
020695,000136:                                                                                                  #  INPUT
020696,000137: 
020697,000138:                                                                                                  #        (1) TTPI        TIME OF THE TPI MANEUVER
020698,000139:                                                                                                  #        (2) ELEV        DESIRED LOS ANGLE AT TPI
020699,000140:                                                                                                  #        (3) CENTANG     ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020700,000141:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
020701,000142: 
020702,000143:                                                                                                  #  OUTPUT
020703,000144: 
020704,000145:                                                                                                  #        (1) TRKMKCNT    NUMBER OF MARKS
020705,000146:                                                                                                  #        (2) TTOGO       TIME TO GO
020706,000147:                                                                                                  #        (3) +MGA        MIDDLE GIMBAL ANGLE
020707,000148:                                                                                                  #        (4) TTPI        COMPUTED TIME OF TPI MANEUVER
020708,000149:                                                                                                  #             OR
020709,000150:                                                                                                  #            ELEV        COMPUTED LOS ANGLE AT TPI
020710,000151:                                                                                                  #        (5) POSTTPI     PERIGEE ALTITUDE AFTER THE TPI MANEUVER
020711,000152:                                                                                                  #        (6) DELVTPI     MAGNITUDE OF DELTA V AT TPI
020712,000153:                                                                                                  #        (7) DELVTPF     MAGNITUDE OF DELTA V AT INTERCEPT
020713,000154:                                                                                                  #        (8) DVLOS       DELTA VELOCITY AT TPI - LINE OF SIGHT
020714,000155:                                                                                                  #        (9) DELVLVC     DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
020715,000156: 
020716,000157:                                                                                                  #  DOWNLINK
020717,000158: 
020718,000159:                                                                                                  #        (1) TTPI        TIME OF THE TPI MANEUVER
020719,000160:                                                                                                  #        (2) TIG         TIME OF THE TPI MANEUVER
020720,000161:                                                                                                  #        (3) ELEV        DESIRED LOS ANGLE AT TPI
020721,000162:                                                                                                  #        (4) CENTANG     ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020722,000163:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
020723,000164:                                                                                                  #        (5) DELVEET3    DELTA VELOCITY AT TPI - REFERENCE COORDINATES
020724,000165:                                                                                                  #        (6) TPASS4      TIME OF INTERCEPT
020725,000166: 
020726,000167:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
020727,000168: 
020728,000169:                                                                                                  #        (1) TIG         TIME OF THE TPI MANEUVER
020729,000170:                                                                                                  #        (2) RTARG       OFFSET TARGET POSITION
020730,000171:                                                                                                  #        (3) TPASS4      TIME OF INTERCEPT
020731,000172:                                                                                                  #        (4) XDELVFLG    RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020732,000173: 
020733,000174:                                                                                                  #  SUBROUTINES USED
020734,000175: 
020735,000176:                                                                                                  #        AVFLAGA

Page 466

020737,000178:                                                                                                  #        AVFLAGP
020738,000179:                                                                                                  #        VNPOOH
020739,000180:                                                                                                  #        DISPLAYE
020740,000181:                                                                                                  #        SELECTMU
020741,000182:                                                                                                  #        PRECSET
020742,000183:                                                                                                  #        S33/34.1
020743,000184:                                                                                                  #        ALARM
020744,000185:                                                                                                  #        BANKCALL
020745,000186:                                                                                                  #        GOFLASH
020746,000187:                                                                                                  #        GOTOPOOH
020747,000188:                                                                                                  #        TIMETHET
020748,000189:                                                                                                  #        S34/35.2
020749,000190:                                                                                                  #        PERIAPO1
020750,000191:                                                                                                  #        SHIFTR1
020751,000192:                                                                                                  #        S34/35.5
020752,000193:                                                                                                  #        VN1645
020753,000194: 
020754,000195: 35,2000                                           SETLOC   CSI/CDH                               
020755,000196: 35,2000                                           BANK                                           
020756,000197: 35,2000  E4,1760                                  EBANK=   SUBEXIT                               
020757,000198: 35,2000                                           COUNT*   $$/P3474                              
020758,000199: 35,2000           04553        P34                TC       AVFLAGA                               
020759,000200: 35,2001           02003                           TC       P34/P74A                              
020760,000201: 35,2002           04565        P74                TC       AVFLAGP                               
020761,000202: 35,2003           04572        P34/P74A           TC       P20FLGON                              
020762,000203: 35,2004           06006                           TC       INTPRET                               
020763,000204: 35,2005           71214                           CLEAR    DLOAD                                 
020764,000205: 35,2006           05274                                    TPIMNFLG                              
020765,000206: 35,2007           32205                                    130DEG                                
020766,000207: 35,2010           17754                           STODL    CENTANG                               
020767,000208: 35,2011           15336                                    ZEROVECS                              
020768,000209: 35,2012           03744                           STORE    ELEV                                  
020769,000210: 35,2013           03766                           STORE    NN                                    
020770,000211: 35,2014           77776                           EXIT                                           
020771,000212: 
020772,000213: 35,2015           34532                           CAF      V06N37                                
020773,000214: 35,2016           05535                           TC       VNFLASH                               
020774,000215: 35,2017           34533                           CAF      V06N55                                
020775,000216: 35,2020           05535                           TC       VNFLASH                               
020776,000217: 35,2021           06006                           TC       INTPRET                               
020777,000218: 35,2022           71214                           CLEAR    DLOAD                                 
020778,000219: 35,2023           01270                                    ETPIFLAG                              
020779,000220: 35,2024           03663                                    TTPI                                  
020780,000221: 35,2025           17413                           STODL    TIG                                   
020781,000222: 35,2026           03744                                    ELEV                                  
020782,000223: 35,2027           43054                           BZE      SET                                   
020783,000224: 35,2030           72032                                    P34/P74B                              
020784,000225: 35,2031           01070                                    ETPIFLAG                              
020785,000226: 35,2032           77624        P34/P74B           CALL                                           
020786,000227: 35,2033           11217                                    SELECTMU                              

Page 467

020788,000229: 35,2034                        DELELO             EQUALS   26D                                   
020789,000230: 35,2034           43145        P34/P74C           DLOAD    SET                                   
020790,000231: 35,2035           15336                                    ZEROVECS                              
020791,000232: 35,2036           03461                                    ITSWICH                               
020792,000233: 35,2037           43014                           BON      CLEAR                                 
020793,000234: 35,2040           01310                                    ETPIFLAG                              
020794,000235: 35,2041           72043                                    SWCHSET                               
020795,000236: 35,2042           03661                                    ITSWICH                               
020796,000237: 35,2043           02355        SWCHSET            STORE    NOMTPI                                
020797,000238: 35,2044           43345        INTLOOP            DLOAD    DAD                                   
020798,000239: 35,2045           03663                                    TTPI                                  
020799,000240: 35,2046           02355                                    NOMTPI                                
020800,000241: 35,2047           34041                           STCALL   TDEC1                                 
020801,000242: 35,2050           45236                                    PRECSET                               
020802,000243: 35,2051           77624                           CALL                                           
020803,000244: 35,2052           72251                                    S33/34.1                              
020804,000245: 35,2053           77454                           BZE      EXIT                                  
020805,000246: 35,2054           72065                                    SWCHCLR                               
020806,000247: 35,2055           05671        INTALM             TC       ALARM                                 
020807,000248: 35,2056           00611                           OCT      611                                   
020808,000249: 35,2057           35023                           CAF      V05N09                                
020809,000250: 35,2060           04636                           TC       BANKCALL                              
020810,000251: 35,2061           20743                           CADR     GOFLASH                               
020811,000252: 35,2062           04103                           TC       GOTOPOOH                              
020812,000253: 35,2063           02003                           TC       P34/P74A                              #  PROCEED
020813,000254: 35,2064           02055                           TC       INTALM                                #  V32
020814,000255: 35,2065           43014        SWCHCLR            BONCLR   BON                                   
020815,000256: 35,2066           03601                                    ITSWICH                               
020816,000257: 35,2067           72044                                    INTLOOP                               
020817,000258: 35,2070           01310                                    ETPIFLAG                              
020818,000259: 35,2071           72100                                    P34/P74D                              #  DISPLAY TTPI
020819,000260: 35,2072           77776                           EXIT                                           
020820,000261: 35,2073           34533                           CAF      V06N55                                
020821,000262: 35,2074           05535                           TC       VNFLASH                               
020822,000263: 35,2075           06006                           TC       INTPRET                               
020823,000264: 35,2076           77650                           GOTO                                           
020824,000265: 35,2077           72120                                    P34/74E                               
020825,000266: 35,2100           77776        P34/P74D           EXIT                                           
020826,000267: 35,2101           34532                           CAF      V06N37                                #  TTPI
020827,000268: 35,2102           05535                           TC       VNFLASH                               
020828,000269: 35,2103           06006        P34/P74E           TC       INTPRET                               
020829,000270: 35,2104           43014                           BOFF     BOFF                                  
020830,000271: 35,2105           01351                                    FINALFLG                              
020831,000272: 35,2106           72120                                    P34/74E                               #  LAST PASS
020832,000273: 35,2107           05350                                    AUTOSEQ                               
020833,000274: 35,2110           72120                                    P34/74E                               
020834,000275: 35,2111           43145                           DLOAD    CLEAR                                 #  IT IS FINAL COMP IN MINKEY
020835,000276: 35,2112           15336                                    ZEROVECS                              #    SET UP FOR TIG OPTION
020836,000277: 35,2113           01270                                    ETPIFLAG                              
020837,000278: 35,2114           17744                           STODL    ELEV                                  

Page 468

020839,000280: 35,2115           03663                                    TTPI                                  
020840,000281: 35,2116           37413                           STCALL   TIG                                   
020841,000282: 35,2117           72034                                    P34/P74C                              
020842,000283: 35,2120           71201        P34/74E            SETPD    DLOAD                                 
020843,000284: 35,2121           00001                                    0D                                    
020844,000285: 35,2122           03746                                    RTX1                                  
020845,000286: 35,2123           14047                           STODL    X1                                    
020846,000287: 35,2124           03754                                    CENTANG                               
020847,000288: 35,2125           71406                           PUSH     COS                                   
020848,000289: 35,2126           16734                           STODL    CSTH                                  
020849,000290: 35,2127           77756                           SIN                                            
020850,000291: 35,2130           26732                           STOVL    SNTH                                  
020851,000292: 35,2131           03554                                    RPASS3                                
020852,000293: 35,2132           77657                           VSR*                                           
020853,000294: 35,2133           57176                                    0,2                                   
020854,000295: 35,2134           26657                           STOVL    RVEC                                  
020855,000296: 35,2135           03562                                    VPASS3                                
020856,000297: 35,2136           43057                           VSR*     SET                                   
020857,000298: 35,2137           57176                                    0,2                                   
020858,000299: 35,2140           03466                                    RVSW                                  
020859,000300: 35,2141           36746                           STCALL   VVEC                                  
020860,000301: 35,2142           25002                                    TIMETHET                              
020861,000302: 35,2143           77745                           DLOAD                                          
020862,000303: 35,2144           03663                                    TTPI                                  
020863,000304: 35,2145           03503                           STORE    INTIME                                #  FOR INITVEL
020864,000305: 35,2146           77615                           DAD                                            
020865,000306: 35,2147           00037                                    T                                     #  RENDEZVOUS TIME
020866,000307: 35,2150           37656                           STCALL   TPASS4                                #  FOR INITVEL
020867,000308: 35,2151           72561                                    S34/35.2                              
020868,000309: 35,2152           51575                           VLOAD    ABVAL                                 
020869,000310: 35,2153           03646                                    DELVEET3                              
020870,000311: 35,2154           26635                           STOVL    DELVTPI                               
020871,000312: 35,2155           03640                                    VPASS4                                
020872,000313: 35,2156           51451                           VSU      ABVAL                                 
020873,000314: 35,2157           03620                                    VTPRIME                               
020874,000315: 35,2160           26637                           STOVL    DELVTPF                               
020875,000316: 35,2161           03540                                    RACT3                                 
020876,000317: 35,2162           45115                           PDVL     CALL                                  
020877,000318: 35,2163           03612                                    VIPRIME                               
020878,000319: 35,2164           45174                                    PERIAPO1                              
020879,000320: 35,2165           77624                           CALL                                           
020880,000321: 35,2166           45330                                    SHIFTR1                               
020881,000322: 35,2167           16641                           STODL    POSTTPI                               
020882,000323: 35,2170           03663                                    TTPI                                  
020883,000324: 35,2171           03413                           STORE    TIG                                   
020884,000325: 35,2172           77776                           EXIT                                           
020885,000326: 35,2173           34534                           CAF      V06N58                                
020886,000327: 35,2174           05535                           TC       VNFLASH                               
020887,000328: 35,2175           06006                           TC       INTPRET                               
020888,000329: 35,2176           77624                           CALL                                           

Page 469

020890,000331: 35,2177           72774                                    S34/35.5                              
020891,000332: 35,2200           77624                           CALL                                           
020892,000333: 35,2201           73027                                    VN1645                                
020893,000334: 35,2202           77650                           GOTO                                           
020894,000335: 35,2203           72034                                    P34/P74C                              
020895,000336: 35,2204           13434        130DEG             OCT      13434                                 #  13  DEG - CENTANG
020896,000337: 35,2205           16163                           OCT      16163                                 
020897,000338: 

Page 470

020899,000340:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
020900,000341: 
020901,000342:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
020902,000343:                                                                                                  #  MOD BY WHITE.P        DATE  1JUNE67
020903,000344: 
020904,000345:                                                                                                  #  PURPOSE
020905,000346: 
020906,000347:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020907,000348:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
020908,000349:                                                                                                  #            MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
020909,000350:                                                                                                  #            VEHICLE RENDEZVOUS.
020910,000351: 
020911,000352:                                                                                                  #        (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020912,000353:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020913,000354:                                                                                                  #            ASTRONAUT/GROUND.
020914,000355: 
020915,000356:                                                                                                  #        (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
020916,000357:                                                                                                  #            THRUSTING PROGRAM.
020917,000358: 
020918,000359:                                                                                                  #  ASSUMPTIONS
020919,000360: 
020920,000361:                                                                                                  #        (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020921,000362: 
020922,000363:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
020923,000364:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
020924,000365: 
020925,000366:                                                                                                  #        (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
020926,000367:                                                                                                  #            DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
020927,000368:                                                                                                  #            WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
020928,000369:                                                                                                  #            ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
020929,000370:                                                                                                  #            RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
020930,000371:                                                                                                  #            P20 AND AFTER EACH THRUSTING MANEUVER.
020931,000372: 
020932,000373:                                                                                                  #        (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020933,000374: 
020934,000375:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020935,000376:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020936,000377:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020937,000378:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020938,000379: 
020939,000380:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020940,000381:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020941,000382: 
020942,000383:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020943,000384:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020944,000385:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020945,000386: 
020946,000387:                                                                                                  #        (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
020947,000388:                                                                                                  #            COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
020948,000389:                                                                                                  #            (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
020949,000390: 

Page 471

020951,000392:                                                                                                  #        (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
020952,000393:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020953,000394:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020954,000395:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020955,000396:                                                                                                  #            THROUGH THE USE OF V06N52.
020956,000397: 
020957,000398:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020958,000399:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
020959,000400:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020960,000401:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020961,000402:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
020962,000403: 
020963,000404:                                                                                                  #        (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020964,000405: 
020965,000406:                                                                                                  #                P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
020966,000407: 
020967,000408:                                                                                                  #                P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
020968,000409: 
020969,000410:                                                                                                  #  INPUT
020970,000411: 
020971,000412:                                                                                                  #        (1) TPASS4      TIME OF INTERCEPT - SAVED FROM P34/P74
020972,000413: 
020973,000414:                                                                                                  #  OUTPUT
020974,000415: 
020975,000416:                                                                                                  #        (1) TRKMKCNT    NUMBER OF MARKS
020976,000417:                                                                                                  #        (2) TTOGO       TIME TO GO
020977,000418:                                                                                                  #        (3) +MGA        MIDDLE GIMBAL ANGLE
020978,000419:                                                                                                  #        (4) DVLOS       DELTA VELOCITY AT MID - LINE OF SIGHT
020979,000420:                                                                                                  #        (5) DELVLVC     DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
020980,000421: 
020981,000422:                                                                                                  #  DOWNLINK
020982,000423: 
020983,000424:                                                                                                  #        (1) TIG         TIME OF THE TPM MANEUVER
020984,000425:                                                                                                  #        (2) DELVEET3    DELTA VELOCITY AT TPM - REFERENCE COORDINATES
020985,000426:                                                                                                  #        (3) TPASS4      TIME OF INTERCEPT
020986,000427: 
020987,000428:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
020988,000429: 
020989,000430:                                                                                                  #        (1) TIG         TIME OF THE TPM MANEUVER
020990,000431:                                                                                                  #        (2) RTARG       OFFSET TARGET POSITION
020991,000432:                                                                                                  #        (3) TPASS4      TIME OF INTERCEPT
020992,000433:                                                                                                  #        (4) XDELVFLG    RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020993,000434: 
020994,000435:                                                                                                  #  SUBROUTINES USED
020995,000436: 
020996,000437:                                                                                                  #        AVFLAGA
020997,000438:                                                                                                  #        AVFLAGP
020998,000439:                                                                                                  #        LOADTIME
020999,000440:                                                                                                  #        SELECTMU
021000,000441:                                                                                                  #        PRECSET
021001,000442:                                                                                                  #        S34/35.1
021002,000443:                                                                                                  #        S34/35.2

Page 472

021004,000445:                                                                                                  #        S34/35.5
021005,000446:                                                                                                  #        VN1645
021006,000447: 
021007,000448: 35,2206                                           COUNT*   $$/P3575                              
021008,000449: 35,2206  E4,1754                                  EBANK=   KT                                    
021009,000450: 
021010,000451: 35,2206           04553        P35                TC       AVFLAGA                               
021011,000452: 35,2207           00006                           EXTEND                                         
021012,000453: 35,2210           31422                           DCA      ATIGINC                               
021013,000454: 35,2211           02215                           TC       P35/P75A                              
021014,000455: 35,2212           04565        P75                TC       AVFLAGP                               
021015,000456: 35,2213           00006                           EXTEND                                         
021016,000457: 35,2214           31424                           DCA      PTIGINC                               
021017,000458: 35,2215           53755        P35/P75A           DXCH     KT                                    
021018,000459: 35,2216           04572                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
021019,000460: 35,2217           06006                           TC       INTPRET                               
021020,000461: 35,2220           77624                           CALL                                           
021021,000462: 35,2221           11217                                    SELECTMU                              
021022,000463: 35,2222           77634        P35/P75B           RTB                                            
021023,000464: 35,2223           51751                                    LOADTIME                              
021024,000465: 35,2224           03665                           STORE    TSTRT                                 
021025,000466: 35,2225           77615                           DAD                                            
021026,000467: 35,2226           02355                                    KT                                    
021027,000468: 35,2227           03413                           STORE    TIG                                   
021028,000469: 35,2230           03503                           STORE    INTIME                                #  FOR INITVEL
021029,000470: 35,2231           34041                           STCALL   TDEC1                                 
021030,000471: 35,2232           45236                                    PRECSET                               #  ADVANCE BOTH VEHICLES
021031,000472: 35,2233           77624                           CALL                                           
021032,000473: 35,2234           74000                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
021033,000474: 35,2235           77624                           CALL                                           
021034,000475: 35,2236           72561                                    S34/35.2                              #  GET DELTA V(LV)
021035,000476: 35,2237           77624                           CALL                                           
021036,000477: 35,2240           72774                                    S34/35.5                              
021037,000478: 35,2241           43014                           BOFF     SET                                   
021038,000479: 35,2242           01351                                    FINALFLG                              
021039,000480: 35,2243           72245                                    +2                                    
021040,000481: 35,2244           05067                                    P35FLAG                               
021041,000482: 35,2245           77624                           CALL                                           
021042,000483: 35,2246           73027                                    VN1645                                
021043,000484: 35,2247           77650                           GOTO                                           
021044,000485: 35,2250           72222                                    P35/P75B                              

Page 473

021046,000487:                                                                                                  #  ..... S33/34.1  .....
021047,000488: 
021048,000489: 35,2251           66220        S33/34.1           STQ      SSP                                   
021049,000490: 35,2252           01023                                    NORMEX                                
021050,000491: 35,2253           03665                                    TITER                                 
021051,000492: 35,2254           40000                           OCT      40000                                 
021052,000493: 35,2255           40345                           DLOAD    SETPD                                 
021053,000494: 35,2256           33145                                    MAX250                                
021054,000495: 35,2257           00001                                    0D                                    
021055,000496: 35,2260           27454                           STOVL    SECMAX                                
021056,000497: 35,2261           03540                                    RACT3                                 
021057,000498: 35,2262           27576                           STOVL    RAPREC                                
021058,000499: 35,2263           03546                                    VACT3                                 
021059,000500: 35,2264           27570                           STOVL    VAPREC                                
021060,000501: 35,2265           03554                                    RPASS3                                
021061,000502: 35,2266           27620                           STOVL    RPPREC                                
021062,000503: 35,2267           03562                                    VPASS3                                
021063,000504: 35,2270           03612                           STORE    VPPREC                                
021064,000505: 35,2271           77624        ELCALC             CALL                                           
021065,000506: 35,2272           74000                                    S34/35.1                              #  NORMAL AND LOS
021066,000507: 35,2273           63235                           VXV      PDVL                                  
021067,000508: 35,2274           03540                                    RACT3                                 #  (RA*VA)*RA 0D
021068,000509: 35,2275           53515                           PDVL     UNIT                                  #  ULOS AT 6D
021069,000510: 35,2276           03540                                    RACT3                                 
021070,000511: 35,2277           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
021071,000512: 35,2300           51352                           VSL2     BVSU                                  
021072,000513: 35,2301           02625                                    ULOS                                  
021073,000514: 35,2302           63256                           UNIT     PDVL                                  #  UP AT 0D
021074,000515: 35,2303           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
021075,000516: 35,2304           00001                                    0D                                    #  UP IN MPAC
021076,000517: 35,2305           75241                           DOT      SIGN                                  
021077,000518: 35,2306           02625                                    ULOS                                  
021078,000519: 35,2307           65552                           SL1      ACOS                                  
021079,000520: 35,2310           50315                           PDVL     DOT                                   #  EA AT 0D
021080,000521: 35,2311           02625                                    ULOS                                  
021081,000522: 35,2312           03540                                    RACT3                                 
021082,000523: 35,2313           71244                           BPL      DLOAD                                 
021083,000524: 35,2314           72317                                    TESTY                                 
021084,000525: 35,2315           15344                                    DPPOSMAX                              
021085,000526: 35,2316           41425                           DSU      PUSH                                  
021086,000527: 35,2317           71214        TESTY              BOFF     DLOAD                                 
021087,000528: 35,2320           03741                                    ITSWICH                               
021088,000529: 35,2321           72546                                    ELEX                                  
021089,000530: 35,2322           03452                                    DELEL                                 
021090,000531: 35,2323           14033                           STODL    DELELO                                
021091,000532: 35,2324           77625                           DSU                                            
021092,000533: 35,2325           03744                                    ELEV                                  
021093,000534: 35,2326           03452                           STORE    DELEL                                 
021094,000535: 35,2327           45246                           ABS      DSU                                   
021095,000536: 35,2330           33151                                    ELEPS                                 

Page 474

021097,000538: 35,2331           77640                           BMN                                            
021098,000539: 35,2332           72556                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
021099,000540: 35,2333           70535        FIGTIME            SLOAD    SR1                                   
021100,000541: 35,2334           03665                                    TITER                                 
021101,000542: 35,2335           72030                           BHIZ     LXA,1                                 
021102,000543: 35,2336           01023                                    NORMEX                                #  TOO MANY ITERATIONS
021103,000544: 35,2337           00154                                    MPAC                                  
021104,000545: 35,2340           77330                           SXA,1    VLOAD                                 
021105,000546: 35,2341           03664                                    TITER                                 
021106,000547: 35,2342           03554                                    RPASS3                                
021107,000548: 35,2343           65256                           UNIT     PDDL                                  
021108,000549: 35,2344           00045                                    36D                                   
021109,000550: 35,2345           53515                           PDVL     UNIT                                  
021110,000551: 35,2346           03540                                    RACT3                                 
021111,000552: 35,2347           77725                           PDDL                                           
021112,000553: 35,2350           41525                           PDDL     PUSH                                  
021113,000554: 35,2351           00045                                    36D                                   
021114,000555: 35,2352           77621                           BDSU                                           
021115,000556: 35,2353           00015                                    12D                                   
021116,000557: 35,2354           14037                           STODL    30D                                   #  RP - RA MAGNITUDES
021117,000558: 35,2355           15334                                    DPHALF                                
021118,000559: 35,2356           41425                           DSU      PUSH                                  
021119,000560: 35,2357           03744                                    ELEV                                  
021120,000561: 35,2360           50165                           SIGN     BMN                                   
021121,000562: 35,2361           00037                                    30D                                   
021122,000563: 35,2362           01023                                    NORMEX                                
021123,000564: 35,2363           71545                           DLOAD    COS                                   
021124,000565: 35,2364           56205                           DMP      DDV                                   
021125,000566: 35,2365           00017                                    14D                                   
021126,000567: 35,2366           00015                                    12D                                   
021127,000568: 35,2367           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
021128,000569: 35,2370           00035                           STORE    28D                                   
021129,000570: 35,2371           44246                           ABS      BDSU                                  
021130,000571: 35,2372           15334                                    DPHALF                                
021131,000572: 35,2373           77240                           BMN      VLOAD                                 
021132,000573: 35,2374           01023                                    NORMEX                                
021133,000574: 35,2375           02617                                    UNRM                                  
021134,000575: 35,2376           53435                           VXV      UNIT                                  
021135,000576: 35,2377           00007                                    6D                                    #  UN*RA
021136,000577: 35,2400           41241                           DOT      DMP                                   
021137,000578: 35,2401           03546                                    VACT3                                 
021138,000579: 35,2402           00015                                    12D                                   
021139,000580: 35,2403           47315                           PDVL     VXV                                   
021140,000581: 35,2404           00001                                    0D                                    
021141,000582: 35,2405           03562                                    VPASS3                                
021142,000583: 35,2406           53435                           VXV      UNIT                                  
021143,000584: 35,2407           00001                                    0D                                    #  (RP*VP)*RP
021144,000585: 35,2410           41241                           DOT      DMP                                   
021145,000586: 35,2411           03562                                    VPASS3                                
021146,000587: 35,2412           00017                                    14D                                   

Page 475

021148,000589: 35,2413           77621                           BDSU                                           
021149,000590: 35,2414           63301                           NORM     PDVL                                  #  NORMALIZED WA - WP 12D
021150,000591: 35,2415           00047                                    X1                                    
021151,000592: 35,2416           00007                                    6D                                    
021152,000593: 35,2417           50235                           VXV      DOT                                   
021153,000594: 35,2420           00001                                    0D                                    
021154,000595: 35,2421           02617                                    UNRM                                  #  RA*RP.UN 14D
021155,000596: 35,2422           50315                           PDVL     DOT                                   
021156,000597: 35,2423           00001                                    0D                                    
021157,000598: 35,2424           00007                                    6D                                    
021158,000599: 35,2425           65552                           SL1      ACOS                                  
021159,000600: 35,2426           77765                           SIGN                                           
021160,000601: 35,2427           43225                           DSU      DAD                                   #    ALPHA   PI
021161,000602: 35,2430           15334                                    DPHALF                                
021162,000603: 35,2431           03744                                    ELEV                                  
021163,000604: 35,2432           65525                           PDDL     ACOS                                  
021164,000605: 35,2433           00035                                    28D                                   
021165,000606: 35,2434           75221                           BDSU     SIGN                                  
021166,000607: 35,2435           15334                                    DPHALF                                
021167,000608: 35,2436           00037                                    30D                                   #  CONTAINS RP-RA
021168,000609: 35,2437           77615                           DAD                                            
021169,000610: 35,2440           56205                           DMP      DDV                                   
021170,000611: 35,2441           33143                                    TWOPI                                 
021171,000612: 35,2442           77605                           DMP                                            
021172,000613: 35,2443           41257                           SL*      DMP                                   
021173,000614: 35,2444           20176                                    0          -3,1                       
021174,000615: 35,2445           51406                           PUSH     ABS                                   
021175,000616: 35,2446           50025                           DSU      BMN                                   
021176,000617: 35,2447           03454                                    SECMAX                                
021177,000618: 35,2450           72454                                    OKMAX                                 
021178,000619: 35,2451           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
021179,000620: 35,2452           03454                                    SECMAX                                
021180,000621: 35,2453           77606                           PUSH                                           
021181,000622: 35,2454           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
021182,000623: 35,2455           03665                                    TITER                                 
021183,000624: 35,2456           72464                                    REPETE                                
021184,000625: 35,2457           71331                           SSP      DLOAD                                 
021185,000626: 35,2460           03665                                    TITER                                 
021186,000627: 35,2461           37777                           OCT      37777                                 
021187,000628: 35,2462           77650                           GOTO                                           
021188,000629: 35,2463           72522                                    STORDELT                              
021189,000630: 35,2464           41345        REPETE             DLOAD    DMP                                   
021190,000631: 35,2465           03452                                    DELEL                                 
021191,000632: 35,2466           00033                                    DELELO                                
021192,000633: 35,2467           71244                           BPL      DLOAD                                 
021193,000634: 35,2470           72500                                    NEXTES                                
021194,000635: 35,2471           03454                                    SECMAX                                
021195,000636: 35,2472           77605                           DMP                                            
021196,000637: 35,2473           33147                                    THIRD                                 
021197,000638: 35,2474           17454                           STODL    SECMAX                                

Page 476

021199,000640: 35,2475           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
021200,000641: 35,2476           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
021201,000642: 35,2477           72510                                    RESIGN                                
021202,000643: 35,2500           51545        NEXTES             DLOAD    ABS                                   
021203,000644: 35,2501           03452                                    DELEL                                 
021204,000645: 35,2502           51525                           PDDL     ABS                                   
021205,000646: 35,2503           00033                                    DELELO                                
021206,000647: 35,2504           77625                           DSU                                            
021207,000648: 35,2505           71240                           BMN      DLOAD                                 
021208,000649: 35,2506           72513                                    REVERS                                #  WRONG DIRECTION
021209,000650: 35,2507           77646                           ABS                                            
021210,000651: 35,2510           52165        RESIGN             SIGN     GOTO                                  
021211,000652: 35,2511           03450                                    DELTEEO                               
021212,000653: 35,2512           72522                                    STORDELT                              
021213,000654: 35,2513           57545        REVERS             DLOAD    DCOMP                                 
021214,000655: 35,2514           03450                                    DELTEEO                               
021215,000656: 35,2515           70406                           PUSH     SR1                                   
021216,000657: 35,2516           03450                           STORE    DELTEEO                               
021217,000658: 35,2517           77615                           DAD                                            
021218,000659: 35,2520           77650                           GOTO                                           
021219,000660: 35,2521           72523                                    ADTIME                                
021220,000661: 35,2522           03450        STORDELT           STORE    DELTEEO                               
021221,000662: 35,2523           77615        ADTIME             DAD                                            
021222,000663: 35,2524           02355                                    NOMTPI                                #  SUM OF DELTA T:S
021223,000664: 35,2525           02355                           STORE    NOMTPI                                
021224,000665: 35,2526           63375                           VLOAD    PDVL                                  
021225,000666: 35,2527           03570                                    VAPREC                                
021226,000667: 35,2530           03576                                    RAPREC                                
021227,000668: 35,2531           77624                           CALL                                           
021228,000669: 35,2532           72734                                    GOINT                                 
021229,000670: 35,2533           77624                           CALL                                           
021230,000671: 35,2534           45304                                    ACTIVE                                #  STORE NEW RACT3 VACT3
021231,000672: 35,2535           63375                           VLOAD    PDVL                                  
021232,000673: 35,2536           03612                                    VPPREC                                
021233,000674: 35,2537           03620                                    RPPREC                                
021234,000675: 35,2540           77624                           CALL                                           
021235,000676: 35,2541           72734                                    GOINT                                 
021236,000677: 35,2542           77624                           CALL                                           
021237,000678: 35,2543           45314                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
021238,000679: 35,2544           77650                           GOTO                                           
021239,000680: 35,2545           72271                                    ELCALC                                
021240,000681: 35,2546           43345        ELEX               DLOAD    DAD                                   
021241,000682: 35,2547           03663                                    TTPI                                  
021242,000683: 35,2550           02355                                    NOMTPI                                
021243,000684: 35,2551           17663                           STODL    TTPI                                  
021244,000685: 35,2552           77614                           BON                                            
021245,000686: 35,2553           01310                                    ETPIFLAG                              
021246,000687: 35,2554           72556                                    TIMEX                                 
021247,000688: 35,2555           03744                           STORE    ELEV                                  
021248,000689: 35,2556           52145        TIMEX              DLOAD    GOTO                                  

Page 477

021250,000691: 35,2557           15336                                    ZEROVECS                              
021251,000692: 35,2560           01023                                    NORMEX                                
021252,000693: 

Page 478

021254,000695:                                                                                                  #  ..... S34/35.1  .....
021255,000696: 
021256,000697:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
021257,000698:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
021258,000699: 
021259,000700: 36,2000                                           SETLOC   S3435LOC                              
021260,000701: 36,2000                                           BANK                                           
021261,000702: 
021262,000703: 36,2000                                           COUNT*   $$/P3474                              
021263,000704: 36,2000           52375        S34/35.1           VLOAD    VSU                                   
021264,000705: 36,2001           03554                                    RPASS3                                
021265,000706: 36,2002           03540                                    RACT3                                 
021266,000707: 36,2003           41456                           UNIT     PUSH                                  
021267,000708: 36,2004           26625                           STOVL    ULOS                                  
021268,000709: 36,2005           03540                                    RACT3                                 
021269,000710: 36,2006           53435                           VXV      UNIT                                  
021270,000711: 36,2007           03546                                    VACT3                                 
021271,000712: 36,2010           02617                           STORE    UNRM                                  
021272,000713: 36,2011           77616                           RVQ                                            
021273,000714: 

Page 479

021275,000716:                                                                                                  #  ..... S34/35.2  .....
021276,000717: 
021277,000718:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
021278,000719: 
021279,000720: 35,2000                                           SETLOC   CSI/CDH                               
021280,000721: 35,2000                                           BANK                                           
021281,000722: 
021282,000723: 35,2561                                           COUNT*   $$/P3474                              
021283,000724: 35,2561           77220        S34/35.2           STQ      VLOAD                                 
021284,000725: 35,2562           02360                                    SUBEXIT                               
021285,000726: 35,2563           03562                                    VPASS3                                
021286,000727: 35,2564           65315                           PDVL     PDDL                                  
021287,000728: 35,2565           03554                                    RPASS3                                
021288,000729: 35,2566           03503                                    INTIME                                
021289,000730: 35,2567           65325                           PDDL     PDDL                                  
021290,000731: 35,2570           03656                                    TPASS4                                
021291,000732: 35,2571           33143                                    TWOPI                                 #  CONIC
021292,000733: 35,2572           46125                           PDDL     BHIZ                                  
021293,000734: 35,2573           03766                                    NN                                    
021294,000735: 35,2574           72577                                    S3435.23                              
021295,000736: 35,2575           65345                           DLOAD    PDDL                                  
021296,000737: 35,2576           15336                                    ZEROVECS                              #  PRECISION
021297,000738: 35,2577           77624        S3435.23           CALL                                           
021298,000739: 35,2600           72740                                    INTINT                                #  GET TARGET VECTOR
021299,000740: 35,2601           27415        S3435.25           STOVL    RTARG                                 
021300,000741: 35,2602           00007                                    VATT                                  
021301,000742: 35,2603           27640                           STOVL    VPASS4                                
021302,000743: 35,2604           03415                                    RTARG                                 
021303,000744:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP)-PI)SIGN(RA*RP.U)
021304,000745: 35,2605           63256                           UNIT     PDVL                                  #  UNIT RP
021305,000746: 35,2606           03540                                    RACT3                                 
021306,000747: 35,2607           41456                           UNIT     PUSH                                  #  UNIT RA
021307,000748: 35,2610           50235                           VXV      DOT                                   
021308,000749: 35,2611           00001                                    0D                                    
021309,000750: 35,2612           02617                                    UNRM                                  #  RA*RP.U
021310,000751: 35,2613           77715                           PDVL                                           
021311,000752: 35,2614           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
021312,000753: 35,2615           00001                                    0D                                    
021313,000754: 35,2616           75326                           ACOS     SIGN                                  
021314,000755: 35,2617           43244                           BPL      DAD                                   
021315,000756: 35,2620           72622                                    NOPIE                                 
021316,000757: 35,2621           15344                                    DPPOSMAX                              #  REASONABLE TWO PI
021317,000758: 35,2622           16633        NOPIE              STODL    ACTCENT                               
021318,000759: 35,2623           03656                                    TPASS4                                
021319,000760: 35,2624           77625                           DSU                                            
021320,000761: 35,2625           03503                                    INTIME                                
021321,000762: 35,2626           03423                           STORE    DELLT4                                
021322,000763: 35,2627           40335                           SLOAD    SETPD                                 
021323,000764: 35,2630           03766                                    NN                                    #  NUMBER OF OFFSETS
021324,000765: 35,2631           00001                                    0D                                    
021325,000766: 35,2632           63325                           PDDL     PDVL                                  

Page 480

021327,000768: 35,2633           33156                                    EPSFOUR                               
021328,000769: 35,2634           03540                                    RACT3                                 
021329,000770: 35,2635           27570                           STOVL    RINIT                                 
021330,000771: 35,2636           03546                                    VACT3                                 
021331,000772: 35,2637           37576                           STCALL   VINIT                                 
021332,000773: 35,2640           22000                                    INITVEL                               
021333,000774: 35,2641           77624                           CALL                                           
021334,000775: 35,2642           72721                                    LOMAT                                 
021335,000776: 35,2643           64375                           VLOAD    MXV                                   
021336,000777: 35,2644           03646                                    DELVEET3                              
021337,000778: 35,2645           00001                                    0D                                    
021338,000779: 35,2646           77772                           VSL1                                           
021339,000780: 35,2647           37405                           STCALL   DELVLVC                               
021340,000781: 35,2650           02360                                    SUBEXIT                               
021341,000782: 

Page 481

021343,000784:                                                                                                  #  ..... S34/35.3  .....
021344,000785: 
021345,000786: 35,2651           45020        S34/35.3           STQ      CALL                                  
021346,000787: 35,2652           01023                                    NORMEX                                
021347,000788: 35,2653           72721                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
021348,000789: 35,2654           61375                           VLOAD    VXM                                   
021349,000790: 35,2655           03405                                    DELVLVC                               #  NEW DEL V TPI
021350,000791: 35,2656           00001                                    0D                                    
021351,000792: 35,2657           77772                           VSL1                                           
021352,000793: 35,2660           03646                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
021353,000794: 35,2661           63255                           VAD      PDVL                                  
021354,000795: 35,2662           03546                                    VACT3                                 #  NEW V REQ
021355,000796: 35,2663           03540                                    RACT3                                 
021356,000797: 35,2664           65325                           PDDL     PDDL                                  
021357,000798: 35,2665           03413                                    TIG                                   
021358,000799: 35,2666           03656                                    TPASS4                                
021359,000800: 35,2667           41525                           PDDL     PUSH                                  
021360,000801: 35,2670           15344                                    DPPOSMAX                              
021361,000802: 35,2671           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
021362,000803: 35,2672           72740                                    INTINT                                
021363,000804: 35,2673           77775                           VLOAD                                          
021364,000805: 35,2674           00001                                    RATT                                  
021365,000806: 35,2675           03415                           STORE    RTARG                                 
021366,000807: 35,2676           41575        NOVRWRT            VLOAD    PUSH                                  
021367,000808: 35,2677           02625                                    ULOS                                  
021368,000809: 35,2700           57435                           VXV      VCOMP                                 
021369,000810: 35,2701           02617                                    UNRM                                  
021370,000811: 35,2702           41456                           UNIT     PUSH                                  
021371,000812: 35,2703           76435                           VXV      VSL1                                  
021372,000813: 35,2704           02625                                    ULOS                                  
021373,000814: 35,2705           77715                           PDVL                                           
021374,000815: 35,2706           64315                           PDVL     MXV                                   
021375,000816: 35,2707           03646                                    DELVEET3                              
021376,000817: 35,2710           00001                                    0D                                    
021377,000818: 35,2711           77772                           VSL1                                           
021378,000819: 35,2712           36611                           STCALL   DVLOS                                 
021379,000820: 35,2713           01023                                    NORMEX                                
021380,000821: 

Page 482

021382,000823:                                                                                                  #  ..... S34/35.4  .....
021383,000824: 
021384,000825: 35,2714           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
021385,000826: 35,2715           01023                                    NORMEX                                
021386,000827: 35,2716           00001                                    0D                                    
021387,000828: 35,2717           77650                           GOTO                                           
021388,000829: 35,2720           72676                                    NOVRWRT                               
021389,000830: 

Page 483

021391,000832:                                                                                                  #  ..... LOMAT     .....
021392,000833: 
021393,000834: 35,2721           57575        LOMAT              VLOAD    VCOMP                                 
021394,000835: 35,2722           02617                                    UNRM                                  
021395,000836: 35,2723           24007                           STOVL    6D                                    #  Y
021396,000837: 35,2724           03540                                    RACT3                                 
021397,000838: 35,2725           57456                           UNIT     VCOMP                                 
021398,000839: 35,2726           00015                           STORE    12D                                   
021399,000840: 35,2727           76435                           VXV      VSL1                                  
021400,000841: 35,2730           02617                                    UNRM                                  #  Z*-Y
021401,000842: 35,2731           00001                           STORE    0D                                    
021402,000843: 35,2732           43401                           SETPD    RVQ                                   
021403,000844: 35,2733           00023                                    18D                                   
021404,000845: 35,2734           65325        GOINT              PDDL     PDDL                                  #  DO
021405,000846: 35,2735           15336                                    ZEROVECS                              #    NOT
021406,000847: 35,2736           02355                                    NOMTPI                                
021407,000848: 35,2737           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
021408,000849: 35,2740           45020        INTINT             STQ      CALL                                  
021409,000850: 35,2741           02357                                    RTRN                                  
021410,000851: 35,2742           27516                                    INTSTALL                              
021411,000852: 35,2743           71214                           CLEAR    DLOAD                                 
021412,000853: 35,2744           01673                                    INTYPFLG                              
021413,000854: 35,2745           43054                           BZE      SET                                   
021414,000855: 35,2746           72750                                    +2                                    
021415,000856: 35,2747           01473                                    INTYPFLG                              
021416,000857: 35,2750           45545                           DLOAD    STADR                                 
021417,000858: 35,2751           63736                           STODL    TDEC1                                 
021418,000859: 35,2752           73014                           SET      LXA,2                                 
021419,000860: 35,2753           00063                                    MOONFLAG                              
021420,000861: 35,2754           03746                                    RTX2                                  
021421,000862: 35,2755           43014                           BON      CLEAR                                 
021422,000863: 35,2756           04303                                    CMOONFLG                              
021423,000864: 35,2757           72761                                    ALLSET                                
021424,000865: 35,2760           00263                                    MOONFLAG                              
021425,000866: 35,2761           25517        ALLSET             STOVL    TET                                   
021426,000867: 35,2762           77657                           VSR*                                           
021427,000868: 35,2763           57176                                    0,2                                   
021428,000869: 35,2764           25535                           STOVL    RCV                                   
021429,000870: 35,2765           77657                           VSR*                                           
021430,000871: 35,2766           57176                                    0,2                                   
021431,000872: 35,2767           35543                           STCALL   VCV                                   
021432,000873: 35,2770           27211                                    INTEGRVS                              
021433,000874: 35,2771           52175                           VLOAD    GOTO                                  
021434,000875: 35,2772           00001                                    RATT                                  
021435,000876: 35,2773           02357                                    RTRN                                  
021436,000877: 

Page 484

021438,000879:                                                                                                  #  ..... S34/35.5  .....
021439,000880: 
021440,000881:                                                                                                  #  SUBROUTINES USED
021441,000882: 
021442,000883:                                                                                                  #        BANKCALL
021443,000884:                                                                                                  #        GOFLASH
021444,000885:                                                                                                  #        GOTOPOOH
021445,000886:                                                                                                  #        S34/35.3
021446,000887:                                                                                                  #        S34/35.4
021447,000888:                                                                                                  #        VNPOOH
021448,000889: 
021449,000890: 35,2774           43020        S34/35.5           STQ      BON                                   
021450,000891: 35,2775           02360                                    SUBEXIT                               
021451,000892: 35,2776           01311                                    FINALFLG                              
021452,000893: 35,2777           73003                                    FLAGON                                
021453,000894: 35,3000           52014                           SET      GOTO                                  
021454,000895: 35,3001           00470                                    UPDATFLG                              
021455,000896: 35,3002           73005                                    FLAGON     +2                         
021456,000897: 35,3003           77614        FLAGON             SET                                            
021457,000898: 35,3004           05074                                    TPIMNFLG                              #  INDICATE TPI MANEUVER DONE
021458,000899: 35,3005           77775                 +2        VLOAD                                          
021459,000900: 35,3006           03405                                    DELVLVC                               
021460,000901: 35,3007           03620                           STORE    VTPRIME                               #  SAVE DELTA V BEFORE DISPLAY
021461,000902: 35,3010           77776                           EXIT                                           
021462,000903: 35,3011           34535                           CAF      V06N81                                
021463,000904: 35,3012           05535                           TC       VNFLASH                               
021464,000905: 35,3013           06006                           TC       INTPRET                               
021465,000906: 35,3014           52375                           VLOAD    VSU                                   #  TEST FOR OVERWRITE OF COMPUTED
021466,000907: 35,3015           03405                                    DELVLVC                               #                       DELTA V
021467,000908: 35,3016           03620                                    VTPRIME                               
021468,000909: 35,3017           53046                           ABVAL    BZE                                   
021469,000910: 35,3020           73023                                    FLAGOFF                               
021470,000911: 35,3021           77624                           CALL                                           
021471,000912: 35,3022           72651                                    S34/35.3                              #  COMPUTE NEW TARGET VECTOR
021472,000913:                                                                                                  #  TRANSFER OF DELVEET3 TO DELVSIN OUT...THEY SHARE SAME ERASABLE.
021473,000914: 35,3023           77624        FLAGOFF            CALL                                           
021474,000915: 35,3024           72714                                    S34/35.4                              
021475,000916: 35,3025           77650        FLAGEND            GOTO                                           
021476,000917: 35,3026           02360                                    SUBEXIT                               
021477,000918: 

Page 485

021479,000920:                                                                                                  #  ..... VN1645    .....
021480,000921: 
021481,000922:                                                                                                  #  SUBROUTINES USED
021482,000923: 
021483,000924:                                                                                                  #        P3XORP7X
021484,000925:                                                                                                  #        GET+MGA
021485,000926:                                                                                                  #        BANKCALL
021486,000927:                                                                                                  #        DELAYJOB
021487,000928:                                                                                                  #        COMPTGO
021488,000929:                                                                                                  #        GOFLASHR
021489,000930:                                                                                                  #        GOTOPOOH
021490,000931:                                                                                                  #        FLAGUP
021491,000932: 
021492,000933: 35,3027           71220        VN1645             STQ      DLOAD                                 
021493,000934: 35,3030           02360                                    SUBEXIT                               
021494,000935: 35,3031           33154                                    DP-.01                                
021495,000936: 35,3032           03626                           STORE    +MGA                                  #  MGA = -.01
021496,000937: 35,3033           71214                           BOFF     DLOAD                                 
021497,000938: 35,3034           01351                                    FINALFLG                              
021498,000939: 35,3035           73055                                    GET45                                 
021499,000940: 35,3036           33154                                    DP-.01                                
021500,000941: 35,3037           77615                           DAD                                            
021501,000942: 35,3040           33154                                    DP-.01                                
021502,000943: 35,3041           03626                           STORE    +MGA                                  #  MGA = -.02
021503,000944: 35,3042           77414                           BOFF     EXIT                                  
021504,000945: 35,3043           01742                                    REFSMFLG                              
021505,000946: 35,3044           73055                                    GET45                                 
021506,000947: 35,3045           03137                           TC       P3XORP7X                              
021507,000948: 35,3046           03050                           TC       +2                                    #  P3X
021508,000949: 35,3047           03056                           TC       GET45      +1                         #  P7X
021509,000950: 35,3050           06006                           TC       INTPRET                               
021510,000951: 35,3051           41575                           VLOAD    PUSH                                  
021511,000952: 35,3052           03646                                    DELVSIN                               
021512,000953: 35,3053           77624                           CALL                                           #  COMPUTE MGA
021513,000954: 35,3054           56444                                    GET+MGA                               
021514,000955: 35,3055           77776        GET45              EXIT                                           
021515,000956: 35,3056           03525                 +1        TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
021516,000957: 35,3057           31760                           CA       SUBEXIT                               
021517,000958: 35,3060           55756                           TS       QSAVED                                
021518,000959: 35,3061           04636                           TC       BANKCALL                              
021519,000960: 35,3062           01730                           CADR     1SECDELY                              
021520,000961: 35,3063           34536                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
021521,000962: 35,3064           04636                           TC       BANKCALL                              
021522,000963: 35,3065           20743                           CADR     GOFLASH                               
021523,000964: 35,3066           04103                           TC       GOTOPOOH                              #  TERMINATE
021524,000965: 35,3067           03071                           TC       N45PROC                               #  PROCEED
021525,000966: 35,3070           03101                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
021526,000967: 35,3071           40076        N45PROC            CS       FLAGWRD2                              
021527,000968: 35,3072           74763                           MASK     FINALBIT                              
021528,000969: 35,3073           00006                           EXTEND                                         

Page 486

021530,000971: 35,3074           13113                           BZF      N45ENAJ                               #  FINAL FLAG SET - FINAL PASS
021531,000972: 35,3075           05402        N45NORM            TC       PHASCHNG                              
021532,000973: 35,3076           04024                           OCT      04024                                 
021533,000974: 35,3077           05547                           TC       UPFLAG                                #  SET
021534,000975: 35,3100           00047                           ADRES    FINALFLG                              #  FINALFLG
021535,000976: 35,3101           05561        CLUPDATE           TC       DOWNFLAG                              
021536,000977: 35,3102           00155                           ADRES    TIMRFLAG                              #  TERMINATE CLOKTASK
021537,000978: 35,3103           33136                           CAF      VN1645AD                              #  CHANGE BACK TO 4.1 FOR
021538,000979: 35,3104           54373                           TS       TEMPFLSH                              #  FUTURE DISPLAYS
021539,000980: 35,3105           05402                           TC       PHASCHNG                              
021540,000981: 35,3106           00014                           OCT      14                                    
021541,000982: 
021542,000983: 35,3107           06006        VN1645R            TC       INTPRET                               
021543,000984: 35,3110           52014                           CLEAR    GOTO                                  
021544,000985: 35,3111           00670                                    UPDATFLG                              
021545,000986: 35,3112           02356                 +3                 QSAVED                                
021546,000987: 35,3113           05402        N45ENAJ            TC       PHASCHNG                              #  PROTECT MANEVFLG, WRENDPOS
021547,000988: 35,3114           04024                           OCT      04024                                 
021548,000989: 35,3115           06006                           TC       INTPRET                               
021549,000990: 35,3116           77745                           DLOAD                                          
021550,000991: 35,3117           03413                                    TIG                                   
021551,000992: 35,3120           03450                           STORE    NOMTIG                                
021552,000993: 35,3121           43014                           BON      SET                                   
021553,000994: 35,3122           05316                                    PCFLAG                                
021554,000995: 35,3123           73125                                    CHGRMS                                
021555,000996: 35,3124           05072                                    MANEUFLG                              #  DONT SET FLAG IF PC MANEUVER
021556,000997: 35,3125           71214        CHGRMS             BOFF     DLOAD                                 
021557,000998: 35,3126           05350                                    AUTOSEQ                               
021558,000999: 35,3127           73132                                    SAMERMS                               
021559,001000: 35,3130           33135                                    POSVEL2                               #  CHANGE RMS ONLY IN MINKEY
021560,001001: 35,3131           02001                           STORE    WRENDPOS                              
021561,001002: 35,3132           77776        SAMERMS            EXIT                                           
021562,001003: 35,3133           14105                           TCF      MNKGOPOO                              
021563,001004: 35,3134           00023        POSVEL2            DEC      608        B-19                       #  2000 FT IN METERS
021564,001005: 35,3135           00144        POSVEL3            DEC      .00608                                #  2 FT/SEC IN M/CS
021565,001006: 35,3136           73112        VN1645AD           CADR     VN1645R    +3                         
021566,001007: 

Page 487

021568,001009:                                                                                                  #  ..... P3XORP7X  .....
021569,001010: 
021570,001011: 35,3137           37677        P3XORP7X           CAF      HIGH9                                 
021571,001012: 35,3140           71214                           MASK     MODREG                                
021572,001013: 35,3141           15651                           TCF      INCRQCK                               
021573,001014:    4000                                           SETLOC   P30SUBS                               
021574,001015:    4000                                           BANK                                           
021575,001016: 
021576,001017:    4532                                           COUNT*   $$/P3474                              
021577,001018: 

Page 488

021579,001020:                                                                                                  #  ..... CONSTANTS .....
021580,001021: 
021581,001022:    4532           01445        V06N37             VN       0637                                  
021582,001023:    4533           01467        V06N55             VN       0655                                  
021583,001024:    4534           01472        V06N58             VN       0658                                  
021584,001025:    4535           01521        V06N81             VN       0681                                  
021585,001026:    4536           04055        V16N45             VN       1645                                  
021586,001027:    4537           01006        V04N06             VN       0406                                  
021587,001028: 
021588,001029: 35,2000                                           SETLOC   CSI/CDH                               
021589,001030: 35,2000                                           BANK                                           
021590,001031: 
021591,001032: 35,3142                                           COUNT*   $$/P3474                              
021592,001033: 35,3142           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
021593,001034: 35,3144           00001 20650  MAX250             2DEC     25         E3                         
021594,001035: 35,3146           12525 12525  THIRD              2DEC     .333333333                            
021595,001036: 35,3150           00004 21505  ELEPS              2DEC     .27777777  E-3                        
021596,001037: 35,3152           00002        DECTWO             DEC      2          B-14                       
021597,001038: 35,3153           77777        DP-.01             OCT      77777                                 #  CONSTANTS
021598,001039: 35,3154           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
021599,001040: 35,3155           01252 25253  EPSFOUR            2DEC     .0416666666                            
021600,001041: 35,3157           01473        V06N59             VN       0659                                  
021601,001042: 

Page 489

021603,001044:                                                                                                  #  ..... INITVEL .....
021604,001045: 
021605,001046:                                                                                                  #  MOD NO -1             LOG SECTION - P34-P35, P74-P75
021606,001047:                                                                                                  #  MOD BY WHITE.P        DATE  21NOV67
021607,001048: 
021608,001049:                                                                                                  #  FUNCTIONAL DESCRIPTION
021609,001050: 
021610,001051:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
021611,001052:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
021612,001053:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
021613,001054:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
021614,001055:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
021615,001056:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
021616,001057:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
021617,001058:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
021618,001059:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
021619,001060:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
021620,001061: 
021621,001062:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
021622,001063:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
021623,001064:                                                                                                  #        SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
021624,001065:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
021625,001066:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
021626,001067:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
021627,001068:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
021628,001069:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
021629,001070: 
021630,001071:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
021631,001072:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
021632,001073:                                                                                                  #        TRAJECTORY COMPUTATIONS.
021633,001074: 
021634,001075:                                                                                                  #  CALLING SEQUENCE
021635,001076: 
021636,001077:                                                                                                  #        L       CALL
021637,001078:                                                                                                  #        L+1             INITVEL
021638,001079:                                                                                                  #        L+2     (RETURN - ALWAYS)
021639,001080: 
021640,001081:                                                                                                  #  INPUT
021641,001082: 
021642,001083:                                                                                                  #        (1) RINIT       INITIAL POSITION RADIUS VECTOR
021643,001084:                                                                                                  #        (2) VINIT       INITIAL POSITION VELOCITY VECTOR
021644,001085:                                                                                                  #        (3) RTARG       TARGET POSITION RADIUS VECTOR
021645,001086:                                                                                                  #        (4) DELLT4      DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
021646,001087:                                                                                                  #        (5) INTIME      TIME OF RINIT
021647,001088:                                                                                                  #        (6) 0D          NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
021648,001089:                                                                                                  #        (7) 2D          ANGLE TO 180 DEGREES WHEN ROTATION STARTS
021649,001090:                                                                                                  #        (8) RTX1        -2 FOR EARTH, -10D FOR LUNAR
021650,001091:                                                                                                  #        (9) RTX2        COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
021651,001092:                                                                                                  #        PUSHLOC SET AT 4D
021652,001093: 

Page 490

021654,001095:                                                                                                  #  OUTPUT
021655,001096: 
021656,001097:                                                                                                  #        (1) RTARG       OFFSET TARGET POSITION VECTOR
021657,001098:                                                                                                  #        (2) VIPRIME     MANEUVER VELOCITY REQUIRED
021658,001099:                                                                                                  #        (3) VTPRIME     VELOCITY AT TARGET AFTER MANEUVER
021659,001100:                                                                                                  #        (4) DELVEET3    DELTA VELOCITY REQUIRED FOR MANEUVER
021660,001101: 
021661,001102:                                                                                                  #  SUBROUTINES USED
021662,001103: 
021663,001104:                                                                                                  #        LAMBERT
021664,001105:                                                                                                  #        INTSTALL
021665,001106:                                                                                                  #        INTEGRVS
021666,001107: 
021667,001108: 11,2000                                           SETLOC   INTVEL                                
021668,001109: 11,2000                                           BANK                                           
021669,001110: 
021670,001111: 11,2000                                           COUNT*   $$/INITV                              
021671,001112: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
021672,001113: 11,2001           00475                                    GUESSW                                
021673,001114: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
021674,001115: 11,2003           03415                                    RTARG                                 
021675,001116: 11,2004           01023                                    NORMEX                                
021676,001117: 11,2005           03604                           STORE    RTARG1                                
021677,001118: 11,2006           46135                           SLOAD    BHIZ                                  
021678,001119: 11,2007           03747                                    RTX2                                  
021679,001120: 11,2010           22022                                    INITVEL1                              
021680,001121: 11,2011           72575                           VLOAD    VSL2                                  
021681,001122: 11,2012           03570                                    RINIT                                 #  B29
021682,001123: 11,2013           27570                           STOVL    RINIT                                 #  B27
021683,001124: 11,2014           03576                                    VINIT                                 #  B7
021684,001125: 11,2015           77752                           VSL2                                           
021685,001126: 11,2016           27576                           STOVL    VINIT                                 #  B5
021686,001127: 11,2017           03604                                    RTARG1                                
021687,001128: 11,2020           77752                           VSL2                                           
021688,001129: 11,2021           03604                           STORE    RTARG1                                
021689,001130: 
021690,001131:                                                                                                  #  INITIALIZATION
021691,001132: 
021692,001133: 11,2022           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4(PL 2D)
021693,001134: 11,2023           03505                                    ITCTR                                 
021694,001135: 11,2024           77776                                    0          -1                         
021695,001136: 11,2025           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
021696,001137: 11,2026           17630                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4)         (PL 0D)
021697,001138: 11,2027           67154                           LXA,2    SXA,2                                 
021698,001139: 11,2030           00154                                    MPAC                                  
021699,001140: 11,2031           02703                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
021700,001141: 11,2032           77775                           VLOAD                                          
021701,001142: 11,2033           03570                                    RINIT                                 
021702,001143: 11,2034           26657                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
021703,001144: 11,2035           03604                                    RTARG1                                
021704,001145: 11,2036           16665                           STODL    R2VEC                                 #  R2VEC EQ RTARG

Page 491

021706,001147: 11,2037           03423                                    DELLT4                                
021707,001148: 11,2040           02673                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
021708,001149: 11,2041           77201                           SETPD    VLOAD                                 
021709,001150: 11,2042           00001                                    0D                                    #  INITIALIZE PL TO 0D
021710,001151: 11,2043           03570                                    RINIT                                 #  MPAC EQ RINIT (+29)
021711,001152: 11,2044           41456                           UNIT     PUSH                                  #  UNIT(RI)  (+1)                   (PL 6D)
021712,001153: 11,2045           53435                           VXV      UNIT                                  
021713,001154: 11,2046           03576                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI   (+8)
021714,001155: 11,2047           26676                           STOVL    UN                                    
021715,001156: 11,2050           03604                                    RTARG1                                
021716,001157: 11,2051           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)                (PL 0D)
021717,001158: 11,2052           43015                           DAD      CLEAR                                 
021718,001159: 11,2053           03630                                    COZY4                                 
021719,001160: 11,2054           03665                                    NORMSW                                
021720,001161: 11,2055           03630                           STORE    COZY4                                 
021721,001162: 11,2056           43044        INITVEL2           BPL      SET                                   
021722,001163: 11,2057           22101                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
021723,001164: 11,2060           03465                                    NORMSW                                
021724,001165: 
021725,001166:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
021726,001167: 
021727,001168: 11,2061           41575                           VLOAD    PUSH                                  #                                   (PL 6D)
021728,001169: 11,2062           02665                                    R2VEC                                 #  RC TO 6D (+29)
021729,001170: 11,2063           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
021730,001171: 11,2064           46206                           PUSH     VPROJ                                 #                                   (PL 8D)
021731,001172: 11,2065           02676                                    UN                                    
021732,001173: 11,2066           51352                           VSL2     BVSU                                  
021733,001174: 11,2067           74256                           UNIT     VXSC                                  #                                   (PL 0D)
021734,001175: 11,2070           77772                           VSL1                                           
021735,001176: 11,2071           02665                           STORE    R2VEC                                 
021736,001177: 11,2072           67351                           TLOAD    SLOAD                                 
021737,001178: 11,2073           11762                                    ZEROVEC                               
021738,001179: 11,2074           03505                                    ITCTR                                 
021739,001180: 11,2075           77244                           BPL      VLOAD                                 
021740,001181: 11,2076           22101                                    INITVEL3                              
021741,001182: 11,2077           02665                                    R2VEC                                 
021742,001183: 11,2100           03604                           STORE    RTARG1                                
021743,001184: 11,2101           63345        INITVEL3           DLOAD    PDVL                                  #                                   (PL 2D)
021744,001185: 11,2102           27740                                    MUEARTH                               #  POSITIVE VALUE
021745,001186: 11,2103           02665                                    R2VEC                                 
021746,001187: 11,2104           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)                 (PL 8D)
021747,001188: 11,2105           02657                                    R1VEC                                 
021748,001189: 11,2106           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)                 (PL14D)
021749,001190: 11,2107           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
021750,001191: 11,2110           00003                                    2D                                    
021751,001192: 11,2111           77606                           PUSH                                           #                                   (PL20D)
021752,001193: 11,2112           71350                           LXA,1    DLOAD                                 
021753,001194: 11,2113           03745                                    RTX1                                  
021754,001195: 11,2114           00023                                    18D                                   
021755,001196: 11,2115           62040                           BMN      INCR,1                                
021756,001197: 11,2116           22120                                    +2                                    

Page 492

021758,001199: 11,2117           77767                           DEC      -8         B-14                       
021759,001200: 11,2120           67310                           INCR,1   SLOAD                                 
021760,001201: 11,2121           00012                                    10D                                   
021761,001202: 11,2122           00047                                    X1                                    
021762,001203: 11,2123           77230                           BHIZ     VLOAD                                 #                                   (PL14D)
021763,001204: 11,2124           22126                                    +2                                    
021764,001205: 11,2125           41476                           VCOMP    PUSH                                  #                                   (PL20D)
021765,001206: 11,2126           77775                           VLOAD                                          #                                   (PL14D)
021766,001207: 11,2127           50235                           VXV      DOT                                   #                                   (PL 2D)
021767,001208: 11,2130           71244                           BPL      DLOAD                                 #                                   (PL 0D)
021768,001209: 11,2131           22133                                    INITVEL4                              
021769,001210: 11,2132           41476                           DCOMP    PUSH                                  #                                   (PL 2D)
021770,001211: 11,2133           67154        INITVEL4           LXA,2    SXA,2                                 
021771,001212: 11,2134           00000                                    0D                                    
021772,001213: 11,2135           02674                                    GEOMSGN                               
021773,001214: 
021774,001215:                                                                                                  #  SET INPUTS UP FOR LAMBERT
021775,001216: 
021776,001217: 11,2136           45150                           LXA,1    CALL                                  
021777,001218: 11,2137           03745                                    RTX1                                  
021778,001219: 
021779,001220:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
021780,001221: 
021781,001222: 11,2140           25255                                    LAMBERT                               
021782,001223: 
021783,001224: 11,2141           77214                           CLEAR    VLOAD                                 
021784,001225: 11,2142           00675                                    GUESSW                                
021785,001226: 11,2143           02746                                    VVEC                                  
021786,001227: 
021787,001228:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
021788,001229: 
021789,001230: 11,2144           17612                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
021790,001231: 
021791,001232:                                                                                                  #  IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
021792,001233:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
021793,001234: 
021794,001235: 11,2145           02704                                    VTARGTAG                              
021795,001236: 11,2146           45030                           BHIZ     CALL                                  
021796,001237: 11,2147           34003                                    INITVEL7                              
021797,001238: 11,2150           27516                                    INTSTALL                              
021798,001239: 11,2151           43135                           SLOAD    CLEAR                                 
021799,001240: 11,2152           03747                                    RTX2                                  
021800,001241: 11,2153           00263                                    MOONFLAG                              
021801,001242: 11,2154           43030                           BHIZ     SET                                   
021802,001243: 11,2155           22157                                    INITVEL5                              
021803,001244: 11,2156           00063                                    MOONFLAG                              
021804,001245: 11,2157           77775        INITVEL5           VLOAD                                          
021805,001246: 11,2160           03570                                    RINIT                                 
021806,001247: 11,2161           02657                           STORE    R1VEC                                 
021807,001248: 11,2162           25535                           STOVL    RCV                                   
021808,001249: 11,2163           03612                                    VIPRIME                               
021809,001250: 11,2164           15543                           STODL    VCV                                   
021810,001251: 11,2165           03503                                    INTIME                                

Page 493

021812,001253: 11,2166           01517                           STORE    TET                                   
021813,001254: 11,2167           43015                           DAD      CLEAR                                 
021814,001255: 11,2170           03423                                    DELLT4                                
021815,001256: 11,2171           01673                                    INTYPFLG                              
021816,001257: 11,2172           34041                           STCALL   TDEC1                                 
021817,001258: 11,2173           27211                                    INTEGRVS                              
021818,001259: 11,2174           77775                           VLOAD                                          
021819,001260: 11,2175           00025                                    VATT1                                 
021820,001261: 11,2176           02705                           STORE    VTARGET                               
021821,001262: 
021822,001263:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
021823,001264:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
021824,001265: 
021825,001266: 11,2177           63154                           LXA,2    INCR,2                                
021826,001267: 11,2200           03504                                    ITCTR                                 
021827,001268: 11,2201           00001                                    1D                                    #  INCREMENT ITCTR
021828,001269: 11,2202           55134                           SXA,2    XSU,2                                 
021829,001270: 11,2203           03504                                    ITCTR                                 
021830,001271: 11,2204           02703                                    VTARGTAG                              
021831,001272: 11,2205           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
021832,001273: 11,2206           00050                                    X2                                    
021833,001274: 11,2207           34000                                    INITVEL6                              
021834,001275: 
021835,001276:                                                                                                  #  OFFSET CONIC TARGET VECTOR
021836,001277: 
021837,001278: 11,2210           52375                           VLOAD    VSU                                   
021838,001279: 11,2211           03604                                    RTARG1                                
021839,001280: 11,2212           00017                                    RATT1                                 
021840,001281: 11,2213           77655                           VAD                                            
021841,001282: 11,2214           02665                                    R2VEC                                 
021842,001283: 11,2215           16665                           STODL    R2VEC                                 
021843,001284: 11,2216           03630                                    COZY4                                 
021844,001285: 11,2217           77650                           GOTO                                           
021845,001286: 11,2220           22056                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
021846,001287: 16,2000                                           SETLOC   INTVEL1                               
021847,001288: 16,2000                                           BANK                                           
021848,001289: 
021849,001290: 16,2000                                           COUNT*   $$/INITV                              
021850,001291: 
021851,001292:                                                                                                  #  COMPUTE THE DELTA VELOCITY
021852,001293: 
021853,001294: 16,2000           77775        INITVEL6           VLOAD                                          
021854,001295: 16,2001           02665                                    R2VEC                                 
021855,001296: 16,2002           03604                           STORE    RTARG1                                
021856,001297: 16,2003           52375        INITVEL7           VLOAD    VSU                                   
021857,001298: 16,2004           03612                                    VIPRIME                               
021858,001299: 16,2005           03576                                    VINIT                                 
021859,001300: 16,2006           27646                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT  (+7)
021860,001301: 16,2007           02705                                    VTARGET                               
021861,001302: 16,2010           37620                           STCALL   VTPRIME                               
021862,001303: 16,2011           22221                                    INITVEL8                              
021863,001304: 11,2000                                           SETLOC   INTVEL                                

Page 494

021865,001306: 11,2000                                           BANK                                           
021866,001307: 
021867,001308: 11,2221                                           COUNT*   $$/INITV                              
021868,001309: 11,2221           46135        INITVEL8           SLOAD    BHIZ                                  
021869,001310: 11,2222           03747                                    RTX2                                  
021870,001311: 11,2223           22240                                    INITVELX                              
021871,001312: 11,2224           70575                           VLOAD    VSR2                                  
021872,001313: 11,2225           03620                                    VTPRIME                               
021873,001314: 11,2226           27620                           STOVL    VTPRIME                               
021874,001315: 11,2227           03612                                    VIPRIME                               
021875,001316: 11,2230           77742                           VSR2                                           
021876,001317: 11,2231           27612                           STOVL    VIPRIME                               
021877,001318: 11,2232           03604                                    RTARG1                                
021878,001319: 11,2233           77742                           VSR2                                           
021879,001320: 11,2234           27604                           STOVL    RTARG1                                
021880,001321: 11,2235           03646                                    DELVEET3                              
021881,001322: 11,2236           77742                           VSR2                                           
021882,001323: 11,2237           03646                           STORE    DELVEET3                              
021883,001324: 11,2240           77201        INITVELX           SETPD    VLOAD                                 
021884,001325: 11,2241           00001                                    0D                                    
021885,001326: 11,2242           03604                                    RTARG1                                
021886,001327: 11,2243           03415                           STORE    RTARG                                 
021887,001328: 11,2244           77614                           CLRGO                                          
021888,001329: 11,2245           01227                                    XDELVFLG                              
021889,001330: 11,2246           01023                                    NORMEX                                
021890,001331: 
021891,001332:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
021892,001333: 

Page 495

021894,001335: 
021895,001336:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
021896,001337: 
021897,001338: 27,2000                                           SETLOC   MGIM                                  
021898,001339: 27,2000                                           BANK                                           
021899,001340: 
021900,001341: 27,2442                                           COUNT*   $$/MIDG                               
021901,001342: 
021902,001343: 27,2442           20000 00000  HALFREV            2DEC     1          B-1                        
021903,001344: 
021904,001345: 27,2444           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE  UV (+1)
021905,001346: 27,2445           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
021906,001347: 27,2446           01742                                    REFSMMAT   +6                         #   FROM +2 TO +1 FOR ASIN ROUTINE
021907,001348: 27,2447           51136                           ARCSIN   BPL                                   
021908,001349: 27,2450           56454                                    SETMGA                                
021909,001350: 27,2451           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
021910,001351: 27,2452           16443                                    HALFREV                               #  ADDING ONE REVOLUTION
021911,001352: 27,2453           16443                                    HALFREV                               
021912,001353: 27,2454           03626        SETMGA             STORE    +MGA                                  
021913,001354: 27,2455           77616                           RVQ                                            
021914,001355: 
021915,001356: 04,2000                                           SETLOC   MIDDGIM                               
021916,001357: 04,2000                                           BANK                                           
021917,001358: 
021918,001359: 04,3200                                           COUNT*   $$/MIDG                               
021919,001360: 
021920,001361:                                                                                                  #  TRANSFORM INPUT VECTOR INTO LOCAL VERTICAL COORDINATES.
021921,001362: 
021922,001363: 04,3200           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D)   R (+29) IN MPAC, UNITIZE  UR
021923,001364: 04,3201           03570                                    RINIT                                 
021924,001365: 04,3202           77676                           VCOMP                                          #  U(-R)
021925,001366: 04,3203           00023                           STORE    18D                                   #  U(-R) TO 18D
021926,001367: 04,3204           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
021927,001368: 04,3205           03576                                    VINIT                                 
021928,001369: 04,3206           00015                           STORE    12D                                   #  U(V*R) TO 12D
021929,001370: 04,3207           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
021930,001371: 04,3210           00023                                    18D                                   
021931,001372: 04,3211           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
021932,001373: 04,3212           00001                                    0D                                    #  DELTA V (+7) IN 0D
021933,001374: 04,3213           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
021934,001375: 04,3214           00007                                    6D                                    #   AND SCALE +7 IN MPAC
021935,001376: 04,3215           03405                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
021936,001377: 04,3216           77616                           RVQ                                            
021937,001378: 

Page 496

021939,001380: 04,3217           77160        SELECTMU           AXC,1    AXT,2                                 
021940,001381: 04,3220           00002                                    2D                                    
021941,001382: 04,3221           00000                                    0D                                    
021942,001383: 04,3222           77614                           BOFF                                           
021943,001384: 04,3223           04343                                    CMOONFLG                              
021944,001385: 04,3224           11230                                    SETMUER                               
021945,001386: 04,3225           77160                           AXC,1    AXT,2                                 
021946,001387: 04,3226           00012                                    10D                                   
021947,001388: 04,3227           00002                                    2D                                    
021948,001389: 04,3230           66143        SETMUER            DLOAD*   SXA,1                                 
021949,001390: 04,3231           22305                                    MUTABLE    +4,1                       
021950,001391: 04,3232           03745                                    RTX1                                  
021951,001392: 04,3233           23752                           STODL*   RTSR1/MU                              
021952,001393: 04,3234           22277                                    MUTABLE    -2,1                       
021953,001394: 04,3235           54214                           BOFF     SR                                    
021954,001395: 04,3236           04343                                    CMOONFLG                              
021955,001396: 04,3237           11241                                    RTRNMU                                
021956,001397: 04,3240           20607                                    6D                                    
021957,001398: 04,3241           03750        RTRNMU             STORE    RTMU                                  
021958,001399: 04,3242           43134                           SXA,2    CLEAR                                 
021959,001400: 04,3243           03746                                    RTX2                                  
021960,001401: 04,3244           01271                                    FINALFLG                              
021961,001402: 04,3245           52014                           BON      GOTO                                  
021962,001403: 04,3246           05316                                    PCFLAG                                
021963,001404: 04,3247           45343                                    P36A                                  
021964,001405: 04,3250           73027                                    VN1645                                
021965,001406: 

Page 497

021967,001408:                                                                                                  #  ..... PERIAPO .....
021968,001409:                                                                                                  #  MOD NO -1             LOG SECTION - P34-P35, P74-P75
021969,001410:                                                                                                  #  MOD BY WHITE.P        DATE  18JAN68
021970,001411: 
021971,001412:                                                                                                  #  FUNCTIONAL DESCRIPTION
021972,001413: 
021973,001414:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
021974,001415:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
021975,001416:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
021976,001417: 
021977,001418:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
021978,001419: 
021979,001420:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
021980,001421:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
021981,001422: 
021982,001423:                                                                                                  #  CALLING SEQUENCE
021983,001424: 
021984,001425:                                                                                                  #        L       CALL
021985,001426:                                                                                                  #        L+1             PERIAPO
021986,001427:                                                                                                  #        L+2     (RETURN - ALWAYS)
021987,001428: 
021988,001429:                                                                                                  #  INPUT
021989,001430: 
021990,001431:                                                                                                  #        (1) RVEC        POSITION VECTOR IN METERS
021991,001432:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021992,001433:                                                                                                  #        (2) VVEC        VELOCITY VECTOR IN METERS/CENTISECOND
021993,001434:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
021994,001435:                                                                                                  #        (3) X1          PRIMARY BODY INDICATOR
021995,001436:                                                                                                  #                        EARTH -2, MOON -10
021996,001437: 
021997,001438:                                                                                                  #  OUTPUT
021998,001439: 
021999,001440:                                                                                                  #        (1) 2D          APOCENTER RADIUS IN METERS
022000,001441:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
022001,001442:                                                                                                  #        (2) 4D          APOCENTER ALTITUDE IN METERS
022002,001443:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
022003,001444:                                                                                                  #        (3) 6D          PERICENTER RADIUS IN METERS
022004,001445:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
022005,001446:                                                                                                  #        (4) 8D          PERICENTER ALTITUDE IN METERS
022006,001447:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
022007,001448:                                                                                                  #        (5) ECC         ECCENTRICITY OF CONIC TRAJECTORY
022008,001449:                                                                                                  #                        SCALE FACTOR - +3
022009,001450:                                                                                                  #        (6) XXXALT      RADIUS OF THE PRIMARY BODY IN METERS
022010,001451:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
022011,001452:                                                                                                  #        (7) PUSHLOC     EQUALS 10D
022012,001453: 
022013,001454:                                                                                                  #  SUBROUTINES USED
022014,001455: 
022015,001456:                                                                                                  #        SETRAD

Page 498

022017,001458:                                                                                                  #        APSIDES
022018,001459: 
022019,001460: 22,2000                                           SETLOC   APOPERI                               
022020,001461: 22,2000                                           BANK                                           
022021,001462: 
022022,001463: 22,3172                                           COUNT*   $$/PERAP                              
022023,001464: 
022024,001465: 22,3172           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS  OF PAD 37-B.
022025,001466:                                                                                                  #  = 20 909 901.57 FT
022026,001467: 
022027,001468: 22,3174           53754        PERIAPO1           LXA,2    VSR*                                  
022028,001469: 22,3175           03746                                    RTX2                                  
022029,001470: 22,3176           57176                                    0,2                                   
022030,001471: 22,3177           26746                           STOVL    VVEC                                  
022031,001472: 22,3200           53750                           LXA,1    VSR*                                  
022032,001473: 22,3201           03745                                    RTX1                                  
022033,001474: 22,3202           57176                                    0,2                                   
022034,001475: 22,3203           02657                           STORE    RVEC                                  
022035,001476: 22,3204           45020        PERIAPO            STQ      CALL                                  
022036,001477: 22,3205           01023                                    NORMEX                                
022037,001478: 22,3206           45222                                    SETRAD                                
022038,001479: 22,3207           37456                           STCALL   XXXALT                                
022039,001480: 22,3210           25717                                    APSIDES                               
022040,001481: 22,3211           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
022041,001482: 22,3212           00003                                    2D                                    
022042,001483: 22,3213           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
022043,001484: 22,3214           03456                                    XXXALT                                
022044,001485: 22,3215           00001                                    0D                                    
022045,001486: 22,3216           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
022046,001487: 22,3217           03456                                    XXXALT                                
022047,001488: 22,3220           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
022048,001489: 22,3221           01023                                    NORMEX                                

Page 499

022050,001491:                                                                                                  #  SETRAD
022051,001492: 22,3222           41545        SETRAD             DLOAD    PUSH                                  
022052,001493: 22,3223           05173                                    RPAD                                  
022053,001494: 22,3224           63130                           SXA,1    INCR,2                                
022054,001495: 22,3225           00047                                    X2                                    
022055,001496: 22,3226           00002                                    2D                                    
022056,001497: 22,3227           46135                           SLOAD    BHIZ                                  
022057,001498: 22,3230           00050                                    X2                                    
022058,001499: 22,3231           45235                                    SETRADX                               
022059,001500: 22,3232           51575                           VLOAD    ABVAL                                 
022060,001501: 22,3233           02026                                    RLS                                   
022061,001502: 22,3234           77725                           PDDL                                           
022062,001503: 22,3235           43545        SETRADX            DLOAD    RVQ                                   
022063,001504: 

Page 500

022065,001506:                                                                                                  #  PRECSET
022066,001507: 22,3236           77620        PRECSET            STQ                                            
022067,001508: 22,3237           01023                                    NORMEX                                
022068,001509: 22,3240           36635                           STCALL   TDEC2                                 
022069,001510: 22,3241           27202                                    LEMCONIC                              #  CONIC INTEG
022070,001511: 22,3242           77624                           CALL                                           
022071,001512: 22,3243           45300                                    LEMSTORE                              
022072,001513: 22,3244           77745                           DLOAD                                          
022073,001514: 22,3245           02635                                    TDEC2                                 
022074,001515: 22,3246           34041                           STCALL   TDEC1                                 
022075,001516: 22,3247           27170                                    CSMCONIC                              #  CONIC INTEG
022076,001517: 22,3250           77624                           CALL                                           
022077,001518: 22,3251           45310                                    CSMSTORE                              
022078,001519: 22,3252           53575                           VLOAD    UNIT                                  
022079,001520: 22,3253           03554                                    RPASS3                                
022080,001521: 22,3254           53435                           VXV      UNIT                                  
022081,001522: 22,3255           03562                                    VPASS3                                
022082,001523: 22,3256           26611                           STOVL    UP1                                   #  UNIT(RPASS3) X VPASS3
022083,001524: 22,3257           03546                                    VACT3                                 
022084,001525: 22,3260           72441                           DOT      SL1                                   
022085,001526: 22,3261           02611                                    UP1                                   
022086,001527: 22,3262           26603                           STOVL    CMYDOT                                #  -YDOT (CSM)
022087,001528: 22,3263           03540                                    RACT3                                 
022088,001529: 22,3264           72441                           DOT      SL1                                   
022089,001530: 22,3265           02611                                    UP1                                   
022090,001531: 22,3266           26601                           STOVL    AUTOY                                 #  -Y(CSM)
022091,001532: 22,3267           03540                                    RACT3                                 
022092,001533: 22,3270           53435                           VXV      UNIT                                  
022093,001534: 22,3271           03546                                    VACT3                                 
022094,001535: 22,3272           26617                           STOVL    UNRM                                  
022095,001536: 22,3273           03562                                    VPASS3                                
022096,001537: 22,3274           72441                           DOT      SL1                                   
022097,001538: 22,3275           02617                                    UNRM                                  #  RACT3 X VACT3
022098,001539: 22,3276           36605                           STCALL   LMYDOT                                #  -YDOT(LM)
022099,001540: 22,3277           01023                                    NORMEX                                
022100,001541: 22,3300           43175        LEMSTORE           VLOAD    BOFF                                  
022101,001542: 22,3301           00001                                    RATT                                  
022102,001543: 22,3302           01352                                    AVFLAG                                
022103,001544: 22,3303           45314                                    PASSIVE                               
022104,001545: 22,3304           27540        ACTIVE             STOVL    RACT3                                 
022105,001546: 22,3305           00007                                    VATT                                  
022106,001547: 22,3306           03546                           STORE    VACT3                                 
022107,001548: 22,3307           77616                           RVQ                                            
022108,001549: 22,3310           43175        CSMSTORE           VLOAD    BOFF                                  
022109,001550: 22,3311           00001                                    RATT                                  
022110,001551: 22,3312           01352                                    AVFLAG                                
022111,001552: 22,3313           45304                                    ACTIVE                                
022112,001553: 22,3314           27554        PASSIVE            STOVL    RPASS3                                
022113,001554: 22,3315           00007                                    VATT                                  
022114,001555: 22,3316           03562                           STORE    VPASS3                                

Page 501

022116,001557: 22,3317           77616                           RVQ                                            
022117,001558: 

Page 502

022119,001560: 
022120,001561:                                                                                                  #  VECSHIFT
022121,001562: 22,3320           53754        VECSHIFT           LXA,2    VSR*                                  
022122,001563: 22,3321           03746                                    RTX2                                  
022123,001564: 22,3322           57176                                    0,2                                   
022124,001565: 22,3323           63350                           LXA,1    PDVL                                  
022125,001566: 22,3324           03745                                    RTX1                                  
022126,001567: 22,3325           63257                           VSR*     PDVL                                  
022127,001568: 22,3326           57176                                    0,2                                   
022128,001569: 22,3327           77616                           RVQ                                            
022129,001570: 

Page 503

022131,001572:                                                                                                  #  SHIFTR1
022132,001573: 22,3330           53754        SHIFTR1            LXA,2    SL*                                   
022133,001574: 22,3331           03746                                    RTX2                                  
022134,001575: 22,3332           57576                                    0,2                                   
022135,001576: 22,3333           77616                           RVQ                                            
022136,001577: 

Page 504

022138,001579:                                                                                                  #  PROGRAM DESCRIPTION
022139,001580:                                                                                                  #  SUBROUTINE NAME       R36  OUT-OF-PLANE RENDEZVOUS ROUTINE
022140,001581:                                                                                                  #  MOD NO.  3      DATE    18 NOVEMBER 1969
022141,001582:                                                                                                  #  MOD BY   T.E.CROCKER
022142,001583: 
022143,001584:                                                                                                  #  FUNCTIONAL DESCRIPTION
022144,001585: 
022145,001586:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
022146,001587:                                                                                                  #        OUT-OF-PLANE PARAMETERS (YDOT CSM,YDOT LEM,Y).  
022147,001588: 
022148,001589:                                                                                                  #  CALLING SEQUENCE
022149,001590: 
022150,001591:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY  V 90 E
022151,001592: 
022152,001593:                                                                                                  #  SUBROUTINES CALLED
022153,001594: 
022154,001595:                                                                                                  #  EXDSPRET  TIMEOPT
022155,001596:                                                                                                  #  GOMARKF   VEHOPT
022156,001597:                                                                                                  #  CSMCONIC
022157,001598:                                                                                                  #  LEMCONIC
022158,001599:                                                                                                  #  LOADTIME
022159,001600: 
022160,001601:                                                                                                  #  NORMAL EXIT MODES
022161,001602: 
022162,001603:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
022163,001604: 
022164,001605:                                                                                                  #  ALARM OR ABORT EXIT MODES
022165,001606: 
022166,001607:                                                                                                  #  NONE
022167,001608: 
022168,001609:                                                                                                  #  OUTPUT
022169,001610:                                                                                                  #  
022170,001611:                                                                                                  #  DECIMAL DISPLAY OF YDOT CSM, YDOT LEM, Y, TIME.
022171,001612:                                                                                                  #  DISPLAYED VALUES YDOT, YDOT, Y ARE STORED IN ERASABLE
022172,001613:                                                                                                  #  REGISTERS RRATE, RRATE2, RANGE RESPECTIVELY.
022173,001614: 
022174,001615:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
022175,001616: 
022176,001617:                                                                                                  #  CSM AND LEM STATE VECTORS
022177,001618: 
022178,001619:                                                                                                  #  DEBRIS
022179,001620: 
022180,001621:                                                                                                  #  CENTRALS A,Q,L
022181,001622: 
022182,001623:                                                                                                  #  OTHER  THOSE USED BY THE ABOVE LISTED SUBROUTINES
022183,001624: 
022184,001625: 24,2000                                           SETLOC   R36CM                                 
022185,001626: 24,2000                                           BANK                                           
022186,001627: 
022187,001628: 24,2000  E7,1412                                  EBANK=   TIG                                   
022188,001629: 24,2000                                           COUNT*   $$/R36                                
022189,001630: 
022190,001631: 24,2000           06006        R36                TC       INTPRET                               

Page 505

022192,001633: 
022193,001634: 24,2001           45145                           DLOAD    CALL                                  
022194,001635: 24,2002           03413                                    TIG                                   
022195,001636: 24,2003           46424                                    TIMEOPT                               
022196,001637: 24,2004           77624        R36A               CALL                                           
022197,001638: 24,2005           27202                                    LEMCONIC                              
022198,001639: 24,2006           63375                           VLOAD    PDVL                                  #  VL TO PDLO
022199,001640: 24,2007           00007                                    VATT                                  
022200,001641: 24,2010           00001                                    RATT                                  
022201,001642: 24,2011           63256                           UNIT     PDVL                                  #  UNIT RL TO PDL0, VL TO MPAC
022202,001643: 24,2012           77626                           STADR                                          
022203,001644: 24,2013           75457                           STORE    VPASS36                               #  VL TO VPASS36
022204,001645: 24,2014           53435                           VXV      UNIT                                  #  VL(MPAC) X RL(PDL0)
022205,001646: 24,2015           77626                           STADR                                          
022206,001647: 24,2016           61451                           STODL    UNP36                                 #  UNIT(VL X RL) TO UNP36
022207,001648: 24,2017           00015                                    TAT                                   
022208,001649: 24,2020           34041                           STCALL   TDEC1                                 
022209,001650: 24,2021           27170                                    CSMCONIC                              
022210,001651: 24,2022           63375                           VLOAD    PDVL                                  #  VC TO PDL0
022211,001652: 24,2023           00007                                    VATT                                  
022212,001653: 24,2024           00001                                    RATT                                  
022213,001654: 24,2025           00007                           STORE    6D                                    #  RC TO PDL6
022214,001655: 24,2026           63256                           UNIT     PDVL                                  #  UNIT(RC) TO PDL0, VC TO MPAC
022215,001656: 24,2027           77626                           STADR                                          
022216,001657: 24,2030           77762                           STORE    12D                                   #  VC TO PDL12
022217,001658: 24,2031           53435                           VXV      UNIT                                  #  VC(MPAC) X RC(PDL0)
022218,001659: 24,2032           77626                           STADR                                          
022219,001660: 24,2033           51443                           STOVL    UNA36                                 #  UNIT(VC X RC) TO UNA36
022220,001661: 24,2034           00007                                    6D                                    #  RC TO MPAC
022221,001662: 24,2035           72441                           DOT      SL1                                   
022222,001663: 24,2036           02326                                    UNP36                                 #  RC . UNIT(VL X RL)
022223,001664: 24,2037           26312                           STOVL    RANGE                                 #   EQUALS RANGE
022224,001665: 24,2040           00015                                    12D                                   #  VC TO MPAC
022225,001666: 24,2041           72441                           DOT      SL1                                   
022226,001667: 24,2042           02326                                    UNP36                                 #  VC . UNIT(VL X RL)
022227,001668: 24,2043           26314                           STOVL    RRATE                                 #   EQUALS R. RATE OF CSM
022228,001669: 24,2044           02320                                    VPASS36                               #  VL TO MPAC
022229,001670: 24,2045           72441                           DOT      SL1                                   
022230,001671: 24,2046           02334                                    UNA36                                 
022231,001672: 24,2047           02316                           STORE    RRATE2                                #  VL . UNIT(VC X RC)
022232,001673: 24,2050           77776                           EXIT                                           #   EQUALS R. RATE OF LEM
022233,001674: 24,2051           32103                           CAF      V06N96                                #  DISPLAY Y, YDOTCM,YDOTLM
022234,001675: 24,2052           04636                           TC       BANKCALL                              
022235,001676: 24,2053           20576                           CADR     GOMARKF                               
022236,001677: 24,2054           15524                           TCF      ENDEXT                                #  T OR
022237,001678: 24,2055           15524                           TCF      ENDEXT                                #   P....EXIT R36
022238,001679:                                                                                                  #    R...DISPLAY TIME
022239,001680: 24,2056           06006                           TC       INTPRET                               
022240,001681: 24,2057           77624                           CALL                                           
022241,001682: 24,2060           46425                                    TIMEOPT    +1                         
022242,001683: 24,2061           77650                           GOTO                                           

Page 506

022244,001685: 24,2062           50004                                    R36A                                  
022245,001686: 24,2063           01420        V06N16N            VN       0616                                  
022246,001687: 24,2064           77420        VEHOPT             STQ      EXIT                                  #  ALLOW VEHICLE OPTION
022247,001688: 24,2065           00734                                    VEHRET                                
022248,001689: 24,2066           00006                           EXTEND                                         
022249,001690: 24,2067           34770                           DCA      TWO                                   
022250,001691: 24,2070           53256                           DXCH     OPTIONX                               
022251,001692: 24,2071           32102                           CAF      OPTIONVN                              
022252,001693: 24,2072           04636                           TC       BANKCALL                              
022253,001694: 24,2073           20576                           CADR     GOXDSPF                               
022254,001695: 24,2074           05524                           TC       ENDEXT                                
022255,001696: 24,2075           02077                           TC       +2                                    
022256,001697: 24,2076           02071                           TC       -5                                    
022257,001698: 
022258,001699: 24,2077           06006                           TC       INTPRET                               
022259,001700: 24,2100           77650                           GOTO                                           
022260,001701: 24,2101           00734                                    VEHRET                                
022261,001702: 24,2102           01014        OPTIONVN           VN       0412                                  
022262,001703: 24,2103           01540        V06N96             VN       0696                                  
022263,001704: 
022264,001705: 24,2104  30,2000                                  SBANK=   LOWSUPER                              

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