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.

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

Page 463

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

Page 464

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

Page 465

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

Page 466

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

Page 467

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

Page 468

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

Page 469

020884,000331: 35,2177           72774                                    S34/35.5                              
020885,000332: 35,2200           77624                           CALL                                           
020886,000333: 35,2201           73027                                    VN1645                                
020887,000334: 35,2202           77650                           GOTO                                           
020888,000335: 35,2203           72034                                    P34/P74C                              
020889,000336: 35,2204           13434        130DEG             OCT      13434                                 #  13  DEG - CENTANG
020890,000337: 35,2205           16163                           OCT      16163                                 
020891,000338: 

Page 470

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

Page 471

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

Page 472

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

Page 473

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

Page 474

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

Page 475

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

Page 476

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

Page 477

021244,000691: 35,2557           15336                                    ZEROVECS                              
021245,000692: 35,2560           01023                                    NORMEX                                
021246,000693: 

Page 478

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

Page 479

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

Page 480

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

Page 481

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

Page 482

021376,000823:                                                                                                  #  ..... S34/35.4  .....
021377,000824: 
021378,000825: 35,2714           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
021379,000826: 35,2715           01023                                    NORMEX                                
021380,000827: 35,2716           00001                                    0D                                    
021381,000828: 35,2717           77650                           GOTO                                           
021382,000829: 35,2720           72676                                    NOVRWRT                               
021383,000830: 

Page 483

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

Page 484

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

Page 485

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

Page 486

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

Page 487

021562,001009:                                                                                                  #  ..... P3XORP7X  .....
021563,001010: 
021564,001011: 35,3137           37677        P3XORP7X           CAF      HIGH9                                 
021565,001012: 35,3140           71214                           MASK     MODREG                                
021566,001013: 35,3141           15651                           TCF      INCRQCK                               
021567,001014:    4000                                           SETLOC   P30SUBS                               
021568,001015:    4000                                           BANK                                           
021569,001016: 
021570,001017:    4532                                           COUNT*   $$/P3474                              
021571,001018: 

Page 488

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

Page 489

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

Page 490

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

Page 491

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

Page 492

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

Page 493

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

Page 494

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

Page 495

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

Page 496

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

Page 497

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

Page 498

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

Page 499

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

Page 500

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

Page 501

022110,001557: 22,3317           77616                           RVQ                                            
022111,001558: 

Page 502

022113,001560: 
022114,001561:                                                                                                  #  VECSHIFT
022115,001562: 22,3320           53754        VECSHIFT           LXA,2    VSR*                                  
022116,001563: 22,3321           03746                                    RTX2                                  
022117,001564: 22,3322           57176                                    0,2                                   
022118,001565: 22,3323           63350                           LXA,1    PDVL                                  
022119,001566: 22,3324           03745                                    RTX1                                  
022120,001567: 22,3325           63257                           VSR*     PDVL                                  
022121,001568: 22,3326           57176                                    0,2                                   
022122,001569: 22,3327           77616                           RVQ                                            
022123,001570: 

Page 503

022125,001572:                                                                                                  #  SHIFTR1
022126,001573: 22,3330           53754        SHIFTR1            LXA,2    SL*                                   
022127,001574: 22,3331           03746                                    RTX2                                  
022128,001575: 22,3332           57576                                    0,2                                   
022129,001576: 22,3333           77616                           RVQ                                            
022130,001577: 

Page 504

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

Page 505

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

Page 506

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

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