Source Code

These source-code files were obtained by digitally photographing an Artemis 72 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.

020455,000002:                                                                                                  ## Copyright:   Public domain.
020456,000003:                                                                                                  ## Filename:    P34-35_P74-75.agc
020457,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
020458,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
020459,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), we believe for 
020460,000007:                                                                                                  ##              Apollo 15-17.
020461,000008:                                                                                                  ## Assembler:   yaYUL
020462,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
020463,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
020464,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
020465,000012:                                                                                                  ## Mod history: 2009-08-19 SN   Adapted from corresponding Comanche 055 file.
020466,000013:                                                                                                  ##              2009-09-03 JL   Fixed symbol names.
020467,000014:                                                                                                  ##              2009-09-04 JL   Fixed a bunch of typos. Fixed page comments.
020468,000015:                                                                                                  ##              2009-09-07 JL   Fixed typos.
020469,000016:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
020470,000017:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
020471,000018:                                                                                                  ##              2011-05-07 JL   Removed workaround.
020472,000019: 

Page 463

020474,000021:                                                                                                  #  TRANSFER PHASE INITITIATION (TPI) PROGRAMS (P34 AND P74)
020475,000022: 
020476,000023:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
020477,000024:                                                                                                  #  MOD BY WHITE.P        DATE 1JUNE67
020478,000025: 
020479,000026:                                                                                                  #  PURPOSE
020480,000027: 
020481,000028:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020482,000029:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
020483,000030:                                                                                                  #            PHASE INITITATION (TPI) MANEUVER, GIVEN -
020484,000031: 
020485,000032:                                                                                                  #            (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
020486,000033:                                                                                                  #                THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
020487,000034: 
020488,000035:                                                                                                  #            (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
020489,000036:                                                                                                  #                INTERCEPT TIME (TIG (TPF)).
020490,000037: 
020491,000038:                                                                                                  #        (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
020492,000039: 
020493,000040:                                                                                                  #        (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
020494,000041:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
020495,000042: 
020496,000043:                                                                                                  #        (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020497,000044:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020498,000045:                                                                                                  #            ASTRONAUT/GROUND.
020499,000046: 
020500,000047:                                                                                                  #        (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
020501,000048:                                                                                                  #            THRUSTING PROGRAM.
020502,000049: 
020503,000050:                                                                                                  #  ASSUMPTIONS
020504,000051: 
020505,000052:                                                                                                  #        (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
020506,000053:                                                                                                  #            THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
020507,000054:                                                                                                  #            THEREFORE -
020508,000055: 
020509,000056:                                                                                                  #            (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
020510,000057:                                                                                                  #                BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
020511,000058:                                                                                                  #                A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
020512,000059:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
020513,000060: 
020514,000061:                                                                                                  #            (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
020515,000062:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
020516,000063: 
020517,000064:                                                                                                  #            (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
020518,000065:                                                                                                  #                ORBITS WAS MINIMIZED.
020519,000066: 
020520,000067:                                                                                                  #            (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
020521,000068: 
020522,000069:                                                                                                  #                CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 464

020524,000071:                                                                                                  #                ORBIT OR 85 NM FOR EARTH ORBIT.
020525,000072: 
020526,000073:                                                                                                  #            (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
020527,000074:                                                                                                  #                THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
020528,000075:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
020529,000076:                                                                                                  #                IN AN OUT-OF-PLANE MANEUVER.
020530,000077: 
020531,000078:                                                                                                  #        (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
020532,000079:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
020533,000080: 
020534,000081:                                                                                                  #        (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
020535,000082:                                                                                                  #            TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
020536,000083:                                                                                                  #            VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
020537,000084:                                                                                                  #            THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
020538,000085:                                                                                                  #            FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
020539,000086:                                                                                                  #            FLIGHT PLAN MANEUVER SEQUENCES.
020540,000087: 
020541,000088:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
020542,000089:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
020543,000090:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
020544,000091:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
020545,000092:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
020546,000093:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
020547,000094:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
020548,000095:                                                                                                  #            THRUSTING MANEUVER.
020549,000096: 
020550,000097:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020551,000098: 
020552,000099:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020553,000100: 
020554,000101:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020555,000102:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020556,000103:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020557,000104:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020558,000105: 
020559,000106:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020560,000107:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020561,000108: 
020562,000109:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020563,000110:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020564,000111:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020565,000112: 
020566,000113:                                                                                                  #        (7) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER
020567,000114:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020568,000115:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020569,000116:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020570,000117:                                                                                                  #            THROUGH THE USE OF V06N52.
020571,000118: 
020572,000119:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020573,000120:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 465

020575,000122:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020576,000123:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020577,000124:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
020578,000125: 
020579,000126:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020580,000127: 
020581,000128:                                                                                                  #                P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
020582,000129: 
020583,000130:                                                                                                  #                P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
020584,000131: 
020585,000132:                                                                                                  #  INPUT
020586,000133: 
020587,000134:                                                                                                  #        (1) TTPI        TIME OF THE TPI MANEUVER
020588,000135:                                                                                                  #        (2) ELEV        DESIRED LOS ANGLE AT TPI
020589,000136:                                                                                                  #        (3) CENTANG     ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020590,000137:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
020591,000138: 
020592,000139:                                                                                                  #  OUTPUT
020593,000140: 
020594,000141:                                                                                                  #        (1) TRKMKCNT    NUMBER OF MARKS
020595,000142:                                                                                                  #        (2) TTOGO       TIME TO GO
020596,000143:                                                                                                  #        (3) +MGA        MIDDLE GIMBAL ANGLE
020597,000144:                                                                                                  #        (4) TTPI        COMPUTED TIME OF TPI MANEUVER
020598,000145:                                                                                                  #             OR
020599,000146:                                                                                                  #            ELEV        COMPUTED LOS ANGLE AT TPI
020600,000147:                                                                                                  #        (5) POSTTPI     PERIGEE ALTITUDE AFTER THE TPI MANEUVER
020601,000148:                                                                                                  #        (6) DELVTPI     MAGNITUDE OF DELTA V AT TPI
020602,000149:                                                                                                  #        (7) DELVTPF     MAGNITUDE OF DELTA V AT INTERCEPT
020603,000150:                                                                                                  #        (8) DVLOS       DELTA VELOCITY AT TPI - LINE OF SIGHT
020604,000151:                                                                                                  #        (9) DELVLVC     DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
020605,000152: 
020606,000153:                                                                                                  #  DOWNLINK
020607,000154: 
020608,000155:                                                                                                  #        (1) TTPI        TIME OF THE TPI MANEUVER
020609,000156:                                                                                                  #        (2) TIG         TIME OF THE TPI MANEUVER
020610,000157:                                                                                                  #        (3) ELEV        DESIRED LOS ANGLE AT TPI
020611,000158:                                                                                                  #        (4) CENTANG     ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020612,000159:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
020613,000160:                                                                                                  #        (5) DELVEET3    DELTA VELOCITY AT TPI - REFERENCE COORDINATES
020614,000161:                                                                                                  #        (6) TPASS4      TIME OF INTERCEPT
020615,000162: 
020616,000163:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
020617,000164: 
020618,000165:                                                                                                  #        (1) TIG         TIME OF THE TPI MANEUVER
020619,000166:                                                                                                  #        (2) RTARG       OFFSET TARGET POSITION
020620,000167:                                                                                                  #        (3) TPASS4      TIME OF INTERCEPT
020621,000168:                                                                                                  #        (4) XDELVFLG    RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020622,000169: 
020623,000170:                                                                                                  #  SUBROUTINES USED
020624,000171: 
020625,000172:                                                                                                  #        AVFLAGA

Page 466

020627,000174:                                                                                                  #        AVFLAGP
020628,000175:                                                                                                  #        VNPOOH
020629,000176:                                                                                                  #        DISPLAYE
020630,000177:                                                                                                  #        SELECTMU
020631,000178:                                                                                                  #        PRECSET
020632,000179:                                                                                                  #        S33/34.1
020633,000180:                                                                                                  #        ALARM
020634,000181:                                                                                                  #        BANKCALL
020635,000182:                                                                                                  #        GOFLASH
020636,000183:                                                                                                  #        GOTOPOOH
020637,000184:                                                                                                  #        TIMETHET
020638,000185:                                                                                                  #        S34/35.2
020639,000186:                                                                                                  #        PERIAPO1
020640,000187:                                                                                                  #        SHIFTR1
020641,000188:                                                                                                  #        S34/35.5
020642,000189:                                                                                                  #        VN1645
020643,000190: 
020644,000191: 35,2000                                           SETLOC   CSI/CDH                               
020645,000192: 35,2000                                           BANK                                           
020646,000193: 35,2000  E4,1760                                  EBANK=   SUBEXIT                               
020647,000194: 35,2000                                           COUNT*   $$/P3474                              
020648,000195: 35,2000           04553        P34                TC       AVFLAGA                               
020649,000196: 35,2001           02003                           TC       P34/P74A                              
020650,000197: 35,2002           04565        P74                TC       AVFLAGP                               
020651,000198: 35,2003           04572        P34/P74A           TC       P20FLGON                              
020652,000199: 35,2004           06006                           TC       INTPRET                               
020653,000200: 35,2005           71214                           CLEAR    DLOAD                                 
020654,000201: 35,2006           05274                                    TPIMNFLG                              
020655,000202: 35,2007           32205                                    130DEG                                
020656,000203: 35,2010           17754                           STODL    CENTANG                               
020657,000204: 35,2011           15336                                    ZEROVECS                              
020658,000205: 35,2012           03744                           STORE    ELEV                                  
020659,000206: 35,2013           03766                           STORE    NN                                    
020660,000207: 35,2014           77776                           EXIT                                           
020661,000208: 
020662,000209: 35,2015           34532                           CAF      V06N37                                
020663,000210: 35,2016           05535                           TC       VNFLASH                               
020664,000211: 35,2017           34533                           CAF      V06N55                                
020665,000212: 35,2020           05535                           TC       VNFLASH                               
020666,000213: 35,2021           06006                           TC       INTPRET                               
020667,000214: 35,2022           71214                           CLEAR    DLOAD                                 
020668,000215: 35,2023           01270                                    ETPIFLAG                              
020669,000216: 35,2024           03663                                    TTPI                                  
020670,000217: 35,2025           17413                           STODL    TIG                                   
020671,000218: 35,2026           03744                                    ELEV                                  
020672,000219: 35,2027           43054                           BZE      SET                                   
020673,000220: 35,2030           72032                                    P34/P74B                              
020674,000221: 35,2031           01070                                    ETPIFLAG                              
020675,000222: 35,2032           77624        P34/P74B           CALL                                           
020676,000223: 35,2033           11217                                    SELECTMU                              

Page 467

020678,000225: 35,2034                        DELELO             EQUALS   26D                                   
020679,000226: 35,2034           43145        P34/P74C           DLOAD    SET                                   
020680,000227: 35,2035           15336                                    ZEROVECS                              
020681,000228: 35,2036           03461                                    ITSWICH                               
020682,000229: 35,2037           43014                           BON      CLEAR                                 
020683,000230: 35,2040           01310                                    ETPIFLAG                              
020684,000231: 35,2041           72043                                    SWCHSET                               
020685,000232: 35,2042           03661                                    ITSWICH                               
020686,000233: 35,2043           02355        SWCHSET            STORE    NOMTPI                                
020687,000234: 35,2044           43345        INTLOOP            DLOAD    DAD                                   
020688,000235: 35,2045           03663                                    TTPI                                  
020689,000236: 35,2046           02355                                    NOMTPI                                
020690,000237: 35,2047           34041                           STCALL   TDEC1                                 
020691,000238: 35,2050           45236                                    PRECSET                               
020692,000239: 35,2051           77624                           CALL                                           
020693,000240: 35,2052           72251                                    S33/34.1                              
020694,000241: 35,2053           77454                           BZE      EXIT                                  
020695,000242: 35,2054           72065                                    SWCHCLR                               
020696,000243: 35,2055           05671        INTALM             TC       ALARM                                 
020697,000244: 35,2056           00611                           OCT      611                                   
020698,000245: 35,2057           35023                           CAF      V05N09                                
020699,000246: 35,2060           04636                           TC       BANKCALL                              
020700,000247: 35,2061           20743                           CADR     GOFLASH                               
020701,000248: 35,2062           04103                           TC       GOTOPOOH                              
020702,000249: 35,2063           02003                           TC       P34/P74A                              #  PROCEED
020703,000250: 35,2064           02055                           TC       INTALM                                #  V32
020704,000251: 35,2065           43014        SWCHCLR            BONCLR   BON                                   
020705,000252: 35,2066           03601                                    ITSWICH                               
020706,000253: 35,2067           72044                                    INTLOOP                               
020707,000254: 35,2070           01310                                    ETPIFLAG                              
020708,000255: 35,2071           72100                                    P34/P74D                              #  DISPLAY TTPI
020709,000256: 35,2072           77776                           EXIT                                           
020710,000257: 35,2073           34533                           CAF      V06N55                                
020711,000258: 35,2074           05535                           TC       VNFLASH                               
020712,000259: 35,2075           06006                           TC       INTPRET                               
020713,000260: 35,2076           77650                           GOTO                                           
020714,000261: 35,2077           72120                                    P34/74E                               
020715,000262: 35,2100           77776        P34/P74D           EXIT                                           
020716,000263: 35,2101           34532                           CAF      V06N37                                #  TTPI
020717,000264: 35,2102           05535                           TC       VNFLASH                               
020718,000265: 35,2103           06006        P34/P74E           TC       INTPRET                               
020719,000266: 35,2104           43014                           BOFF     BOFF                                  
020720,000267: 35,2105           01351                                    FINALFLG                              
020721,000268: 35,2106           72120                                    P34/74E                               #  LAST PASS
020722,000269: 35,2107           05350                                    AUTOSEQ                               
020723,000270: 35,2110           72120                                    P34/74E                               
020724,000271: 35,2111           43145                           DLOAD    CLEAR                                 #  IT IS FINAL COMP IN MINKEY
020725,000272: 35,2112           15336                                    ZEROVECS                              #    SET UP FOR TIG OPTION
020726,000273: 35,2113           01270                                    ETPIFLAG                              
020727,000274: 35,2114           17744                           STODL    ELEV                                  

Page 468

020729,000276: 35,2115           03663                                    TTPI                                  
020730,000277: 35,2116           37413                           STCALL   TIG                                   
020731,000278: 35,2117           72034                                    P34/P74C                              
020732,000279: 35,2120           71201        P34/74E            SETPD    DLOAD                                 
020733,000280: 35,2121           00001                                    0D                                    
020734,000281: 35,2122           03746                                    RTX1                                  
020735,000282: 35,2123           14047                           STODL    X1                                    
020736,000283: 35,2124           03754                                    CENTANG                               
020737,000284: 35,2125           71406                           PUSH     COS                                   
020738,000285: 35,2126           16734                           STODL    CSTH                                  
020739,000286: 35,2127           77756                           SIN                                            
020740,000287: 35,2130           26732                           STOVL    SNTH                                  
020741,000288: 35,2131           03554                                    RPASS3                                
020742,000289: 35,2132           77657                           VSR*                                           
020743,000290: 35,2133           57176                                    0,2                                   
020744,000291: 35,2134           26657                           STOVL    RVEC                                  
020745,000292: 35,2135           03562                                    VPASS3                                
020746,000293: 35,2136           43057                           VSR*     SET                                   
020747,000294: 35,2137           57176                                    0,2                                   
020748,000295: 35,2140           03466                                    RVSW                                  
020749,000296: 35,2141           36746                           STCALL   VVEC                                  
020750,000297: 35,2142           25002                                    TIMETHET                              
020751,000298: 35,2143           77745                           DLOAD                                          
020752,000299: 35,2144           03663                                    TTPI                                  
020753,000300: 35,2145           03503                           STORE    INTIME                                #  FOR INITVEL
020754,000301: 35,2146           77615                           DAD                                            
020755,000302: 35,2147           00037                                    T                                     #  RENDEZVOUS TIME
020756,000303: 35,2150           37656                           STCALL   TPASS4                                #  FOR INITVEL
020757,000304: 35,2151           72561                                    S34/35.2                              
020758,000305: 35,2152           51575                           VLOAD    ABVAL                                 
020759,000306: 35,2153           03646                                    DELVEET3                              
020760,000307: 35,2154           26635                           STOVL    DELVTPI                               
020761,000308: 35,2155           03640                                    VPASS4                                
020762,000309: 35,2156           51451                           VSU      ABVAL                                 
020763,000310: 35,2157           03620                                    VTPRIME                               
020764,000311: 35,2160           26637                           STOVL    DELVTPF                               
020765,000312: 35,2161           03540                                    RACT3                                 
020766,000313: 35,2162           45115                           PDVL     CALL                                  
020767,000314: 35,2163           03612                                    VIPRIME                               
020768,000315: 35,2164           45174                                    PERIAPO1                              
020769,000316: 35,2165           77624                           CALL                                           
020770,000317: 35,2166           45330                                    SHIFTR1                               
020771,000318: 35,2167           16641                           STODL    POSTTPI                               
020772,000319: 35,2170           03663                                    TTPI                                  
020773,000320: 35,2171           03413                           STORE    TIG                                   
020774,000321: 35,2172           77776                           EXIT                                           
020775,000322: 35,2173           34534                           CAF      V06N58                                
020776,000323: 35,2174           05535                           TC       VNFLASH                               
020777,000324: 35,2175           06006                           TC       INTPRET                               
020778,000325: 35,2176           77624                           CALL                                           

Page 469

020780,000327: 35,2177           72774                                    S34/35.5                              
020781,000328: 35,2200           77624                           CALL                                           
020782,000329: 35,2201           73027                                    VN1645                                
020783,000330: 35,2202           77650                           GOTO                                           
020784,000331: 35,2203           72034                                    P34/P74C                              
020785,000332: 35,2204           13434        130DEG             OCT      13434                                 #  13  DEG - CENTANG
020786,000333: 35,2205           16163                           OCT      16163                                 
020787,000334: 

Page 470

020789,000336:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
020790,000337: 
020791,000338:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
020792,000339:                                                                                                  #  MOD BY WHITE.P        DATE  1JUNE67
020793,000340: 
020794,000341:                                                                                                  #  PURPOSE
020795,000342: 
020796,000343:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020797,000344:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
020798,000345:                                                                                                  #            MID-COURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
020799,000346:                                                                                                  #            VEHICLE RENDEZVOUS.
020800,000347: 
020801,000348:                                                                                                  #        (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020802,000349:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020803,000350:                                                                                                  #            ASTRONAUT/GROUND.
020804,000351: 
020805,000352:                                                                                                  #        (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
020806,000353:                                                                                                  #            THRUSTING PROGRAM.
020807,000354: 
020808,000355:                                                                                                  #  ASSUMPTIONS
020809,000356: 
020810,000357:                                                                                                  #        (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020811,000358: 
020812,000359:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
020813,000360:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
020814,000361: 
020815,000362:                                                                                                  #        (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
020816,000363:                                                                                                  #            DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
020817,000364:                                                                                                  #            WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
020818,000365:                                                                                                  #            ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
020819,000366:                                                                                                  #            RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
020820,000367:                                                                                                  #            P20 AND AFTER EACH THRUSTING MANEUVER.
020821,000368: 
020822,000369:                                                                                                  #        (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020823,000370: 
020824,000371:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020825,000372:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020826,000373:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020827,000374:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020828,000375: 
020829,000376:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020830,000377:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020831,000378: 
020832,000379:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020833,000380:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020834,000381:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020835,000382: 
020836,000383:                                                                                                  #        (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
020837,000384:                                                                                                  #            COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
020838,000385:                                                                                                  #            (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
020839,000386: 

Page 471

020841,000388:                                                                                                  #        (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER
020842,000389:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020843,000390:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020844,000391:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020845,000392:                                                                                                  #            THROUGH THE USE OF V06N52.
020846,000393: 
020847,000394:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020848,000395:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
020849,000396:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020850,000397:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020851,000398:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
020852,000399: 
020853,000400:                                                                                                  #        (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020854,000401: 
020855,000402:                                                                                                  #                P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
020856,000403: 
020857,000404:                                                                                                  #                P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
020858,000405: 
020859,000406:                                                                                                  #  INPUT
020860,000407: 
020861,000408:                                                                                                  #        (1) TPASS4      TIME OF INTERCEPT - SAVED FROM P34/P74
020862,000409: 
020863,000410:                                                                                                  #  OUTPUT
020864,000411: 
020865,000412:                                                                                                  #        (1) TRKMKCNT    NUMBER OF MARKS
020866,000413:                                                                                                  #        (2) TTOGO       TIME TO GO
020867,000414:                                                                                                  #        (3) +MGA        MIDDLE GIMBAL ANGLE
020868,000415:                                                                                                  #        (4) DVLOS       DELTA VELOCITY AT MID - LINE OF SIGHT
020869,000416:                                                                                                  #        (5) DELVLVC     DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
020870,000417: 
020871,000418:                                                                                                  #  DOWNLINK
020872,000419: 
020873,000420:                                                                                                  #        (1) TIG         TIME OF THE TPM MANEUVER
020874,000421:                                                                                                  #        (2) DELVEET3    DELTA VELOCITY AT TPM - REFERENCE COORDINATES
020875,000422:                                                                                                  #        (3) TPASS4      TIME OF INTERCEPT
020876,000423: 
020877,000424:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
020878,000425: 
020879,000426:                                                                                                  #        (1) TIG         TIME OF THE TPM MANEUVER
020880,000427:                                                                                                  #        (2) RTARG       OFFSET TARGET POSITION
020881,000428:                                                                                                  #        (3) TPASS4      TIME OF INTERCEPT
020882,000429:                                                                                                  #        (4) XDELVFLG    RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION.
020883,000430: 
020884,000431:                                                                                                  #  SUBROUTINES USED
020885,000432: 
020886,000433:                                                                                                  #        AVFLAGA
020887,000434:                                                                                                  #        AVFLAGP
020888,000435:                                                                                                  #        LOADTIME
020889,000436:                                                                                                  #        SELECTMU
020890,000437:                                                                                                  #        PRECSET
020891,000438:                                                                                                  #        S34/35.1
020892,000439:                                                                                                  #        S34/35.2

Page 472

020894,000441:                                                                                                  #        S34/35.5
020895,000442:                                                                                                  #        VN1645
020896,000443: 
020897,000444: 35,2206                                           COUNT*   $$/P3575                              
020898,000445: 35,2206  E4,1754                                  EBANK=   KT                                    
020899,000446: 
020900,000447: 35,2206           04553        P35                TC       AVFLAGA                               
020901,000448: 35,2207           00006                           EXTEND                                         
020902,000449: 35,2210           31422                           DCA      ATIGINC                               
020903,000450: 35,2211           02215                           TC       P35/P75A                              
020904,000451: 35,2212           04565        P75                TC       AVFLAGP                               
020905,000452: 35,2213           00006                           EXTEND                                         
020906,000453: 35,2214           31424                           DCA      PTIGINC                               
020907,000454: 35,2215           53755        P35/P75A           DXCH     KT                                    
020908,000455: 35,2216           04572                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
020909,000456: 35,2217           06006                           TC       INTPRET                               
020910,000457: 35,2220           77624                           CALL                                           
020911,000458: 35,2221           11217                                    SELECTMU                              
020912,000459: 35,2222           77634        P35/P75B           RTB                                            
020913,000460: 35,2223           51751                                    LOADTIME                              
020914,000461: 35,2224           03665                           STORE    TSTRT                                 
020915,000462: 35,2225           77615                           DAD                                            
020916,000463: 35,2226           02355                                    KT                                    
020917,000464: 35,2227           03413                           STORE    TIG                                   
020918,000465: 35,2230           03503                           STORE    INTIME                                #  FOR INITVEL
020919,000466: 35,2231           34041                           STCALL   TDEC1                                 
020920,000467: 35,2232           45236                                    PRECSET                               #  ADVANCE BOTH VEHICLES
020921,000468: 35,2233           77624                           CALL                                           
020922,000469: 35,2234           74000                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
020923,000470: 35,2235           77624                           CALL                                           
020924,000471: 35,2236           72561                                    S34/35.2                              #  GET DELTA V(LV)
020925,000472: 35,2237           77624                           CALL                                           
020926,000473: 35,2240           72774                                    S34/35.5                              
020927,000474: 35,2241           43014                           BOFF     SET                                   
020928,000475: 35,2242           01351                                    FINALFLG                              
020929,000476: 35,2243           72245                                    +2                                    
020930,000477: 35,2244           05067                                    P35FLAG                               
020931,000478: 35,2245           77624                           CALL                                           
020932,000479: 35,2246           73027                                    VN1645                                
020933,000480: 35,2247           77650                           GOTO                                           
020934,000481: 35,2250           72222                                    P35/P75B                              

Page 473

020936,000483:                                                                                                  #  ..... S33/34.1  .....
020937,000484: 
020938,000485: 35,2251           66220        S33/34.1           STQ      SSP                                   
020939,000486: 35,2252           01023                                    NORMEX                                
020940,000487: 35,2253           03665                                    TITER                                 
020941,000488: 35,2254           40000                           OCT      40000                                 
020942,000489: 35,2255           40345                           DLOAD    SETPD                                 
020943,000490: 35,2256           33145                                    MAX250                                
020944,000491: 35,2257           00001                                    0D                                    
020945,000492: 35,2260           27454                           STOVL    SECMAX                                
020946,000493: 35,2261           03540                                    RACT3                                 
020947,000494: 35,2262           27576                           STOVL    RAPREC                                
020948,000495: 35,2263           03546                                    VACT3                                 
020949,000496: 35,2264           27570                           STOVL    VAPREC                                
020950,000497: 35,2265           03554                                    RPASS3                                
020951,000498: 35,2266           27620                           STOVL    RPPREC                                
020952,000499: 35,2267           03562                                    VPASS3                                
020953,000500: 35,2270           03612                           STORE    VPPREC                                
020954,000501: 35,2271           77624        ELCALC             CALL                                           
020955,000502: 35,2272           74000                                    S34/35.1                              #  NORMAL AND LOS
020956,000503: 35,2273           63235                           VXV      PDVL                                  
020957,000504: 35,2274           03540                                    RACT3                                 #  (RA*VA)*RA 0D
020958,000505: 35,2275           53515                           PDVL     UNIT                                  #  ULOS AT 6D
020959,000506: 35,2276           03540                                    RACT3                                 
020960,000507: 35,2277           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
020961,000508: 35,2300           51352                           VSL2     BVSU                                  
020962,000509: 35,2301           02625                                    ULOS                                  
020963,000510: 35,2302           63256                           UNIT     PDVL                                  #  UP AT 0D
020964,000511: 35,2303           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
020965,000512: 35,2304           00001                                    0D                                    #  UP IN MPAC
020966,000513: 35,2305           75241                           DOT      SIGN                                  
020967,000514: 35,2306           02625                                    ULOS                                  
020968,000515: 35,2307           65552                           SL1      ACOS                                  
020969,000516: 35,2310           50315                           PDVL     DOT                                   #  EA AT 0D
020970,000517: 35,2311           02625                                    ULOS                                  
020971,000518: 35,2312           03540                                    RACT3                                 
020972,000519: 35,2313           71244                           BPL      DLOAD                                 
020973,000520: 35,2314           72317                                    TESTY                                 
020974,000521: 35,2315           15344                                    DPPOSMAX                              
020975,000522: 35,2316           41425                           DSU      PUSH                                  
020976,000523: 35,2317           71214        TESTY              BOFF     DLOAD                                 
020977,000524: 35,2320           03741                                    ITSWICH                               
020978,000525: 35,2321           72546                                    ELEX                                  
020979,000526: 35,2322           03452                                    DELEL                                 
020980,000527: 35,2323           14033                           STODL    DELELO                                
020981,000528: 35,2324           77625                           DSU                                            
020982,000529: 35,2325           03744                                    ELEV                                  
020983,000530: 35,2326           03452                           STORE    DELEL                                 
020984,000531: 35,2327           45246                           ABS      DSU                                   
020985,000532: 35,2330           33151                                    ELEPS                                 

Page 474

020987,000534: 35,2331           77640                           BMN                                            
020988,000535: 35,2332           72556                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
020989,000536: 35,2333           70535        FIGTIME            SLOAD    SR1                                   
020990,000537: 35,2334           03665                                    TITER                                 
020991,000538: 35,2335           72030                           BHIZ     LXA,1                                 
020992,000539: 35,2336           01023                                    NORMEX                                #  TOO MANY ITERATIONS
020993,000540: 35,2337           00154                                    MPAC                                  
020994,000541: 35,2340           77330                           SXA,1    VLOAD                                 
020995,000542: 35,2341           03664                                    TITER                                 
020996,000543: 35,2342           03554                                    RPASS3                                
020997,000544: 35,2343           65256                           UNIT     PDDL                                  
020998,000545: 35,2344           00045                                    36D                                   
020999,000546: 35,2345           53515                           PDVL     UNIT                                  
021000,000547: 35,2346           03540                                    RACT3                                 
021001,000548: 35,2347           77725                           PDDL                                           
021002,000549: 35,2350           41525                           PDDL     PUSH                                  
021003,000550: 35,2351           00045                                    36D                                   
021004,000551: 35,2352           77621                           BDSU                                           
021005,000552: 35,2353           00015                                    12D                                   
021006,000553: 35,2354           14037                           STODL    30D                                   #  RP - RA MAGNITUDES
021007,000554: 35,2355           15334                                    DPHALF                                
021008,000555: 35,2356           41425                           DSU      PUSH                                  
021009,000556: 35,2357           03744                                    ELEV                                  
021010,000557: 35,2360           50165                           SIGN     BMN                                   
021011,000558: 35,2361           00037                                    30D                                   
021012,000559: 35,2362           01023                                    NORMEX                                
021013,000560: 35,2363           71545                           DLOAD    COS                                   
021014,000561: 35,2364           56205                           DMP      DDV                                   
021015,000562: 35,2365           00017                                    14D                                   
021016,000563: 35,2366           00015                                    12D                                   
021017,000564: 35,2367           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
021018,000565: 35,2370           00035                           STORE    28D                                   
021019,000566: 35,2371           44246                           ABS      BDSU                                  
021020,000567: 35,2372           15334                                    DPHALF                                
021021,000568: 35,2373           77240                           BMN      VLOAD                                 
021022,000569: 35,2374           01023                                    NORMEX                                
021023,000570: 35,2375           02617                                    UNRM                                  
021024,000571: 35,2376           53435                           VXV      UNIT                                  
021025,000572: 35,2377           00007                                    6D                                    #  UN*RA
021026,000573: 35,2400           41241                           DOT      DMP                                   
021027,000574: 35,2401           03546                                    VACT3                                 
021028,000575: 35,2402           00015                                    12D                                   
021029,000576: 35,2403           47315                           PDVL     VXV                                   
021030,000577: 35,2404           00001                                    0D                                    
021031,000578: 35,2405           03562                                    VPASS3                                
021032,000579: 35,2406           53435                           VXV      UNIT                                  
021033,000580: 35,2407           00001                                    0D                                    #  (RP*VP)*RP
021034,000581: 35,2410           41241                           DOT      DMP                                   
021035,000582: 35,2411           03562                                    VPASS3                                
021036,000583: 35,2412           00017                                    14D                                   

Page 475

021038,000585: 35,2413           77621                           BDSU                                           
021039,000586: 35,2414           63301                           NORM     PDVL                                  #  NORMALIZED WA - WP 12D
021040,000587: 35,2415           00047                                    X1                                    
021041,000588: 35,2416           00007                                    6D                                    
021042,000589: 35,2417           50235                           VXV      DOT                                   
021043,000590: 35,2420           00001                                    0D                                    
021044,000591: 35,2421           02617                                    UNRM                                  #  RA*RP.UN 14D
021045,000592: 35,2422           50315                           PDVL     DOT                                   
021046,000593: 35,2423           00001                                    0D                                    
021047,000594: 35,2424           00007                                    6D                                    
021048,000595: 35,2425           65552                           SL1      ACOS                                  
021049,000596: 35,2426           77765                           SIGN                                           
021050,000597: 35,2427           43225                           DSU      DAD                                   #    ALPHA   PI
021051,000598: 35,2430           15334                                    DPHALF                                
021052,000599: 35,2431           03744                                    ELEV                                  
021053,000600: 35,2432           65525                           PDDL     ACOS                                  
021054,000601: 35,2433           00035                                    28D                                   
021055,000602: 35,2434           75221                           BDSU     SIGN                                  
021056,000603: 35,2435           15334                                    DPHALF                                
021057,000604: 35,2436           00037                                    30D                                   #  CONTAINS RP-RA
021058,000605: 35,2437           77615                           DAD                                            
021059,000606: 35,2440           56205                           DMP      DDV                                   
021060,000607: 35,2441           33143                                    TWOPI                                 
021061,000608: 35,2442           77605                           DMP                                            
021062,000609: 35,2443           41257                           SL*      DMP                                   
021063,000610: 35,2444           20176                                    0          -3,1                       
021064,000611: 35,2445           51406                           PUSH     ABS                                   
021065,000612: 35,2446           50025                           DSU      BMN                                   
021066,000613: 35,2447           03454                                    SECMAX                                
021067,000614: 35,2450           72454                                    OKMAX                                 
021068,000615: 35,2451           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
021069,000616: 35,2452           03454                                    SECMAX                                
021070,000617: 35,2453           77606                           PUSH                                           
021071,000618: 35,2454           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
021072,000619: 35,2455           03665                                    TITER                                 
021073,000620: 35,2456           72464                                    REPETE                                
021074,000621: 35,2457           71331                           SSP      DLOAD                                 
021075,000622: 35,2460           03665                                    TITER                                 
021076,000623: 35,2461           37777                           OCT      37777                                 
021077,000624: 35,2462           77650                           GOTO                                           
021078,000625: 35,2463           72522                                    STORDELT                              
021079,000626: 35,2464           41345        REPETE             DLOAD    DMP                                   
021080,000627: 35,2465           03452                                    DELEL                                 
021081,000628: 35,2466           00033                                    DELELO                                
021082,000629: 35,2467           71244                           BPL      DLOAD                                 
021083,000630: 35,2470           72500                                    NEXTES                                
021084,000631: 35,2471           03454                                    SECMAX                                
021085,000632: 35,2472           77605                           DMP                                            
021086,000633: 35,2473           33147                                    THIRD                                 
021087,000634: 35,2474           17454                           STODL    SECMAX                                

Page 476

021089,000636: 35,2475           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
021090,000637: 35,2476           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
021091,000638: 35,2477           72510                                    RESIGN                                
021092,000639: 35,2500           51545        NEXTES             DLOAD    ABS                                   
021093,000640: 35,2501           03452                                    DELEL                                 
021094,000641: 35,2502           51525                           PDDL     ABS                                   
021095,000642: 35,2503           00033                                    DELELO                                
021096,000643: 35,2504           77625                           DSU                                            
021097,000644: 35,2505           71240                           BMN      DLOAD                                 
021098,000645: 35,2506           72513                                    REVERS                                #  WRONG DIRECTION
021099,000646: 35,2507           77646                           ABS                                            
021100,000647: 35,2510           52165        RESIGN             SIGN     GOTO                                  
021101,000648: 35,2511           03450                                    DELTEEO                               
021102,000649: 35,2512           72522                                    STORDELT                              
021103,000650: 35,2513           57545        REVERS             DLOAD    DCOMP                                 
021104,000651: 35,2514           03450                                    DELTEEO                               
021105,000652: 35,2515           70406                           PUSH     SR1                                   
021106,000653: 35,2516           03450                           STORE    DELTEEO                               
021107,000654: 35,2517           77615                           DAD                                            
021108,000655: 35,2520           77650                           GOTO                                           
021109,000656: 35,2521           72523                                    ADTIME                                
021110,000657: 35,2522           03450        STORDELT           STORE    DELTEEO                               
021111,000658: 35,2523           77615        ADTIME             DAD                                            
021112,000659: 35,2524           02355                                    NOMTPI                                #  SUM OF DELTA T'S
021113,000660: 35,2525           02355                           STORE    NOMTPI                                
021114,000661: 35,2526           63375                           VLOAD    PDVL                                  
021115,000662: 35,2527           03570                                    VAPREC                                
021116,000663: 35,2530           03576                                    RAPREC                                
021117,000664: 35,2531           77624                           CALL                                           
021118,000665: 35,2532           72734                                    GOINT                                 
021119,000666: 35,2533           77624                           CALL                                           
021120,000667: 35,2534           45304                                    ACTIVE                                #  STORE NEW RACT3 VACT3
021121,000668: 35,2535           63375                           VLOAD    PDVL                                  
021122,000669: 35,2536           03612                                    VPPREC                                
021123,000670: 35,2537           03620                                    RPPREC                                
021124,000671: 35,2540           77624                           CALL                                           
021125,000672: 35,2541           72734                                    GOINT                                 
021126,000673: 35,2542           77624                           CALL                                           
021127,000674: 35,2543           45314                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
021128,000675: 35,2544           77650                           GOTO                                           
021129,000676: 35,2545           72271                                    ELCALC                                
021130,000677: 35,2546           43345        ELEX               DLOAD    DAD                                   
021131,000678: 35,2547           03663                                    TTPI                                  
021132,000679: 35,2550           02355                                    NOMTPI                                
021133,000680: 35,2551           17663                           STODL    TTPI                                  
021134,000681: 35,2552           77614                           BON                                            
021135,000682: 35,2553           01310                                    ETPIFLAG                              
021136,000683: 35,2554           72556                                    TIMEX                                 
021137,000684: 35,2555           03744                           STORE    ELEV                                  
021138,000685: 35,2556           52145        TIMEX              DLOAD    GOTO                                  

Page 477

021140,000687: 35,2557           15336                                    ZEROVECS                              
021141,000688: 35,2560           01023                                    NORMEX                                
021142,000689: 

Page 478

021144,000691:                                                                                                  #  ..... S34/35.1  .....
021145,000692: 
021146,000693:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
021147,000694:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
021148,000695: 
021149,000696: 36,2000                                           SETLOC   S3435LOC                              
021150,000697: 36,2000                                           BANK                                           
021151,000698: 
021152,000699: 36,2000                                           COUNT*   $$/P3474                              
021153,000700: 36,2000           52375        S34/35.1           VLOAD    VSU                                   
021154,000701: 36,2001           03554                                    RPASS3                                
021155,000702: 36,2002           03540                                    RACT3                                 
021156,000703: 36,2003           41456                           UNIT     PUSH                                  
021157,000704: 36,2004           26625                           STOVL    ULOS                                  
021158,000705: 36,2005           03540                                    RACT3                                 
021159,000706: 36,2006           53435                           VXV      UNIT                                  
021160,000707: 36,2007           03546                                    VACT3                                 
021161,000708: 36,2010           02617                           STORE    UNRM                                  
021162,000709: 36,2011           77616                           RVQ                                            
021163,000710: 

Page 479

021165,000712:                                                                                                  #  ..... S34/35.2  .....
021166,000713: 
021167,000714:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
021168,000715: 
021169,000716: 35,2000                                           SETLOC   CSI/CDH                               
021170,000717: 35,2000                                           BANK                                           
021171,000718: 
021172,000719: 35,2561                                           COUNT*   $$/P3474                              
021173,000720: 35,2561           77220        S34/35.2           STQ      VLOAD                                 
021174,000721: 35,2562           02360                                    SUBEXIT                               
021175,000722: 35,2563           03562                                    VPASS3                                
021176,000723: 35,2564           65315                           PDVL     PDDL                                  
021177,000724: 35,2565           03554                                    RPASS3                                
021178,000725: 35,2566           03503                                    INTIME                                
021179,000726: 35,2567           65325                           PDDL     PDDL                                  
021180,000727: 35,2570           03656                                    TPASS4                                
021181,000728: 35,2571           33143                                    TWOPI                                 #  CONIC
021182,000729: 35,2572           46125                           PDDL     BHIZ                                  
021183,000730: 35,2573           03766                                    NN                                    
021184,000731: 35,2574           72577                                    S3435.23                              
021185,000732: 35,2575           65345                           DLOAD    PDDL                                  
021186,000733: 35,2576           15336                                    ZEROVECS                              #  PRECISION
021187,000734: 35,2577           77624        S3435.23           CALL                                           
021188,000735: 35,2600           72740                                    INTINT                                #  GET TARGET VECTOR
021189,000736: 35,2601           27415        S3435.25           STOVL    RTARG                                 
021190,000737: 35,2602           00007                                    VATT                                  
021191,000738: 35,2603           27640                           STOVL    VPASS4                                
021192,000739: 35,2604           03415                                    RTARG                                 
021193,000740:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP)-PI)SIGN(RA*RP.U)
021194,000741: 35,2605           63256                           UNIT     PDVL                                  #  UNIT RP
021195,000742: 35,2606           03540                                    RACT3                                 
021196,000743: 35,2607           41456                           UNIT     PUSH                                  #  UNIT RA
021197,000744: 35,2610           50235                           VXV      DOT                                   
021198,000745: 35,2611           00001                                    0D                                    
021199,000746: 35,2612           02617                                    UNRM                                  #  RA*RP.U
021200,000747: 35,2613           77715                           PDVL                                           
021201,000748: 35,2614           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
021202,000749: 35,2615           00001                                    0D                                    
021203,000750: 35,2616           75326                           ACOS     SIGN                                  
021204,000751: 35,2617           43244                           BPL      DAD                                   
021205,000752: 35,2620           72622                                    NOPIE                                 
021206,000753: 35,2621           15344                                    DPPOSMAX                              #  REASONABLE TWO PI
021207,000754: 35,2622           16633        NOPIE              STODL    ACTCENT                               
021208,000755: 35,2623           03656                                    TPASS4                                
021209,000756: 35,2624           77625                           DSU                                            
021210,000757: 35,2625           03503                                    INTIME                                
021211,000758: 35,2626           03423                           STORE    DELLT4                                
021212,000759: 35,2627           40335                           SLOAD    SETPD                                 
021213,000760: 35,2630           03766                                    NN                                    #  NUMBER OF OFFSETS
021214,000761: 35,2631           00001                                    0D                                    
021215,000762: 35,2632           63325                           PDDL     PDVL                                  

Page 480

021217,000764: 35,2633           33156                                    EPSFOUR                               
021218,000765: 35,2634           03540                                    RACT3                                 
021219,000766: 35,2635           27570                           STOVL    RINIT                                 
021220,000767: 35,2636           03546                                    VACT3                                 
021221,000768: 35,2637           37576                           STCALL   VINIT                                 
021222,000769: 35,2640           22000                                    INITVEL                               
021223,000770: 35,2641           77624                           CALL                                           
021224,000771: 35,2642           72721                                    LOMAT                                 
021225,000772: 35,2643           64375                           VLOAD    MXV                                   
021226,000773: 35,2644           03646                                    DELVEET3                              
021227,000774: 35,2645           00001                                    0D                                    
021228,000775: 35,2646           77772                           VSL1                                           
021229,000776: 35,2647           37405                           STCALL   DELVLVC                               
021230,000777: 35,2650           02360                                    SUBEXIT                               
021231,000778: 

Page 481

021233,000780:                                                                                                  #  ..... S34/35.3  .....
021234,000781: 
021235,000782: 35,2651           45020        S34/35.3           STQ      CALL                                  
021236,000783: 35,2652           01023                                    NORMEX                                
021237,000784: 35,2653           72721                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
021238,000785: 35,2654           61375                           VLOAD    VXM                                   
021239,000786: 35,2655           03405                                    DELVLVC                               #  NEW DEL V TPI
021240,000787: 35,2656           00001                                    0D                                    
021241,000788: 35,2657           77772                           VSL1                                           
021242,000789: 35,2660           03646                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
021243,000790: 35,2661           63255                           VAD      PDVL                                  
021244,000791: 35,2662           03546                                    VACT3                                 #  NEW V REQ
021245,000792: 35,2663           03540                                    RACT3                                 
021246,000793: 35,2664           65325                           PDDL     PDDL                                  
021247,000794: 35,2665           03413                                    TIG                                   
021248,000795: 35,2666           03656                                    TPASS4                                
021249,000796: 35,2667           41525                           PDDL     PUSH                                  
021250,000797: 35,2670           15344                                    DPPOSMAX                              
021251,000798: 35,2671           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
021252,000799: 35,2672           72740                                    INTINT                                
021253,000800: 35,2673           77775                           VLOAD                                          
021254,000801: 35,2674           00001                                    RATT                                  
021255,000802: 35,2675           03415                           STORE    RTARG                                 
021256,000803: 35,2676           41575        NOVRWRT            VLOAD    PUSH                                  
021257,000804: 35,2677           02625                                    ULOS                                  
021258,000805: 35,2700           57435                           VXV      VCOMP                                 
021259,000806: 35,2701           02617                                    UNRM                                  
021260,000807: 35,2702           41456                           UNIT     PUSH                                  
021261,000808: 35,2703           76435                           VXV      VSL1                                  
021262,000809: 35,2704           02625                                    ULOS                                  
021263,000810: 35,2705           77715                           PDVL                                           
021264,000811: 35,2706           64315                           PDVL     MXV                                   
021265,000812: 35,2707           03646                                    DELVEET3                              
021266,000813: 35,2710           00001                                    0D                                    
021267,000814: 35,2711           77772                           VSL1                                           
021268,000815: 35,2712           36611                           STCALL   DVLOS                                 
021269,000816: 35,2713           01023                                    NORMEX                                
021270,000817: 

Page 482

021272,000819:                                                                                                  #  ..... S34/35.4  .....
021273,000820: 
021274,000821: 35,2714           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
021275,000822: 35,2715           01023                                    NORMEX                                
021276,000823: 35,2716           00001                                    0D                                    
021277,000824: 35,2717           77650                           GOTO                                           
021278,000825: 35,2720           72676                                    NOVRWRT                               
021279,000826: 

Page 483

021281,000828:                                                                                                  #  ..... LOMAT     .....
021282,000829: 
021283,000830: 35,2721           57575        LOMAT              VLOAD    VCOMP                                 
021284,000831: 35,2722           02617                                    UNRM                                  
021285,000832: 35,2723           24007                           STOVL    6D                                    #  Y
021286,000833: 35,2724           03540                                    RACT3                                 
021287,000834: 35,2725           57456                           UNIT     VCOMP                                 
021288,000835: 35,2726           00015                           STORE    12D                                   
021289,000836: 35,2727           76435                           VXV      VSL1                                  
021290,000837: 35,2730           02617                                    UNRM                                  #  Z*-Y
021291,000838: 35,2731           00001                           STORE    0D                                    
021292,000839: 35,2732           43401                           SETPD    RVQ                                   
021293,000840: 35,2733           00023                                    18D                                   
021294,000841: 35,2734           65325        GOINT              PDDL     PDDL                                  #  DO
021295,000842: 35,2735           15336                                    ZEROVECS                              #    NOT
021296,000843: 35,2736           02355                                    NOMTPI                                
021297,000844: 35,2737           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
021298,000845: 35,2740           45020        INTINT             STQ      CALL                                  
021299,000846: 35,2741           02357                                    RTRN                                  
021300,000847: 35,2742           27516                                    INTSTALL                              
021301,000848: 35,2743           71214                           CLEAR    DLOAD                                 
021302,000849: 35,2744           01673                                    INTYPFLG                              
021303,000850: 35,2745           43054                           BZE      SET                                   
021304,000851: 35,2746           72750                                    +2                                    
021305,000852: 35,2747           01473                                    INTYPFLG                              
021306,000853: 35,2750           45545                           DLOAD    STADR                                 
021307,000854: 35,2751           63736                           STODL    TDEC1                                 
021308,000855: 35,2752           73014                           SET      LXA,2                                 
021309,000856: 35,2753           00063                                    MOONFLAG                              
021310,000857: 35,2754           03746                                    RTX2                                  
021311,000858: 35,2755           43014                           BON      CLEAR                                 
021312,000859: 35,2756           04303                                    CMOONFLG                              
021313,000860: 35,2757           72761                                    ALLSET                                
021314,000861: 35,2760           00263                                    MOONFLAG                              
021315,000862: 35,2761           25517        ALLSET             STOVL    TET                                   
021316,000863: 35,2762           77657                           VSR*                                           
021317,000864: 35,2763           57176                                    0,2                                   
021318,000865: 35,2764           25535                           STOVL    RCV                                   
021319,000866: 35,2765           77657                           VSR*                                           
021320,000867: 35,2766           57176                                    0,2                                   
021321,000868: 35,2767           35543                           STCALL   VCV                                   
021322,000869: 35,2770           27211                                    INTEGRVS                              
021323,000870: 35,2771           52175                           VLOAD    GOTO                                  
021324,000871: 35,2772           00001                                    RATT                                  
021325,000872: 35,2773           02357                                    RTRN                                  
021326,000873: 

Page 484

021328,000875:                                                                                                  #  ..... S34/35.5  .....
021329,000876: 
021330,000877:                                                                                                  #  SUBROUTINES USED
021331,000878: 
021332,000879:                                                                                                  #        BANKCALL
021333,000880:                                                                                                  #        GOFLASH
021334,000881:                                                                                                  #        GOTOPOOH
021335,000882:                                                                                                  #        S34/35.3
021336,000883:                                                                                                  #        S34.35.4
021337,000884:                                                                                                  #        VNPOOH
021338,000885: 
021339,000886: 35,2774           43020        S34/35.5           STQ      BON                                   
021340,000887: 35,2775           02360                                    SUBEXIT                               
021341,000888: 35,2776           01311                                    FINALFLG                              
021342,000889: 35,2777           73003                                    FLAGON                                
021343,000890: 35,3000           52014                           SET      GOTO                                  
021344,000891: 35,3001           00470                                    UPDATFLG                              
021345,000892: 35,3002           73005                                    FLAGON     +2                         
021346,000893: 35,3003           77614        FLAGON             SET                                            
021347,000894: 35,3004           05074                                    TPIMNFLG                              #  INDICATE TPI MANEUVER DONE
021348,000895: 35,3005           77775                 +2        VLOAD                                          
021349,000896: 35,3006           03405                                    DELVLVC                               
021350,000897: 35,3007           03620                           STORE    VTPRIME                               #  SAVE DELTA V BEFORE DISPLAY
021351,000898: 35,3010           77776                           EXIT                                           
021352,000899: 35,3011           34535                           CAF      V06N81                                
021353,000900: 35,3012           05535                           TC       VNFLASH                               
021354,000901: 35,3013           06006                           TC       INTPRET                               
021355,000902: 35,3014           52375                           VLOAD    VSU                                   #  TEST FOR OVERWRITE OF COMPUTED
021356,000903: 35,3015           03405                                    DELVLVC                               #                       DELTA V
021357,000904: 35,3016           03620                                    VTPRIME                               
021358,000905: 35,3017           53046                           ABVAL    BZE                                   
021359,000906: 35,3020           73023                                    FLAGOFF                               
021360,000907: 35,3021           77624                           CALL                                           
021361,000908: 35,3022           72651                                    S34/35.3                              #  COMPUTE NEW TARGET VECTOR
021362,000909:                                                                                                  #  TRANSFER OF DELVEET3 TO DELVSIN OUT...THEY SHARE SAME ERASABLE.
021363,000910: 35,3023           77624        FLAGOFF            CALL                                           
021364,000911: 35,3024           72714                                    S34/35.4                              
021365,000912: 35,3025           77650        FLAGEND            GOTO                                           
021366,000913: 35,3026           02360                                    SUBEXIT                               
021367,000914: 

Page 485

021369,000916:                                                                                                  #  ..... VN1645    .....
021370,000917: 
021371,000918:                                                                                                  #  SUBROUTINES USED
021372,000919: 
021373,000920:                                                                                                  #        P3XORP7X
021374,000921:                                                                                                  #        GET+MGA
021375,000922:                                                                                                  #        BANKCALL
021376,000923:                                                                                                  #        DELAYJOB
021377,000924:                                                                                                  #        COMPTGO
021378,000925:                                                                                                  #        GOFLASHR
021379,000926:                                                                                                  #        GOTOPOOH
021380,000927:                                                                                                  #        FLAGUP
021381,000928: 
021382,000929: 35,3027           71220        VN1645             STQ      DLOAD                                 
021383,000930: 35,3030           02360                                    SUBEXIT                               
021384,000931: 35,3031           33154                                    DP-.01                                
021385,000932: 35,3032           03626                           STORE    +MGA                                  #  MGA = -.01
021386,000933: 35,3033           71214                           BOFF     DLOAD                                 
021387,000934: 35,3034           01351                                    FINALFLG                              
021388,000935: 35,3035           73055                                    GET45                                 
021389,000936: 35,3036           33154                                    DP-.01                                
021390,000937: 35,3037           77615                           DAD                                            
021391,000938: 35,3040           33154                                    DP-.01                                
021392,000939: 35,3041           03626                           STORE    +MGA                                  #  MGA = -.02
021393,000940: 35,3042           77414                           BOFF     EXIT                                  
021394,000941: 35,3043           01742                                    REFSMFLG                              
021395,000942: 35,3044           73055                                    GET45                                 
021396,000943: 35,3045           03137                           TC       P3XORP7X                              
021397,000944: 35,3046           03050                           TC       +2                                    #  P3X
021398,000945: 35,3047           03056                           TC       GET45      +1                         #  P7X
021399,000946: 35,3050           06006                           TC       INTPRET                               
021400,000947: 35,3051           41575                           VLOAD    PUSH                                  
021401,000948: 35,3052           03646                                    DELVSIN                               
021402,000949: 35,3053           77624                           CALL                                           #  COMPUTE MGA
021403,000950: 35,3054           56444                                    GET+MGA                               
021404,000951: 35,3055           77776        GET45              EXIT                                           
021405,000952: 35,3056           03525                 +1        TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
021406,000953: 35,3057           31760                           CA       SUBEXIT                               
021407,000954: 35,3060           55756                           TS       QSAVED                                
021408,000955: 35,3061           04636                           TC       BANKCALL                              
021409,000956: 35,3062           01730                           CADR     1SECDELY                              
021410,000957: 35,3063           34536                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
021411,000958: 35,3064           04636                           TC       BANKCALL                              
021412,000959: 35,3065           20743                           CADR     GOFLASH                               
021413,000960: 35,3066           04103                           TC       GOTOPOOH                              #  TERMINATE
021414,000961: 35,3067           03071                           TC       N45PROC                               #  PROCEED
021415,000962: 35,3070           03101                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
021416,000963: 35,3071           40076        N45PROC            CS       FLAGWRD2                              
021417,000964: 35,3072           74763                           MASK     FINALBIT                              
021418,000965: 35,3073           00006                           EXTEND                                         

Page 486

021420,000967: 35,3074           13113                           BZF      N45ENAJ                               #  FINAL FLAG SET - FINAL PASS
021421,000968: 35,3075           05402        N45NORM            TC       PHASCHNG                              
021422,000969: 35,3076           04024                           OCT      04024                                 
021423,000970: 35,3077           05547                           TC       UPFLAG                                #  SET
021424,000971: 35,3100           00047                           ADRES    FINALFLG                              #  FINALFLG
021425,000972: 35,3101           05561        CLUPDATE           TC       DOWNFLAG                              
021426,000973: 35,3102           00155                           ADRES    TIMRFLAG                              #  TERMINATE CLOKTASK
021427,000974: 35,3103           33136                           CAF      VN1645AD                              #  CHANGE BACK TO 4.1 FOR
021428,000975: 35,3104           54373                           TS       TEMPFLSH                              #  FUTURE DISPLAYS
021429,000976: 35,3105           05402                           TC       PHASCHNG                              
021430,000977: 35,3106           00014                           OCT      14                                    
021431,000978: 
021432,000979: 35,3107           06006        VN1645R            TC       INTPRET                               
021433,000980: 35,3110           52014                           CLEAR    GOTO                                  
021434,000981: 35,3111           00670                                    UPDATFLG                              
021435,000982: 35,3112           02356                 +3                 QSAVED                                
021436,000983: 35,3113           05402        N45ENAJ            TC       PHASCHNG                              #  PROTECT MANEVFLG, WRENDPOS
021437,000984: 35,3114           04024                           OCT      04024                                 
021438,000985: 35,3115           06006                           TC       INTPRET                               
021439,000986: 35,3116           77745                           DLOAD                                          
021440,000987: 35,3117           03413                                    TIG                                   
021441,000988: 35,3120           03450                           STORE    NOMTIG                                
021442,000989: 35,3121           43014                           BON      SET                                   
021443,000990: 35,3122           05316                                    PCFLAG                                
021444,000991: 35,3123           73125                                    CHGRMS                                
021445,000992: 35,3124           05072                                    MANEUFLG                              #  DONT SET FLAG IF PC MANEUVER
021446,000993: 35,3125           71214        CHGRMS             BOFF     DLOAD                                 
021447,000994: 35,3126           05350                                    AUTOSEQ                               
021448,000995: 35,3127           73132                                    SAMERMS                               
021449,000996: 35,3130           33135                                    POSVEL2                               #  CHANGE RMS ONLY IN MINKEY
021450,000997: 35,3131           02001                           STORE    WRENDPOS                              
021451,000998: 35,3132           77776        SAMERMS            EXIT                                           
021452,000999: 35,3133           14105                           TCF      MNKGOPOO                              
021453,001000: 35,3134           00023        POSVEL2            DEC      608        B-19                       #  2000 FT IN METERS
021454,001001: 35,3135           00144        POSVEL3            DEC      .00608                                #  2 FT/SEC IN M/CS
021455,001002: 35,3136           73112        VN1645AD           CADR     VN1645R    +3                         
021456,001003: 

Page 487

021458,001005:                                                                                                  #  ..... P3XORP7X  .....
021459,001006: 
021460,001007: 35,3137           37677        P3XORP7X           CAF      HIGH9                                 
021461,001008: 35,3140           71214                           MASK     MODREG                                
021462,001009: 35,3141           15651                           TCF      INCRQCK                               
021463,001010:    4000                                           SETLOC   P30SUBS                               
021464,001011:    4000                                           BANK                                           
021465,001012: 
021466,001013:    4532                                           COUNT*   $$/P3474                              
021467,001014: 

Page 488

021469,001016:                                                                                                  #  ..... CONSTANTS .....
021470,001017: 
021471,001018:    4532           01445        V06N37             VN       0637                                  
021472,001019:    4533           01467        V06N55             VN       0655                                  
021473,001020:    4534           01472        V06N58             VN       0658                                  
021474,001021:    4535           01521        V06N81             VN       0681                                  
021475,001022:    4536           04055        V16N45             VN       1645                                  
021476,001023:    4537           01006        V04N06             VN       0406                                  
021477,001024: 
021478,001025: 35,2000                                           SETLOC   CSI/CDH                               
021479,001026: 35,2000                                           BANK                                           
021480,001027: 
021481,001028: 35,3142                                           COUNT*   $$/P3474                              
021482,001029: 35,3142           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
021483,001030: 35,3144           00001 20650  MAX250             2DEC     25         E3                         
021484,001031: 35,3146           12525 12525  THIRD              2DEC     .333333333                            
021485,001032: 35,3150           00004 21505  ELEPS              2DEC     .27777777  E-3                        
021486,001033: 35,3152           00002        DECTWO             DEC      2          B-14                       
021487,001034: 35,3153           77777        DP-.01             OCT      77777                                 #  CONSTANTS
021488,001035: 35,3154           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
021489,001036: 35,3155           01252 25253  EPSFOUR            2DEC     .0416666666                            
021490,001037: 35,3157           01473        V06N59             VN       0659                                  
021491,001038: 

Page 489

021493,001040:                                                                                                  #  ..... INITVEL .....
021494,001041: 
021495,001042:                                                                                                  #  MOD NO -1             LOG SECTION - P34-P35, P74-P75
021496,001043:                                                                                                  #  MOD BY WHITE.P        DATE  21NOV67
021497,001044: 
021498,001045:                                                                                                  #  FUNCTIONAL DESCRIPTION
021499,001046: 
021500,001047:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
021501,001048:                                                                                                  #        A TRAJECTORY OF SPECIFIC TRANSFER TIME BETWEEN SPECIFIED INITIAL
021502,001049:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
021503,001050:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
021504,001051:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
021505,001052:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
021506,001053:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
021507,001054:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
021508,001055:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
021509,001056:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
021510,001057: 
021511,001058:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
021512,001059:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
021513,001060:                                                                                                  #        SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
021514,001061:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
021515,001062:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
021516,001063:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
021517,001064:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
021518,001065:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
021519,001066: 
021520,001067:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMUTATIONS AND
021521,001068:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
021522,001069:                                                                                                  #        TRAJECTORY COMPUTATIONS.
021523,001070: 
021524,001071:                                                                                                  #  CALLING SEQUENCE
021525,001072: 
021526,001073:                                                                                                  #        L       CALL
021527,001074:                                                                                                  #        L+1             INITVEL
021528,001075:                                                                                                  #        L+2     (RETURN - ALWAYS)
021529,001076: 
021530,001077:                                                                                                  #  INPUT
021531,001078: 
021532,001079:                                                                                                  #        (1) RINIT       INITIAL POSITION RADIUS VECTOR
021533,001080:                                                                                                  #        (2) VINIT       INITIAL POSITION VELOCITY VECTOR
021534,001081:                                                                                                  #        (3) RTARG       TARGET POSITION RADIUS VECTOR
021535,001082:                                                                                                  #        (4) DELLT4      DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
021536,001083:                                                                                                  #        (5) INTIME      TIME OF RINIT
021537,001084:                                                                                                  #        (6) 0D          NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
021538,001085:                                                                                                  #        (7) 2D          ANGLE TO 180 DEGREES WHEN ROTATION STARTS
021539,001086:                                                                                                  #        (8) RTX1        -2 FOR EARTH, -10D FOR LUNAR
021540,001087:                                                                                                  #        (9) RTX2        COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
021541,001088:                                                                                                  #        PUSHLOC SET AT 4D
021542,001089: 

Page 490

021544,001091:                                                                                                  #  OUTPUT
021545,001092: 
021546,001093:                                                                                                  #        (1) RTARG       OFFSET TARGET POSITION VECTOR
021547,001094:                                                                                                  #        (2) VIPRIME     MANEUVER VELOCITY REQUIRED
021548,001095:                                                                                                  #        (3) VTPRIME     VELOCITY AT TARGET AFTER MANEUVER
021549,001096:                                                                                                  #        (4) DELVEET3    DELTA VELOCITY REQUIRED FOR MANEUVER
021550,001097: 
021551,001098:                                                                                                  #  SUBROUTINES USED
021552,001099: 
021553,001100:                                                                                                  #        LAMBERT
021554,001101:                                                                                                  #        INTSTALL
021555,001102:                                                                                                  #        INTEGRVS
021556,001103: 
021557,001104: 11,2000                                           SETLOC   INTVEL                                
021558,001105: 11,2000                                           BANK                                           
021559,001106: 
021560,001107: 11,2000                                           COUNT*   $$/INITV                              
021561,001108: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
021562,001109: 11,2001           00475                                    GUESSW                                
021563,001110: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
021564,001111: 11,2003           03415                                    RTARG                                 
021565,001112: 11,2004           01023                                    NORMEX                                
021566,001113: 11,2005           03604                           STORE    RTARG1                                
021567,001114: 11,2006           46135                           SLOAD    BHIZ                                  
021568,001115: 11,2007           03747                                    RTX2                                  
021569,001116: 11,2010           22022                                    INITVEL1                              
021570,001117: 11,2011           72575                           VLOAD    VSL2                                  
021571,001118: 11,2012           03570                                    RINIT                                 #  B29
021572,001119: 11,2013           27570                           STOVL    RINIT                                 #  B27
021573,001120: 11,2014           03576                                    VINIT                                 #  B7
021574,001121: 11,2015           77752                           VSL2                                           
021575,001122: 11,2016           27576                           STOVL    VINIT                                 #  B5
021576,001123: 11,2017           03604                                    RTARG1                                
021577,001124: 11,2020           77752                           VSL2                                           
021578,001125: 11,2021           03604                           STORE    RTARG1                                
021579,001126: 
021580,001127:                                                                                                  #  INITIALIZATION
021581,001128: 
021582,001129: 11,2022           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4(PL 2D)
021583,001130: 11,2023           03505                                    ITCTR                                 
021584,001131: 11,2024           77776                                    0          -1                         
021585,001132: 11,2025           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
021586,001133: 11,2026           17630                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4)         (PL 0D)
021587,001134: 11,2027           67154                           LXA,2    SXA,2                                 
021588,001135: 11,2030           00154                                    MPAC                                  
021589,001136: 11,2031           02703                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
021590,001137: 11,2032           77775                           VLOAD                                          
021591,001138: 11,2033           03570                                    RINIT                                 
021592,001139: 11,2034           26657                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
021593,001140: 11,2035           03604                                    RTARG1                                
021594,001141: 11,2036           16665                           STODL    R2VEC                                 #  R2VEC EQ RTARG

Page 491

021596,001143: 11,2037           03423                                    DELLT4                                
021597,001144: 11,2040           02673                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
021598,001145: 11,2041           77201                           SETPD    VLOAD                                 
021599,001146: 11,2042           00001                                    0D                                    #  INITIALIZE PL TO 0D
021600,001147: 11,2043           03570                                    RINIT                                 #  MPAC EQ RINIT (+29)
021601,001148: 11,2044           41456                           UNIT     PUSH                                  #  UNIT(RI)  (+1)                   (PL 6D)
021602,001149: 11,2045           53435                           VXV      UNIT                                  
021603,001150: 11,2046           03576                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI   (+8)
021604,001151: 11,2047           26676                           STOVL    UN                                    
021605,001152: 11,2050           03604                                    RTARG1                                
021606,001153: 11,2051           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)                (PL 0D)
021607,001154: 11,2052           43015                           DAD      CLEAR                                 
021608,001155: 11,2053           03630                                    COZY4                                 
021609,001156: 11,2054           03665                                    NORMSW                                
021610,001157: 11,2055           03630                           STORE    COZY4                                 
021611,001158: 11,2056           43044        INITVEL2           BPL      SET                                   
021612,001159: 11,2057           22101                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
021613,001160: 11,2060           03465                                    NORMSW                                
021614,001161: 
021615,001162:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
021616,001163: 
021617,001164: 11,2061           41575                           VLOAD    PUSH                                  #                                   (PL 6D)
021618,001165: 11,2062           02665                                    R2VEC                                 #  RC TO 6D (+29)
021619,001166: 11,2063           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
021620,001167: 11,2064           46206                           PUSH     VPROJ                                 #                                   (PL 8D)
021621,001168: 11,2065           02676                                    UN                                    
021622,001169: 11,2066           51352                           VSL2     BVSU                                  
021623,001170: 11,2067           74256                           UNIT     VXSC                                  #                                   (PL 0D)
021624,001171: 11,2070           77772                           VSL1                                           
021625,001172: 11,2071           02665                           STORE    R2VEC                                 
021626,001173: 11,2072           67351                           TLOAD    SLOAD                                 
021627,001174: 11,2073           11762                                    ZEROVEC                               
021628,001175: 11,2074           03505                                    ITCTR                                 
021629,001176: 11,2075           77244                           BPL      VLOAD                                 
021630,001177: 11,2076           22101                                    INITVEL3                              
021631,001178: 11,2077           02665                                    R2VEC                                 
021632,001179: 11,2100           03604                           STORE    RTARG1                                
021633,001180: 11,2101           63345        INITVEL3           DLOAD    PDVL                                  #                                   (PL 2D)
021634,001181: 11,2102           27740                                    MUEARTH                               #  POSITIVE VALUE
021635,001182: 11,2103           02665                                    R2VEC                                 
021636,001183: 11,2104           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)                 (PL 8D)
021637,001184: 11,2105           02657                                    R1VEC                                 
021638,001185: 11,2106           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)                 (PL14D)
021639,001186: 11,2107           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
021640,001187: 11,2110           00003                                    2D                                    
021641,001188: 11,2111           77606                           PUSH                                           #                                   (PL20D)
021642,001189: 11,2112           71350                           LXA,1    DLOAD                                 
021643,001190: 11,2113           03745                                    RTX1                                  
021644,001191: 11,2114           00023                                    18D                                   
021645,001192: 11,2115           62040                           BMN      INCR,1                                
021646,001193: 11,2116           22120                                    +2                                    

Page 492

021648,001195: 11,2117           77767                           DEC      -8         B-14                       
021649,001196: 11,2120           67310                           INCR,1   SLOAD                                 
021650,001197: 11,2121           00012                                    10D                                   
021651,001198: 11,2122           00047                                    X1                                    
021652,001199: 11,2123           77230                           BHIZ     VLOAD                                 #                                   (PL14D)
021653,001200: 11,2124           22126                                    +2                                    
021654,001201: 11,2125           41476                           VCOMP    PUSH                                  #                                   (PL20D)
021655,001202: 11,2126           77775                           VLOAD                                          #                                   (PL14D)
021656,001203: 11,2127           50235                           VXV      DOT                                   #                                   (PL 2D)
021657,001204: 11,2130           71244                           BPL      DLOAD                                 #                                   (PL 0D)
021658,001205: 11,2131           22133                                    INITVEL4                              
021659,001206: 11,2132           41476                           DCOMP    PUSH                                  #                                   (PL 2D)
021660,001207: 11,2133           67154        INITVEL4           LXA,2    SXA,2                                 
021661,001208: 11,2134           00000                                    0D                                    
021662,001209: 11,2135           02674                                    GEOMSGN                               
021663,001210: 
021664,001211:                                                                                                  #  SET INPUTS UP FOR LAMBERT
021665,001212: 
021666,001213: 11,2136           45150                           LXA,1    CALL                                  
021667,001214: 11,2137           03745                                    RTX1                                  
021668,001215: 
021669,001216:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
021670,001217: 
021671,001218: 11,2140           25255                                    LAMBERT                               
021672,001219: 
021673,001220: 11,2141           77214                           CLEAR    VLOAD                                 
021674,001221: 11,2142           00675                                    GUESSW                                
021675,001222: 11,2143           02746                                    VVEC                                  
021676,001223: 
021677,001224:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
021678,001225: 
021679,001226: 11,2144           17612                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
021680,001227: 
021681,001228:                                                                                                  #  IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
021682,001229:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
021683,001230: 
021684,001231: 11,2145           02704                                    VTARGTAG                              
021685,001232: 11,2146           45030                           BHIZ     CALL                                  
021686,001233: 11,2147           34003                                    INITVEL7                              
021687,001234: 11,2150           27516                                    INTSTALL                              
021688,001235: 11,2151           43135                           SLOAD    CLEAR                                 
021689,001236: 11,2152           03747                                    RTX2                                  
021690,001237: 11,2153           00263                                    MOONFLAG                              
021691,001238: 11,2154           43030                           BHIZ     SET                                   
021692,001239: 11,2155           22157                                    INITVEL5                              
021693,001240: 11,2156           00063                                    MOONFLAG                              
021694,001241: 11,2157           77775        INITVEL5           VLOAD                                          
021695,001242: 11,2160           03570                                    RINIT                                 
021696,001243: 11,2161           02657                           STORE    R1VEC                                 
021697,001244: 11,2162           25535                           STOVL    RCV                                   
021698,001245: 11,2163           03612                                    VIPRIME                               
021699,001246: 11,2164           15543                           STODL    VCV                                   
021700,001247: 11,2165           03503                                    INTIME                                

Page 493

021702,001249: 11,2166           01517                           STORE    TET                                   
021703,001250: 11,2167           43015                           DAD      CLEAR                                 
021704,001251: 11,2170           03423                                    DELLT4                                
021705,001252: 11,2171           01673                                    INTYPFLG                              
021706,001253: 11,2172           34041                           STCALL   TDEC1                                 
021707,001254: 11,2173           27211                                    INTEGRVS                              
021708,001255: 11,2174           77775                           VLOAD                                          
021709,001256: 11,2175           00025                                    VATT1                                 
021710,001257: 11,2176           02705                           STORE    VTARGET                               
021711,001258: 
021712,001259:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
021713,001260:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
021714,001261: 
021715,001262: 11,2177           63154                           LXA,2    INCR,2                                
021716,001263: 11,2200           03504                                    ITCTR                                 
021717,001264: 11,2201           00001                                    1D                                    #  INCREMENT ITCTR
021718,001265: 11,2202           55134                           SXA,2    XSU,2                                 
021719,001266: 11,2203           03504                                    ITCTR                                 
021720,001267: 11,2204           02703                                    VTARGTAG                              
021721,001268: 11,2205           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
021722,001269: 11,2206           00050                                    X2                                    
021723,001270: 11,2207           34000                                    INITVEL6                              
021724,001271: 
021725,001272:                                                                                                  #  OFFSET CONIC TARGET VECTOR
021726,001273: 
021727,001274: 11,2210           52375                           VLOAD    VSU                                   
021728,001275: 11,2211           03604                                    RTARG1                                
021729,001276: 11,2212           00017                                    RATT1                                 
021730,001277: 11,2213           77655                           VAD                                            
021731,001278: 11,2214           02665                                    R2VEC                                 
021732,001279: 11,2215           16665                           STODL    R2VEC                                 
021733,001280: 11,2216           03630                                    COZY4                                 
021734,001281: 11,2217           77650                           GOTO                                           
021735,001282: 11,2220           22056                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
021736,001283: 16,2000                                           SETLOC   INTVEL1                               
021737,001284: 16,2000                                           BANK                                           
021738,001285: 
021739,001286: 16,2000                                           COUNT*   $$/INITV                              
021740,001287: 
021741,001288:                                                                                                  #  COMPUTE THE DELTA VELOCITY
021742,001289: 
021743,001290: 16,2000           77775        INITVEL6           VLOAD                                          
021744,001291: 16,2001           02665                                    R2VEC                                 
021745,001292: 16,2002           03604                           STORE    RTARG1                                
021746,001293: 16,2003           52375        INITVEL7           VLOAD    VSU                                   
021747,001294: 16,2004           03612                                    VIPRIME                               
021748,001295: 16,2005           03576                                    VINIT                                 
021749,001296: 16,2006           27646                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT  (+7)
021750,001297: 16,2007           02705                                    VTARGET                               
021751,001298: 16,2010           37620                           STCALL   VTPRIME                               
021752,001299: 16,2011           22221                                    INITVEL8                              
021753,001300: 11,2000                                           SETLOC   INTVEL                                

Page 494

021755,001302: 11,2000                                           BANK                                           
021756,001303: 
021757,001304: 11,2221                                           COUNT*   $$/INITV                              
021758,001305: 11,2221           46135        INITVEL8           SLOAD    BHIZ                                  
021759,001306: 11,2222           03747                                    RTX2                                  
021760,001307: 11,2223           22240                                    INITVELX                              
021761,001308: 11,2224           70575                           VLOAD    VSR2                                  
021762,001309: 11,2225           03620                                    VTPRIME                               
021763,001310: 11,2226           27620                           STOVL    VTPRIME                               
021764,001311: 11,2227           03612                                    VIPRIME                               
021765,001312: 11,2230           77742                           VSR2                                           
021766,001313: 11,2231           27612                           STOVL    VIPRIME                               
021767,001314: 11,2232           03604                                    RTARG1                                
021768,001315: 11,2233           77742                           VSR2                                           
021769,001316: 11,2234           27604                           STOVL    RTARG1                                
021770,001317: 11,2235           03646                                    DELVEET3                              
021771,001318: 11,2236           77742                           VSR2                                           
021772,001319: 11,2237           03646                           STORE    DELVEET3                              
021773,001320: 11,2240           77201        INITVELX           SETPD    VLOAD                                 
021774,001321: 11,2241           00001                                    0D                                    
021775,001322: 11,2242           03604                                    RTARG1                                
021776,001323: 11,2243           03415                           STORE    RTARG                                 
021777,001324: 11,2244           77614                           CLRGO                                          
021778,001325: 11,2245           01227                                    XDELVFLG                              
021779,001326: 11,2246           01023                                    NORMEX                                
021780,001327: 
021781,001328:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
021782,001329: 

Page 495

021784,001331: 
021785,001332:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
021786,001333: 
021787,001334: 27,2000                                           SETLOC   MGIM                                  
021788,001335: 27,2000                                           BANK                                           
021789,001336: 
021790,001337: 27,2442                                           COUNT*   $$/MIDG                               
021791,001338: 
021792,001339: 27,2442           20000 00000  HALFREV            2DEC     1          B-1                        
021793,001340: 
021794,001341: 27,2444           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE  UV (+1)
021795,001342: 27,2445           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
021796,001343: 27,2446           01742                                    REFSMMAT   +6                         #   FROM +2 TO +1 FOR ASIN ROUTINE
021797,001344: 27,2447           51136                           ARCSIN   BPL                                   
021798,001345: 27,2450           56454                                    SETMGA                                
021799,001346: 27,2451           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
021800,001347: 27,2452           16443                                    HALFREV                               #  ADDING ONE REVOLUTION
021801,001348: 27,2453           16443                                    HALFREV                               
021802,001349: 27,2454           03626        SETMGA             STORE    +MGA                                  
021803,001350: 27,2455           77616                           RVQ                                            
021804,001351: 
021805,001352: 04,2000                                           SETLOC   MIDDGIM                               
021806,001353: 04,2000                                           BANK                                           
021807,001354: 
021808,001355: 04,3200                                           COUNT*   $$/MIDG                               
021809,001356: 
021810,001357:                                                                                                  #  TRANSFORM INPUT VECTOR INTO LOCAL VERTICAL COORDINATES.
021811,001358: 
021812,001359: 04,3200           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D)   R (+29) IN MPAC UNITZE  UR
021813,001360: 04,3201           03570                                    RINIT                                 
021814,001361: 04,3202           77676                           VCOMP                                          #  U(-R)
021815,001362: 04,3203           00023                           STORE    18D                                   #  U(-R) TO 18D
021816,001363: 04,3204           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
021817,001364: 04,3205           03576                                    VINIT                                 
021818,001365: 04,3206           00015                           STORE    12D                                   #  U(V*R) TO 12D
021819,001366: 04,3207           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
021820,001367: 04,3210           00023                                    18D                                   
021821,001368: 04,3211           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
021822,001369: 04,3212           00001                                    0D                                    #  DELTA V (+7) IN 0D
021823,001370: 04,3213           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
021824,001371: 04,3214           00007                                    6D                                    #   AND SCALE +7 IN MPAC
021825,001372: 04,3215           03405                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
021826,001373: 04,3216           77616                           RVQ                                            
021827,001374: 

Page 496

021829,001376: 04,3217           77160        SELECTMU           AXC,1    AXT,2                                 
021830,001377: 04,3220           00002                                    2D                                    
021831,001378: 04,3221           00000                                    0D                                    
021832,001379: 04,3222           77614                           BOFF                                           
021833,001380: 04,3223           04343                                    CMOONFLG                              
021834,001381: 04,3224           11230                                    SETMUER                               
021835,001382: 04,3225           77160                           AXC,1    AXT,2                                 
021836,001383: 04,3226           00012                                    10D                                   
021837,001384: 04,3227           00002                                    2D                                    
021838,001385: 04,3230           66143        SETMUER            DLOAD*   SXA,1                                 
021839,001386: 04,3231           22305                                    MUTABLE    +4,1                       
021840,001387: 04,3232           03745                                    RTX1                                  
021841,001388: 04,3233           23752                           STODL*   RTSR1/MU                              
021842,001389: 04,3234           22277                                    MUTABLE    -2,1                       
021843,001390: 04,3235           54214                           BOFF     SR                                    
021844,001391: 04,3236           04343                                    CMOONFLG                              
021845,001392: 04,3237           11241                                    RTRNMU                                
021846,001393: 04,3240           20607                                    6D                                    
021847,001394: 04,3241           03750        RTRNMU             STORE    RTMU                                  
021848,001395: 04,3242           43134                           SXA,2    CLEAR                                 
021849,001396: 04,3243           03746                                    RTX2                                  
021850,001397: 04,3244           01271                                    FINALFLG                              
021851,001398: 04,3245           52014                           BON      GOTO                                  
021852,001399: 04,3246           05316                                    PCFLAG                                
021853,001400: 04,3247           45343                                    P36A                                  
021854,001401: 04,3250           73027                                    VN1645                                
021855,001402: 

Page 497

021857,001404:                                                                                                  #  ..... PERIAPO .....
021858,001405:                                                                                                  #  MOD NO -1             LOG SECTION - P34-P35, P74-P75
021859,001406:                                                                                                  #  MOD BY WHITE.P        DATE  18JAN68
021860,001407: 
021861,001408:                                                                                                  #  FUNCTIONAL DESCRIPTION
021862,001409: 
021863,001410:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
021864,001411:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
021865,001412:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
021866,001413: 
021867,001414:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
021868,001415: 
021869,001416:                                                                                                  #        APSIDES IS CALLED TO SOVE FOR THE TWO BODY RADII OF APOCENTER AND
021870,001417:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
021871,001418: 
021872,001419:                                                                                                  #  CALLING SEQUENCE
021873,001420: 
021874,001421:                                                                                                  #        L       CALL
021875,001422:                                                                                                  #        L+1             PERIAPO
021876,001423:                                                                                                  #        L+2     (RETURN - ALWAYS)
021877,001424: 
021878,001425:                                                                                                  #  INPUT
021879,001426: 
021880,001427:                                                                                                  #        (1) RVEC        POSITION VECTOR IN METERS
021881,001428:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021882,001429:                                                                                                  #        (2) VVEC        VELOCITY VECTOR IN METERS/CENTISECOND
021883,001430:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
021884,001431:                                                                                                  #        (3) X1          PRIMARY BODY INDICATOR
021885,001432:                                                                                                  #                        EARTH -2, MOON -10
021886,001433: 
021887,001434:                                                                                                  #  OUTPUT
021888,001435: 
021889,001436:                                                                                                  #        (1) 2D          APOCENTER RADIUS IN METERS
021890,001437:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021891,001438:                                                                                                  #        (2) 4D          APOCENTER ALTITUDE IN METERS
021892,001439:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
021893,001440:                                                                                                  #        (3) 6D          PERICENTER RADIUS IN METERS
021894,001441:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021895,001442:                                                                                                  #        (4) 8D          PERICENTER ALTITUDE IN METERS
021896,001443:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021897,001444:                                                                                                  #        (5) ECC         ECCENTRICITY OF CONIC TRAJECTORY
021898,001445:                                                                                                  #                        SCALE FACTOR - +3
021899,001446:                                                                                                  #        (6) XXXALT      RADIUS OF THE PRIMARY BODY IN METERS
021900,001447:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021901,001448:                                                                                                  #        (7) PUSHLOC     EQUALS 10D
021902,001449: 
021903,001450:                                                                                                  #  SUBROUTINES USED
021904,001451: 
021905,001452:                                                                                                  #        SETRAD

Page 498

021907,001454:                                                                                                  #        APSIDES
021908,001455: 
021909,001456: 22,2000                                           SETLOC   APOPERI                               
021910,001457: 22,2000                                           BANK                                           
021911,001458: 
021912,001459: 22,3172                                           COUNT*   $$/PERAP                              
021913,001460: 
021914,001461: 22,3172           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS  OF PAD 37-B.
021915,001462:                                                                                                  #  = 20 909 901.57 FT
021916,001463: 
021917,001464: 22,3174           53754        PERIAPO1           LXA,2    VSR*                                  
021918,001465: 22,3175           03746                                    RTX2                                  
021919,001466: 22,3176           57176                                    0,2                                   
021920,001467: 22,3177           26746                           STOVL    VVEC                                  
021921,001468: 22,3200           53750                           LXA,1    VSR*                                  
021922,001469: 22,3201           03745                                    RTX1                                  
021923,001470: 22,3202           57176                                    0,2                                   
021924,001471: 22,3203           02657                           STORE    RVEC                                  
021925,001472: 22,3204           45020        PERIAPO            STQ      CALL                                  
021926,001473: 22,3205           01023                                    NORMEX                                
021927,001474: 22,3206           45222                                    SETRAD                                
021928,001475: 22,3207           37456                           STCALL   XXXALT                                
021929,001476: 22,3210           25717                                    APSIDES                               
021930,001477: 22,3211           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
021931,001478: 22,3212           00003                                    2D                                    
021932,001479: 22,3213           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
021933,001480: 22,3214           03456                                    XXXALT                                
021934,001481: 22,3215           00001                                    0D                                    
021935,001482: 22,3216           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
021936,001483: 22,3217           03456                                    XXXALT                                
021937,001484: 22,3220           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
021938,001485: 22,3221           01023                                    NORMEX                                

Page 499

021940,001487:                                                                                                  #  SETRAD
021941,001488: 22,3222           41545        SETRAD             DLOAD    PUSH                                  
021942,001489: 22,3223           05173                                    RPAD                                  
021943,001490: 22,3224           63130                           SXA,1    INCR,2                                
021944,001491: 22,3225           00047                                    X2                                    
021945,001492: 22,3226           00002                                    2D                                    
021946,001493: 22,3227           46135                           SLOAD    BHIZ                                  
021947,001494: 22,3230           00050                                    X2                                    
021948,001495: 22,3231           45235                                    SETRADX                               
021949,001496: 22,3232           51575                           VLOAD    ABVAL                                 
021950,001497: 22,3233           02026                                    RLS                                   
021951,001498: 22,3234           77725                           PDDL                                           
021952,001499: 22,3235           43545        SETRADX            DLOAD    RVQ                                   
021953,001500: 

Page 500

021955,001502:                                                                                                  #  PRECSET
021956,001503: 22,3236           77620        PRECSET            STQ                                            
021957,001504: 22,3237           01023                                    NORMEX                                
021958,001505: 22,3240           36635                           STCALL   TDEC2                                 
021959,001506: 22,3241           27202                                    LEMCONIC                              #  CONIC INTEG
021960,001507: 22,3242           77624                           CALL                                           
021961,001508: 22,3243           45300                                    LEMSTORE                              
021962,001509: 22,3244           77745                           DLOAD                                          
021963,001510: 22,3245           02635                                    TDEC2                                 
021964,001511: 22,3246           34041                           STCALL   TDEC1                                 
021965,001512: 22,3247           27170                                    CSMCONIC                              #  CONIC INTEG
021966,001513: 22,3250           77624                           CALL                                           
021967,001514: 22,3251           45310                                    CSMSTORE                              
021968,001515: 22,3252           53575                           VLOAD    UNIT                                  
021969,001516: 22,3253           03554                                    RPASS3                                
021970,001517: 22,3254           53435                           VXV      UNIT                                  
021971,001518: 22,3255           03562                                    VPASS3                                
021972,001519: 22,3256           26611                           STOVL    UP1                                   #  UNIT(RPASS3) X VPASS3
021973,001520: 22,3257           03546                                    VACT3                                 
021974,001521: 22,3260           72441                           DOT      SL1                                   
021975,001522: 22,3261           02611                                    UP1                                   
021976,001523: 22,3262           26603                           STOVL    CMYDOT                                #  -YDOT (CSM)
021977,001524: 22,3263           03540                                    RACT3                                 
021978,001525: 22,3264           72441                           DOT      SL1                                   
021979,001526: 22,3265           02611                                    UP1                                   
021980,001527: 22,3266           26601                           STOVL    AUTOY                                 #  -Y(CSM)
021981,001528: 22,3267           03540                                    RACT3                                 
021982,001529: 22,3270           53435                           VXV      UNIT                                  
021983,001530: 22,3271           03546                                    VACT3                                 
021984,001531: 22,3272           26617                           STOVL    UNRM                                  
021985,001532: 22,3273           03562                                    VPASS3                                
021986,001533: 22,3274           72441                           DOT      SL1                                   
021987,001534: 22,3275           02617                                    UNRM                                  #  RACT3 X VACT3
021988,001535: 22,3276           36605                           STCALL   LMYDOT                                #  -YDOT(LM)
021989,001536: 22,3277           01023                                    NORMEX                                
021990,001537: 22,3300           43175        LEMSTORE           VLOAD    BOFF                                  
021991,001538: 22,3301           00001                                    RATT                                  
021992,001539: 22,3302           01352                                    AVFLAG                                
021993,001540: 22,3303           45314                                    PASSIVE                               
021994,001541: 22,3304           27540        ACTIVE             STOVL    RACT3                                 
021995,001542: 22,3305           00007                                    VATT                                  
021996,001543: 22,3306           03546                           STORE    VACT3                                 
021997,001544: 22,3307           77616                           RVQ                                            
021998,001545: 22,3310           43175        CSMSTORE           VLOAD    BOFF                                  
021999,001546: 22,3311           00001                                    RATT                                  
022000,001547: 22,3312           01352                                    AVFLAG                                
022001,001548: 22,3313           45304                                    ACTIVE                                
022002,001549: 22,3314           27554        PASSIVE            STOVL    RPASS3                                
022003,001550: 22,3315           00007                                    VATT                                  
022004,001551: 22,3316           03562                           STORE    VPASS3                                

Page 501

022006,001553: 22,3317           77616                           RVQ                                            
022007,001554: 

Page 502

022009,001556: 
022010,001557:                                                                                                  #  VECSHIFT
022011,001558: 22,3320           53754        VECSHIFT           LXA,2    VSR*                                  
022012,001559: 22,3321           03746                                    RTX2                                  
022013,001560: 22,3322           57176                                    0,2                                   
022014,001561: 22,3323           63350                           LXA,1    PDVL                                  
022015,001562: 22,3324           03745                                    RTX1                                  
022016,001563: 22,3325           63257                           VSR*     PDVL                                  
022017,001564: 22,3326           57176                                    0,2                                   
022018,001565: 22,3327           77616                           RVQ                                            
022019,001566: 

Page 503

022021,001568:                                                                                                  #  SHIFTR1
022022,001569: 22,3330           53754        SHIFTR1            LXA,2    SL*                                   
022023,001570: 22,3331           03746                                    RTX2                                  
022024,001571: 22,3332           57576                                    0,2                                   
022025,001572: 22,3333           77616                           RVQ                                            
022026,001573: 

Page 504

022028,001575:                                                                                                  #  PROGRAM DESCRIPTION
022029,001576:                                                                                                  #  SUBROUTINE NAME       R36  OUT-OF-PLANE RENDEZVOUS ROUTINE
022030,001577:                                                                                                  #  MOD NO.  3      DATE    18 NOVEMBER 1969
022031,001578:                                                                                                  #  MOD BY   T.E.CROCKER
022032,001579: 
022033,001580:                                                                                                  #  FUNCTIONAL DESCRIPTION
022034,001581: 
022035,001582:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
022036,001583:                                                                                                  #        OUT-OF-PLANE PARAMETERS (YDOT CSM,YDOT LEM,Y).  
022037,001584: 
022038,001585:                                                                                                  #  CALLING SEQUENCE
022039,001586: 
022040,001587:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY  V 90 E
022041,001588: 
022042,001589:                                                                                                  #  SUBROUTINES CALLED
022043,001590: 
022044,001591:                                                                                                  #  EXDSPRET  TIMEOPT
022045,001592:                                                                                                  #  GOMARKF   VEHOPT
022046,001593:                                                                                                  #  CSMCONIC
022047,001594:                                                                                                  #  LEMCONIC
022048,001595:                                                                                                  #  LOADTIME
022049,001596: 
022050,001597:                                                                                                  #  NORMAL EXIT MODES
022051,001598: 
022052,001599:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
022053,001600: 
022054,001601:                                                                                                  #  ALARM OR ABORT EXIT MODES
022055,001602: 
022056,001603:                                                                                                  #  NONE
022057,001604: 
022058,001605:                                                                                                  #  OUTPUT
022059,001606:                                                                                                  #  
022060,001607:                                                                                                  #  DECIMAL DISPLAY OF YDOT CSM, YDOT LEM, Y, TIME.
022061,001608:                                                                                                  #  DISPLAYED VALUES YDOT, YDOT, Y ARE STORED IN ERASABLE
022062,001609:                                                                                                  #  REGISTERS RRATE, RRATE2, RANGE RESPECTIVELY.
022063,001610: 
022064,001611:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
022065,001612: 
022066,001613:                                                                                                  #  CSM AND LEM STATE VECTORS
022067,001614: 
022068,001615:                                                                                                  #  DEBRIS
022069,001616: 
022070,001617:                                                                                                  #  CENTRALS A,Q,L
022071,001618: 
022072,001619:                                                                                                  #  OTHER:  THOSE USED BY THE ABOVE LISTED SUBROUTINES
022073,001620: 
022074,001621: 24,2000                                           SETLOC   R36CM                                 
022075,001622: 24,2000                                           BANK                                           
022076,001623: 
022077,001624: 24,2000  E7,1412                                  EBANK=   TIG                                   
022078,001625: 24,2000                                           COUNT*   $$/R36                                
022079,001626: 
022080,001627: 24,2000           06006        R36                TC       INTPRET                               

Page 505

022082,001629: 
022083,001630: 24,2001           45145                           DLOAD    CALL                                  
022084,001631: 24,2002           03413                                    TIG                                   
022085,001632: 24,2003           46424                                    TIMEOPT                               
022086,001633: 24,2004           77624        R36A               CALL                                           
022087,001634: 24,2005           27202                                    LEMCONIC                              
022088,001635: 24,2006           63375                           VLOAD    PDVL                                  #  VL TO PDLO
022089,001636: 24,2007           00007                                    VATT                                  
022090,001637: 24,2010           00001                                    RATT                                  
022091,001638: 24,2011           63256                           UNIT     PDVL                                  #  UNIT RL TO PDL0, VL TO MPAC
022092,001639: 24,2012           77626                           STADR                                          
022093,001640: 24,2013           75457                           STORE    VPASS36                               #  VL TO VPASS36
022094,001641: 24,2014           53435                           VXV      UNIT                                  #  VL(MPAC) X RL(PDL0)
022095,001642: 24,2015           77626                           STADR                                          
022096,001643: 24,2016           61451                           STODL    UNP36                                 #  UNIT(VL X RL) TO UNP36
022097,001644: 24,2017           00015                                    TAT                                   
022098,001645: 24,2020           34041                           STCALL   TDEC1                                 
022099,001646: 24,2021           27170                                    CSMCONIC                              
022100,001647: 24,2022           63375                           VLOAD    PDVL                                  #  VC TO PDL0
022101,001648: 24,2023           00007                                    VATT                                  
022102,001649: 24,2024           00001                                    RATT                                  
022103,001650: 24,2025           00007                           STORE    6D                                    #  RC TO PDL6
022104,001651: 24,2026           63256                           UNIT     PDVL                                  #  UNIT(RC) TO PDL0, VC TO MPAC
022105,001652: 24,2027           77626                           STADR                                          
022106,001653: 24,2030           77762                           STORE    12D                                   #  VC TO PDL12
022107,001654: 24,2031           53435                           VXV      UNIT                                  #  VC(MPAC) X RC(PDL0)
022108,001655: 24,2032           77626                           STADR                                          
022109,001656: 24,2033           51443                           STOVL    UNA36                                 #  UNIT(VC X RC) TO UNA36
022110,001657: 24,2034           00007                                    6D                                    #  RC TO MPAC
022111,001658: 24,2035           72441                           DOT      SL1                                   
022112,001659: 24,2036           02326                                    UNP36                                 #  RC . UNIT(VL X RL)
022113,001660: 24,2037           26312                           STOVL    RANGE                                 #   EQUALS RANGE
022114,001661: 24,2040           00015                                    12D                                   #  VC TO MPAC
022115,001662: 24,2041           72441                           DOT      SL1                                   
022116,001663: 24,2042           02326                                    UNP36                                 #  VC . UNIT(VL X RL)
022117,001664: 24,2043           26314                           STOVL    RRATE                                 #   EQUALS R. RATE OF CSM
022118,001665: 24,2044           02320                                    VPASS36                               #  VL TO MPAC
022119,001666: 24,2045           72441                           DOT      SL1                                   
022120,001667: 24,2046           02334                                    UNA36                                 
022121,001668: 24,2047           02316                           STORE    RRATE2                                #  VL . UNIT(VC X RC)
022122,001669: 24,2050           77776                           EXIT                                           #   EQUALS R. RATE OF LEM
022123,001670: 24,2051           32103                           CAF      V06N96                                #  DISPLAY Y, YDOTCM,YDOTLM
022124,001671: 24,2052           04636                           TC       BANKCALL                              
022125,001672: 24,2053           20576                           CADR     GOMARKF                               
022126,001673: 24,2054           15524                           TCF      ENDEXT                                #  T OR
022127,001674: 24,2055           15524                           TCF      ENDEXT                                #   P....EXIT R36
022128,001675:                                                                                                  #    R...DISPLAY TIME
022129,001676: 24,2056           06006                           TC       INTPRET                               
022130,001677: 24,2057           77624                           CALL                                           
022131,001678: 24,2060           46425                                    TIMEOPT    +1                         
022132,001679: 24,2061           77650                           GOTO                                           

Page 506

022134,001681: 24,2062           50004                                    R36A                                  
022135,001682: 24,2063           01420        V06N16N            VN       0616                                  
022136,001683: 24,2064           77420        VEHOPT             STQ      EXIT                                  #  ALLOW VEHICLE OPTION
022137,001684: 24,2065           00734                                    VEHRET                                
022138,001685: 24,2066           00006                           EXTEND                                         
022139,001686: 24,2067           34770                           DCA      TWO                                   
022140,001687: 24,2070           53256                           DXCH     OPTIONX                               
022141,001688: 24,2071           32102                           CAF      OPTIONVN                              
022142,001689: 24,2072           04636                           TC       BANKCALL                              
022143,001690: 24,2073           20576                           CADR     GOXDSPF                               
022144,001691: 24,2074           05524                           TC       ENDEXT                                
022145,001692: 24,2075           02077                           TC       +2                                    
022146,001693: 24,2076           02071                           TC       -5                                    
022147,001694: 
022148,001695: 24,2077           06006                           TC       INTPRET                               
022149,001696: 24,2100           77650                           GOTO                                           
022150,001697: 24,2101           00734                                    VEHRET                                
022151,001698: 24,2102           01014        OPTIONVN           VN       0412                                  
022152,001699: 24,2103           01540        V06N96             VN       0696                                  
022153,001700: 
022154,001701: 24,2104  30,2000                                  SBANK=   LOWSUPER                              

End of include-file P34-P35_P74-P75.agc.  Parent file is MAIN.agc