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. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

020454,000002:                                                                                                 #  Copyright:     Public domain.
020455,000003:                                                                                                 #  Filename:      P34-35_P74-75.agc
020456,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
020457,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM) 
020458,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for 
020459,000007:                                                                                                 #                 Apollo 15-17.
020460,000008:                                                                                                 #  Assembler:     yaYUL
020461,000009:                                                                                                 #  Contact:       Sergio Navarro <sergionavarrog@gmail.com>
020462,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
020463,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
020464,000012:                                                                                                 #  Mod history:   2009-08-19 SN   Adapted from corresponding Comanche 055 file.
020465,000013:                                                                                                 #                 2009-09-03 JL   Fixed symbol names.
020466,000014:                                                                                                 #                 2009-09-04 JL   Fixed a bunch of typos. Fixed page comments.
020467,000015:                                                                                                 #                 2009-09-07 JL   Fixed typos.
020468,000016:                                                                                                 #                 2010-01-31 JL   Fixed build errors.
020469,000017:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
020470,000018:                                                                                                 #                 2011-05-07 JL   Removed workaround.
020471,000019: 
020472,000020:                                                                                                 # # Page 463
020473,000021:                                                                                                 #  TRANSFER PHASE INITITIATION (TPI) PROGRAMS (P34 AND P74)
020474,000022: 
020475,000023:                                                                                                 #  MOD NO -1              LOG SECTION - P32-P35, P72-P75
020476,000024:                                                                                                 #  MOD BY WHITE.P DATE 1JUNE67
020477,000025: 
020478,000026:                                                                                                 #  PURPOSE
020479,000027: 
020480,000028:                                                                                                 #         (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020481,000029:                                                                                                 #             REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
020482,000030:                                                                                                 #             PHASE INITITATION (TPI) MANEUVER, GIVEN -
020483,000031: 
020484,000032:                                                                                                 #             (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
020485,000033:                                                                                                 #                 THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
020486,000034: 
020487,000035:                                                                                                 #             (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
020488,000036:                                                                                                 #                 INTERCEPT TIME (TIG (TPF)).
020489,000037: 
020490,000038:                                                                                                 #         (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
020491,000039: 
020492,000040:                                                                                                 #         (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
020493,000041:                                                                                                 #             APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
020494,000042: 
020495,000043:                                                                                                 #         (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020496,000044:                                                                                                 #             VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020497,000045:                                                                                                 #             ASTRONAUT/GROUND.
020498,000046: 
020499,000047:                                                                                                 #         (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
020500,000048:                                                                                                 #             THRUSTING PROGRAM.
020501,000049: 
020502,000050:                                                                                                 #  ASSUMPTIONS
020503,000051: 
020504,000052:                                                                                                 #         (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
020505,000053:                                                                                                 #             THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
020506,000054:                                                                                                 #             THEREFORE -
020507,000055: 
020508,000056:                                                                                                 #             (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
020509,000057:                                                                                                 #                 BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
020510,000058:                                                                                                 #                 A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
020511,000059:                                                                                                 #                 HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
020512,000060: 
020513,000061:                                                                                                 #             (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
020514,000062:                                                                                                 #                 COMPUTED TO BE GREATER THAN 10 MINUTES.
020515,000063: 
020516,000064:                                                                                                 #             (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
020517,000065:                                                                                                 #                 ORBITS WAS MINIMIZED.
020518,000066: 
020519,000067:                                                                                                 #             (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
020520,000068: 
020521,000069:                                                                                                 #                 CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
020522,000070:                                                                                                 # # Page 464
020523,000071:                                                                                                 #                 ORBIT OR 85 NM FOR EARTH ORBIT.
020524,000072: 
020525,000073:                                                                                                 #             (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
020526,000074:                                                                                                 #                 THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
020527,000075:                                                                                                 #                 MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
020528,000076:                                                                                                 #                 IN AN OUT-OF-PLANE MANEUVER.
020529,000077: 
020530,000078:                                                                                                 #         (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
020531,000079:                                                                                                 #             STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
020532,000080: 
020533,000081:                                                                                                 #         (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
020534,000082:                                                                                                 #             TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
020535,000083:                                                                                                 #             VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
020536,000084:                                                                                                 #             THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
020537,000085:                                                                                                 #             FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
020538,000086:                                                                                                 #             FLIGHT PLAN MANEUVER SEQUENCES.
020539,000087: 
020540,000088:                                                                                                 #         (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
020541,000089:                                                                                                 #             OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
020542,000090:                                                                                                 #             DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
020543,000091:                                                                                                 #             PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
020544,000092:                                                                                                 #             AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
020545,000093:                                                                                                 #             TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
020546,000094:                                                                                                 #             MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
020547,000095:                                                                                                 #             THRUSTING MANEUVER.
020548,000096: 
020549,000097:                                                                                                 #         (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020550,000098: 
020551,000099:                                                                                                 #         (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020552,000100: 
020553,000101:                                                                                                 #                 ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020554,000102:                                                                                                 #                 DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020555,000103:                                                                                                 #                 CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020556,000104:                                                                                                 #                 EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020557,000105: 
020558,000106:                                                                                                 #                 FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020559,000107:                                                                                                 #                 SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020560,000108: 
020561,000109:                                                                                                 #                 EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020562,000110:                                                                                                 #                 REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020563,000111:                                                                                                 #                 PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020564,000112: 
020565,000113:                                                                                                 #         (7) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER
020566,000114:                                                                                                 #             HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020567,000115:                                                                                                 #             VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020568,000116:                                                                                                 #             THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020569,000117:                                                                                                 #             THROUGH THE USE OF V06N52.
020570,000118: 
020571,000119:                                                                                                 #             THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020572,000120:                                                                                                 #             CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
020573,000121:                                                                                                 # # Page 465
020574,000122:                                                                                                 #             170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020575,000123:                                                                                                 #             ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020576,000124:                                                                                                 #             UPON DELTA V AND EXPECTED MANEUVER TIME.
020577,000125: 
020578,000126:                                                                                                 #         (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020579,000127: 
020580,000128:                                                                                                 #                 P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
020581,000129: 
020582,000130:                                                                                                 #                 P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
020583,000131: 
020584,000132:                                                                                                 #  INPUT
020585,000133: 
020586,000134:                                                                                                 #         (1) TTPI        TIME OF THE TPI MANEUVER
020587,000135:                                                                                                 #         (2) ELEV        DESIRED LOS ANGLE AT TPI
020588,000136:                                                                                                 #         (3) CENTANG     ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020589,000137:                                                                                                 #                         TRANSFER FROM TPI TO TIME OF INTERCEPT
020590,000138: 
020591,000139:                                                                                                 #  OUTPUT
020592,000140: 
020593,000141:                                                                                                 #         (1) TRKMKCNT    NUMBER OF MARKS
020594,000142:                                                                                                 #         (2) TTOGO       TIME TO GO
020595,000143:                                                                                                 #         (3) +MGA        MIDDLE GIMBAL ANGLE
020596,000144:                                                                                                 #         (4) TTPI        COMPUTED TIME OF TPI MANEUVER
020597,000145:                                                                                                 #              OR
020598,000146:                                                                                                 #             ELEV        COMPUTED LOS ANGLE AT TPI
020599,000147:                                                                                                 #         (5) POSTTPI     PERIGEE ALTITUDE AFTER THE TPI MANEUVER
020600,000148:                                                                                                 #         (6) DELVTPI     MAGNITUDE OF DELTA V AT TPI
020601,000149:                                                                                                 #         (7) DELVTPF     MAGNITUDE OF DELTA V AT INTERCEPT
020602,000150:                                                                                                 #         (8) DVLOS       DELTA VELOCITY AT TPI - LINE OF SIGHT
020603,000151:                                                                                                 #         (9) DELVLVC     DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
020604,000152: 
020605,000153:                                                                                                 #  DOWNLINK
020606,000154: 
020607,000155:                                                                                                 #         (1) TTPI        TIME OF THE TPI MANEUVER
020608,000156:                                                                                                 #         (2) TIG         TIME OF THE TPI MANEUVER
020609,000157:                                                                                                 #         (3) ELEV        DESIRED LOS ANGLE AT TPI
020610,000158:                                                                                                 #         (4) CENTANG     ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020611,000159:                                                                                                 #                         TRANSFER FROM TPI TO TIME OF INTERCEPT
020612,000160:                                                                                                 #         (5) DELVEET3    DELTA VELOCITY AT TPI - REFERENCE COORDINATES
020613,000161:                                                                                                 #         (6) TPASS4      TIME OF INTERCEPT
020614,000162: 
020615,000163:                                                                                                 #  COMMUNICATION TO THRUSTING PROGRAMS
020616,000164: 
020617,000165:                                                                                                 #         (1) TIG         TIME OF THE TPI MANEUVER
020618,000166:                                                                                                 #         (2) RTARG       OFFSET TARGET POSITION
020619,000167:                                                                                                 #         (3) TPASS4      TIME OF INTERCEPT
020620,000168:                                                                                                 #         (4) XDELVFLG    RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020621,000169: 
020622,000170:                                                                                                 #  SUBROUTINES USED
020623,000171: 
020624,000172:                                                                                                 #         AVFLAGA
020625,000173:                                                                                                 # # Page 466
020626,000174:                                                                                                 #         AVFLAGP
020627,000175:                                                                                                 #         VNPOOH
020628,000176:                                                                                                 #         DISPLAYE
020629,000177:                                                                                                 #         SELECTMU
020630,000178:                                                                                                 #         PRECSET
020631,000179:                                                                                                 #         S33/34.1
020632,000180:                                                                                                 #         ALARM
020633,000181:                                                                                                 #         BANKCALL
020634,000182:                                                                                                 #         GOFLASH
020635,000183:                                                                                                 #         GOTOPOOH
020636,000184:                                                                                                 #         TIMETHET
020637,000185:                                                                                                 #         S34/35.2
020638,000186:                                                                                                 #         PERIAPO1
020639,000187:                                                                                                 #         SHIFTR1
020640,000188:                                                                                                 #         S34/35.5
020641,000189:                                                                                                 #         VN1645
020642,000190: 
020643,000191: 35,2000                                          SETLOC   CSI/CDH                               
020644,000192: 35,2000                                          BANK                                           
020645,000193: 35,2000  E4,1760                                 EBANK=   SUBEXIT                               
020646,000194: 35,2000                                          COUNT*   $$/P3474                              
020647,000195: 35,2000           04553        P34               TC       AVFLAGA                               
020648,000196: 35,2001           02003                          TC       P34/P74A                              
020649,000197: 35,2002           04565        P74               TC       AVFLAGP                               
020650,000198: 35,2003           04572        P34/P74A          TC       P20FLGON                              
020651,000199: 35,2004           06006                          TC       INTPRET                               
020652,000200: 35,2005           71214                          CLEAR    DLOAD                                 
020653,000201: 35,2006           05274                                   TPIMNFLG                              
020654,000202: 35,2007           32205                                   130DEG                                
020655,000203: 35,2010           17754                          STODL    CENTANG                               
020656,000204: 35,2011           15336                                   ZEROVECS                              
020657,000205: 35,2012           03744                          STORE    ELEV                                  
020658,000206: 35,2013           03766                          STORE    NN                                    
020659,000207: 35,2014           77776                          EXIT                                           
020660,000208: 
020661,000209: 35,2015           34532                          CAF      V06N37                                
020662,000210: 35,2016           05535                          TC       VNFLASH                               
020663,000211: 35,2017           34533                          CAF      V06N55                                
020664,000212: 35,2020           05535                          TC       VNFLASH                               
020665,000213: 35,2021           06006                          TC       INTPRET                               
020666,000214: 35,2022           71214                          CLEAR    DLOAD                                 
020667,000215: 35,2023           01270                                   ETPIFLAG                              
020668,000216: 35,2024           03663                                   TTPI                                  
020669,000217: 35,2025           17413                          STODL    TIG                                   
020670,000218: 35,2026           03744                                   ELEV                                  
020671,000219: 35,2027           43054                          BZE      SET                                   
020672,000220: 35,2030           72032                                   P34/P74B                              
020673,000221: 35,2031           01070                                   ETPIFLAG                              
020674,000222: 35,2032           77624        P34/P74B          CALL                                           
020675,000223: 35,2033           11217                                   SELECTMU                              
020676,000224:                                                                                                 # # Page 467
020677,000225: 35,2034                        DELELO            EQUALS   26D                                   
020678,000226: 35,2034           43145        P34/P74C          DLOAD    SET                                   
020679,000227: 35,2035           15336                                   ZEROVECS                              
020680,000228: 35,2036           03461                                   ITSWICH                               
020681,000229: 35,2037           43014                          BON      CLEAR                                 
020682,000230: 35,2040           01310                                   ETPIFLAG                              
020683,000231: 35,2041           72043                                   SWCHSET                               
020684,000232: 35,2042           03661                                   ITSWICH                               
020685,000233: 35,2043           02355        SWCHSET           STORE    NOMTPI                                
020686,000234: 35,2044           43345        INTLOOP           DLOAD    DAD                                   
020687,000235: 35,2045           03663                                   TTPI                                  
020688,000236: 35,2046           02355                                   NOMTPI                                
020689,000237: 35,2047           34041                          STCALL   TDEC1                                 
020690,000238: 35,2050           45236                                   PRECSET                               
020691,000239: 35,2051           77624                          CALL                                           
020692,000240: 35,2052           72251                                   S33/34.1                              
020693,000241: 35,2053           77454                          BZE      EXIT                                  
020694,000242: 35,2054           72065                                   SWCHCLR                               
020695,000243: 35,2055           05671        INTALM            TC       ALARM                                 
020696,000244: 35,2056           00611                          OCT      611                                   
020697,000245: 35,2057           35023                          CAF      V05N09                                
020698,000246: 35,2060           04636                          TC       BANKCALL                              
020699,000247: 35,2061           20743                          CADR     GOFLASH                               
020700,000248: 35,2062           04103                          TC       GOTOPOOH                              
020701,000249: 35,2063           02003                          TC       P34/P74A                              #  PROCEED
020702,000250: 35,2064           02055                          TC       INTALM                                #  V32
020703,000251: 35,2065           43014        SWCHCLR           BONCLR   BON                                   
020704,000252: 35,2066           03601                                   ITSWICH                               
020705,000253: 35,2067           72044                                   INTLOOP                               
020706,000254: 35,2070           01310                                   ETPIFLAG                              
020707,000255: 35,2071           72100                                   P34/P74D                              #  DISPLAY TTPI
020708,000256: 35,2072           77776                          EXIT                                           
020709,000257: 35,2073           34533                          CAF      V06N55                                
020710,000258: 35,2074           05535                          TC       VNFLASH                               
020711,000259: 35,2075           06006                          TC       INTPRET                               
020712,000260: 35,2076           77650                          GOTO                                           
020713,000261: 35,2077           72120                                   P34/74E                               
020714,000262: 35,2100           77776        P34/P74D          EXIT                                           
020715,000263: 35,2101           34532                          CAF      V06N37                                #  TTPI
020716,000264: 35,2102           05535                          TC       VNFLASH                               
020717,000265: 35,2103           06006        P34/P74E          TC       INTPRET                               
020718,000266: 35,2104           43014                          BOFF     BOFF                                  
020719,000267: 35,2105           01351                                   FINALFLG                              
020720,000268: 35,2106           72120                                   P34/74E                               #  LAST PASS
020721,000269: 35,2107           05350                                   AUTOSEQ                               
020722,000270: 35,2110           72120                                   P34/74E                               
020723,000271: 35,2111           43145                          DLOAD    CLEAR                                 #  IT IS FINAL COMP IN MINKEY
020724,000272: 35,2112           15336                                   ZEROVECS                              #    SET UP FOR TIG OPTION
020725,000273: 35,2113           01270                                   ETPIFLAG                              
020726,000274: 35,2114           17744                          STODL    ELEV                                  
020727,000275:                                                                                                 # # Page 468
020728,000276: 35,2115           03663                                   TTPI                                  
020729,000277: 35,2116           37413                          STCALL   TIG                                   
020730,000278: 35,2117           72034                                   P34/P74C                              
020731,000279: 35,2120           71201        P34/74E           SETPD    DLOAD                                 
020732,000280: 35,2121           00001                                   0D                                    
020733,000281: 35,2122           03746                                   RTX1                                  
020734,000282: 35,2123           14047                          STODL    X1                                    
020735,000283: 35,2124           03754                                   CENTANG                               
020736,000284: 35,2125           71406                          PUSH     COS                                   
020737,000285: 35,2126           16734                          STODL    CSTH                                  
020738,000286: 35,2127           77756                          SIN                                            
020739,000287: 35,2130           26732                          STOVL    SNTH                                  
020740,000288: 35,2131           03554                                   RPASS3                                
020741,000289: 35,2132           77657                          VSR*                                           
020742,000290: 35,2133           57176                                   0,2                                   
020743,000291: 35,2134           26657                          STOVL    RVEC                                  
020744,000292: 35,2135           03562                                   VPASS3                                
020745,000293: 35,2136           43057                          VSR*     SET                                   
020746,000294: 35,2137           57176                                   0,2                                   
020747,000295: 35,2140           03466                                   RVSW                                  
020748,000296: 35,2141           36746                          STCALL   VVEC                                  
020749,000297: 35,2142           25002                                   TIMETHET                              
020750,000298: 35,2143           77745                          DLOAD                                          
020751,000299: 35,2144           03663                                   TTPI                                  
020752,000300: 35,2145           03503                          STORE    INTIME                                #  FOR INITVEL
020753,000301: 35,2146           77615                          DAD                                            
020754,000302: 35,2147           00037                                   T                                     #  RENDEZVOUS TIME
020755,000303: 35,2150           37656                          STCALL   TPASS4                                #  FOR INITVEL
020756,000304: 35,2151           72561                                   S34/35.2                              
020757,000305: 35,2152           51575                          VLOAD    ABVAL                                 
020758,000306: 35,2153           03646                                   DELVEET3                              
020759,000307: 35,2154           26635                          STOVL    DELVTPI                               
020760,000308: 35,2155           03640                                   VPASS4                                
020761,000309: 35,2156           51451                          VSU      ABVAL                                 
020762,000310: 35,2157           03620                                   VTPRIME                               
020763,000311: 35,2160           26637                          STOVL    DELVTPF                               
020764,000312: 35,2161           03540                                   RACT3                                 
020765,000313: 35,2162           45115                          PDVL     CALL                                  
020766,000314: 35,2163           03612                                   VIPRIME                               
020767,000315: 35,2164           45174                                   PERIAPO1                              
020768,000316: 35,2165           77624                          CALL                                           
020769,000317: 35,2166           45330                                   SHIFTR1                               
020770,000318: 35,2167           16641                          STODL    POSTTPI                               
020771,000319: 35,2170           03663                                   TTPI                                  
020772,000320: 35,2171           03413                          STORE    TIG                                   
020773,000321: 35,2172           77776                          EXIT                                           
020774,000322: 35,2173           34534                          CAF      V06N58                                
020775,000323: 35,2174           05535                          TC       VNFLASH                               
020776,000324: 35,2175           06006                          TC       INTPRET                               
020777,000325: 35,2176           77624                          CALL                                           
020778,000326:                                                                                                 # # Page 469
020779,000327: 35,2177           72774                                   S34/35.5                              
020780,000328: 35,2200           77624                          CALL                                           
020781,000329: 35,2201           73027                                   VN1645                                
020782,000330: 35,2202           77650                          GOTO                                           
020783,000331: 35,2203           72034                                   P34/P74C                              
020784,000332: 35,2204           13434        130DEG            OCT      13434                                 #  13  DEG - CENTANG
020785,000333: 35,2205           16163                          OCT      16163                                 
020786,000334: 
020787,000335:                                                                                                 # # Page 470
020788,000336:                                                                                                 #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
020789,000337: 
020790,000338:                                                                                                 #  MOD NO -1              LOG SECTION - P32-P35, P72-P75
020791,000339:                                                                                                 #  MOD BY WHITE.P DATE  1JUNE67
020792,000340: 
020793,000341:                                                                                                 #  PURPOSE
020794,000342: 
020795,000343:                                                                                                 #         (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020796,000344:                                                                                                 #             REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
020797,000345:                                                                                                 #             MID-COURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
020798,000346:                                                                                                 #             VEHICLE RENDEZVOUS.
020799,000347: 
020800,000348:                                                                                                 #         (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020801,000349:                                                                                                 #             VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020802,000350:                                                                                                 #             ASTRONAUT/GROUND.
020803,000351: 
020804,000352:                                                                                                 #         (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
020805,000353:                                                                                                 #             THRUSTING PROGRAM.
020806,000354: 
020807,000355:                                                                                                 #  ASSUMPTIONS
020808,000356: 
020809,000357:                                                                                                 #         (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020810,000358: 
020811,000359:                                                                                                 #         (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
020812,000360:                                                                                                 #             STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
020813,000361: 
020814,000362:                                                                                                 #         (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
020815,000363:                                                                                                 #             DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
020816,000364:                                                                                                 #             WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
020817,000365:                                                                                                 #             ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
020818,000366:                                                                                                 #             RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
020819,000367:                                                                                                 #             P20 AND AFTER EACH THRUSTING MANEUVER.
020820,000368: 
020821,000369:                                                                                                 #         (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020822,000370: 
020823,000371:                                                                                                 #                 ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020824,000372:                                                                                                 #                 DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020825,000373:                                                                                                 #                 CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020826,000374:                                                                                                 #                 EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020827,000375: 
020828,000376:                                                                                                 #                 FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020829,000377:                                                                                                 #                 SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020830,000378: 
020831,000379:                                                                                                 #                 EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020832,000380:                                                                                                 #                 REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020833,000381:                                                                                                 #                 PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020834,000382: 
020835,000383:                                                                                                 #         (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
020836,000384:                                                                                                 #             COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
020837,000385:                                                                                                 #             (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
020838,000386: 
020839,000387:                                                                                                 # # Page 471
020840,000388:                                                                                                 #         (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER
020841,000389:                                                                                                 #             HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020842,000390:                                                                                                 #             VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020843,000391:                                                                                                 #             THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020844,000392:                                                                                                 #             THROUGH THE USE OF V06N52.
020845,000393: 
020846,000394:                                                                                                 #             THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020847,000395:                                                                                                 #             CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
020848,000396:                                                                                                 #             170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020849,000397:                                                                                                 #             ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020850,000398:                                                                                                 #             UPON DELTA V AND EXPECTED MANEUVER TIME.
020851,000399: 
020852,000400:                                                                                                 #         (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020853,000401: 
020854,000402:                                                                                                 #                 P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
020855,000403: 
020856,000404:                                                                                                 #                 P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
020857,000405: 
020858,000406:                                                                                                 #  INPUT
020859,000407: 
020860,000408:                                                                                                 #         (1) TPASS4      TIME OF INTERCEPT - SAVED FROM P34/P74
020861,000409: 
020862,000410:                                                                                                 #  OUTPUT
020863,000411: 
020864,000412:                                                                                                 #         (1) TRKMKCNT    NUMBER OF MARKS
020865,000413:                                                                                                 #         (2) TTOGO       TIME TO GO
020866,000414:                                                                                                 #         (3) +MGA        MIDDLE GIMBAL ANGLE
020867,000415:                                                                                                 #         (4) DVLOS       DELTA VELOCITY AT MID - LINE OF SIGHT
020868,000416:                                                                                                 #         (5) DELVLVC     DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
020869,000417: 
020870,000418:                                                                                                 #  DOWNLINK
020871,000419: 
020872,000420:                                                                                                 #         (1) TIG         TIME OF THE TPM MANEUVER
020873,000421:                                                                                                 #         (2) DELVEET3    DELTA VELOCITY AT TPM - REFERENCE COORDINATES
020874,000422:                                                                                                 #         (3) TPASS4      TIME OF INTERCEPT
020875,000423: 
020876,000424:                                                                                                 #  COMMUNICATION TO THRUSTING PROGRAMS
020877,000425: 
020878,000426:                                                                                                 #         (1) TIG         TIME OF THE TPM MANEUVER
020879,000427:                                                                                                 #         (2) RTARG       OFFSET TARGET POSITION
020880,000428:                                                                                                 #         (3) TPASS4      TIME OF INTERCEPT
020881,000429:                                                                                                 #         (4) XDELVFLG    RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION.
020882,000430: 
020883,000431:                                                                                                 #  SUBROUTINES USED
020884,000432: 
020885,000433:                                                                                                 #         AVFLAGA
020886,000434:                                                                                                 #         AVFLAGP
020887,000435:                                                                                                 #         LOADTIME
020888,000436:                                                                                                 #         SELECTMU
020889,000437:                                                                                                 #         PRECSET
020890,000438:                                                                                                 #         S34/35.1
020891,000439:                                                                                                 #         S34/35.2
020892,000440:                                                                                                 # # Page 472
020893,000441:                                                                                                 #         S34/35.5
020894,000442:                                                                                                 #         VN1645
020895,000443: 
020896,000444: 35,2206                                          COUNT*   $$/P3575                              
020897,000445: 35,2206  E4,1754                                 EBANK=   KT                                    
020898,000446: 
020899,000447: 35,2206           04553        P35               TC       AVFLAGA                               
020900,000448: 35,2207           00006                          EXTEND                                         
020901,000449: 35,2210           31422                          DCA      ATIGINC                               
020902,000450: 35,2211           02215                          TC       P35/P75A                              
020903,000451: 35,2212           04565        P75               TC       AVFLAGP                               
020904,000452: 35,2213           00006                          EXTEND                                         
020905,000453: 35,2214           31424                          DCA      PTIGINC                               
020906,000454: 35,2215           53755        P35/P75A          DXCH     KT                                    
020907,000455: 35,2216           04572                          TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
020908,000456: 35,2217           06006                          TC       INTPRET                               
020909,000457: 35,2220           77624                          CALL                                           
020910,000458: 35,2221           11217                                   SELECTMU                              
020911,000459: 35,2222           77634        P35/P75B          RTB                                            
020912,000460: 35,2223           51751                                   LOADTIME                              
020913,000461: 35,2224           03665                          STORE    TSTRT                                 
020914,000462: 35,2225           77615                          DAD                                            
020915,000463: 35,2226           02355                                   KT                                    
020916,000464: 35,2227           03413                          STORE    TIG                                   
020917,000465: 35,2230           03503                          STORE    INTIME                                #  FOR INITVEL
020918,000466: 35,2231           34041                          STCALL   TDEC1                                 
020919,000467: 35,2232           45236                                   PRECSET                               #  ADVANCE BOTH VEHICLES
020920,000468: 35,2233           77624                          CALL                                           
020921,000469: 35,2234           74000                                   S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
020922,000470: 35,2235           77624                          CALL                                           
020923,000471: 35,2236           72561                                   S34/35.2                              #  GET DELTA V(LV)
020924,000472: 35,2237           77624                          CALL                                           
020925,000473: 35,2240           72774                                   S34/35.5                              
020926,000474: 35,2241           43014                          BOFF     SET                                   
020927,000475: 35,2242           01351                                   FINALFLG                              
020928,000476: 35,2243           72245                                   +2                                    
020929,000477: 35,2244           05067                                   P35FLAG                               
020930,000478: 35,2245           77624                          CALL                                           
020931,000479: 35,2246           73027                                   VN1645                                
020932,000480: 35,2247           77650                          GOTO                                           
020933,000481: 35,2250           72222                                   P35/P75B                              
020934,000482:                                                                                                 # # Page 473
020935,000483:                                                                                                 #  ..... S33/34.1  .....
020936,000484: 
020937,000485: 35,2251           66220        S33/34.1          STQ      SSP                                   
020938,000486: 35,2252           01023                                   NORMEX                                
020939,000487: 35,2253           03665                                   TITER                                 
020940,000488: 35,2254           40000                          OCT      40000                                 
020941,000489: 35,2255           40345                          DLOAD    SETPD                                 
020942,000490: 35,2256           33145                                   MAX250                                
020943,000491: 35,2257           00001                                   0D                                    
020944,000492: 35,2260           27454                          STOVL    SECMAX                                
020945,000493: 35,2261           03540                                   RACT3                                 
020946,000494: 35,2262           27576                          STOVL    RAPREC                                
020947,000495: 35,2263           03546                                   VACT3                                 
020948,000496: 35,2264           27570                          STOVL    VAPREC                                
020949,000497: 35,2265           03554                                   RPASS3                                
020950,000498: 35,2266           27620                          STOVL    RPPREC                                
020951,000499: 35,2267           03562                                   VPASS3                                
020952,000500: 35,2270           03612                          STORE    VPPREC                                
020953,000501: 35,2271           77624        ELCALC            CALL                                           
020954,000502: 35,2272           74000                                   S34/35.1                              #  NORMAL AND LOS
020955,000503: 35,2273           63235                          VXV      PDVL                                  
020956,000504: 35,2274           03540                                   RACT3                                 #  (RA*VA)*RA 0D
020957,000505: 35,2275           53515                          PDVL     UNIT                                  #  ULOS AT 6D
020958,000506: 35,2276           03540                                   RACT3                                 
020959,000507: 35,2277           46315                          PDVL     VPROJ                                 #  XCHNJ AND UP
020960,000508: 35,2300           51352                          VSL2     BVSU                                  
020961,000509: 35,2301           02625                                   ULOS                                  
020962,000510: 35,2302           63256                          UNIT     PDVL                                  #  UP AT 0D
020963,000511: 35,2303           63241                          DOT      PDVL                                  #  UP.UN*RA AT 0D
020964,000512: 35,2304           00001                                   0D                                    #  UP IN MPAC
020965,000513: 35,2305           75241                          DOT      SIGN                                  
020966,000514: 35,2306           02625                                   ULOS                                  
020967,000515: 35,2307           65552                          SL1      ACOS                                  
020968,000516: 35,2310           50315                          PDVL     DOT                                   #  EA AT 0D
020969,000517: 35,2311           02625                                   ULOS                                  
020970,000518: 35,2312           03540                                   RACT3                                 
020971,000519: 35,2313           71244                          BPL      DLOAD                                 
020972,000520: 35,2314           72317                                   TESTY                                 
020973,000521: 35,2315           15344                                   DPPOSMAX                              
020974,000522: 35,2316           41425                          DSU      PUSH                                  
020975,000523: 35,2317           71214        TESTY             BOFF     DLOAD                                 
020976,000524: 35,2320           03741                                   ITSWICH                               
020977,000525: 35,2321           72546                                   ELEX                                  
020978,000526: 35,2322           03452                                   DELEL                                 
020979,000527: 35,2323           14033                          STODL    DELELO                                
020980,000528: 35,2324           77625                          DSU                                            
020981,000529: 35,2325           03744                                   ELEV                                  
020982,000530: 35,2326           03452                          STORE    DELEL                                 
020983,000531: 35,2327           45246                          ABS      DSU                                   
020984,000532: 35,2330           33151                                   ELEPS                                 
020985,000533:                                                                                                 # # Page 474
020986,000534: 35,2331           77640                          BMN                                            
020987,000535: 35,2332           72556                                   TIMEX                                 #  COMMERCIALS EVERYWHERE
020988,000536: 35,2333           70535        FIGTIME           SLOAD    SR1                                   
020989,000537: 35,2334           03665                                   TITER                                 
020990,000538: 35,2335           72030                          BHIZ     LXA,1                                 
020991,000539: 35,2336           01023                                   NORMEX                                #  TOO MANY ITERATIONS
020992,000540: 35,2337           00154                                   MPAC                                  
020993,000541: 35,2340           77330                          SXA,1    VLOAD                                 
020994,000542: 35,2341           03664                                   TITER                                 
020995,000543: 35,2342           03554                                   RPASS3                                
020996,000544: 35,2343           65256                          UNIT     PDDL                                  
020997,000545: 35,2344           00045                                   36D                                   
020998,000546: 35,2345           53515                          PDVL     UNIT                                  
020999,000547: 35,2346           03540                                   RACT3                                 
021000,000548: 35,2347           77725                          PDDL                                           
021001,000549: 35,2350           41525                          PDDL     PUSH                                  
021002,000550: 35,2351           00045                                   36D                                   
021003,000551: 35,2352           77621                          BDSU                                           
021004,000552: 35,2353           00015                                   12D                                   
021005,000553: 35,2354           14037                          STODL    30D                                   #  RP - RA MAGNITUDES
021006,000554: 35,2355           15334                                   DPHALF                                
021007,000555: 35,2356           41425                          DSU      PUSH                                  
021008,000556: 35,2357           03744                                   ELEV                                  
021009,000557: 35,2360           50165                          SIGN     BMN                                   
021010,000558: 35,2361           00037                                   30D                                   
021011,000559: 35,2362           01023                                   NORMEX                                
021012,000560: 35,2363           71545                          DLOAD    COS                                   
021013,000561: 35,2364           56205                          DMP      DDV                                   
021014,000562: 35,2365           00017                                   14D                                   
021015,000563: 35,2366           00015                                   12D                                   
021016,000564: 35,2367           77676                          DCOMP                                          #  SINCE COS(180-A)=-COS A
021017,000565: 35,2370           00035                          STORE    28D                                   
021018,000566: 35,2371           44246                          ABS      BDSU                                  
021019,000567: 35,2372           15334                                   DPHALF                                
021020,000568: 35,2373           77240                          BMN      VLOAD                                 
021021,000569: 35,2374           01023                                   NORMEX                                
021022,000570: 35,2375           02617                                   UNRM                                  
021023,000571: 35,2376           53435                          VXV      UNIT                                  
021024,000572: 35,2377           00007                                   6D                                    #  UN*RA
021025,000573: 35,2400           41241                          DOT      DMP                                   
021026,000574: 35,2401           03546                                   VACT3                                 
021027,000575: 35,2402           00015                                   12D                                   
021028,000576: 35,2403           47315                          PDVL     VXV                                   
021029,000577: 35,2404           00001                                   0D                                    
021030,000578: 35,2405           03562                                   VPASS3                                
021031,000579: 35,2406           53435                          VXV      UNIT                                  
021032,000580: 35,2407           00001                                   0D                                    #  (RP*VP)*RP
021033,000581: 35,2410           41241                          DOT      DMP                                   
021034,000582: 35,2411           03562                                   VPASS3                                
021035,000583: 35,2412           00017                                   14D                                   
021036,000584:                                                                                                 # # Page 475
021037,000585: 35,2413           77621                          BDSU                                           
021038,000586: 35,2414           63301                          NORM     PDVL                                  #  NORMALIZED WA - WP 12D
021039,000587: 35,2415           00047                                   X1                                    
021040,000588: 35,2416           00007                                   6D                                    
021041,000589: 35,2417           50235                          VXV      DOT                                   
021042,000590: 35,2420           00001                                   0D                                    
021043,000591: 35,2421           02617                                   UNRM                                  #  RA*RP.UN 14D
021044,000592: 35,2422           50315                          PDVL     DOT                                   
021045,000593: 35,2423           00001                                   0D                                    
021046,000594: 35,2424           00007                                   6D                                    
021047,000595: 35,2425           65552                          SL1      ACOS                                  
021048,000596: 35,2426           77765                          SIGN                                           
021049,000597: 35,2427           43225                          DSU      DAD                                   #    ALPHA   PI
021050,000598: 35,2430           15334                                   DPHALF                                
021051,000599: 35,2431           03744                                   ELEV                                  
021052,000600: 35,2432           65525                          PDDL     ACOS                                  
021053,000601: 35,2433           00035                                   28D                                   
021054,000602: 35,2434           75221                          BDSU     SIGN                                  
021055,000603: 35,2435           15334                                   DPHALF                                
021056,000604: 35,2436           00037                                   30D                                   #  CONTAINS RP-RA
021057,000605: 35,2437           77615                          DAD                                            
021058,000606: 35,2440           56205                          DMP      DDV                                   
021059,000607: 35,2441           33143                                   TWOPI                                 
021060,000608: 35,2442           77605                          DMP                                            
021061,000609: 35,2443           41257                          SL*      DMP                                   
021062,000610: 35,2444           20176                                   0          -3,1                       
021063,000611: 35,2445           51406                          PUSH     ABS                                   
021064,000612: 35,2446           50025                          DSU      BMN                                   
021065,000613: 35,2447           03454                                   SECMAX                                
021066,000614: 35,2450           72454                                   OKMAX                                 
021067,000615: 35,2451           75345                          DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
021068,000616: 35,2452           03454                                   SECMAX                                
021069,000617: 35,2453           77606                          PUSH                                           
021070,000618: 35,2454           51135        OKMAX             SLOAD    BPL                                   #  TEST FIRST ITERATION
021071,000619: 35,2455           03665                                   TITER                                 
021072,000620: 35,2456           72464                                   REPETE                                
021073,000621: 35,2457           71331                          SSP      DLOAD                                 
021074,000622: 35,2460           03665                                   TITER                                 
021075,000623: 35,2461           37777                          OCT      37777                                 
021076,000624: 35,2462           77650                          GOTO                                           
021077,000625: 35,2463           72522                                   STORDELT                              
021078,000626: 35,2464           41345        REPETE            DLOAD    DMP                                   
021079,000627: 35,2465           03452                                   DELEL                                 
021080,000628: 35,2466           00033                                   DELELO                                
021081,000629: 35,2467           71244                          BPL      DLOAD                                 
021082,000630: 35,2470           72500                                   NEXTES                                
021083,000631: 35,2471           03454                                   SECMAX                                
021084,000632: 35,2472           77605                          DMP                                            
021085,000633: 35,2473           33147                                   THIRD                                 
021086,000634: 35,2474           17454                          STODL    SECMAX                                
021087,000635:                                                                                                 # # Page 476
021088,000636: 35,2475           70446                          ABS      SR1                                   #  CROSSED OVER SOLUTION
021089,000637: 35,2476           52076                          DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
021090,000638: 35,2477           72510                                   RESIGN                                
021091,000639: 35,2500           51545        NEXTES            DLOAD    ABS                                   
021092,000640: 35,2501           03452                                   DELEL                                 
021093,000641: 35,2502           51525                          PDDL     ABS                                   
021094,000642: 35,2503           00033                                   DELELO                                
021095,000643: 35,2504           77625                          DSU                                            
021096,000644: 35,2505           71240                          BMN      DLOAD                                 
021097,000645: 35,2506           72513                                   REVERS                                #  WRONG DIRECTION
021098,000646: 35,2507           77646                          ABS                                            
021099,000647: 35,2510           52165        RESIGN            SIGN     GOTO                                  
021100,000648: 35,2511           03450                                   DELTEEO                               
021101,000649: 35,2512           72522                                   STORDELT                              
021102,000650: 35,2513           57545        REVERS            DLOAD    DCOMP                                 
021103,000651: 35,2514           03450                                   DELTEEO                               
021104,000652: 35,2515           70406                          PUSH     SR1                                   
021105,000653: 35,2516           03450                          STORE    DELTEEO                               
021106,000654: 35,2517           77615                          DAD                                            
021107,000655: 35,2520           77650                          GOTO                                           
021108,000656: 35,2521           72523                                   ADTIME                                
021109,000657: 35,2522           03450        STORDELT          STORE    DELTEEO                               
021110,000658: 35,2523           77615        ADTIME            DAD                                            
021111,000659: 35,2524           02355                                   NOMTPI                                #  SUM OF DELTA T'S
021112,000660: 35,2525           02355                          STORE    NOMTPI                                
021113,000661: 35,2526           63375                          VLOAD    PDVL                                  
021114,000662: 35,2527           03570                                   VAPREC                                
021115,000663: 35,2530           03576                                   RAPREC                                
021116,000664: 35,2531           77624                          CALL                                           
021117,000665: 35,2532           72734                                   GOINT                                 
021118,000666: 35,2533           77624                          CALL                                           
021119,000667: 35,2534           45304                                   ACTIVE                                #  STORE NEW RACT3 VACT3
021120,000668: 35,2535           63375                          VLOAD    PDVL                                  
021121,000669: 35,2536           03612                                   VPPREC                                
021122,000670: 35,2537           03620                                   RPPREC                                
021123,000671: 35,2540           77624                          CALL                                           
021124,000672: 35,2541           72734                                   GOINT                                 
021125,000673: 35,2542           77624                          CALL                                           
021126,000674: 35,2543           45314                                   PASSIVE                               #  STORE NEW RPASS3 VPASS3
021127,000675: 35,2544           77650                          GOTO                                           
021128,000676: 35,2545           72271                                   ELCALC                                
021129,000677: 35,2546           43345        ELEX              DLOAD    DAD                                   
021130,000678: 35,2547           03663                                   TTPI                                  
021131,000679: 35,2550           02355                                   NOMTPI                                
021132,000680: 35,2551           17663                          STODL    TTPI                                  
021133,000681: 35,2552           77614                          BON                                            
021134,000682: 35,2553           01310                                   ETPIFLAG                              
021135,000683: 35,2554           72556                                   TIMEX                                 
021136,000684: 35,2555           03744                          STORE    ELEV                                  
021137,000685: 35,2556           52145        TIMEX             DLOAD    GOTO                                  
021138,000686:                                                                                                 # # Page 477
021139,000687: 35,2557           15336                                   ZEROVECS                              
021140,000688: 35,2560           01023                                   NORMEX                                
021141,000689: 
021142,000690:                                                                                                 # # Page 478
021143,000691:                                                                                                 #  ..... S34/35.1  .....
021144,000692: 
021145,000693:                                                                                                 #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
021146,000694:                                                                                                 #  PASSIVE POS AND VEL AT TIME T3
021147,000695: 
021148,000696: 36,2000                                          SETLOC   S3435LOC                              
021149,000697: 36,2000                                          BANK                                           
021150,000698: 
021151,000699: 36,2000                                          COUNT*   $$/P3474                              
021152,000700: 36,2000           52375        S34/35.1          VLOAD    VSU                                   
021153,000701: 36,2001           03554                                   RPASS3                                
021154,000702: 36,2002           03540                                   RACT3                                 
021155,000703: 36,2003           41456                          UNIT     PUSH                                  
021156,000704: 36,2004           26625                          STOVL    ULOS                                  
021157,000705: 36,2005           03540                                   RACT3                                 
021158,000706: 36,2006           53435                          VXV      UNIT                                  
021159,000707: 36,2007           03546                                   VACT3                                 
021160,000708: 36,2010           02617                          STORE    UNRM                                  
021161,000709: 36,2011           77616                          RVQ                                            
021162,000710: 
021163,000711:                                                                                                 # # Page 479
021164,000712:                                                                                                 #  ..... S34/35.2  .....
021165,000713: 
021166,000714:                                                                                                 #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
021167,000715: 
021168,000716: 35,2000                                          SETLOC   CSI/CDH                               
021169,000717: 35,2000                                          BANK                                           
021170,000718: 
021171,000719: 35,2561                                          COUNT*   $$/P3474                              
021172,000720: 35,2561           77220        S34/35.2          STQ      VLOAD                                 
021173,000721: 35,2562           02360                                   SUBEXIT                               
021174,000722: 35,2563           03562                                   VPASS3                                
021175,000723: 35,2564           65315                          PDVL     PDDL                                  
021176,000724: 35,2565           03554                                   RPASS3                                
021177,000725: 35,2566           03503                                   INTIME                                
021178,000726: 35,2567           65325                          PDDL     PDDL                                  
021179,000727: 35,2570           03656                                   TPASS4                                
021180,000728: 35,2571           33143                                   TWOPI                                 #  CONIC
021181,000729: 35,2572           46125                          PDDL     BHIZ                                  
021182,000730: 35,2573           03766                                   NN                                    
021183,000731: 35,2574           72577                                   S3435.23                              
021184,000732: 35,2575           65345                          DLOAD    PDDL                                  
021185,000733: 35,2576           15336                                   ZEROVECS                              #  PRECISION
021186,000734: 35,2577           77624        S3435.23          CALL                                           
021187,000735: 35,2600           72740                                   INTINT                                #  GET TARGET VECTOR
021188,000736: 35,2601           27415        S3435.25          STOVL    RTARG                                 
021189,000737: 35,2602           00007                                   VATT                                  
021190,000738: 35,2603           27640                          STOVL    VPASS4                                
021191,000739: 35,2604           03415                                   RTARG                                 
021192,000740:                                                                                                 #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP)-PI)SIGN(RA*RP.U)
021193,000741: 35,2605           63256                          UNIT     PDVL                                  #  UNIT RP
021194,000742: 35,2606           03540                                   RACT3                                 
021195,000743: 35,2607           41456                          UNIT     PUSH                                  #  UNIT RA
021196,000744: 35,2610           50235                          VXV      DOT                                   
021197,000745: 35,2611           00001                                   0D                                    
021198,000746: 35,2612           02617                                   UNRM                                  #  RA*RP.U
021199,000747: 35,2613           77715                          PDVL                                           
021200,000748: 35,2614           72441                          DOT      SL1                                   #  UNIT RA.UNIT RP
021201,000749: 35,2615           00001                                   0D                                    
021202,000750: 35,2616           75326                          ACOS     SIGN                                  
021203,000751: 35,2617           43244                          BPL      DAD                                   
021204,000752: 35,2620           72622                                   NOPIE                                 
021205,000753: 35,2621           15344                                   DPPOSMAX                              #  REASONABLE TWO PI
021206,000754: 35,2622           16633        NOPIE             STODL    ACTCENT                               
021207,000755: 35,2623           03656                                   TPASS4                                
021208,000756: 35,2624           77625                          DSU                                            
021209,000757: 35,2625           03503                                   INTIME                                
021210,000758: 35,2626           03423                          STORE    DELLT4                                
021211,000759: 35,2627           40335                          SLOAD    SETPD                                 
021212,000760: 35,2630           03766                                   NN                                    #  NUMBER OF OFFSETS
021213,000761: 35,2631           00001                                   0D                                    
021214,000762: 35,2632           63325                          PDDL     PDVL                                  
021215,000763:                                                                                                 # # Page 480
021216,000764: 35,2633           33156                                   EPSFOUR                               
021217,000765: 35,2634           03540                                   RACT3                                 
021218,000766: 35,2635           27570                          STOVL    RINIT                                 
021219,000767: 35,2636           03546                                   VACT3                                 
021220,000768: 35,2637           37576                          STCALL   VINIT                                 
021221,000769: 35,2640           22000                                   INITVEL                               
021222,000770: 35,2641           77624                          CALL                                           
021223,000771: 35,2642           72721                                   LOMAT                                 
021224,000772: 35,2643           64375                          VLOAD    MXV                                   
021225,000773: 35,2644           03646                                   DELVEET3                              
021226,000774: 35,2645           00001                                   0D                                    
021227,000775: 35,2646           77772                          VSL1                                           
021228,000776: 35,2647           37405                          STCALL   DELVLVC                               
021229,000777: 35,2650           02360                                   SUBEXIT                               
021230,000778: 
021231,000779:                                                                                                 # # Page 481
021232,000780:                                                                                                 #  ..... S34/35.3  .....
021233,000781: 
021234,000782: 35,2651           45020        S34/35.3          STQ      CALL                                  
021235,000783: 35,2652           01023                                   NORMEX                                
021236,000784: 35,2653           72721                                   LOMAT                                 #  GET MATRIX IN PUSH LIST
021237,000785: 35,2654           61375                          VLOAD    VXM                                   
021238,000786: 35,2655           03405                                   DELVLVC                               #  NEW DEL V TPI
021239,000787: 35,2656           00001                                   0D                                    
021240,000788: 35,2657           77772                          VSL1                                           
021241,000789: 35,2660           03646                          STORE    DELVEET3                              #  SAVE FOR TRANSFORM
021242,000790: 35,2661           63255                          VAD      PDVL                                  
021243,000791: 35,2662           03546                                   VACT3                                 #  NEW V REQ
021244,000792: 35,2663           03540                                   RACT3                                 
021245,000793: 35,2664           65325                          PDDL     PDDL                                  
021246,000794: 35,2665           03413                                   TIG                                   
021247,000795: 35,2666           03656                                   TPASS4                                
021248,000796: 35,2667           41525                          PDDL     PUSH                                  
021249,000797: 35,2670           15344                                   DPPOSMAX                              
021250,000798: 35,2671           77624                          CALL                                           #  INTEG. FOR NEW TARGET VEC
021251,000799: 35,2672           72740                                   INTINT                                
021252,000800: 35,2673           77775                          VLOAD                                          
021253,000801: 35,2674           00001                                   RATT                                  
021254,000802: 35,2675           03415                          STORE    RTARG                                 
021255,000803: 35,2676           41575        NOVRWRT           VLOAD    PUSH                                  
021256,000804: 35,2677           02625                                   ULOS                                  
021257,000805: 35,2700           57435                          VXV      VCOMP                                 
021258,000806: 35,2701           02617                                   UNRM                                  
021259,000807: 35,2702           41456                          UNIT     PUSH                                  
021260,000808: 35,2703           76435                          VXV      VSL1                                  
021261,000809: 35,2704           02625                                   ULOS                                  
021262,000810: 35,2705           77715                          PDVL                                           
021263,000811: 35,2706           64315                          PDVL     MXV                                   
021264,000812: 35,2707           03646                                   DELVEET3                              
021265,000813: 35,2710           00001                                   0D                                    
021266,000814: 35,2711           77772                          VSL1                                           
021267,000815: 35,2712           36611                          STCALL   DVLOS                                 
021268,000816: 35,2713           01023                                   NORMEX                                
021269,000817: 
021270,000818:                                                                                                 # # Page 482
021271,000819:                                                                                                 #  ..... S34/35.4  .....
021272,000820: 
021273,000821: 35,2714           40220        S34/35.4          STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
021274,000822: 35,2715           01023                                   NORMEX                                
021275,000823: 35,2716           00001                                   0D                                    
021276,000824: 35,2717           77650                          GOTO                                           
021277,000825: 35,2720           72676                                   NOVRWRT                               
021278,000826: 
021279,000827:                                                                                                 # # Page 483
021280,000828:                                                                                                 #  ..... LOMAT     .....
021281,000829: 
021282,000830: 35,2721           57575        LOMAT             VLOAD    VCOMP                                 
021283,000831: 35,2722           02617                                   UNRM                                  
021284,000832: 35,2723           24007                          STOVL    6D                                    #  Y
021285,000833: 35,2724           03540                                   RACT3                                 
021286,000834: 35,2725           57456                          UNIT     VCOMP                                 
021287,000835: 35,2726           00015                          STORE    12D                                   
021288,000836: 35,2727           76435                          VXV      VSL1                                  
021289,000837: 35,2730           02617                                   UNRM                                  #  Z*-Y
021290,000838: 35,2731           00001                          STORE    0D                                    
021291,000839: 35,2732           43401                          SETPD    RVQ                                   
021292,000840: 35,2733           00023                                   18D                                   
021293,000841: 35,2734           65325        GOINT             PDDL     PDDL                                  #  DO
021294,000842: 35,2735           15336                                   ZEROVECS                              #    NOT
021295,000843: 35,2736           02355                                   NOMTPI                                
021296,000844: 35,2737           41406                          PUSH     PUSH                                  #                 ORDER OR INSERT BEFORE INTINT
021297,000845: 35,2740           45020        INTINT            STQ      CALL                                  
021298,000846: 35,2741           02357                                   RTRN                                  
021299,000847: 35,2742           27516                                   INTSTALL                              
021300,000848: 35,2743           71214                          CLEAR    DLOAD                                 
021301,000849: 35,2744           01673                                   INTYPFLG                              
021302,000850: 35,2745           43054                          BZE      SET                                   
021303,000851: 35,2746           72750                                   +2                                    
021304,000852: 35,2747           01473                                   INTYPFLG                              
021305,000853: 35,2750           45545                          DLOAD    STADR                                 
021306,000854: 35,2751           63736                          STODL    TDEC1                                 
021307,000855: 35,2752           73014                          SET      LXA,2                                 
021308,000856: 35,2753           00063                                   MOONFLAG                              
021309,000857: 35,2754           03746                                   RTX2                                  
021310,000858: 35,2755           43014                          BON      CLEAR                                 
021311,000859: 35,2756           04303                                   CMOONFLG                              
021312,000860: 35,2757           72761                                   ALLSET                                
021313,000861: 35,2760           00263                                   MOONFLAG                              
021314,000862: 35,2761           25517        ALLSET            STOVL    TET                                   
021315,000863: 35,2762           77657                          VSR*                                           
021316,000864: 35,2763           57176                                   0,2                                   
021317,000865: 35,2764           25535                          STOVL    RCV                                   
021318,000866: 35,2765           77657                          VSR*                                           
021319,000867: 35,2766           57176                                   0,2                                   
021320,000868: 35,2767           35543                          STCALL   VCV                                   
021321,000869: 35,2770           27211                                   INTEGRVS                              
021322,000870: 35,2771           52175                          VLOAD    GOTO                                  
021323,000871: 35,2772           00001                                   RATT                                  
021324,000872: 35,2773           02357                                   RTRN                                  
021325,000873: 
021326,000874:                                                                                                 # # Page 484
021327,000875:                                                                                                 #  ..... S34/35.5  .....
021328,000876: 
021329,000877:                                                                                                 #  SUBROUTINES USED
021330,000878: 
021331,000879:                                                                                                 #         BANKCALL
021332,000880:                                                                                                 #         GOFLASH
021333,000881:                                                                                                 #         GOTOPOOH
021334,000882:                                                                                                 #         S34/35.3
021335,000883:                                                                                                 #         S34.35.4
021336,000884:                                                                                                 #         VNPOOH
021337,000885: 
021338,000886: 35,2774           43020        S34/35.5          STQ      BON                                   
021339,000887: 35,2775           02360                                   SUBEXIT                               
021340,000888: 35,2776           01311                                   FINALFLG                              
021341,000889: 35,2777           73003                                   FLAGON                                
021342,000890: 35,3000           52014                          SET      GOTO                                  
021343,000891: 35,3001           00470                                   UPDATFLG                              
021344,000892: 35,3002           73005                                   FLAGON     +2                         
021345,000893: 35,3003           77614        FLAGON            SET                                            
021346,000894: 35,3004           05074                                   TPIMNFLG                              #  INDICATE TPI MANEUVER DONE
021347,000895: 35,3005           77775                 +2       VLOAD                                          
021348,000896: 35,3006           03405                                   DELVLVC                               
021349,000897: 35,3007           03620                          STORE    VTPRIME                               #  SAVE DELTA V BEFORE DISPLAY
021350,000898: 35,3010           77776                          EXIT                                           
021351,000899: 35,3011           34535                          CAF      V06N81                                
021352,000900: 35,3012           05535                          TC       VNFLASH                               
021353,000901: 35,3013           06006                          TC       INTPRET                               
021354,000902: 35,3014           52375                          VLOAD    VSU                                   #  TEST FOR OVERWRITE OF COMPUTED
021355,000903: 35,3015           03405                                   DELVLVC                               #                       DELTA V
021356,000904: 35,3016           03620                                   VTPRIME                               
021357,000905: 35,3017           53046                          ABVAL    BZE                                   
021358,000906: 35,3020           73023                                   FLAGOFF                               
021359,000907: 35,3021           77624                          CALL                                           
021360,000908: 35,3022           72651                                   S34/35.3                              #  COMPUTE NEW TARGET VECTOR
021361,000909:                                                                                                 #  TRANSFER OF DELVEET3 TO DELVSIN OUT...THEY SHARE SAME ERASABLE.
021362,000910: 35,3023           77624        FLAGOFF           CALL                                           
021363,000911: 35,3024           72714                                   S34/35.4                              
021364,000912: 35,3025           77650        FLAGEND           GOTO                                           
021365,000913: 35,3026           02360                                   SUBEXIT                               
021366,000914: 
021367,000915:                                                                                                 # # Page 485
021368,000916:                                                                                                 #  ..... VN1645    .....
021369,000917: 
021370,000918:                                                                                                 #  SUBROUTINES USED
021371,000919: 
021372,000920:                                                                                                 #         P3XORP7X
021373,000921:                                                                                                 #         GET+MGA
021374,000922:                                                                                                 #         BANKCALL
021375,000923:                                                                                                 #         DELAYJOB
021376,000924:                                                                                                 #         COMPTGO
021377,000925:                                                                                                 #         GOFLASHR
021378,000926:                                                                                                 #         GOTOPOOH
021379,000927:                                                                                                 #         FLAGUP
021380,000928: 
021381,000929: 35,3027           71220        VN1645            STQ      DLOAD                                 
021382,000930: 35,3030           02360                                   SUBEXIT                               
021383,000931: 35,3031           33154                                   DP-.01                                
021384,000932: 35,3032           03626                          STORE    +MGA                                  #  MGA = -.01
021385,000933: 35,3033           71214                          BOFF     DLOAD                                 
021386,000934: 35,3034           01351                                   FINALFLG                              
021387,000935: 35,3035           73055                                   GET45                                 
021388,000936: 35,3036           33154                                   DP-.01                                
021389,000937: 35,3037           77615                          DAD                                            
021390,000938: 35,3040           33154                                   DP-.01                                
021391,000939: 35,3041           03626                          STORE    +MGA                                  #  MGA = -.02
021392,000940: 35,3042           77414                          BOFF     EXIT                                  
021393,000941: 35,3043           01742                                   REFSMFLG                              
021394,000942: 35,3044           73055                                   GET45                                 
021395,000943: 35,3045           03137                          TC       P3XORP7X                              
021396,000944: 35,3046           03050                          TC       +2                                    #  P3X
021397,000945: 35,3047           03056                          TC       GET45      +1                         #  P7X
021398,000946: 35,3050           06006                          TC       INTPRET                               
021399,000947: 35,3051           41575                          VLOAD    PUSH                                  
021400,000948: 35,3052           03646                                   DELVSIN                               
021401,000949: 35,3053           77624                          CALL                                           #  COMPUTE MGA
021402,000950: 35,3054           56444                                   GET+MGA                               
021403,000951: 35,3055           77776        GET45             EXIT                                           
021404,000952: 35,3056           03525                 +1       TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
021405,000953: 35,3057           31760                          CA       SUBEXIT                               
021406,000954: 35,3060           55756                          TS       QSAVED                                
021407,000955: 35,3061           04636                          TC       BANKCALL                              
021408,000956: 35,3062           01730                          CADR     1SECDELY                              
021409,000957: 35,3063           34536                          CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
021410,000958: 35,3064           04636                          TC       BANKCALL                              
021411,000959: 35,3065           20743                          CADR     GOFLASH                               
021412,000960: 35,3066           04103                          TC       GOTOPOOH                              #  TERMINATE
021413,000961: 35,3067           03071                          TC       N45PROC                               #  PROCEED
021414,000962: 35,3070           03101                          TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
021415,000963: 35,3071           40076        N45PROC           CS       FLAGWRD2                              
021416,000964: 35,3072           74763                          MASK     FINALBIT                              
021417,000965: 35,3073           00006                          EXTEND                                         
021418,000966:                                                                                                 # # Page 486
021419,000967: 35,3074           13113                          BZF      N45ENAJ                               #  FINAL FLAG SET - FINAL PASS
021420,000968: 35,3075           05402        N45NORM           TC       PHASCHNG                              
021421,000969: 35,3076           04024                          OCT      04024                                 
021422,000970: 35,3077           05547                          TC       UPFLAG                                #  SET
021423,000971: 35,3100           00047                          ADRES    FINALFLG                              #  FINALFLG
021424,000972: 35,3101           05561        CLUPDATE          TC       DOWNFLAG                              
021425,000973: 35,3102           00155                          ADRES    TIMRFLAG                              #  TERMINATE CLOKTASK
021426,000974: 35,3103           33136                          CAF      VN1645AD                              #  CHANGE BACK TO 4.1 FOR
021427,000975: 35,3104           54373                          TS       TEMPFLSH                              #  FUTURE DISPLAYS
021428,000976: 35,3105           05402                          TC       PHASCHNG                              
021429,000977: 35,3106           00014                          OCT      14                                    
021430,000978: 
021431,000979: 35,3107           06006        VN1645R           TC       INTPRET                               
021432,000980: 35,3110           52014                          CLEAR    GOTO                                  
021433,000981: 35,3111           00670                                   UPDATFLG                              
021434,000982: 35,3112           02356                 +3                QSAVED                                
021435,000983: 35,3113           05402        N45ENAJ           TC       PHASCHNG                              #  PROTECT MANEVFLG, WRENDPOS
021436,000984: 35,3114           04024                          OCT      04024                                 
021437,000985: 35,3115           06006                          TC       INTPRET                               
021438,000986: 35,3116           77745                          DLOAD                                          
021439,000987: 35,3117           03413                                   TIG                                   
021440,000988: 35,3120           03450                          STORE    NOMTIG                                
021441,000989: 35,3121           43014                          BON      SET                                   
021442,000990: 35,3122           05316                                   PCFLAG                                
021443,000991: 35,3123           73125                                   CHGRMS                                
021444,000992: 35,3124           05072                                   MANEUFLG                              #  DONT SET FLAG IF PC MANEUVER
021445,000993: 35,3125           71214        CHGRMS            BOFF     DLOAD                                 
021446,000994: 35,3126           05350                                   AUTOSEQ                               
021447,000995: 35,3127           73132                                   SAMERMS                               
021448,000996: 35,3130           33135                                   POSVEL2                               #  CHANGE RMS ONLY IN MINKEY
021449,000997: 35,3131           02001                          STORE    WRENDPOS                              
021450,000998: 35,3132           77776        SAMERMS           EXIT                                           
021451,000999: 35,3133           14105                          TCF      MNKGOPOO                              
021452,001000: 35,3134           00023        POSVEL2           DEC      608        B-19                       #  2000 FT IN METERS
021453,001001: 35,3135           00144        POSVEL3           DEC      .00608                                #  2 FT/SEC IN M/CS
021454,001002: 35,3136           73112        VN1645AD          CADR     VN1645R    +3                         
021455,001003: 
021456,001004:                                                                                                 # # Page 487
021457,001005:                                                                                                 #  ..... P3XORP7X  .....
021458,001006: 
021459,001007: 35,3137           37677        P3XORP7X          CAF      HIGH9                                 
021460,001008: 35,3140           71214                          MASK     MODREG                                
021461,001009: 35,3141           15651                          TCF      INCRQCK                               
021462,001010:    4000                                          SETLOC   P30SUBS                               
021463,001011:    4000                                          BANK                                           
021464,001012: 
021465,001013:    4532                                          COUNT*   $$/P3474                              
021466,001014: 
021467,001015:                                                                                                 # # Page 488
021468,001016:                                                                                                 #  ..... CONSTANTS .....
021469,001017: 
021470,001018:    4532           01445        V06N37            VN       0637                                  
021471,001019:    4533           01467        V06N55            VN       0655                                  
021472,001020:    4534           01472        V06N58            VN       0658                                  
021473,001021:    4535           01521        V06N81            VN       0681                                  
021474,001022:    4536           04055        V16N45            VN       1645                                  
021475,001023:    4537           01006        V04N06            VN       0406                                  
021476,001024: 
021477,001025: 35,2000                                          SETLOC   CSI/CDH                               
021478,001026: 35,2000                                          BANK                                           
021479,001027: 
021480,001028: 35,3142                                          COUNT*   $$/P3474                              
021481,001029: 35,3142           14441 37325  TWOPI             2DEC     6.283185307 B-4                        
021482,001030: 35,3144           00001 20650  MAX250            2DEC     25         E3                         
021483,001031: 35,3146           12525 12525  THIRD             2DEC     .333333333                            
021484,001032: 35,3150           00004 21505  ELEPS             2DEC     .27777777  E-3                        
021485,001033: 35,3152           00002        DECTWO            DEC      2          B-14                       
021486,001034: 35,3153           77777        DP-.01            OCT      77777                                 #  CONSTANTS
021487,001035: 35,3154           61337                          OCT      61337                                 #  ADJACENT       -.01 FOR MGA DSP
021488,001036: 35,3155           01252 25253  EPSFOUR           2DEC     .0416666666                            
021489,001037: 35,3157           01473        V06N59            VN       0659                                  
021490,001038: 
021491,001039:                                                                                                 # # Page 489
021492,001040:                                                                                                 #  ..... INITVEL .....
021493,001041: 
021494,001042:                                                                                                 #  MOD NO -1              LOG SECTION - P34-P35, P74-P75
021495,001043:                                                                                                 #  MOD BY WHITE.P DATE  21NOV67
021496,001044: 
021497,001045:                                                                                                 #  FUNCTIONAL DESCRIPTION
021498,001046: 
021499,001047:                                                                                                 #         THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
021500,001048:                                                                                                 #         A TRAJECTORY OF SPECIFIC TRANSFER TIME BETWEEN SPECIFIED INITIAL
021501,001049:                                                                                                 #         AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
021502,001050:                                                                                                 #         PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
021503,001051:                                                                                                 #         OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
021504,001052:                                                                                                 #         SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
021505,001053:                                                                                                 #         DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
021506,001054:                                                                                                 #         VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
021507,001055:                                                                                                 #         HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
021508,001056:                                                                                                 #         TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
021509,001057: 
021510,001058:                                                                                                 #         IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
021511,001059:                                                                                                 #         TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
021512,001060:                                                                                                 #         SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
021513,001061:                                                                                                 #         VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
021514,001062:                                                                                                 #         AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
021515,001063:                                                                                                 #         WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
021516,001064:                                                                                                 #         IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
021517,001065:                                                                                                 #         TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
021518,001066: 
021519,001067:                                                                                                 #         THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMUTATIONS AND
021520,001068:                                                                                                 #         THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
021521,001069:                                                                                                 #         TRAJECTORY COMPUTATIONS.
021522,001070: 
021523,001071:                                                                                                 #  CALLING SEQUENCE
021524,001072: 
021525,001073:                                                                                                 #         L       CALL
021526,001074:                                                                                                 #         L+1             INITVEL
021527,001075:                                                                                                 #         L+2     (RETURN - ALWAYS)
021528,001076: 
021529,001077:                                                                                                 #  INPUT
021530,001078: 
021531,001079:                                                                                                 #         (1) RINIT       INITIAL POSITION RADIUS VECTOR
021532,001080:                                                                                                 #         (2) VINIT       INITIAL POSITION VELOCITY VECTOR
021533,001081:                                                                                                 #         (3) RTARG       TARGET POSITION RADIUS VECTOR
021534,001082:                                                                                                 #         (4) DELLT4      DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
021535,001083:                                                                                                 #         (5) INTIME      TIME OF RINIT
021536,001084:                                                                                                 #         (6) 0D          NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
021537,001085:                                                                                                 #         (7) 2D          ANGLE TO 180 DEGREES WHEN ROTATION STARTS
021538,001086:                                                                                                 #         (8) RTX1        -2 FOR EARTH, -10D FOR LUNAR
021539,001087:                                                                                                 #         (9) RTX2        COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
021540,001088:                                                                                                 #         PUSHLOC SET AT 4D
021541,001089: 
021542,001090:                                                                                                 # # Page 490
021543,001091:                                                                                                 #  OUTPUT
021544,001092: 
021545,001093:                                                                                                 #         (1) RTARG       OFFSET TARGET POSITION VECTOR
021546,001094:                                                                                                 #         (2) VIPRIME     MANEUVER VELOCITY REQUIRED
021547,001095:                                                                                                 #         (3) VTPRIME     VELOCITY AT TARGET AFTER MANEUVER
021548,001096:                                                                                                 #         (4) DELVEET3    DELTA VELOCITY REQUIRED FOR MANEUVER
021549,001097: 
021550,001098:                                                                                                 #  SUBROUTINES USED
021551,001099: 
021552,001100:                                                                                                 #         LAMBERT
021553,001101:                                                                                                 #         INTSTALL
021554,001102:                                                                                                 #         INTEGRVS
021555,001103: 
021556,001104: 11,2000                                          SETLOC   INTVEL                                
021557,001105: 11,2000                                          BANK                                           
021558,001106: 
021559,001107: 11,2000                                          COUNT*   $$/INITV                              
021560,001108: 11,2000           77614        INITVEL           SET                                            #  COGA GUESS NOT AVAILABLE
021561,001109: 11,2001           00475                                   GUESSW                                
021562,001110: 11,2002           44175        HAVEGUES          VLOAD    STQ                                   
021563,001111: 11,2003           03415                                   RTARG                                 
021564,001112: 11,2004           01023                                   NORMEX                                
021565,001113: 11,2005           03604                          STORE    RTARG1                                
021566,001114: 11,2006           46135                          SLOAD    BHIZ                                  
021567,001115: 11,2007           03747                                   RTX2                                  
021568,001116: 11,2010           22022                                   INITVEL1                              
021569,001117: 11,2011           72575                          VLOAD    VSL2                                  
021570,001118: 11,2012           03570                                   RINIT                                 #  B29
021571,001119: 11,2013           27570                          STOVL    RINIT                                 #  B27
021572,001120: 11,2014           03576                                   VINIT                                 #  B7
021573,001121: 11,2015           77752                          VSL2                                           
021574,001122: 11,2016           27576                          STOVL    VINIT                                 #  B5
021575,001123: 11,2017           03604                                   RTARG1                                
021576,001124: 11,2020           77752                          VSL2                                           
021577,001125: 11,2021           03604                          STORE    RTARG1                                
021578,001126: 
021579,001127:                                                                                                 #  INITIALIZATION
021580,001128: 
021581,001129: 11,2022           71331        INITVEL1          SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4(PL 2D)
021582,001130: 11,2023           03505                                   ITCTR                                 
021583,001131: 11,2024           77776                                   0          -1                         
021584,001132: 11,2025           70546                          COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
021585,001133: 11,2026           17630                          STODL    COZY4                                 #  SET COZY4 TO COSINE (E4)          (PL 0D)
021586,001134: 11,2027           67154                          LXA,2    SXA,2                                 
021587,001135: 11,2030           00154                                   MPAC                                  
021588,001136: 11,2031           02703                                   VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
021589,001137: 11,2032           77775                          VLOAD                                          
021590,001138: 11,2033           03570                                   RINIT                                 
021591,001139: 11,2034           26657                          STOVL    R1VEC                                 #  R1VEC EQ RINIT
021592,001140: 11,2035           03604                                   RTARG1                                
021593,001141: 11,2036           16665                          STODL    R2VEC                                 #  R2VEC EQ RTARG
021594,001142:                                                                                                 # # Page 491
021595,001143: 11,2037           03423                                   DELLT4                                
021596,001144: 11,2040           02673                          STORE    TDESIRED                              #  TDESIRED EQ DELLT4
021597,001145: 11,2041           77201                          SETPD    VLOAD                                 
021598,001146: 11,2042           00001                                   0D                                    #  INITIALIZE PL TO 0D
021599,001147: 11,2043           03570                                   RINIT                                 #  MPAC EQ RINIT (+29)
021600,001148: 11,2044           41456                          UNIT     PUSH                                  #  UNIT(RI)  (+1)            (PL 6D)
021601,001149: 11,2045           53435                          VXV      UNIT                                  
021602,001150: 11,2046           03576                                   VINIT                                 #  MPAC EQ UNIT(RI) X VI   (+8)
021603,001151: 11,2047           26676                          STOVL    UN                                    
021604,001152: 11,2050           03604                                   RTARG1                                
021605,001153: 11,2051           50256                          UNIT     DOT                                   #  TEMP=URT.URI (+2)                 (PL 0D)
021606,001154: 11,2052           43015                          DAD      CLEAR                                 
021607,001155: 11,2053           03630                                   COZY4                                 
021608,001156: 11,2054           03665                                   NORMSW                                
021609,001157: 11,2055           03630                          STORE    COZY4                                 
021610,001158: 11,2056           43044        INITVEL2          BPL      SET                                   
021611,001159: 11,2057           22101                                   INITVEL3                              #  UN CALCULATED IN LAMBERT
021612,001160: 11,2060           03465                                   NORMSW                                
021613,001161: 
021614,001162:                                                                                                 #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
021615,001163: 
021616,001164: 11,2061           41575                          VLOAD    PUSH                                  #                                    (PL 6D)
021617,001165: 11,2062           02665                                   R2VEC                                 #  RC TO 6D (+29)
021618,001166: 11,2063           63246                          ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
021619,001167: 11,2064           46206                          PUSH     VPROJ                                 #                                   (PL 8D)
021620,001168: 11,2065           02676                                   UN                                    
021621,001169: 11,2066           51352                          VSL2     BVSU                                  
021622,001170: 11,2067           74256                          UNIT     VXSC                                  #                                   (PL 0D)
021623,001171: 11,2070           77772                          VSL1                                           
021624,001172: 11,2071           02665                          STORE    R2VEC                                 
021625,001173: 11,2072           67351                          TLOAD    SLOAD                                 
021626,001174: 11,2073           11762                                   ZEROVEC                               
021627,001175: 11,2074           03505                                   ITCTR                                 
021628,001176: 11,2075           77244                          BPL      VLOAD                                 
021629,001177: 11,2076           22101                                   INITVEL3                              
021630,001178: 11,2077           02665                                   R2VEC                                 
021631,001179: 11,2100           03604                          STORE    RTARG1                                
021632,001180: 11,2101           63345        INITVEL3          DLOAD    PDVL                                  #                                    (PL 2D)
021633,001181: 11,2102           27740                                   MUEARTH                               #  POSITIVE VALUE
021634,001182: 11,2103           02665                                   R2VEC                                 
021635,001183: 11,2104           63256                          UNIT     PDVL                                  #  2D = UNIT(R2VEC)                  (PL 8D)
021636,001184: 11,2105           02657                                   R1VEC                                 
021637,001185: 11,2106           41456                          UNIT     PUSH                                  #  8D = UNIT(R1VEC)                  (PL14D)
021638,001186: 11,2107           57435                          VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
021639,001187: 11,2110           00003                                   2D                                    
021640,001188: 11,2111           77606                          PUSH                                           #                                    (PL20D)
021641,001189: 11,2112           71350                          LXA,1    DLOAD                                 
021642,001190: 11,2113           03745                                   RTX1                                  
021643,001191: 11,2114           00023                                   18D                                   
021644,001192: 11,2115           62040                          BMN      INCR,1                                
021645,001193: 11,2116           22120                                   +2                                    
021646,001194:                                                                                                 # # Page 492
021647,001195: 11,2117           77767                          DEC      -8         B-14                       
021648,001196: 11,2120           67310                          INCR,1   SLOAD                                 
021649,001197: 11,2121           00012                                   10D                                   
021650,001198: 11,2122           00047                                   X1                                    
021651,001199: 11,2123           77230                          BHIZ     VLOAD                                 #                                    (PL14D)
021652,001200: 11,2124           22126                                   +2                                    
021653,001201: 11,2125           41476                          VCOMP    PUSH                                  #                                    (PL20D)
021654,001202: 11,2126           77775                          VLOAD                                          #                                    (PL14D)
021655,001203: 11,2127           50235                          VXV      DOT                                   #                                    (PL 2D)
021656,001204: 11,2130           71244                          BPL      DLOAD                                 #                                    (PL 0D)
021657,001205: 11,2131           22133                                   INITVEL4                              
021658,001206: 11,2132           41476                          DCOMP    PUSH                                  #                                    (PL 2D)
021659,001207: 11,2133           67154        INITVEL4          LXA,2    SXA,2                                 
021660,001208: 11,2134           00000                                   0D                                    
021661,001209: 11,2135           02674                                   GEOMSGN                               
021662,001210: 
021663,001211:                                                                                                 #  SET INPUTS UP FOR LAMBERT
021664,001212: 
021665,001213: 11,2136           45150                          LXA,1    CALL                                  
021666,001214: 11,2137           03745                                   RTX1                                  
021667,001215: 
021668,001216:                                                                                                 #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
021669,001217: 
021670,001218: 11,2140           25255                                   LAMBERT                               
021671,001219: 
021672,001220: 11,2141           77214                          CLEAR    VLOAD                                 
021673,001221: 11,2142           00675                                   GUESSW                                
021674,001222: 11,2143           02746                                   VVEC                                  
021675,001223: 
021676,001224:                                                                                                 #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
021677,001225: 
021678,001226: 11,2144           17612                          STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
021679,001227: 
021680,001228:                                                                                                 #  IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
021681,001229:                                                                                                 #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
021682,001230: 
021683,001231: 11,2145           02704                                   VTARGTAG                              
021684,001232: 11,2146           45030                          BHIZ     CALL                                  
021685,001233: 11,2147           34003                                   INITVEL7                              
021686,001234: 11,2150           27516                                   INTSTALL                              
021687,001235: 11,2151           43135                          SLOAD    CLEAR                                 
021688,001236: 11,2152           03747                                   RTX2                                  
021689,001237: 11,2153           00263                                   MOONFLAG                              
021690,001238: 11,2154           43030                          BHIZ     SET                                   
021691,001239: 11,2155           22157                                   INITVEL5                              
021692,001240: 11,2156           00063                                   MOONFLAG                              
021693,001241: 11,2157           77775        INITVEL5          VLOAD                                          
021694,001242: 11,2160           03570                                   RINIT                                 
021695,001243: 11,2161           02657                          STORE    R1VEC                                 
021696,001244: 11,2162           25535                          STOVL    RCV                                   
021697,001245: 11,2163           03612                                   VIPRIME                               
021698,001246: 11,2164           15543                          STODL    VCV                                   
021699,001247: 11,2165           03503                                   INTIME                                
021700,001248:                                                                                                 # # Page 493
021701,001249: 11,2166           01517                          STORE    TET                                   
021702,001250: 11,2167           43015                          DAD      CLEAR                                 
021703,001251: 11,2170           03423                                   DELLT4                                
021704,001252: 11,2171           01673                                   INTYPFLG                              
021705,001253: 11,2172           34041                          STCALL   TDEC1                                 
021706,001254: 11,2173           27211                                   INTEGRVS                              
021707,001255: 11,2174           77775                          VLOAD                                          
021708,001256: 11,2175           00025                                   VATT1                                 
021709,001257: 11,2176           02705                          STORE    VTARGET                               
021710,001258: 
021711,001259:                                                                                                 #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
021712,001260:                                                                                                 #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
021713,001261: 
021714,001262: 11,2177           63154                          LXA,2    INCR,2                                
021715,001263: 11,2200           03504                                   ITCTR                                 
021716,001264: 11,2201           00001                                   1D                                    #  INCREMENT ITCTR
021717,001265: 11,2202           55134                          SXA,2    XSU,2                                 
021718,001266: 11,2203           03504                                   ITCTR                                 
021719,001267: 11,2204           02703                                   VTARGTAG                              
021720,001268: 11,2205           46135                          SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
021721,001269: 11,2206           00050                                   X2                                    
021722,001270: 11,2207           34000                                   INITVEL6                              
021723,001271: 
021724,001272:                                                                                                 #  OFFSET CONIC TARGET VECTOR
021725,001273: 
021726,001274: 11,2210           52375                          VLOAD    VSU                                   
021727,001275: 11,2211           03604                                   RTARG1                                
021728,001276: 11,2212           00017                                   RATT1                                 
021729,001277: 11,2213           77655                          VAD                                            
021730,001278: 11,2214           02665                                   R2VEC                                 
021731,001279: 11,2215           16665                          STODL    R2VEC                                 
021732,001280: 11,2216           03630                                   COZY4                                 
021733,001281: 11,2217           77650                          GOTO                                           
021734,001282: 11,2220           22056                                   INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
021735,001283: 16,2000                                          SETLOC   INTVEL1                               
021736,001284: 16,2000                                          BANK                                           
021737,001285: 
021738,001286: 16,2000                                          COUNT*   $$/INITV                              
021739,001287: 
021740,001288:                                                                                                 #  COMPUTE THE DELTA VELOCITY
021741,001289: 
021742,001290: 16,2000           77775        INITVEL6          VLOAD                                          
021743,001291: 16,2001           02665                                   R2VEC                                 
021744,001292: 16,2002           03604                          STORE    RTARG1                                
021745,001293: 16,2003           52375        INITVEL7          VLOAD    VSU                                   
021746,001294: 16,2004           03612                                   VIPRIME                               
021747,001295: 16,2005           03576                                   VINIT                                 
021748,001296: 16,2006           27646                          STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT  (+7)
021749,001297: 16,2007           02705                                   VTARGET                               
021750,001298: 16,2010           37620                          STCALL   VTPRIME                               
021751,001299: 16,2011           22221                                   INITVEL8                              
021752,001300: 11,2000                                          SETLOC   INTVEL                                
021753,001301:                                                                                                 # # Page 494
021754,001302: 11,2000                                          BANK                                           
021755,001303: 
021756,001304: 11,2221                                          COUNT*   $$/INITV                              
021757,001305: 11,2221           46135        INITVEL8          SLOAD    BHIZ                                  
021758,001306: 11,2222           03747                                   RTX2                                  
021759,001307: 11,2223           22240                                   INITVELX                              
021760,001308: 11,2224           70575                          VLOAD    VSR2                                  
021761,001309: 11,2225           03620                                   VTPRIME                               
021762,001310: 11,2226           27620                          STOVL    VTPRIME                               
021763,001311: 11,2227           03612                                   VIPRIME                               
021764,001312: 11,2230           77742                          VSR2                                           
021765,001313: 11,2231           27612                          STOVL    VIPRIME                               
021766,001314: 11,2232           03604                                   RTARG1                                
021767,001315: 11,2233           77742                          VSR2                                           
021768,001316: 11,2234           27604                          STOVL    RTARG1                                
021769,001317: 11,2235           03646                                   DELVEET3                              
021770,001318: 11,2236           77742                          VSR2                                           
021771,001319: 11,2237           03646                          STORE    DELVEET3                              
021772,001320: 11,2240           77201        INITVELX          SETPD    VLOAD                                 
021773,001321: 11,2241           00001                                   0D                                    
021774,001322: 11,2242           03604                                   RTARG1                                
021775,001323: 11,2243           03415                          STORE    RTARG                                 
021776,001324: 11,2244           77614                          CLRGO                                          
021777,001325: 11,2245           01227                                   XDELVFLG                              
021778,001326: 11,2246           01023                                   NORMEX                                
021779,001327: 
021780,001328:                                                                                                 #  ..... END OF INITVEL ROUTINE .....
021781,001329: 
021782,001330:                                                                                                 # # Page 495
021783,001331: 
021784,001332:                                                                                                 #  MIDDLE GIMBAL ANGLE COMPUTATION.
021785,001333: 
021786,001334: 27,2000                                          SETLOC   MGIM                                  
021787,001335: 27,2000                                          BANK                                           
021788,001336: 
021789,001337: 27,2442                                          COUNT*   $$/MIDG                               
021790,001338: 
021791,001339: 27,2442           20000 00000  HALFREV           2DEC     1          B-1                        
021792,001340: 
021793,001341: 27,2444           53575        GET+MGA           VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE  UV (+1)
021794,001342: 27,2445           72441                          DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
021795,001343: 27,2446           01742                                   REFSMMAT   +6                         #   FROM +2 TO +1 FOR ASIN ROUTINE
021796,001344: 27,2447           51136                          ARCSIN   BPL                                   
021797,001345: 27,2450           56454                                   SETMGA                                
021798,001346: 27,2451           43215                          DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
021799,001347: 27,2452           16443                                   HALFREV                               #  ADDING ONE REVOLUTION
021800,001348: 27,2453           16443                                   HALFREV                               
021801,001349: 27,2454           03626        SETMGA            STORE    +MGA                                  
021802,001350: 27,2455           77616                          RVQ                                            
021803,001351: 
021804,001352: 04,2000                                          SETLOC   MIDDGIM                               
021805,001353: 04,2000                                          BANK                                           
021806,001354: 
021807,001355: 04,3200                                          COUNT*   $$/MIDG                               
021808,001356: 
021809,001357:                                                                                                 #  TRANSFORM INPUT VECTOR INTO LOCAL VERTICAL COORDINATES.
021810,001358: 
021811,001359: 04,3200           53575        GET.LVC           VLOAD    UNIT                                  #  (PL 6D)   R (+29) IN MPAC UNITZE  UR
021812,001360: 04,3201           03570                                   RINIT                                 
021813,001361: 04,3202           77676                          VCOMP                                          #  U(-R)
021814,001362: 04,3203           00023                          STORE    18D                                   #  U(-R) TO 18D
021815,001363: 04,3204           53435                          VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
021816,001364: 04,3205           03576                                   VINIT                                 
021817,001365: 04,3206           00015                          STORE    12D                                   #  U(V*R) TO 12D
021818,001366: 04,3207           53435                          VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
021819,001367: 04,3210           00023                                   18D                                   
021820,001368: 04,3211           24007                          STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
021821,001369: 04,3212           00001                                   0D                                    #  DELTA V (+7) IN 0D
021822,001370: 04,3213           76521                          MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
021823,001371: 04,3214           00007                                   6D                                    #   AND SCALE +7 IN MPAC
021824,001372: 04,3215           03405                          STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
021825,001373: 04,3216           77616                          RVQ                                            
021826,001374: 
021827,001375:                                                                                                 # # Page 496
021828,001376: 04,3217           77160        SELECTMU          AXC,1    AXT,2                                 
021829,001377: 04,3220           00002                                   2D                                    
021830,001378: 04,3221           00000                                   0D                                    
021831,001379: 04,3222           77614                          BOFF                                           
021832,001380: 04,3223           04343                                   CMOONFLG                              
021833,001381: 04,3224           11230                                   SETMUER                               
021834,001382: 04,3225           77160                          AXC,1    AXT,2                                 
021835,001383: 04,3226           00012                                   10D                                   
021836,001384: 04,3227           00002                                   2D                                    
021837,001385: 04,3230           66143        SETMUER           DLOAD*   SXA,1                                 
021838,001386: 04,3231           22305                                   MUTABLE    +4,1                       
021839,001387: 04,3232           03745                                   RTX1                                  
021840,001388: 04,3233           23752                          STODL*   RTSR1/MU                              
021841,001389: 04,3234           22277                                   MUTABLE    -2,1                       
021842,001390: 04,3235           54214                          BOFF     SR                                    
021843,001391: 04,3236           04343                                   CMOONFLG                              
021844,001392: 04,3237           11241                                   RTRNMU                                
021845,001393: 04,3240           20607                                   6D                                    
021846,001394: 04,3241           03750        RTRNMU            STORE    RTMU                                  
021847,001395: 04,3242           43134                          SXA,2    CLEAR                                 
021848,001396: 04,3243           03746                                   RTX2                                  
021849,001397: 04,3244           01271                                   FINALFLG                              
021850,001398: 04,3245           52014                          BON      GOTO                                  
021851,001399: 04,3246           05316                                   PCFLAG                                
021852,001400: 04,3247           45343                                   P36A                                  
021853,001401: 04,3250           73027                                   VN1645                                
021854,001402: 
021855,001403:                                                                                                 # # Page 497
021856,001404:                                                                                                 #  ..... PERIAPO .....
021857,001405:                                                                                                 #  MOD NO -1              LOG SECTION - P34-P35, P74-P75
021858,001406:                                                                                                 #  MOD BY WHITE.P DATE  18JAN68
021859,001407: 
021860,001408:                                                                                                 #  FUNCTIONAL DESCRIPTION
021861,001409: 
021862,001410:                                                                                                 #         THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
021863,001411:                                                                                                 #         ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
021864,001412:                                                                                                 #         THE TRAJECTORY AND THE PRIMARY BODY.
021865,001413: 
021866,001414:                                                                                                 #         SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
021867,001415: 
021868,001416:                                                                                                 #         APSIDES IS CALLED TO SOVE FOR THE TWO BODY RADII OF APOCENTER AND
021869,001417:                                                                                                 #         PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
021870,001418: 
021871,001419:                                                                                                 #  CALLING SEQUENCE
021872,001420: 
021873,001421:                                                                                                 #         L       CALL
021874,001422:                                                                                                 #         L+1             PERIAPO
021875,001423:                                                                                                 #         L+2     (RETURN - ALWAYS)
021876,001424: 
021877,001425:                                                                                                 #  INPUT
021878,001426: 
021879,001427:                                                                                                 #         (1) RVEC        POSITION VECTOR IN METERS
021880,001428:                                                                                                 #                         SCALE FACTOR - EARTH +29, MOON +27
021881,001429:                                                                                                 #         (2) VVEC        VELOCITY VECTOR IN METERS/CENTISECOND
021882,001430:                                                                                                 #                         SCALE FACTOR - EARTH +7, MOON +5
021883,001431:                                                                                                 #         (3) X1          PRIMARY BODY INDICATOR
021884,001432:                                                                                                 #                         EARTH -2, MOON -10
021885,001433: 
021886,001434:                                                                                                 #  OUTPUT
021887,001435: 
021888,001436:                                                                                                 #         (1) 2D          APOCENTER RADIUS IN METERS
021889,001437:                                                                                                 #                         SCALE FACTOR - EARTH +29, MOON +27
021890,001438:                                                                                                 #         (2) 4D          APOCENTER ALTITUDE IN METERS
021891,001439:                                                                                                 #                         SCALE FACTOR - EARTH +29, MOON P27
021892,001440:                                                                                                 #         (3) 6D          PERICENTER RADIUS IN METERS
021893,001441:                                                                                                 #                         SCALE FACTOR - EARTH +29, MOON +27
021894,001442:                                                                                                 #         (4) 8D          PERICENTER ALTITUDE IN METERS
021895,001443:                                                                                                 #                         SCALE FACTOR - EARTH +29, MOON +27
021896,001444:                                                                                                 #         (5) ECC         ECCENTRICITY OF CONIC TRAJECTORY
021897,001445:                                                                                                 #                         SCALE FACTOR - +3
021898,001446:                                                                                                 #         (6) XXXALT      RADIUS OF THE PRIMARY BODY IN METERS
021899,001447:                                                                                                 #                         SCALE FACTOR - EARTH +29, MOON +27
021900,001448:                                                                                                 #         (7) PUSHLOC     EQUALS 10D
021901,001449: 
021902,001450:                                                                                                 #  SUBROUTINES USED
021903,001451: 
021904,001452:                                                                                                 #         SETRAD
021905,001453:                                                                                                 # # Page 498
021906,001454:                                                                                                 #         APSIDES
021907,001455: 
021908,001456: 22,2000                                          SETLOC   APOPERI                               
021909,001457: 22,2000                                          BANK                                           
021910,001458: 
021911,001459: 22,3172                                          COUNT*   $$/PERAP                              
021912,001460: 
021913,001461: 22,3172           00302 17755  RPAD              2DEC     6373338    B-29                       #  STANDARD RADIUS  OF PAD 37-B.
021914,001462:                                                                                                 #  = 20 909 901.57 FT
021915,001463: 
021916,001464: 22,3174           53754        PERIAPO1          LXA,2    VSR*                                  
021917,001465: 22,3175           03746                                   RTX2                                  
021918,001466: 22,3176           57176                                   0,2                                   
021919,001467: 22,3177           26746                          STOVL    VVEC                                  
021920,001468: 22,3200           53750                          LXA,1    VSR*                                  
021921,001469: 22,3201           03745                                   RTX1                                  
021922,001470: 22,3202           57176                                   0,2                                   
021923,001471: 22,3203           02657                          STORE    RVEC                                  
021924,001472: 22,3204           45020        PERIAPO           STQ      CALL                                  
021925,001473: 22,3205           01023                                   NORMEX                                
021926,001474: 22,3206           45222                                   SETRAD                                
021927,001475: 22,3207           37456                          STCALL   XXXALT                                
021928,001476: 22,3210           25717                                   APSIDES                               
021929,001477: 22,3211           41401                          SETPD    PUSH                                  #  2D = APOCENTER RADIUS          B29 OR B27
021930,001478: 22,3212           00003                                   2D                                    
021931,001479: 22,3213           65225                          DSU      PDDL                                  #  4D = APOGEE ALTITUDE           B29 OR B27
021932,001480: 22,3214           03456                                   XXXALT                                
021933,001481: 22,3215           00001                                   0D                                    
021934,001482: 22,3216           45206                          PUSH     DSU                                   #  6D = PERICENTER RADIUS B29 OR B27
021935,001483: 22,3217           03456                                   XXXALT                                
021936,001484: 22,3220           52006                          PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE  B29 OR B27
021937,001485: 22,3221           01023                                   NORMEX                                
021938,001486:                                                                                                 # # Page 499
021939,001487:                                                                                                 #  SETRAD
021940,001488: 22,3222           41545        SETRAD            DLOAD    PUSH                                  
021941,001489: 22,3223           05173                                   RPAD                                  
021942,001490: 22,3224           63130                          SXA,1    INCR,2                                
021943,001491: 22,3225           00047                                   X2                                    
021944,001492: 22,3226           00002                                   2D                                    
021945,001493: 22,3227           46135                          SLOAD    BHIZ                                  
021946,001494: 22,3230           00050                                   X2                                    
021947,001495: 22,3231           45235                                   SETRADX                               
021948,001496: 22,3232           51575                          VLOAD    ABVAL                                 
021949,001497: 22,3233           02026                                   RLS                                   
021950,001498: 22,3234           77725                          PDDL                                           
021951,001499: 22,3235           43545        SETRADX           DLOAD    RVQ                                   
021952,001500: 
021953,001501:                                                                                                 # # Page 500
021954,001502:                                                                                                 #  PRECSET
021955,001503: 22,3236           77620        PRECSET           STQ                                            
021956,001504: 22,3237           01023                                   NORMEX                                
021957,001505: 22,3240           36635                          STCALL   TDEC2                                 
021958,001506: 22,3241           27202                                   LEMCONIC                              #  CONIC INTEG
021959,001507: 22,3242           77624                          CALL                                           
021960,001508: 22,3243           45300                                   LEMSTORE                              
021961,001509: 22,3244           77745                          DLOAD                                          
021962,001510: 22,3245           02635                                   TDEC2                                 
021963,001511: 22,3246           34041                          STCALL   TDEC1                                 
021964,001512: 22,3247           27170                                   CSMCONIC                              #  CONIC INTEG
021965,001513: 22,3250           77624                          CALL                                           
021966,001514: 22,3251           45310                                   CSMSTORE                              
021967,001515: 22,3252           53575                          VLOAD    UNIT                                  
021968,001516: 22,3253           03554                                   RPASS3                                
021969,001517: 22,3254           53435                          VXV      UNIT                                  
021970,001518: 22,3255           03562                                   VPASS3                                
021971,001519: 22,3256           26611                          STOVL    UP1                                   #  UNIT(RPASS3) X VPASS3
021972,001520: 22,3257           03546                                   VACT3                                 
021973,001521: 22,3260           72441                          DOT      SL1                                   
021974,001522: 22,3261           02611                                   UP1                                   
021975,001523: 22,3262           26603                          STOVL    CMYDOT                                #  -YDOT (CSM)
021976,001524: 22,3263           03540                                   RACT3                                 
021977,001525: 22,3264           72441                          DOT      SL1                                   
021978,001526: 22,3265           02611                                   UP1                                   
021979,001527: 22,3266           26601                          STOVL    AUTOY                                 #  -Y(CSM)
021980,001528: 22,3267           03540                                   RACT3                                 
021981,001529: 22,3270           53435                          VXV      UNIT                                  
021982,001530: 22,3271           03546                                   VACT3                                 
021983,001531: 22,3272           26617                          STOVL    UNRM                                  
021984,001532: 22,3273           03562                                   VPASS3                                
021985,001533: 22,3274           72441                          DOT      SL1                                   
021986,001534: 22,3275           02617                                   UNRM                                  #  RACT3 X VACT3
021987,001535: 22,3276           36605                          STCALL   LMYDOT                                #  -YDOT(LM)
021988,001536: 22,3277           01023                                   NORMEX                                
021989,001537: 22,3300           43175        LEMSTORE          VLOAD    BOFF                                  
021990,001538: 22,3301           00001                                   RATT                                  
021991,001539: 22,3302           01352                                   AVFLAG                                
021992,001540: 22,3303           45314                                   PASSIVE                               
021993,001541: 22,3304           27540        ACTIVE            STOVL    RACT3                                 
021994,001542: 22,3305           00007                                   VATT                                  
021995,001543: 22,3306           03546                          STORE    VACT3                                 
021996,001544: 22,3307           77616                          RVQ                                            
021997,001545: 22,3310           43175        CSMSTORE          VLOAD    BOFF                                  
021998,001546: 22,3311           00001                                   RATT                                  
021999,001547: 22,3312           01352                                   AVFLAG                                
022000,001548: 22,3313           45304                                   ACTIVE                                
022001,001549: 22,3314           27554        PASSIVE           STOVL    RPASS3                                
022002,001550: 22,3315           00007                                   VATT                                  
022003,001551: 22,3316           03562                          STORE    VPASS3                                
022004,001552:                                                                                                 # # Page 501
022005,001553: 22,3317           77616                          RVQ                                            
022006,001554: 
022007,001555:                                                                                                 # # Page 502
022008,001556: 
022009,001557:                                                                                                 #  VECSHIFT
022010,001558: 22,3320           53754        VECSHIFT          LXA,2    VSR*                                  
022011,001559: 22,3321           03746                                   RTX2                                  
022012,001560: 22,3322           57176                                   0,2                                   
022013,001561: 22,3323           63350                          LXA,1    PDVL                                  
022014,001562: 22,3324           03745                                   RTX1                                  
022015,001563: 22,3325           63257                          VSR*     PDVL                                  
022016,001564: 22,3326           57176                                   0,2                                   
022017,001565: 22,3327           77616                          RVQ                                            
022018,001566: 
022019,001567:                                                                                                 # # Page 503
022020,001568:                                                                                                 #  SHIFTR1
022021,001569: 22,3330           53754        SHIFTR1           LXA,2    SL*                                   
022022,001570: 22,3331           03746                                   RTX2                                  
022023,001571: 22,3332           57576                                   0,2                                   
022024,001572: 22,3333           77616                          RVQ                                            
022025,001573: 
022026,001574:                                                                                                 # # Page 504
022027,001575:                                                                                                 #  PROGRAM DESCRIPTION
022028,001576:                                                                                                 #  SUBROUTINE NAME        R36  OUT-OF-PLANE RENDEZVOUS ROUTINE
022029,001577:                                                                                                 #  MOD NO.  3       DATE    18 NOVEMBER 1969
022030,001578:                                                                                                 #  MOD BY   T.E.CROCKER
022031,001579: 
022032,001580:                                                                                                 #  FUNCTIONAL DESCRIPTION
022033,001581: 
022034,001582:                                                                                                 #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
022035,001583:                                                                                                 #         OUT-OF-PLANE PARAMETERS (YDOT CSM,YDOT LEM,Y).  
022036,001584: 
022037,001585:                                                                                                 #  CALLING SEQUENCE
022038,001586: 
022039,001587:                                                                                                 #  ASTRONAUT REQUEST THROUGH DSKY  V 90 E
022040,001588: 
022041,001589:                                                                                                 #  SUBROUTINES CALLED
022042,001590: 
022043,001591:                                                                                                 #  EXDSPRET  TIMEOPT
022044,001592:                                                                                                 #  GOMARKF   VEHOPT
022045,001593:                                                                                                 #  CSMCONIC
022046,001594:                                                                                                 #  LEMCONIC
022047,001595:                                                                                                 #  LOADTIME
022048,001596: 
022049,001597:                                                                                                 #  NORMAL EXIT MODES
022050,001598: 
022051,001599:                                                                                                 #  ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
022052,001600: 
022053,001601:                                                                                                 #  ALARM OR ABORT EXIT MODES
022054,001602: 
022055,001603:                                                                                                 #  NONE
022056,001604: 
022057,001605:                                                                                                 #  OUTPUT
022058,001606:                                                                                                 #  
022059,001607:                                                                                                 #  DECIMAL DISPLAY OF YDOT CSM, YDOT LEM, Y, TIME.
022060,001608:                                                                                                 #  DISPLAYED VALUES YDOT, YDOT, Y ARE STORED IN ERASABLE
022061,001609:                                                                                                 #  REGISTERS RRATE, RRATE2, RANGE RESPECTIVELY.
022062,001610: 
022063,001611:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
022064,001612: 
022065,001613:                                                                                                 #  CSM AND LEM STATE VECTORS
022066,001614: 
022067,001615:                                                                                                 #  DEBRIS
022068,001616: 
022069,001617:                                                                                                 #  CENTRALS A,Q,L
022070,001618: 
022071,001619:                                                                                                 #  OTHER:  THOSE USED BY THE ABOVE LISTED SUBROUTINES
022072,001620: 
022073,001621: 24,2000                                          SETLOC   R36CM                                 
022074,001622: 24,2000                                          BANK                                           
022075,001623: 
022076,001624: 24,2000  E7,1412                                 EBANK=   TIG                                   
022077,001625: 24,2000                                          COUNT*   $$/R36                                
022078,001626: 
022079,001627: 24,2000           06006        R36               TC       INTPRET                               
022080,001628:                                                                                                 # # Page 505
022081,001629: 
022082,001630: 24,2001           45145                          DLOAD    CALL                                  
022083,001631: 24,2002           03413                                   TIG                                   
022084,001632: 24,2003           46424                                   TIMEOPT                               
022085,001633: 24,2004           77624        R36A              CALL                                           
022086,001634: 24,2005           27202                                   LEMCONIC                              
022087,001635: 24,2006           63375                          VLOAD    PDVL                                  #  VL TO PDLO
022088,001636: 24,2007           00007                                   VATT                                  
022089,001637: 24,2010           00001                                   RATT                                  
022090,001638: 24,2011           63256                          UNIT     PDVL                                  #  UNIT RL TO PDL0, VL TO MPAC
022091,001639: 24,2012           77626                          STADR                                          
022092,001640: 24,2013           75457                          STORE    VPASS36                               #  VL TO VPASS36
022093,001641: 24,2014           53435                          VXV      UNIT                                  #  VL(MPAC) X RL(PDL0)
022094,001642: 24,2015           77626                          STADR                                          
022095,001643: 24,2016           61451                          STODL    UNP36                                 #  UNIT(VL X RL) TO UNP36
022096,001644: 24,2017           00015                                   TAT                                   
022097,001645: 24,2020           34041                          STCALL   TDEC1                                 
022098,001646: 24,2021           27170                                   CSMCONIC                              
022099,001647: 24,2022           63375                          VLOAD    PDVL                                  #  VC TO PDL0
022100,001648: 24,2023           00007                                   VATT                                  
022101,001649: 24,2024           00001                                   RATT                                  
022102,001650: 24,2025           00007                          STORE    6D                                    #  RC TO PDL6
022103,001651: 24,2026           63256                          UNIT     PDVL                                  #  UNIT(RC) TO PDL0, VC TO MPAC
022104,001652: 24,2027           77626                          STADR                                          
022105,001653: 24,2030           77762                          STORE    12D                                   #  VC TO PDL12
022106,001654: 24,2031           53435                          VXV      UNIT                                  #  VC(MPAC) X RC(PDL0)
022107,001655: 24,2032           77626                          STADR                                          
022108,001656: 24,2033           51443                          STOVL    UNA36                                 #  UNIT(VC X RC) TO UNA36
022109,001657: 24,2034           00007                                   6D                                    #  RC TO MPAC
022110,001658: 24,2035           72441                          DOT      SL1                                   
022111,001659: 24,2036           02326                                   UNP36                                 #  RC . UNIT(VL X RL)
022112,001660: 24,2037           26312                          STOVL    RANGE                                 #   EQUALS RANGE
022113,001661: 24,2040           00015                                   12D                                   #  VC TO MPAC
022114,001662: 24,2041           72441                          DOT      SL1                                   
022115,001663: 24,2042           02326                                   UNP36                                 #  VC . UNIT(VL X RL)
022116,001664: 24,2043           26314                          STOVL    RRATE                                 #   EQUALS R. RATE OF CSM
022117,001665: 24,2044           02320                                   VPASS36                               #  VL TO MPAC
022118,001666: 24,2045           72441                          DOT      SL1                                   
022119,001667: 24,2046           02334                                   UNA36                                 
022120,001668: 24,2047           02316                          STORE    RRATE2                                #  VL . UNIT(VC X RC)
022121,001669: 24,2050           77776                          EXIT                                           #   EQUALS R. RATE OF LEM
022122,001670: 24,2051           32103                          CAF      V06N96                                #  DISPLAY Y, YDOTCM,YDOTLM
022123,001671: 24,2052           04636                          TC       BANKCALL                              
022124,001672: 24,2053           20576                          CADR     GOMARKF                               
022125,001673: 24,2054           15524                          TCF      ENDEXT                                #  T OR
022126,001674: 24,2055           15524                          TCF      ENDEXT                                #   P....EXIT R36
022127,001675:                                                                                                 #    R...DISPLAY TIME
022128,001676: 24,2056           06006                          TC       INTPRET                               
022129,001677: 24,2057           77624                          CALL                                           
022130,001678: 24,2060           46425                                   TIMEOPT    +1                         
022131,001679: 24,2061           77650                          GOTO                                           
022132,001680:                                                                                                 # # Page 506
022133,001681: 24,2062           50004                                   R36A                                  
022134,001682: 24,2063           01420        V06N16N           VN       0616                                  
022135,001683: 24,2064           77420        VEHOPT            STQ      EXIT                                  #  ALLOW VEHICLE OPTION
022136,001684: 24,2065           00734                                   VEHRET                                
022137,001685: 24,2066           00006                          EXTEND                                         
022138,001686: 24,2067           34770                          DCA      TWO                                   
022139,001687: 24,2070           53256                          DXCH     OPTIONX                               
022140,001688: 24,2071           32102                          CAF      OPTIONVN                              
022141,001689: 24,2072           04636                          TC       BANKCALL                              
022142,001690: 24,2073           20576                          CADR     GOXDSPF                               
022143,001691: 24,2074           05524                          TC       ENDEXT                                
022144,001692: 24,2075           02077                          TC       +2                                    
022145,001693: 24,2076           02071                          TC       -5                                    
022146,001694: 
022147,001695: 24,2077           06006                          TC       INTPRET                               
022148,001696: 24,2100           77650                          GOTO                                           
022149,001697: 24,2101           00734                                   VEHRET                                
022150,001698: 24,2102           01014        OPTIONVN          VN       0412                                  
022151,001699: 24,2103           01540        V06N96            VN       0696                                  
022152,001700: 
022153,001701: 24,2104  30,2000                                 SBANK=   LOWSUPER                              

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