Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images are 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

019733,000002:                                                                                                  ## Copyright:   Public domain.
019734,000003:                                                                                                  ## Filename:    P34-P35,_P74-P75.agc
019735,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
019736,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
019737,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
019738,000007:                                                                                                  ## Assembler:   yaYUL
019739,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
019740,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
019741,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
019742,000011:                                                                                                  ## Mod history: 2011-02-03 JL   Adapted from corresponding Colossus 249 file.
019743,000012:                                                                                                  ##              2016-12-31 RSB  Proofed comment text using octopus/ProoferComments,
019744,000013:                                                                                                  ##                              and corrected errors found.
019745,000014:                                                                                                  ##              2017-01-17 RSB  Fixed comment-text errors noted while diff'ing
019746,000015:                                                                                                  ##                              vs Colossus 249.
019747,000016:                                                                                                  ##              2017-01-28 RSB  Back-ported some comment fixes I noticed while
019748,000017:                                                                                                  ##                              proofing Artemis 72.
019749,000018: 

Page 450

019751,000020:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
019752,000021: 
019753,000022:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
019754,000023:                                                                                                  #  MOD BY WHITE.P  DATE 1JUNE67
019755,000024: 
019756,000025:                                                                                                  #  PURPOSE
019757,000026: 
019758,000027:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
019759,000028:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
019760,000029:                                                                                                  #            PHASE INITIATION (TPI) MANEUVER, GIVEN -
019761,000030: 
019762,000031:                                                                                                  #            (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
019763,000032:                                                                                                  #                THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
019764,000033: 
019765,000034:                                                                                                  #            (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
019766,000035:                                                                                                  #                INTERCEPT TIME (TIG (TPF)).
019767,000036: 
019768,000037:                                                                                                  #        (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
019769,000038: 
019770,000039:                                                                                                  #        (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
019771,000040:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
019772,000041: 
019773,000042:                                                                                                  #        (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
019774,000043:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
019775,000044:                                                                                                  #            ASTRONAUT/GROUND.
019776,000045: 
019777,000046:                                                                                                  #        (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
019778,000047:                                                                                                  #            THRUSTING PROGRAM.
019779,000048: 
019780,000049:                                                                                                  #  ASSUMPTIONS
019781,000050: 
019782,000051:                                                                                                  #        (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
019783,000052:                                                                                                  #            THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
019784,000053:                                                                                                  #            THEREFORE -
019785,000054: 
019786,000055:                                                                                                  #            (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
019787,000056:                                                                                                  #                BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
019788,000057:                                                                                                  #                A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
019789,000058:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
019790,000059: 
019791,000060:                                                                                                  #            (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
019792,000061:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
019793,000062: 
019794,000063:                                                                                                  #            (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
019795,000064:                                                                                                  #                ORBITS WAS MINIMIZED.
019796,000065: 
019797,000066:                                                                                                  #            (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
019798,000067: 
019799,000068:                                                                                                  #                CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 451

019801,000070:                                                                                                  #                ORBIT OR 85 NM FOR EARTH ORBIT.
019802,000071: 
019803,000072:                                                                                                  #            (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
019804,000073:                                                                                                  #                THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
019805,000074:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
019806,000075:                                                                                                  #                IN AN OUT-OF-PLANE MANEUVER.
019807,000076: 
019808,000077:                                                                                                  #        (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
019809,000078:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
019810,000079: 
019811,000080:                                                                                                  #        (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
019812,000081:                                                                                                  #            TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
019813,000082:                                                                                                  #            VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
019814,000083:                                                                                                  #            THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
019815,000084:                                                                                                  #            FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
019816,000085:                                                                                                  #            FLIGHT PLAN MANEUVER SEQUENCES.
019817,000086: 
019818,000087:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
019819,000088:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
019820,000089:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
019821,000090:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
019822,000091:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
019823,000092:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
019824,000093:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
019825,000094:                                                                                                  #            THRUSTING MANEUVER.
019826,000095: 
019827,000096:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
019828,000097: 
019829,000098:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
019830,000099: 
019831,000100:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
019832,000101:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
019833,000102:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
019834,000103:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
019835,000104: 
019836,000105:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
019837,000106:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
019838,000107: 
019839,000108:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
019840,000109:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
019841,000110:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
019842,000111: 
019843,000112:                                                                                                  #        (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
019844,000113:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
019845,000114:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
019846,000115:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
019847,000116:                                                                                                  #            THROUGH THE USE OF V06N52.
019848,000117: 
019849,000118:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
019850,000119:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 452

019852,000121:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
019853,000122:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
019854,000123:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
019855,000124: 
019856,000125:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
019857,000126: 
019858,000127:                                                                                                  #                P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
019859,000128: 
019860,000129:                                                                                                  #                P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
019861,000130: 
019862,000131:                                                                                                  #  INPUT
019863,000132: 
019864,000133:                                                                                                  #        (1) TTPI     TIME OF THE TPI MANEUVER
019865,000134:                                                                                                  #        (2) ELEV     DESIRED LOS ANGLE AT TPI
019866,000135:                                                                                                  #        (3) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
019867,000136:                                                                                                  #                     TRANSFER FROM TPI TO TIME OF INTERCEPT
019868,000137: 
019869,000138:                                                                                                  #  OUTPUT
019870,000139: 
019871,000140:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
019872,000141:                                                                                                  #        (2) TTOGO    TIME TO GO
019873,000142:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
019874,000143:                                                                                                  #        (4) TTPI     COMPUTED TIME OF TPI MANEUVER
019875,000144:                                                                                                  #             OR
019876,000145:                                                                                                  #            ELEV     COMPUTED LOS ANGLE AT TPI
019877,000146:                                                                                                  #        (5) POSTTPI  PERIGEE ALTITUDE AFTER THE TPI MANEUVER
019878,000147:                                                                                                  #        (6) DELVTPI  MAGNITUDE OF DELTA V AT TPI
019879,000148:                                                                                                  #        (7) DELVTPF  MAGNITUDE OF DELTA V AT INTERCEPT
019880,000149:                                                                                                  #        (8) DVLOS    DELTA VELOCITY AT TPI - LINE OF SIGHT
019881,000150:                                                                                                  #        (9) DELVLVC  DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
019882,000151: 
019883,000152:                                                                                                  #  DOWNLINK
019884,000153: 
019885,000154:                                                                                                  #        (1) TTPI     TIME OF THE TPI MANEUVER
019886,000155:                                                                                                  #        (2) TIG      TIME OF THE TPI MANEUVER
019887,000156:                                                                                                  #        (3) ELEV     DESIRED LOS ANGLE AT TPI
019888,000157:                                                                                                  #        (4) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
019889,000158:                                                                                                  #                     TRANSFER FROM TPI TO TIME OF INTERCEPT
019890,000159:                                                                                                  #        (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
019891,000160:                                                                                                  #        (6) TPASS4   TIME OF INTERCEPT
019892,000161:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
019893,000162: 
019894,000163:                                                                                                  #        (1) TIG      TIME OF THE TPI MANEUVER
019895,000164:                                                                                                  #        (2) RTARG    OFFSET TARGET POSITION
019896,000165:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
019897,000166:                                                                                                  #        (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
019898,000167: 
019899,000168:                                                                                                  #  SUBROUTINES USED
019900,000169: 
019901,000170:                                                                                                  #        AVFLAGA

Page 453

019903,000172:                                                                                                  #        AVFLAGP
019904,000173:                                                                                                  #        VNPOOH
019905,000174:                                                                                                  #        DISPLAYE
019906,000175:                                                                                                  #        SELECTMU
019907,000176:                                                                                                  #        PRECSET
019908,000177:                                                                                                  #        S33/34.1
019909,000178:                                                                                                  #        ALARM
019910,000179:                                                                                                  #        BANKCALL
019911,000180:                                                                                                  #        GOFLASH
019912,000181:                                                                                                  #        GOTOPOOH
019913,000182:                                                                                                  #        TIMETHET
019914,000183:                                                                                                  #        S34/35.2
019915,000184:                                                                                                  #        PERIAPO1
019916,000185:                                                                                                  #        SHIFTR1
019917,000186:                                                                                                  #        S34/35.5
019918,000187:                                                                                                  #        VN1645
019919,000188: 
019920,000189: 35,2000                                           SETLOC   CSI/CDH                               
019921,000190: 35,2000                                           BANK                                           
019922,000191: 35,2000  E4,1770                                  EBANK=   SUBEXIT                               
019923,000192: 35,2000                                           COUNT    35/P3474                              
019924,000193: 
019925,000194: 35,2000           03726        P34                TC       AVFLAGA                               
019926,000195: 35,2001           02003                           TC       P34/P74A                              
019927,000196: 35,2002           03741        P74                TC       AVFLAGP                               
019928,000197: 35,2003           03746        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
019929,000198: 35,2004           33125                           CAF      V06N37                                #  TTPI
019930,000199: 35,2005           03114                           TC       VNPOOH                                
019931,000200: 35,2006           03073                           TC       DISPLAYE                              #  ELEV AND CENTANG
019932,000201: 35,2007           06006                           TC       INTPRET                               
019933,000202: 35,2010           71214                           CLEAR    DLOAD                                 
019934,000203: 35,2011           01270                                    ETPIFLAG                              
019935,000204: 35,2012           03663                                    TTPI                                  
019936,000205: 35,2013           17413                           STODL    TIG                                   
019937,000206: 35,2014           03744                                    ELEV                                  
019938,000207: 35,2015           43054                           BZE      SET                                   
019939,000208: 35,2016           72020                                    P34/P74B                              
019940,000209: 35,2017           01070                                    ETPIFLAG                              
019941,000210: 35,2020           77624        P34/P74B           CALL                                           
019942,000211: 35,2021           10716                                    SELECTMU                              
019943,000212: 35,2022                        DELELO             EQUALS   26D                                   
019944,000213: 35,2022           43145        P34/P74C           DLOAD    SET                                   
019945,000214: 35,2023           15332                                    ZEROVECS                              
019946,000215: 35,2024           03461                                    ITSWICH                               
019947,000216: 35,2025           43014                           BON      CLEAR                                 
019948,000217: 35,2026           01310                                    ETPIFLAG                              
019949,000218: 35,2027           72031                                    SWCHSET                               
019950,000219: 35,2030           03661                                    ITSWICH                               
019951,000220: 35,2031           02364        SWCHSET            STORE    NOMTPI                                
019952,000221: 35,2032           43345        INTLOOP            DLOAD    DAD                                   

Page 454

019954,000223: 35,2033           03663                                    TTPI                                  
019955,000224: 35,2034           02364                                    NOMTPI                                
019956,000225: 35,2035           34041                           STCALL   TDEC1                                 
019957,000226: 35,2036           45354                                    PRECSET                               
019958,000227: 35,2037           77624                           CALL                                           
019959,000228: 35,2040           72212                                    S33/34.1                              
019960,000229: 35,2041           77454                           BZE      EXIT                                  
019961,000230: 35,2042           72053                                    SWCHCLR                               
019962,000231: 35,2043           05537                           TC       ALARM                                 
019963,000232: 35,2044           00611                           OCT      611                                   
019964,000233: 35,2045           34743                           CAF      V05N09                                
019965,000234: 35,2046           04555                           TC       BANKCALL                              
019966,000235: 35,2047           20624                           CADR     GOFLASH                               
019967,000236: 35,2050           04106                           TC       GOTOPOOH                              
019968,000237: 35,2051           02003                           TC       P34/P74A                              #  PROCEED
019969,000238: 35,2052           02043                           TC       -7                                    #  V32
019970,000239: 
019971,000240: 35,2053           43014        SWCHCLR            BONCLR   BON                                   
019972,000241: 35,2054           03601                                    ITSWICH                               
019973,000242: 35,2055           72032                                    INTLOOP                               
019974,000243: 35,2056           01310                                    ETPIFLAG                              
019975,000244: 35,2057           72063                                    P34/P74D                              #  DISPLAY TTPI
019976,000245: 35,2060           77776                           EXIT                                           
019977,000246: 35,2061           03073                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
019978,000247: 35,2062           02066                           TC       P34/P74E                              
019979,000248: 35,2063           77776        P34/P74D           EXIT                                           
019980,000249: 35,2064           33125                           CAF      V06N37                                #  TTPI
019981,000250: 35,2065           03114                           TC       VNPOOH                                
019982,000251: 35,2066           06006        P34/P74E           TC       INTPRET                               
019983,000252: 35,2067           71201                           SETPD    DLOAD                                 
019984,000253: 35,2070           00001                                    0D                                    
019985,000254: 35,2071           03746                                    RTX1                                  
019986,000255: 35,2072           14047                           STODL    X1                                    
019987,000256: 35,2073           03754                                    CENTANG                               
019988,000257: 35,2074           71406                           PUSH     COS                                   
019989,000258: 35,2075           16734                           STODL    CSTH                                  
019990,000259: 35,2076           77756                           SIN                                            
019991,000260: 35,2077           26732                           STOVL    SNTH                                  
019992,000261: 35,2100           03554                                    RPASS3                                
019993,000262: 35,2101           77657                           VSR*                                           
019994,000263: 35,2102           57176                                    0,2                                   
019995,000264: 35,2103           26657                           STOVL    RVEC                                  
019996,000265: 35,2104           03562                                    VPASS3                                
019997,000266: 35,2105           43057                           VSR*     SET                                   
019998,000267: 35,2106           57176                                    0,2                                   
019999,000268: 35,2107           03466                                    RVSW                                  
020000,000269: 35,2110           36746                           STCALL   VVEC                                  
020001,000270: 35,2111           24737                                    TIMETHET                              
020002,000271: 35,2112           77745                           DLOAD                                          
020003,000272: 35,2113           03663                                    TTPI                                  

Page 455

020005,000274: 35,2114           03503                           STORE    INTIME                                #  FOR INITVEL
020006,000275: 35,2115           77615                           DAD                                            
020007,000276: 35,2116           00037                                    T                                     #  RENDEZVOUS TIME
020008,000277: 35,2117           37656                           STCALL   TPASS4                                #  FOR INITVEL
020009,000278: 35,2120           72534                                    S34/35.2                              
020010,000279: 35,2121           51575                           VLOAD    ABVAL                                 
020011,000280: 35,2122           03646                                    DELVEET3                              
020012,000281: 35,2123           26635                           STOVL    DELVTPI                               
020013,000282: 35,2124           03640                                    VPASS4                                
020014,000283: 35,2125           51451                           VSU      ABVAL                                 
020015,000284: 35,2126           03620                                    VTPRIME                               
020016,000285: 35,2127           26637                           STOVL    DELVTPF                               
020017,000286: 35,2130           03540                                    RACT3                                 
020018,000287: 35,2131           45115                           PDVL     CALL                                  
020019,000288: 35,2132           03612                                    VIPRIME                               
020020,000289: 35,2133           45312                                    PERIAPO1                              
020021,000290: 35,2134           77624                           CALL                                           
020022,000291: 35,2135           45422                                    SHIFTR1                               
020023,000292: 35,2136           16641                           STODL    POSTTPI                               
020024,000293: 35,2137           03663                                    TTPI                                  
020025,000294: 35,2140           03413                           STORE    TIG                                   
020026,000295: 35,2141           77776                           EXIT                                           
020027,000296: 35,2142           33127                           CAF      V06N58                                
020028,000297: 35,2143           03114                           TC       VNPOOH                                
020029,000298: 35,2144           06006                           TC       INTPRET                               
020030,000299: 35,2145           77624                           CALL                                           
020031,000300: 35,2146           72742                                    S34/35.5                              
020032,000301: 35,2147           77624                           CALL                                           
020033,000302: 35,2150           73005                                    VN1645                                
020034,000303: 35,2151           77650                           GOTO                                           
020035,000304: 35,2152           72022                                    P34/P74C                              
020036,000305: 

Page 456

020038,000307:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
020039,000308: 
020040,000309:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
020041,000310:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
020042,000311: 
020043,000312:                                                                                                  #  PURPOSE
020044,000313: 
020045,000314:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020046,000315:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
020047,000316:                                                                                                  #            MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
020048,000317:                                                                                                  #            VEHICLE RENDEZVOUS.
020049,000318: 
020050,000319:                                                                                                  #        (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020051,000320:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020052,000321:                                                                                                  #            ASTRONAUT/GROUND.
020053,000322: 
020054,000323:                                                                                                  #        (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
020055,000324:                                                                                                  #            THRUSTING PROGRAM.
020056,000325: 
020057,000326:                                                                                                  #  ASSUMPTIONS
020058,000327: 
020059,000328:                                                                                                  #        (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020060,000329: 
020061,000330:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
020062,000331:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
020063,000332: 
020064,000333:                                                                                                  #        (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
020065,000334:                                                                                                  #            DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
020066,000335:                                                                                                  #            WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
020067,000336:                                                                                                  #            ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
020068,000337:                                                                                                  #            RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
020069,000338:                                                                                                  #            P20 AND AFTER EACH THRUSTING MANEUVER.
020070,000339: 
020071,000340:                                                                                                  #        (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020072,000341: 
020073,000342:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020074,000343:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020075,000344:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020076,000345:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020077,000346: 
020078,000347:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020079,000348:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020080,000349: 
020081,000350:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020082,000351:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020083,000352:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020084,000353: 
020085,000354:                                                                                                  #        (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
020086,000355:                                                                                                  #            COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
020087,000356:                                                                                                  #            (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
020088,000357: 

Page 457

020090,000359:                                                                                                  #        (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
020091,000360:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020092,000361:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020093,000362:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020094,000363:                                                                                                  #            THROUGH THE USE OF V06N52.
020095,000364: 
020096,000365:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020097,000366:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
020098,000367:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020099,000368:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020100,000369:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
020101,000370: 
020102,000371:                                                                                                  #        (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020103,000372: 
020104,000373:                                                                                                  #                P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
020105,000374: 
020106,000375:                                                                                                  #                P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
020107,000376: 
020108,000377:                                                                                                  #  INPUT
020109,000378: 
020110,000379:                                                                                                  #        (1) TPASS4   TIME OF INTERCEPT - SAVED FROM P34/P74
020111,000380:                                                                                                  #  OUTPUT
020112,000381: 
020113,000382:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
020114,000383:                                                                                                  #        (2) TTOGO    TIME TO GO
020115,000384:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
020116,000385:                                                                                                  #        (4) DVLOS    DELTA VELOCITY AT MID - LINE OF SIGHT
020117,000386:                                                                                                  #        (5) DELVLVC  DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
020118,000387: 
020119,000388:                                                                                                  #  DOWNLINK
020120,000389: 
020121,000390:                                                                                                  #        (1) TIG      TIME OF THE TPM MANEUVER
020122,000391:                                                                                                  #        (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
020123,000392:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
020124,000393:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
020125,000394: 
020126,000395:                                                                                                  #        (1) TIG      TIME OF THE TPM MANEUVER
020127,000396:                                                                                                  #        (2) RTARG    OFFSET TARGET POSITION
020128,000397:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
020129,000398:                                                                                                  #        (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020130,000399: 
020131,000400:                                                                                                  #  SUBROUTINES USED
020132,000401: 
020133,000402:                                                                                                  #        AVFLAGA
020134,000403:                                                                                                  #        AVFLAGP
020135,000404:                                                                                                  #        LOADTIME
020136,000405:                                                                                                  #        SELECTMU
020137,000406:                                                                                                  #        PRECSET
020138,000407:                                                                                                  #        S34/35.1
020139,000408:                                                                                                  #        S34/35.2

Page 458

020141,000410:                                                                                                  #        S34/35.5
020142,000411:                                                                                                  #        VN1645
020143,000412: 
020144,000413: 35,2153                                           COUNT    35/P3575                              
020145,000414: 35,2153  E4,1763                                  EBANK=   KT                                    
020146,000415: 
020147,000416: 35,2153           03726        P35                TC       AVFLAGA                               
020148,000417: 35,2154           00006                           EXTEND                                         
020149,000418: 35,2155           31422                           DCA      ATIGINC                               
020150,000419: 35,2156           02162                           TC       P35/P75A                              
020151,000420: 35,2157           03741        P75                TC       AVFLAGP                               
020152,000421: 35,2160           00006                           EXTEND                                         
020153,000422: 35,2161           31424                           DCA      PTIGINC                               
020154,000423: 35,2162           53764        P35/P75A           DXCH     KT                                    
020155,000424: 35,2163           03746                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
020156,000425: 35,2164           06006                           TC       INTPRET                               
020157,000426: 35,2165           77624                           CALL                                           
020158,000427: 35,2166           10716                                    SELECTMU                              
020159,000428: 35,2167           77634        P35/P75B           RTB                                            
020160,000429: 35,2170           45505                                    LOADTIME                              
020161,000430: 35,2171           03665                           STORE    TSTRT                                 
020162,000431: 35,2172           77615                           DAD                                            
020163,000432: 35,2173           02364                                    KT                                    
020164,000433: 35,2174           03413                           STORE    TIG                                   
020165,000434: 35,2175           03503                           STORE    INTIME                                #  FOR INITVEL
020166,000435: 35,2176           34041                           STCALL   TDEC1                                 
020167,000436: 35,2177           45354                                    PRECSET                               #  ADVANCE BOTH VEHICLES
020168,000437: 35,2200           77624                           CALL                                           
020169,000438: 35,2201           72522                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
020170,000439: 35,2202           77624                           CALL                                           
020171,000440: 35,2203           72534                                    S34/35.2                              #  GET DELTA V(LV)
020172,000441: 35,2204           77624                           CALL                                           
020173,000442: 35,2205           72742                                    S34/35.5                              
020174,000443: 35,2206           77624                           CALL                                           
020175,000444: 35,2207           73005                                    VN1645                                
020176,000445: 35,2210           77650                           GOTO                                           
020177,000446: 35,2211           72167                                    P35/P75B                              
020178,000447: 

Page 459

020180,000449:                                                                                                  #  ..... S33/34.1  .....
020181,000450: 
020182,000451: 35,2212           66220        S33/34.1           STQ      SSP                                   
020183,000452: 35,2213           01340                                    NORMEX                                
020184,000453: 35,2214           03665                                    TITER                                 
020185,000454: 35,2215           40000                           OCT      40000                                 
020186,000455: 35,2216           40345                           DLOAD    SETPD                                 
020187,000456: 35,2217           33136                                    MAX250                                
020188,000457: 35,2220           00001                                    0D                                    
020189,000458: 35,2221           27454                           STOVL    SECMAX                                
020190,000459: 35,2222           03540                                    RACT3                                 
020191,000460: 35,2223           27576                           STOVL    RAPREC                                
020192,000461: 35,2224           03546                                    VACT3                                 
020193,000462: 35,2225           27570                           STOVL    VAPREC                                
020194,000463: 35,2226           03554                                    RPASS3                                
020195,000464: 35,2227           27620                           STOVL    RPPREC                                
020196,000465: 35,2230           03562                                    VPASS3                                
020197,000466: 35,2231           03612                           STORE    VPPREC                                
020198,000467: 35,2232           77624        ELCALC             CALL                                           
020199,000468: 35,2233           72522                                    S34/35.1                              #  NORMAL AND LOS
020200,000469: 35,2234           63235                           VXV      PDVL                                  
020201,000470: 35,2235           03540                                    RACT3                                 #  (RA*VA)*RA 0D
020202,000471: 35,2236           53515                           PDVL     UNIT                                  #  ULOS AT 6D
020203,000472: 35,2237           03540                                    RACT3                                 
020204,000473: 35,2240           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
020205,000474: 35,2241           51352                           VSL2     BVSU                                  
020206,000475: 35,2242           02625                                    ULOS                                  
020207,000476: 35,2243           63256                           UNIT     PDVL                                  #  UP AT 0D
020208,000477: 35,2244           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
020209,000478: 35,2245           00001                                    0D                                    #  UP IN MPAC
020210,000479: 35,2246           75241                           DOT      SIGN                                  
020211,000480: 35,2247           02625                                    ULOS                                  
020212,000481: 35,2250           65552                           SL1      ACOS                                  
020213,000482: 35,2251           50315                           PDVL     DOT                                   #  EA AT 0D
020214,000483: 35,2252           02625                                    ULOS                                  
020215,000484: 35,2253           03540                                    RACT3                                 
020216,000485: 35,2254           71244                           BPL      DLOAD                                 
020217,000486: 35,2255           72260                                    TESTY                                 
020218,000487: 35,2256           15340                                    DPPOSMAX                              
020219,000488: 35,2257           41425                           DSU      PUSH                                  
020220,000489: 35,2260           71214        TESTY              BOFF     DLOAD                                 
020221,000490: 35,2261           03741                                    ITSWICH                               
020222,000491: 35,2262           72507                                    ELEX                                  
020223,000492: 35,2263           03452                                    DELEL                                 
020224,000493: 35,2264           14033                           STODL    DELELO                                
020225,000494: 35,2265           77625                           DSU                                            
020226,000495: 35,2266           03744                                    ELEV                                  
020227,000496: 35,2267           03452                           STORE    DELEL                                 
020228,000497: 35,2270           45246                           ABS      DSU                                   
020229,000498: 35,2271           33142                                    ELEPS                                 

Page 460

020231,000500: 35,2272           77640                           BMN                                            
020232,000501: 35,2273           72517                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
020233,000502: 35,2274           70535        FIGTIME            SLOAD    SR1                                   
020234,000503: 35,2275           03665                                    TITER                                 
020235,000504: 35,2276           72030                           BHIZ     LXA,1                                 
020236,000505: 35,2277           01340                                    NORMEX                                #  TOO MANY ITERATIONS
020237,000506: 35,2300           00154                                    MPAC                                  
020238,000507: 35,2301           77330                           SXA,1    VLOAD                                 
020239,000508: 35,2302           03664                                    TITER                                 
020240,000509: 35,2303           03554                                    RPASS3                                
020241,000510: 35,2304           65256                           UNIT     PDDL                                  
020242,000511: 35,2305           00045                                    36D                                   
020243,000512: 35,2306           53515                           PDVL     UNIT                                  
020244,000513: 35,2307           03540                                    RACT3                                 
020245,000514: 35,2310           77725                           PDDL                                           
020246,000515: 35,2311           41525                           PDDL     PUSH                                  
020247,000516: 35,2312           00045                                    36D                                   
020248,000517: 35,2313           77621                           BDSU                                           
020249,000518: 35,2314           00015                                    12D                                   
020250,000519: 35,2315           14037                           STODL    30D                                   #  RP - RA MAGNITUDES
020251,000520: 35,2316           15330                                    DPHALF                                
020252,000521: 35,2317           41425                           DSU      PUSH                                  
020253,000522: 35,2320           03744                                    ELEV                                  
020254,000523: 35,2321           50165                           SIGN     BMN                                   
020255,000524: 35,2322           00037                                    30D                                   
020256,000525: 35,2323           01340                                    NORMEX                                
020257,000526: 35,2324           71545                           DLOAD    COS                                   
020258,000527: 35,2325           56205                           DMP      DDV                                   
020259,000528: 35,2326           00017                                    14D                                   
020260,000529: 35,2327           00015                                    12D                                   
020261,000530: 35,2330           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
020262,000531: 35,2331           00035                           STORE    28D                                   
020263,000532: 35,2332           44246                           ABS      BDSU                                  
020264,000533: 35,2333           15330                                    DPHALF                                
020265,000534: 35,2334           77240                           BMN      VLOAD                                 
020266,000535: 35,2335           01340                                    NORMEX                                
020267,000536: 35,2336           02617                                    UNRM                                  
020268,000537: 35,2337           53435                           VXV      UNIT                                  
020269,000538: 35,2340           00007                                    6D                                    #  UN*RA
020270,000539: 35,2341           41241                           DOT      DMP                                   
020271,000540: 35,2342           03546                                    VACT3                                 
020272,000541: 35,2343           00015                                    12D                                   
020273,000542: 35,2344           47315                           PDVL     VXV                                   
020274,000543: 35,2345           00001                                    0D                                    
020275,000544: 35,2346           03562                                    VPASS3                                
020276,000545: 35,2347           53435                           VXV      UNIT                                  
020277,000546: 35,2350           00001                                    0D                                    #  (RP*VP)*RP
020278,000547: 35,2351           41241                           DOT      DMP                                   
020279,000548: 35,2352           03562                                    VPASS3                                
020280,000549: 35,2353           00017                                    14D                                   

Page 461

020282,000551: 35,2354           77621                           BDSU                                           
020283,000552: 35,2355           63301                           NORM     PDVL                                  #  NORMALIZED WA - WP 12D
020284,000553: 35,2356           00047                                    X1                                    
020285,000554: 35,2357           00007                                    6D                                    
020286,000555: 35,2360           50235                           VXV      DOT                                   
020287,000556: 35,2361           00001                                    0D                                    
020288,000557: 35,2362           02617                                    UNRM                                  #  RA*RP.UN 14D
020289,000558: 35,2363           50315                           PDVL     DOT                                   
020290,000559: 35,2364           00001                                    0D                                    
020291,000560: 35,2365           00007                                    6D                                    
020292,000561: 35,2366           65552                           SL1      ACOS                                  
020293,000562: 35,2367           77765                           SIGN                                           
020294,000563: 35,2370           43225                           DSU      DAD                                   #    ALPHA   PI
020295,000564: 35,2371           15330                                    DPHALF                                
020296,000565: 35,2372           03744                                    ELEV                                  
020297,000566: 35,2373           65525                           PDDL     ACOS                                  
020298,000567: 35,2374           00035                                    28D                                   
020299,000568: 35,2375           75221                           BDSU     SIGN                                  
020300,000569: 35,2376           15330                                    DPHALF                                
020301,000570: 35,2377           00037                                    30D                                   #  CONTAINS RP-RA
020302,000571: 35,2400           77615                           DAD                                            
020303,000572: 35,2401           56205                           DMP      DDV                                   
020304,000573: 35,2402           33134                                    TWOPI                                 
020305,000574: 35,2403           77605                           DMP                                            
020306,000575: 35,2404           41257                           SL*      DMP                                   
020307,000576: 35,2405           20176                                    0          -3,1                       
020308,000577: 35,2406           51406                           PUSH     ABS                                   
020309,000578: 35,2407           50025                           DSU      BMN                                   
020310,000579: 35,2410           03454                                    SECMAX                                
020311,000580: 35,2411           72415                                    OKMAX                                 
020312,000581: 35,2412           75345                           DLOAD    SIGN                                  #   REPLACE TIME WITH MAX TIME SIGNED
020313,000582: 35,2413           03454                                    SECMAX                                
020314,000583: 35,2414           77606                           PUSH                                           
020315,000584: 35,2415           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
020316,000585: 35,2416           03665                                    TITER                                 
020317,000586: 35,2417           72425                                    REPETE                                
020318,000587: 35,2420           71331                           SSP      DLOAD                                 
020319,000588: 35,2421           03665                                    TITER                                 
020320,000589: 35,2422           37777                           OCT      37777                                 
020321,000590: 35,2423           77650                           GOTO                                           
020322,000591: 35,2424           72463                                    STORDELT                              
020323,000592: 35,2425           41345        REPETE             DLOAD    DMP                                   
020324,000593: 35,2426           03452                                    DELEL                                 
020325,000594: 35,2427           00033                                    DELELO                                
020326,000595: 35,2430           71244                           BPL      DLOAD                                 
020327,000596: 35,2431           72441                                    NEXTES                                
020328,000597: 35,2432           03454                                    SECMAX                                
020329,000598: 35,2433           77605                           DMP                                            
020330,000599: 35,2434           33140                                    THIRD                                 
020331,000600: 35,2435           17454                           STODL    SECMAX                                

Page 462

020333,000602: 35,2436           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
020334,000603: 35,2437           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
020335,000604: 35,2440           72451                                    RESIGN                                
020336,000605: 35,2441           51545        NEXTES             DLOAD    ABS                                   
020337,000606: 35,2442           03452                                    DELEL                                 
020338,000607: 35,2443           51525                           PDDL     ABS                                   
020339,000608: 35,2444           00033                                    DELELO                                
020340,000609: 35,2445           77625                           DSU                                            
020341,000610: 35,2446           71240                           BMN      DLOAD                                 
020342,000611: 35,2447           72454                                    REVERS                                #   WRONG DIRECTION
020343,000612: 35,2450           77646                           ABS                                            
020344,000613: 35,2451           52165        RESIGN             SIGN     GOTO                                  
020345,000614: 35,2452           03450                                    DELTEEO                               
020346,000615: 35,2453           72463                                    STORDELT                              
020347,000616: 35,2454           57545        REVERS             DLOAD    DCOMP                                 
020348,000617: 35,2455           03450                                    DELTEEO                               
020349,000618: 35,2456           70406                           PUSH     SR1                                   
020350,000619: 35,2457           03450                           STORE    DELTEEO                               
020351,000620: 35,2460           77615                           DAD                                            
020352,000621: 35,2461           77650                           GOTO                                           
020353,000622: 35,2462           72464                                    ADTIME                                
020354,000623: 35,2463           03450        STORDELT           STORE    DELTEEO                               
020355,000624: 35,2464           77615        ADTIME             DAD                                            
020356,000625: 35,2465           02364                                    NOMTPI                                #  SUM OF DELTA T:S
020357,000626: 35,2466           02364                           STORE    NOMTPI                                
020358,000627: 35,2467           63375                           VLOAD    PDVL                                  
020359,000628: 35,2470           03570                                    VAPREC                                
020360,000629: 35,2471           03576                                    RAPREC                                
020361,000630: 35,2472           77624                           CALL                                           
020362,000631: 35,2473           72702                                    GOINT                                 
020363,000632: 35,2474           77624                           CALL                                           
020364,000633: 35,2475           45376                                    ACTIVE                                #  STORE NEW RACT3 VACT3
020365,000634: 35,2476           63375                           VLOAD    PDVL                                  
020366,000635: 35,2477           03612                                    VPPREC                                
020367,000636: 35,2500           03620                                    RPPREC                                
020368,000637: 35,2501           77624                           CALL                                           
020369,000638: 35,2502           72702                                    GOINT                                 
020370,000639: 35,2503           77624                           CALL                                           
020371,000640: 35,2504           45406                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
020372,000641: 35,2505           77650                           GOTO                                           
020373,000642: 35,2506           72232                                    ELCALC                                
020374,000643: 35,2507           43345        ELEX               DLOAD    DAD                                   
020375,000644: 35,2510           03663                                    TTPI                                  
020376,000645: 35,2511           02364                                    NOMTPI                                
020377,000646: 35,2512           17663                           STODL    TTPI                                  
020378,000647: 35,2513           77614                           BON                                            
020379,000648: 35,2514           01310                                    ETPIFLAG                              
020380,000649: 35,2515           72517                                    TIMEX                                 
020381,000650: 35,2516           03744                           STORE    ELEV                                  
020382,000651: 35,2517           52145        TIMEX              DLOAD    GOTO                                  

Page 463

020384,000653: 35,2520           15332                                    ZEROVECS                              
020385,000654: 35,2521           01340                                    NORMEX                                
020386,000655: 

Page 464

020388,000657:                                                                                                  #  ..... S34/35.1  .....
020389,000658: 
020390,000659:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
020391,000660:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
020392,000661: 
020393,000662: 35,2522           52375        S34/35.1           VLOAD    VSU                                   
020394,000663: 35,2523           03554                                    RPASS3                                
020395,000664: 35,2524           03540                                    RACT3                                 
020396,000665: 35,2525           41456                           UNIT     PUSH                                  
020397,000666: 35,2526           26625                           STOVL    ULOS                                  
020398,000667: 35,2527           03540                                    RACT3                                 
020399,000668: 35,2530           53435                           VXV      UNIT                                  
020400,000669: 35,2531           03546                                    VACT3                                 
020401,000670: 35,2532           02617                           STORE    UNRM                                  
020402,000671: 35,2533           77616                           RVQ                                            
020403,000672: 

Page 465

020405,000674:                                                                                                  #  ..... S34/35.2  .....
020406,000675: 
020407,000676:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
020408,000677: 35,2534           77220        S34/35.2           STQ      VLOAD                                 
020409,000678: 35,2535           02370                                    SUBEXIT                               
020410,000679: 35,2536           03562                                    VPASS3                                
020411,000680: 35,2537           65315                           PDVL     PDDL                                  
020412,000681: 35,2540           03554                                    RPASS3                                
020413,000682: 35,2541           03503                                    INTIME                                
020414,000683: 35,2542           65325                           PDDL     PDDL                                  
020415,000684: 35,2543           03656                                    TPASS4                                
020416,000685: 35,2544           15332                                    ZEROVECS                              
020417,000686: 35,2545           45006                           PUSH     CALL                                  
020418,000687: 35,2546           72706                                    INTINT                                #  GET TARGET VECTOR
020419,000688: 35,2547           27415        S3435.25           STOVL    RTARG                                 
020420,000689: 35,2550           00007                                    VATT                                  
020421,000690: 35,2551           27640                           STOVL    VPASS4                                
020422,000691: 35,2552           03415                                    RTARG                                 
020423,000692:                                                                                                  #  COMPUTE PHI = PI +(ACOS(UNIT RA.UNIT RP)-PI)SIGN(RA*RP.U)
020424,000693: 35,2553           63256                           UNIT     PDVL                                  #  UNIT RP
020425,000694: 35,2554           03540                                    RACT3                                 
020426,000695: 35,2555           41456                           UNIT     PUSH                                  #  UNIT RA
020427,000696: 35,2556           50235                           VXV      DOT                                   
020428,000697: 35,2557           00001                                    0D                                    
020429,000698: 35,2560           02617                                    UNRM                                  #  RA*RP.U
020430,000699: 35,2561           77715                           PDVL                                           
020431,000700: 35,2562           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
020432,000701: 35,2563           00001                                    0D                                    
020433,000702: 35,2564           75326                           ACOS     SIGN                                  
020434,000703: 35,2565           43244                           BPL      DAD                                   
020435,000704: 35,2566           72570                                    NOPIE                                 
020436,000705: 35,2567           15340                                    DPPOSMAX                              #  REASONABLE TWO PI
020437,000706: 35,2570           16633        NOPIE              STODL    ACTCENT                               
020438,000707: 35,2571           03656                                    TPASS4                                
020439,000708: 35,2572           77625                           DSU                                            
020440,000709: 35,2573           03503                                    INTIME                                
020441,000710: 35,2574           03423                           STORE    DELLT4                                
020442,000711: 35,2575           40335                           SLOAD    SETPD                                 
020443,000712: 35,2576           33144                                    DECTWO                                
020444,000713: 35,2577           00001                                    0D                                    
020445,000714: 35,2600           63325                           PDDL     PDVL                                  
020446,000715: 35,2601           33147                                    EPSFOUR                               
020447,000716: 35,2602           03540                                    RACT3                                 
020448,000717: 35,2603           27570                           STOVL    RINIT                                 
020449,000718: 35,2604           03546                                    VACT3                                 
020450,000719: 35,2605           37576                           STCALL   VINIT                                 
020451,000720: 35,2606           22000                                    INITVEL                               
020452,000721: 35,2607           77624                           CALL                                           
020453,000722: 35,2610           72667                                    LOMAT                                 
020454,000723: 35,2611           64375                           VLOAD    MXV                                   

Page 466

020456,000725: 35,2612           03646                                    DELVEET3                              
020457,000726: 35,2613           00001                                    0D                                    
020458,000727: 35,2614           77772                           VSL1                                           
020459,000728: 35,2615           37405                           STCALL   DELVLVC                               
020460,000729: 35,2616           02370                                    SUBEXIT                               
020461,000730: 

Page 467

020463,000732:                                                                                                  #  ..... S34/35.3  .....
020464,000733: 
020465,000734: 35,2617           45020        S34/35.3           STQ      CALL                                  
020466,000735: 35,2620           01340                                    NORMEX                                
020467,000736: 35,2621           72667                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
020468,000737: 35,2622           61375                           VLOAD    VXM                                   
020469,000738: 35,2623           03405                                    DELVLVC                               #  NEW DEL V TPI
020470,000739: 35,2624           00001                                    0D                                    
020471,000740: 35,2625           77772                           VSL1                                           
020472,000741: 35,2626           03646                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
020473,000742: 35,2627           63255                           VAD      PDVL                                  
020474,000743: 35,2630           03546                                    VACT3                                 #  NEW V REQ
020475,000744: 35,2631           03540                                    RACT3                                 
020476,000745: 35,2632           65325                           PDDL     PDDL                                  
020477,000746: 35,2633           03413                                    TIG                                   
020478,000747: 35,2634           03656                                    TPASS4                                
020479,000748: 35,2635           41525                           PDDL     PUSH                                  
020480,000749: 35,2636           15340                                    DPPOSMAX                              
020481,000750: 35,2637           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
020482,000751: 35,2640           72706                                    INTINT                                
020483,000752: 35,2641           77775                           VLOAD                                          
020484,000753: 35,2642           00001                                    RATT                                  
020485,000754: 35,2643           03415                           STORE    RTARG                                 
020486,000755: 35,2644           41575        NOVRWRT            VLOAD    PUSH                                  
020487,000756: 35,2645           02625                                    ULOS                                  
020488,000757: 35,2646           57435                           VXV      VCOMP                                 
020489,000758: 35,2647           02617                                    UNRM                                  
020490,000759: 35,2650           41456                           UNIT     PUSH                                  
020491,000760: 35,2651           76435                           VXV      VSL1                                  
020492,000761: 35,2652           02625                                    ULOS                                  
020493,000762: 35,2653           77715                           PDVL                                           
020494,000763: 35,2654           64315                           PDVL     MXV                                   
020495,000764: 35,2655           03646                                    DELVEET3                              
020496,000765: 35,2656           00001                                    0D                                    
020497,000766: 35,2657           77772                           VSL1                                           
020498,000767: 35,2660           36611                           STCALL   DVLOS                                 
020499,000768: 35,2661           01340                                    NORMEX                                
020500,000769: 

Page 468

020502,000771:                                                                                                  #  ..... S34/35.4  .....
020503,000772: 
020504,000773: 35,2662           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
020505,000774: 35,2663           01340                                    NORMEX                                
020506,000775: 35,2664           00001                                    0D                                    
020507,000776: 35,2665           77650                           GOTO                                           
020508,000777: 35,2666           72644                                    NOVRWRT                               
020509,000778: 

Page 469

020511,000780:                                                                                                  #  ..... LOMAT     .....
020512,000781: 
020513,000782: 35,2667           57575        LOMAT              VLOAD    VCOMP                                 
020514,000783: 35,2670           02617                                    UNRM                                  
020515,000784: 35,2671           24007                           STOVL    6D                                    #  Y
020516,000785: 35,2672           03540                                    RACT3                                 
020517,000786: 35,2673           57456                           UNIT     VCOMP                                 
020518,000787: 35,2674           00015                           STORE    12D                                   
020519,000788: 35,2675           76435                           VXV      VSL1                                  
020520,000789: 35,2676           02617                                    UNRM                                  #  Z*-Y
020521,000790: 35,2677           00001                           STORE    0D                                    
020522,000791: 35,2700           43401                           SETPD    RVQ                                   
020523,000792: 35,2701           00023                                    18D                                   
020524,000793: 35,2702           65325        GOINT              PDDL     PDDL                                  #  DO
020525,000794: 35,2703           15332                                    ZEROVECS                              #    NOT
020526,000795: 35,2704           02364                                    NOMTPI                                #  
020527,000796: 35,2705           41406                           PUSH     PUSH                                  #             ORDER OR INSERT BEFORE INTINT
020528,000797: 35,2706           45020        INTINT             STQ      CALL                                  
020529,000798: 35,2707           02367                                    RTRN                                  
020530,000799: 35,2710           27371                                    INTSTALL                              
020531,000800: 35,2711           71214                           CLEAR    DLOAD                                 
020532,000801: 35,2712           01673                                    INTYPFLG                              
020533,000802: 35,2713           43054                           BZE      SET                                   
020534,000803: 35,2714           72716                                    +2                                    
020535,000804: 35,2715           01473                                    INTYPFLG                              
020536,000805: 35,2716           45545                           DLOAD    STADR                                 
020537,000806: 35,2717           63736                           STODL    TDEC1                                 
020538,000807: 35,2720           73014                           SET      LXA,2                                 
020539,000808: 35,2721           00063                                    MOONFLAG                              
020540,000809: 35,2722           03746                                    RTX2                                  
020541,000810: 35,2723           43014                           BON      CLEAR                                 
020542,000811: 35,2724           04303                                    CMOONFLG                              
020543,000812: 35,2725           72727                                    ALLSET                                
020544,000813: 35,2726           00263                                    MOONFLAG                              
020545,000814: 35,2727           25517        ALLSET             STOVL    TET                                   
020546,000815: 35,2730           77657                           VSR*                                           
020547,000816: 35,2731           57176                                    0,2                                   
020548,000817: 35,2732           25535                           STOVL    RCV                                   
020549,000818: 35,2733           77657                           VSR*                                           
020550,000819: 35,2734           57176                                    0,2                                   
020551,000820: 35,2735           35543                           STCALL   VCV                                   
020552,000821: 35,2736           27066                                    INTEGRVS                              
020553,000822: 35,2737           52175                           VLOAD    GOTO                                  
020554,000823: 35,2740           00001                                    RATT                                  
020555,000824: 35,2741           02367                                    RTRN                                  
020556,000825: 

Page 470

020558,000827:                                                                                                  #  ..... S34/35.5  .....
020559,000828:                                                                                                  #  SUBROUTINES USED
020560,000829: 
020561,000830:                                                                                                  #        BANKCALL
020562,000831:                                                                                                  #        GOFLASH
020563,000832:                                                                                                  #        GOTOPOOH
020564,000833:                                                                                                  #        S34/35.3
020565,000834:                                                                                                  #        S34/35.4
020566,000835:                                                                                                  #        VNPOOH
020567,000836: 
020568,000837: 35,2742           43020        S34/35.5           STQ      BON                                   
020569,000838: 35,2743           02370                                    SUBEXIT                               
020570,000839: 35,2744           01311                                    FINALFLG                              
020571,000840: 35,2745           72751                                    FLAGON                                
020572,000841: 35,2746           52014                           SET      GOTO                                  
020573,000842: 35,2747           00470                                    UPDATFLG                              
020574,000843: 35,2750           72775                                    FLAGOFF                               
020575,000844: 35,2751           77414        FLAGON             CLEAR    EXIT                                  
020576,000845: 35,2752           03274                                    NTARGFLG                              
020577,000846: 35,2753           33131                           CAF      V06N81                                
020578,000847: 35,2754           04555                           TC       BANKCALL                              
020579,000848: 35,2755           20624                           CADR     GOFLASH                               
020580,000849: 35,2756           04106                           TC       GOTOPOOH                              
020581,000850: 35,2757           02764                           TC       +5                                    
020582,000851: 35,2760           06006                           TC       INTPRET                               
020583,000852: 35,2761           77414                           SET      EXIT                                  
020584,000853: 35,2762           03074                                    NTARGFLG                              
020585,000854: 35,2763           02753                           TC       FLAGON     +2                         
020586,000855: 35,2764           06006                           TC       INTPRET                               
020587,000856: 35,2765           45014                           BOFF     CALL                                  
020588,000857: 35,2766           03354                                    NTARGFLG                              
020589,000858: 35,2767           72771                                    NOCHG                                 
020590,000859: 35,2770           72617                                    S34/35.3                              
020591,000860: 35,2771           77214        NOCHG              CLEAR    VLOAD                                 
020592,000861: 35,2772           01267                                    XDELVFLG                              
020593,000862: 35,2773           03646                                    DELVEET3                              
020594,000863: 35,2774           03646                           STORE    DELVSIN                               
020595,000864: 35,2775           77624        FLAGOFF            CALL                                           
020596,000865: 35,2776           72662                                    S34/35.4                              
020597,000866: 35,2777           77776                           EXIT                                           
020598,000867: 35,3000           33130                           CAF      V06N59                                
020599,000868: 35,3001           03114                           TC       VNPOOH                                
020600,000869: 35,3002           06006                           TC       INTPRET                               
020601,000870: 35,3003           77650                           GOTO                                           
020602,000871: 35,3004           02370                                    SUBEXIT                               
020603,000872: 

Page 471

020605,000874:                                                                                                  #  ..... VN1645    .....
020606,000875: 
020607,000876:                                                                                                  #  SUBROUTINES USED
020608,000877: 
020609,000878:                                                                                                  #        P3XORP7X
020610,000879:                                                                                                  #        GET+MGA
020611,000880:                                                                                                  #        BANKCALL
020612,000881:                                                                                                  #        DELAYJOB
020613,000882:                                                                                                  #        COMPTGO
020614,000883:                                                                                                  #        GOFLASHR
020615,000884:                                                                                                  #        GOTOPOOH
020616,000885:                                                                                                  #        FLAGUP
020617,000886: 
020618,000887: 35,3005           71220        VN1645             STQ      DLOAD                                 
020619,000888: 35,3006           02370                                    SUBEXIT                               
020620,000889: 35,3007           33145                                    DP-.01                                
020621,000890: 35,3010           03626                           STORE    +MGA                                  #  MGA = -.01
020622,000891: 35,3011           71214                           BOFF     DLOAD                                 
020623,000892: 35,3012           01351                                    FINALFLG                              
020624,000893: 35,3013           73033                                    GET45                                 
020625,000894: 35,3014           33145                                    DP-.01                                
020626,000895: 35,3015           77615                           DAD                                            
020627,000896: 35,3016           33145                                    DP-.01                                
020628,000897: 35,3017           03626                           STORE    +MGA                                  #  MGA = -.02
020629,000898: 35,3020           77414                           BOFF     EXIT                                  
020630,000899: 35,3021           01742                                    REFSMFLG                              
020631,000900: 35,3022           73033                                    GET45                                 
020632,000901: 35,3023           03106                           TC       P3XORP7X                              
020633,000902: 35,3024           03026                           TC       +2                                    #  P3X
020634,000903: 35,3025           03034                           TC       GET45      +1                         #  P7X
020635,000904: 35,3026           06006                           TC       INTPRET                               
020636,000905: 35,3027           41575                           VLOAD    PUSH                                  
020637,000906: 35,3030           03646                                    DELVSIN                               
020638,000907: 35,3031           77624                           CALL                                           #  COMPUTE MGA
020639,000908: 35,3032           10660                                    GET+MGA                               
020640,000909: 35,3033           77776        GET45              EXIT                                           
020641,000910: 35,3034           03564                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
020642,000911: 35,3035           31770                           CA       SUBEXIT                               
020643,000912: 35,3036           55766                           TS       QSAVED                                
020644,000913: 35,3037           34734                           CAF      1SEC                                  
020645,000914: 35,3040           04555                           TC       BANKCALL                              
020646,000915: 35,3041           01730                           CADR     DELAYJOB                              
020647,000916: 35,3042           33132                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
020648,000917: 35,3043           04555                           TC       BANKCALL                              
020649,000918: 35,3044           20624                           CADR     GOFLASH                               
020650,000919: 35,3045           03050                           TC       KILCLOCK                              #  TERMINATE
020651,000920: 35,3046           03053                           TC       N45PROC                               #  PROCEED
020652,000921: 35,3047           03063                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
020653,000922: 35,3050           30005        KILCLOCK           CA       Z                                     
020654,000923: 35,3051           54000                           TS       DISPDEX                               

Page 472

020656,000925: 35,3052           04106                           TC       GOTOPOOH                              
020657,000926: 35,3053           40076        N45PROC            CS       FLAGWRD2                              
020658,000927: 35,3054           74705                           MASK     BIT6                                  
020659,000928: 35,3055           00006                           EXTEND                                         
020660,000929: 35,3056           13050                           BZF      KILCLOCK                              #  FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
020661,000930: 35,3057           05301                           TC       PHASCHNG                              
020662,000931: 35,3060           04024                           OCT      04024                                 
020663,000932: 35,3061           05435                           TC       UPFLAG                                #  SET
020664,000933: 35,3062           00047                           ADRES    FINALFLG                              #  FINALFLG
020665,000934: 35,3063           30005        CLUPDATE           CA       Z                                     
020666,000935: 35,3064           54000                           TS       DISPDEX                               
020667,000936: 35,3065           05301                           TC       PHASCHNG                              
020668,000937: 35,3066           04024                           OCT      04024                                 
020669,000938: 35,3067           06006                           TC       INTPRET                               
020670,000939: 35,3070           52014                           CLEAR    GOTO                                  
020671,000940: 35,3071           00670                                    UPDATFLG                              
020672,000941: 35,3072           02366                                    QSAVED                                
020673,000942: 

Page 473

020675,000944:                                                                                                  #  ..... DISPLAYE  .....
020676,000945: 
020677,000946:                                                                                                  #  SUBROUTINES USED
020678,000947: 
020679,000948:                                                                                                  #        BANKCALL
020680,000949:                                                                                                  #        GOFLASHR
020681,000950:                                                                                                  #        GOTOPOOH
020682,000951:                                                                                                  #        BLANKET
020683,000952:                                                                                                  #        ENDOFJOB
020684,000953: 
020685,000954: 35,3073           00006        DISPLAYE           EXTEND                                         
020686,000955: 35,3074           23340                           QXCH     NORMEX                                
020687,000956: 35,3075           33126                           CAF      V06N55                                
020688,000957: 35,3076           04555                           TCR      BANKCALL                              
020689,000958: 35,3077           20763                           CADR     GOFLASHR                              
020690,000959: 35,3100           14106                           TCF      GOTOPOOH                              
020691,000960: 35,3101           01340                           TC       NORMEX                                
020692,000961: 35,3102           13075                           TCF      -5                                    
020693,000962: 35,3103           34712                           CAF      BIT1                                  #  BLANK R1
020694,000963: 35,3104           05415                           TCR      BLANKET                               
020695,000964: 35,3105           15112                           TCF      ENDOFJOB                              
020696,000965: 

Page 474

020698,000967:                                                                                                  #  ..... P3XORP7X  .....
020699,000968: 
020700,000969: 35,3106           37713        P3XORP7X           CAF      HIGH9                                 
020701,000970: 35,3107           71011                           MASK     MODREG                                
020702,000971: 35,3110           00006                           EXTEND                                         
020703,000972: 35,3111           13113                           BZF      +2                                    
020704,000973: 35,3112           24002                           INCR     Q                                     
020705,000974: 35,3113           00002                           RETURN                                         
020706,000975: 
020707,000976:                                                                                                  #  ..... VNPOOH    .....
020708,000977: 
020709,000978:                                                                                                  #  SUBROUTINES USED
020710,000979: 
020711,000980:                                                                                                  #        BANKCALL
020712,000981:                                                                                                  #        GOFLASH
020713,000982:                                                                                                  #        GOTOPOOH
020714,000983: 
020715,000984: 35,3114           00006        VNPOOH             EXTEND                                         
020716,000985: 35,3115           23767                           QXCH     RTRN                                  
020717,000986: 35,3116           55765                           TS       VERBNOUN                              
020718,000987: 35,3117           31765                           CA       VERBNOUN                              
020719,000988: 35,3120           04555                           TCR      BANKCALL                              
020720,000989: 35,3121           20624                           CADR     GOFLASH                               
020721,000990: 35,3122           14106                           TCF      GOTOPOOH                              
020722,000991: 35,3123           01767                           TC       RTRN                                  
020723,000992: 35,3124           13117                           TCF      -5                                    
020724,000993: 

Page 475

020726,000995:                                                                                                  #  ..... CONSTANTS .....
020727,000996: 
020728,000997: 35,3125           01445        V06N37             VN       0637                                  
020729,000998: 35,3126           01467        V06N55             VN       0655                                  
020730,000999: 35,3127           01472        V06N58             VN       0658                                  
020731,001000: 35,3130           01473        V06N59             VN       0659                                  
020732,001001: 35,3131           01521        V06N81             VN       0681                                  
020733,001002: 35,3132           04055        V16N45             VN       1645                                  
020734,001003: 35,3133           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
020735,001004: 35,3135           00001 20650  MAX250             2DEC     25         E3                         
020736,001005: 35,3137           12525 12525  THIRD              2DEC     .333333333                            
020737,001006: 35,3141           00004 21505  ELEPS              2DEC     .27777777  E-3                        
020738,001007: 35,3143           00002        DECTWO             OCT      2                                     
020739,001008: 35,3144           77777        DP-.01             OCT      77777                                 #  CONSTANTS
020740,001009: 35,3145           61337                           OCT      61337                                 #  ADJACENT       -.01 FOR MGA DSP
020741,001010: 35,3146           01252 25253  EPSFOUR            2DEC     .0416666666                            
020742,001011: 

Page 476

020744,001013:                                                                                                  #  ..... INITVEL .....
020745,001014: 
020746,001015:                                                                                                  #  MOD NO -1       LOG SECTION - P34-P35, P74-P75
020747,001016:                                                                                                  #  MOD BY WHITE.P  DATE  21NOV67
020748,001017: 
020749,001018:                                                                                                  #  FUNCTIONAL DESCRIPTION
020750,001019: 
020751,001020:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
020752,001021:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
020753,001022:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
020754,001023:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
020755,001024:                                                                                                  #        OFFSETS).  IN ADDITION, IN TH EPRECISION TRAJECTORY CASE, THE
020756,001025:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
020757,001026:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
020758,001027:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
020759,001028:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
020760,001029:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
020761,001030: 
020762,001031:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
020763,001032:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
020764,001033:                                                                                                  #        SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
020765,001034:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
020766,001035:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
020767,001036:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
020768,001037:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
020769,001038:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
020770,001039: 
020771,001040:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
020772,001041:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
020773,001042:                                                                                                  #        TRAJECTORY COMPUTATIONS.
020774,001043: 
020775,001044:                                                                                                  #  CALLING SEQUENCE
020776,001045: 
020777,001046:                                                                                                  #        L         CALL
020778,001047:                                                                                                  #        L+1               INITVEL
020779,001048:                                                                                                  #        L+2       (RETURN - ALWAYS)
020780,001049: 
020781,001050:                                                                                                  #  INPUT
020782,001051: 
020783,001052:                                                                                                  #        (1) RINIT    INITIAL POSITION RADIUS VECTOR
020784,001053:                                                                                                  #        (2) VINIT    INITIAL POSITION VELOCITY VECTOR
020785,001054:                                                                                                  #        (3) RTARG    TARGET POSITION RADIUS VECTOR
020786,001055:                                                                                                  #        (4) DELLT4   DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
020787,001056:                                                                                                  #        (5) INTIME   TIME OF RINIT
020788,001057:                                                                                                  #        (6) 0D       NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
020789,001058:                                                                                                  #        (7) 2D       ANGLE TO 180 DEGREES WHEN ROTATION STARTS
020790,001059:                                                                                                  #        (8) RTX1     -2 FOR EARTH, -10D FOR LUNAR
020791,001060:                                                                                                  #        (9) RTX2     COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
020792,001061:                                                                                                  #        PUSHLOC SET AT 4D
020793,001062: 

Page 477

020795,001064:                                                                                                  #  OUTPUT
020796,001065: 
020797,001066:                                                                                                  #        (1) RTARG    OFFSET TARGET POSITION VECTOR
020798,001067:                                                                                                  #        (2) VIPRIME  MANEUVER VELOCITY REQUIRED
020799,001068:                                                                                                  #        (3) VTPRIME  VELOCITY AT TARGET AFTER MANEUVER
020800,001069:                                                                                                  #        (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
020801,001070: 
020802,001071:                                                                                                  #  SUBROUTINES USED
020803,001072: 
020804,001073:                                                                                                  #        LAMBERT
020805,001074:                                                                                                  #        INTSTALL
020806,001075:                                                                                                  #        INTEGRVS
020807,001076: 
020808,001077: 11,2000                                           SETLOC   INTVEL                                
020809,001078: 11,2000                                           BANK                                           
020810,001079: 
020811,001080: 11,2000                                           COUNT    11/INITV                              
020812,001081: 
020813,001082: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
020814,001083: 11,2001           00475                                    GUESSW                                
020815,001084: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
020816,001085: 11,2003           03415                                    RTARG                                 
020817,001086: 11,2004           01340                                    NORMEX                                
020818,001087: 11,2005           03604                           STORE    RTARG1                                
020819,001088: 11,2006           46135                           SLOAD    BHIZ                                  
020820,001089: 11,2007           03747                                    RTX2                                  
020821,001090: 11,2010           22022                                    INITVEL1                              
020822,001091: 11,2011           72575                           VLOAD    VSL2                                  
020823,001092: 11,2012           03570                                    RINIT                                 #  B29
020824,001093: 11,2013           27570                           STOVL    RINIT                                 #  B27
020825,001094: 11,2014           03576                                    VINIT                                 #  B7
020826,001095: 11,2015           77752                           VSL2                                           
020827,001096: 11,2016           27576                           STOVL    VINIT                                 #  B5
020828,001097: 11,2017           03604                                    RTARG1                                
020829,001098: 11,2020           77752                           VSL2                                           
020830,001099: 11,2021           03604                           STORE    RTARG1                                
020831,001100:                                                                                                  #       INITIALIZATION
020832,001101: 
020833,001102: 11,2022           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4(PL 2D)
020834,001103: 11,2023           03505                                    ITCTR                                 
020835,001104: 11,2024           77776                                    0          -1                         
020836,001105: 11,2025           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4)  (+2)
020837,001106: 11,2026           17630                           STODL    COZY4                                 #  SET COZY4 TO COSINE(E4)          (PL 0D)
020838,001107: 11,2027           67154                           LXA,2    SXA,2                                 
020839,001108: 11,2030           00154                                    MPAC                                  
020840,001109: 11,2031           02703                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
020841,001110: 11,2032           77775                           VLOAD                                          
020842,001111: 11,2033           03570                                    RINIT                                 
020843,001112: 11,2034           26657                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
020844,001113: 11,2035           03604                                    RTARG1                                

Page 478

020846,001115: 11,2036           16665                           STODL    R2VEC                                 #  R2VEC EQ RTARG
020847,001116: 11,2037           03423                                    DELLT4                                
020848,001117: 11,2040           02673                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
020849,001118: 11,2041           77201                           SETPD    VLOAD                                 
020850,001119: 11,2042           00001                                    0D                                    #  INITIALIZE PL TO 0D
020851,001120: 11,2043           03570                                    RINIT                                 #  MPAC EQ RINIT (+29)
020852,001121: 11,2044           41456                           UNIT     PUSH                                  #  UNIT(RI)  (+1)                   (PL 6D)
020853,001122: 11,2045           53435                           VXV      UNIT                                  
020854,001123: 11,2046           03576                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI   (+8)
020855,001124: 11,2047           26676                           STOVL    UN                                    
020856,001125: 11,2050           03604                                    RTARG1                                
020857,001126: 11,2051           50256                           UNIT     DOT                                   #  TEMP=URT.URI  (+2)               (PL 0D)
020858,001127: 11,2052           43015                           DAD      CLEAR                                 
020859,001128: 11,2053           03630                                    COZY4                                 
020860,001129: 11,2054           03665                                    NORMSW                                
020861,001130: 11,2055           03630                           STORE    COZY4                                 
020862,001131: 11,2056           43044        INITVEL2           BPL      SET                                   
020863,001132: 11,2057           22101                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
020864,001133: 11,2060           03465                                    NORMSW                                
020865,001134:                                                                                                  #     ROTATE  RC INTO YC PLANE - SET UNIT NORMAL TO YC
020866,001135: 
020867,001136: 11,2061           41575                           VLOAD    PUSH                                  #                                   (PL 6D)
020868,001137: 11,2062           02665                                    R2VEC                                 #  RC TO 6D  (+29)
020869,001138: 11,2063           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
020870,001139: 11,2064           46206                           PUSH     VPROJ                                 #                                   (PL 8D)
020871,001140: 11,2065           02676                                    UN                                    
020872,001141: 11,2066           51352                           VSL2     BVSU                                  
020873,001142: 11,2067           74256                           UNIT     VXSC                                  #                                   (PL 0D)
020874,001143: 11,2070           77772                           VSL1                                           
020875,001144: 11,2071           02665                           STORE    R2VEC                                 
020876,001145: 11,2072           67351                           TLOAD    SLOAD                                 
020877,001146: 11,2073           11453                                    ZEROVEC                               
020878,001147: 11,2074           03505                                    ITCTR                                 
020879,001148: 11,2075           77244                           BPL      VLOAD                                 
020880,001149: 11,2076           22101                                    INITVEL3                              
020881,001150: 11,2077           02665                                    R2VEC                                 
020882,001151: 11,2100           03604                           STORE    RTARG1                                
020883,001152: 11,2101           63345        INITVEL3           DLOAD    PDVL                                  #                                   (PL 2D)
020884,001153: 11,2102           27733                                    MUEARTH                               #  POSITIVE VALUE
020885,001154: 11,2103           02665                                    R2VEC                                 
020886,001155: 11,2104           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)                 (PL 8D)
020887,001156: 11,2105           02657                                    R1VEC                                 
020888,001157: 11,2106           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)                 (PL14D)
020889,001158: 11,2107           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
020890,001159: 11,2110           00003                                    2D                                    
020891,001160: 11,2111           77606                           PUSH                                           #                                   (PL20D)
020892,001161: 11,2112           71350                           LXA,1    DLOAD                                 
020893,001162: 11,2113           03745                                    RTX1                                  
020894,001163: 11,2114           00023                                    18D                                   
020895,001164: 11,2115           62040                           BMN      INCR,1                                

Page 479

020897,001166: 11,2116           22120                                    +2                                    
020898,001167: 11,2117           77767                           DEC      -8         B-14                       
020899,001168: 11,2120           67310                           INCR,1   SLOAD                                 
020900,001169: 11,2121           00012                                    10D                                   
020901,001170: 11,2122           00047                                    X1                                    
020902,001171: 11,2123           77230                           BHIZ     VLOAD                                 #                                   (PL14D)
020903,001172: 11,2124           22126                                    +2                                    
020904,001173: 11,2125           41476                           VCOMP    PUSH                                  #                                   (PL20D)
020905,001174: 11,2126           77775                           VLOAD                                          #                                   (PL14D)
020906,001175: 11,2127           50235                           VXV      DOT                                   #                                   (PL 2D)
020907,001176: 11,2130           71244                           BPL      DLOAD                                 #                                   (PL 0D)
020908,001177: 11,2131           22133                                    INITVEL4                              
020909,001178: 11,2132           41476                           DCOMP    PUSH                                  #                                   (PL 2D)
020910,001179: 11,2133           67154        INITVEL4           LXA,2    SXA,2                                 
020911,001180: 11,2134           00000                                    0D                                    
020912,001181: 11,2135           02674                                    GEOMSGN                               
020913,001182:                                                                                                  #    SET INPUTS UP FOR LAMBERT
020914,001183: 
020915,001184: 11,2136           45150                           LXA,1    CALL                                  
020916,001185: 11,2137           03745                                    RTX1                                  
020917,001186:                                                                                                  #     OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
020918,001187: 
020919,001188: 11,2140           25215                                    LAMBERT                               
020920,001189: 
020921,001190:                                                                                                  #        DELETE THRU 4521
020922,001191:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
020923,001192: 
020924,001193: 11,2141           77214                           CLEAR    VLOAD                                 
020925,001194: 11,2142           00675                                    GUESSW                                
020926,001195: 11,2143           02746                                    VVEC                                  
020927,001196:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
020928,001197: 
020929,001198: 11,2144           17612                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED  (+7)
020930,001199: 
020931,001200:                                                                                                  #     IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
020932,001201:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
020933,001202: 
020934,001203: 11,2145           02704                                    VTARGTAG                              
020935,001204: 11,2146           45030                           BHIZ     CALL                                  
020936,001205: 11,2147           22224                                    INITVEL7                              
020937,001206: 11,2150           27371                                    INTSTALL                              
020938,001207: 11,2151           43135                           SLOAD    CLEAR                                 
020939,001208: 11,2152           03747                                    RTX2                                  
020940,001209: 11,2153           00263                                    MOONFLAG                              
020941,001210: 11,2154           43030                           BHIZ     SET                                   
020942,001211: 11,2155           22157                                    INITVEL5                              
020943,001212: 11,2156           00063                                    MOONFLAG                              
020944,001213: 11,2157           77775        INITVEL5           VLOAD                                          
020945,001214: 11,2160           03570                                    RINIT                                 
020946,001215: 11,2161           02657                           STORE    R1VEC                                 

Page 480

020948,001217: 11,2162           25535                           STOVL    RCV                                   
020949,001218: 11,2163           03612                                    VIPRIME                               
020950,001219: 11,2164           15543                           STODL    VCV                                   
020951,001220: 11,2165           03503                                    INTIME                                
020952,001221: 11,2166           01517                           STORE    TET                                   
020953,001222: 11,2167           43015                           DAD      CLEAR                                 
020954,001223: 11,2170           03423                                    DELLT4                                
020955,001224: 11,2171           01673                                    INTYPFLG                              
020956,001225: 11,2172           34041                           STCALL   TDEC1                                 
020957,001226: 11,2173           27066                                    INTEGRVS                              
020958,001227: 11,2174           77775                           VLOAD                                          
020959,001228: 11,2175           00025                                    VATT1                                 
020960,001229: 11,2176           02705                           STORE    VTARGET                               
020961,001230:                                                                                                  #   IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
020962,001231:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
020963,001232: 
020964,001233: 11,2177           63154                           LXA,2    INCR,2                                
020965,001234: 11,2200           03504                                    ITCTR                                 
020966,001235: 11,2201           00001                                    1D                                    #  INCREMENT ITCTR
020967,001236: 11,2202           55134                           SXA,2    XSU,2                                 
020968,001237: 11,2203           03504                                    ITCTR                                 
020969,001238: 11,2204           02703                                    VTARGTAG                              
020970,001239: 11,2205           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
020971,001240: 11,2206           00050                                    X2                                    
020972,001241: 11,2207           22221                                    INITVEL6                              
020973,001242: 
020974,001243:                                                                                                  #    OFFSET CONIC TARGET VECTOR
020975,001244: 
020976,001245: 11,2210           52375                           VLOAD    VSU                                   
020977,001246: 11,2211           03604                                    RTARG1                                
020978,001247: 11,2212           00017                                    RATT1                                 
020979,001248: 11,2213           77655                           VAD                                            
020980,001249: 11,2214           02665                                    R2VEC                                 
020981,001250: 11,2215           16665                           STODL    R2VEC                                 
020982,001251: 11,2216           03630                                    COZY4                                 
020983,001252: 11,2217           77650                           GOTO                                           
020984,001253: 11,2220           22056                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
020985,001254:                                                                                                  #  COMPUTE THE DELTA VELOCITY
020986,001255: 
020987,001256: 11,2221           77775        INITVEL6           VLOAD                                          
020988,001257: 11,2222           02665                                    R2VEC                                 
020989,001258: 11,2223           03604                           STORE    RTARG1                                
020990,001259: 11,2224           52375        INITVEL7           VLOAD    VSU                                   
020991,001260: 11,2225           03612                                    VIPRIME                               
020992,001261: 11,2226           03576                                    VINIT                                 
020993,001262: 11,2227           27646                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT  (+7)
020994,001263: 11,2230           02705                                    VTARGET                               
020995,001264: 11,2231           03620                           STORE    VTPRIME                               
020996,001265: 11,2232           46135                           SLOAD    BHIZ                                  
020997,001266: 11,2233           03747                                    RTX2                                  

Page 481

020999,001268: 11,2234           22251                                    INITVELX                              
021000,001269: 11,2235           70575                           VLOAD    VSR2                                  
021001,001270: 11,2236           03620                                    VTPRIME                               
021002,001271: 11,2237           27620                           STOVL    VTPRIME                               
021003,001272: 11,2240           03612                                    VIPRIME                               
021004,001273: 11,2241           77742                           VSR2                                           
021005,001274: 11,2242           27612                           STOVL    VIPRIME                               
021006,001275: 11,2243           03604                                    RTARG1                                
021007,001276: 11,2244           77742                           VSR2                                           
021008,001277: 11,2245           27604                           STOVL    RTARG1                                
021009,001278: 11,2246           03646                                    DELVEET3                              
021010,001279: 11,2247           77742                           VSR2                                           
021011,001280: 11,2250           03646                           STORE    DELVEET3                              
021012,001281: 11,2251           77201        INITVELX           SETPD    VLOAD                                 
021013,001282: 11,2252           00001                                    0D                                    
021014,001283: 11,2253           03604                                    RTARG1                                
021015,001284: 11,2254           37415                           STCALL   RTARG                                 
021016,001285: 11,2255           01340                                    NORMEX                                
021017,001286: 
021018,001287:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
021019,001288: 

Page 482

021021,001290:                                                                                                  #  ..... MIDGIM .....
021022,001291: 
021023,001292:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
021024,001293:                                                                                                  #   REVISION 03, 17 FEB 67
021025,001294: 
021026,001295:                                                                                                  #           IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
021027,001296:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
021028,001297:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST),  OTHERWISE
021029,001298:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
021030,001299:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
021031,001300: 
021032,001301:                                                                                                  #    .. INPUTS ..
021033,001302: 
021034,001303:                                                                                                  #      NAME        MEANING                              UNITS/SCALING/MODE
021035,001304: 
021036,001305:                                                                                                  #     AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE             BIT
021037,001306:                                                                                                  #    COMPUTER INT FLAG - 0 IS LEM COMPUTER, 1 IS CSM COMPUTER         BIT
021038,001307:                                                                                                  #     RINIT   ACTIVE VEHICLE RADIUS VECTOR            METERS/CSEC (+7) VT
021039,001308:                                                                                                  #     VINIT   ACTIVE VEHICLE VELOCITY VECTOR          METERS/CSEC (+7) VT
021040,001309:                                                                                                  #     0D (PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR    METERS/CSEC (+7) VT
021041,001310: 
021042,001311:                                                                                                  #    .. OUTPUTS ..
021043,001312: 
021044,001313:                                                                                                  #      NAME        MEANING                              UNITS/SCALING/MODE
021045,001314: 
021046,001315:                                                                                                  #       +MGA  + MIDDLE GIMBAL ANGLE                  REVOLUTIONS (+0)  DP
021047,001316:                                                                                                  #     DELVLVC DELTA VELOCITY VECTOR IN LV COORD.     METERS/CSEC (+7)  VT
021048,001317:                                                                                                  #    MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.  -    BIT
021049,001318: 
021050,001319:                                                                                                  #    .. CALLING SEQUENCE ..
021051,001320: 
021052,001321:                                                                                                  #  L        CALL
021053,001322:                                                                                                  #  L+1             MIDGIM
021054,001323:                                                                                                  #  L+2      (RETURN - ALWAYS)
021055,001324: 
021056,001325:                                                                                                  #    .. NO SUBROUTINES CALLED ..
021057,001326: 
021058,001327:                                                                                                  #    .. DEBRIS - ERASEABLE TEMPORARY USAGE
021059,001328: 
021060,001329:                                                                                                  #         A,Q,L, PUSH LIST, MPAC.
021061,001330: 
021062,001331:                                                                                                  #    .. ALARMS - NONE ..
021063,001332: 

Page 483

021065,001334:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
021066,001335: 
021067,001336: 04,2000                                           SETLOC   MIDDGIM                               
021068,001337: 04,2000                                           BANK                                           
021069,001338: 
021070,001339: 04,2651                                           COUNT*   $$/MIDG                               
021071,001340: 
021072,001341: 04,2651           20000 00000  HALFREV            2DEC     1          B-1                        
021073,001342: 
021074,001343: 04,2653           43014        MIDGIM             BON      BOFF                                  
021075,001344: 04,2654           01312                                    AVFLAG                                
021076,001345: 04,2655           10673                                    MIDGIM1                               
021077,001346: 04,2656           02747                                    COMPUTER                              
021078,001347: 04,2657           10676                                    GET.LVC                               
021079,001348:                                                                                                  #  COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
021080,001349: 04,2660           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE  UV (+1)
021081,001350: 04,2661           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
021082,001351: 04,2662           01744                                    REFSMMAT   +6                         #   FROM +2 TO +1 FOR ASIN ROUTINE
021083,001352: 04,2663           51136                           ARCSIN   BPL                                   
021084,001353: 04,2664           10670                                    SETMGA                                
021085,001354: 04,2665           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
021086,001355: 04,2666           10652                                    HALFREV                               #  ADDING ONE REVOLUTION
021087,001356: 04,2667           10652                                    HALFREV                               
021088,001357: 04,2670           03626        SETMGA             STORE    +MGA                                  
021089,001358: 04,2671           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
021090,001359: 04,2672           02675                                    MGLVFLAG                              #      AND EXIT
021091,001360: 04,2673           77614        MIDGIM1            BOFF                                           
021092,001361: 04,2674           02747                                    COMPUTER                              
021093,001362: 04,2675           10660                                    GET+MGA                               
021094,001363:                                                                                                  #  COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES.
021095,001364: 04,2676           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D)   R (+29) IN MPAC, UNITIZE UR
021096,001365: 04,2677           03570                                    RINIT                                 
021097,001366: 04,2700           77676                           VCOMP                                          #  U(-R)
021098,001367: 04,2701           00023                           STORE    18D                                   #  U(-R) TO 18D
021099,001368: 04,2702           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
021100,001369: 04,2703           03576                                    VINIT                                 
021101,001370: 04,2704           00015                           STORE    12D                                   #  U(V*R) TO 12D
021102,001371: 04,2705           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
021103,001372: 04,2706           00023                                    18D                                   
021104,001373: 04,2707           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
021105,001374: 04,2710           00001                                    0D                                    #  DELTA V (+7) IN 0D
021106,001375: 04,2711           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
021107,001376: 04,2712           00007                                    6D                                    #   AND SCALE +7 IN MPAC
021108,001377: 04,2713           03405                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
021109,001378: 04,2714           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
021110,001379: 04,2715           02475                                    MGLVFLAG                              #      AND EXIT
021111,001380:                                                                                                  #    ..... END OF MIDGIM ROUTINE .....
021112,001381: 

Page 484

021114,001383: 04,2716           77160        SELECTMU           AXC,1    AXT,2                                 
021115,001384: 04,2717           00002                                    2D                                    
021116,001385: 04,2720           00000                                    0D                                    
021117,001386: 04,2721           77614                           BOFF                                           
021118,001387: 04,2722           04343                                    CMOONFLG                              
021119,001388: 04,2723           10727                                    SETMUER                               
021120,001389: 04,2724           77160                           AXC,1    AXT,2                                 
021121,001390: 04,2725           00012                                    10D                                   
021122,001391: 04,2726           00002                                    2D                                    
021123,001392: 04,2727           66143        SETMUER            DLOAD*   SXA,1                                 
021124,001393: 04,2730           11632                                    MUTABLE    +4,1                       
021125,001394: 04,2731           03745                                    RTX1                                  
021126,001395: 04,2732           23752                           STODL*   RTSR1/MU                              
021127,001396: 04,2733           11624                                    MUTABLE    -2,1                       
021128,001397: 04,2734           54214                           BOFF     SR                                    
021129,001398: 04,2735           04343                                    CMOONFLG                              
021130,001399: 04,2736           10740                                    RTRNMU                                
021131,001400: 04,2737           20607                                    6D                                    
021132,001401: 04,2740           03750        RTRNMU             STORE    RTMU                                  
021133,001402: 04,2741           43134                           SXA,2    CLEAR                                 
021134,001403: 04,2742           03746                                    RTX2                                  
021135,001404: 04,2743           01271                                    FINALFLG                              
021136,001405: 04,2744           77650                           GOTO                                           
021137,001406: 04,2745           73005                                    VN1645                                
021138,001407: 

Page 485

021140,001409:                                                                                                  #  ..... PERIAPO .....
021141,001410: 
021142,001411:                                                                                                  #  MOD NO -1       LOG SECTION - P34-P35, P74-P75
021143,001412:                                                                                                  #  MOD BY WHITE.P  DATE  18JAN68
021144,001413: 
021145,001414:                                                                                                  #  FUNCTIONAL DESCRIPTION
021146,001415: 
021147,001416:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
021148,001417:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
021149,001418:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
021150,001419: 
021151,001420:                                                                                                  #        SETRAD IS CALLED TO  DETERMINE THE RADIUS OF THE PRIMARY BODY.
021152,001421: 
021153,001422:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
021154,001423:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
021155,001424: 
021156,001425:                                                                                                  #  CALLING SEQUENCE
021157,001426: 
021158,001427:                                                                                                  #        L         CALL
021159,001428:                                                                                                  #        L+1               PERIAPO
021160,001429:                                                                                                  #        L+2       (RETURN - ALWAYS)
021161,001430: 
021162,001431:                                                                                                  #  INPUT
021163,001432: 
021164,001433:                                                                                                  #        (1) RVEC     POSITION VECTOR IN METERS
021165,001434:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
021166,001435:                                                                                                  #        (2) VVEC     VELOCITY VECTOR IN METERS/CENTISECOND
021167,001436:                                                                                                  #                     SCALE FACTOR - EARTH +7, MOON +5
021168,001437:                                                                                                  #        (3) X1       PRIMARY BODY INDICATOR
021169,001438:                                                                                                  #                     EARTH -2, MOON -10
021170,001439: 
021171,001440:                                                                                                  #  OUTPUT
021172,001441: 
021173,001442:                                                                                                  #        (1) 2D       APOCENTER RADIUS IN METERS
021174,001443:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
021175,001444:                                                                                                  #        (2) 4D       APOCENTER ALTITUDE IN METERS
021176,001445:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON P27
021177,001446:                                                                                                  #        (3) 6D       PERICENTER RADIUS IN METERS
021178,001447:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
021179,001448:                                                                                                  #        (4) 8D       PERICENTER ALTITUDE IN METERS
021180,001449:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
021181,001450:                                                                                                  #        (5) ECC      ECCENTRICITY OF CONIC TRAJECTORY
021182,001451:                                                                                                  #                     SCALE FACTOR - +3
021183,001452:                                                                                                  #        (6) XXXALT   RADIUS OF THE PRIMARY BODY IN METERS
021184,001453:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
021185,001454:                                                                                                  #        (7) PUSHLOC  EQUALS 10D
021186,001455: 
021187,001456:                                                                                                  #  SUBROUTINES USED
021188,001457: 
021189,001458:                                                                                                  #        SETRAD

Page 486

021191,001460:                                                                                                  #        APSIDES
021192,001461: 
021193,001462: 22,2000                                           SETLOC   APOPERI                               
021194,001463: 22,2000                                           BANK                                           
021195,001464: 
021196,001465: 22,3310                                           COUNT*   $$/PERAP                              
021197,001466: 
021198,001467: 22,3310           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS  OF PAD 37-B.
021199,001468:                                                                                                  #                                          = 20 909 901.57 FT
021200,001469: 
021201,001470: 22,3312           53754        PERIAPO1           LXA,2    VSR*                                  
021202,001471: 22,3313           03746                                    RTX2                                  
021203,001472: 22,3314           57176                                    0,2                                   
021204,001473: 22,3315           26746                           STOVL    VVEC                                  
021205,001474: 22,3316           53750                           LXA,1    VSR*                                  
021206,001475: 22,3317           03745                                    RTX1                                  
021207,001476: 22,3320           57176                                    0,2                                   
021208,001477: 22,3321           02657                           STORE    RVEC                                  
021209,001478: 22,3322           45020        PERIAPO            STQ      CALL                                  
021210,001479: 22,3323           01340                                    NORMEX                                
021211,001480: 22,3324           45340                                    SETRAD                                
021212,001481: 22,3325           37456                           STCALL   XXXALT                                
021213,001482: 22,3326           25671                                    APSIDES                               
021214,001483: 22,3327           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS   B29 OR B27
021215,001484: 22,3330           00003                                    2D                                    
021216,001485: 22,3331           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE    B29 OR B27
021217,001486: 22,3332           03456                                    XXXALT                                
021218,001487: 22,3333           00001                                    0D                                    
021219,001488: 22,3334           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS  B29 OR B27
021220,001489: 22,3335           03456                                    XXXALT                                
021221,001490: 22,3336           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE   B29 OR B27
021222,001491: 22,3337           01340                                    NORMEX                                

Page 487

021224,001493:                                                                                                  #  SETRAD
021225,001494: 22,3340           41545        SETRAD             DLOAD    PUSH                                  
021226,001495: 22,3341           05311                                    RPAD                                  
021227,001496: 22,3342           63130                           SXA,1    INCR,2                                
021228,001497: 22,3343           00047                                    X2                                    
021229,001498: 22,3344           00002                                    2D                                    
021230,001499: 22,3345           46135                           SLOAD    BHIZ                                  
021231,001500: 22,3346           00050                                    X2                                    
021232,001501: 22,3347           45353                                    SETRADX                               
021233,001502: 22,3350           51575                           VLOAD    ABVAL                                 
021234,001503: 22,3351           02026                                    RLS                                   
021235,001504: 22,3352           77725                           PDDL                                           
021236,001505: 22,3353           43545        SETRADX            DLOAD    RVQ                                   
021237,001506: 

Page 488

021239,001508:                                                                                                  #  PRECSET
021240,001509: 22,3354           77620        PRECSET            STQ                                            
021241,001510: 22,3355           01340                                    NORMEX                                
021242,001511: 22,3356           36635                           STCALL   TDEC2                                 
021243,001512: 22,3357           27036                                    LEMPREC                               
021244,001513: 22,3360           77624                           CALL                                           
021245,001514: 22,3361           45372                                    LEMSTORE                              
021246,001515: 22,3362           77745                           DLOAD                                          
021247,001516: 22,3363           02635                                    TDEC2                                 
021248,001517: 22,3364           34041                           STCALL   TDEC1                                 
021249,001518: 22,3365           27022                                    CSMPREC                               
021250,001519: 22,3366           77624                           CALL                                           
021251,001520: 22,3367           45402                                    CSMSTORE                              
021252,001521: 22,3370           77650                           GOTO                                           
021253,001522: 22,3371           01340                                    NORMEX                                
021254,001523: 22,3372           43175        LEMSTORE           VLOAD    BOFF                                  
021255,001524: 22,3373           00001                                    RATT                                  
021256,001525: 22,3374           01352                                    AVFLAG                                
021257,001526: 22,3375           45406                                    PASSIVE                               
021258,001527: 22,3376           27540        ACTIVE             STOVL    RACT3                                 
021259,001528: 22,3377           00007                                    VATT                                  
021260,001529: 22,3400           03546                           STORE    VACT3                                 
021261,001530: 22,3401           77616                           RVQ                                            
021262,001531: 22,3402           43175        CSMSTORE           VLOAD    BOFF                                  
021263,001532: 22,3403           00001                                    RATT                                  
021264,001533: 22,3404           01352                                    AVFLAG                                
021265,001534: 22,3405           45376                                    ACTIVE                                
021266,001535: 22,3406           27554        PASSIVE            STOVL    RPASS3                                
021267,001536: 22,3407           00007                                    VATT                                  
021268,001537: 22,3410           03562                           STORE    VPASS3                                
021269,001538: 22,3411           77616                           RVQ                                            
021270,001539: 

Page 489

021272,001541:                                                                                                  #  VECSHIFT
021273,001542: 22,3412           53754        VECSHIFT           LXA,2    VSR*                                  
021274,001543: 22,3413           03746                                    RTX2                                  
021275,001544: 22,3414           57176                                    0,2                                   
021276,001545: 22,3415           63350                           LXA,1    PDVL                                  
021277,001546: 22,3416           03745                                    RTX1                                  
021278,001547: 22,3417           63257                           VSR*     PDVL                                  
021279,001548: 22,3420           57176                                    0,2                                   
021280,001549: 22,3421           77616                           RVQ                                            
021281,001550: 

Page 490

021283,001552:                                                                                                  #  SHIFTR1
021284,001553: 22,3422           53754        SHIFTR1            LXA,2    SL*                                   
021285,001554: 22,3423           03746                                    RTX2                                  
021286,001555: 22,3424           57576                                    0,2                                   
021287,001556: 22,3425           77616                           RVQ                                            
021288,001557: 

Page 491

021290,001559:                                                                                                  #  PROGRAM DESCRIPTION
021291,001560:                                                                                                  #  SUBROUTINE NAME       R36  OUT-OF-PLANE RENDEZVOUS ROUTINE
021292,001561:                                                                                                  #  MOD NO.  0                      DATE      22 DECEMBER 67
021293,001562:                                                                                                  #  MOD BY   N.M.NEVILLE            LOG SECTION  EXTENDED VERBS
021294,001563:                                                                                                  #  FUNCTIONAL DESCRIPTION
021295,001564: 
021296,001565:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
021297,001566:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y , YDOT , PSI). (REQUESTED BY DSKY).
021298,001567: 
021299,001568:                                                                                                  #  CALLING SEQUENCE
021300,001569: 
021301,001570:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY V 90 E
021302,001571: 
021303,001572:                                                                                                  #  SUBROUTINES CALLED
021304,001573: 
021305,001574:                                                                                                  #  EXDSPRET
021306,001575:                                                                                                  #  GOMARKF
021307,001576:                                                                                                  #  CSMPREC
021308,001577:                                                                                                  #  LEMPREC
021309,001578:                                                                                                  #  SGNAGREE
021310,001579:                                                                                                  #  LOADTIME
021311,001580: 
021312,001581:                                                                                                  #  NORMAL EXIT MODES
021313,001582: 
021314,001583:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
021315,001584: 
021316,001585:                                                                                                  #  ALARM OR ABORT EXIT MODES
021317,001586: 
021318,001587:                                                                                                  #  NONE
021319,001588: 
021320,001589:                                                                                                  #  OUTPUT
021321,001590: 
021322,001591:                                                                                                  #  DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI
021323,001592: 
021324,001593:                                                                                                  #  DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE
021325,001594:                                                                                                  #  REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY.
021326,001595: 
021327,001596:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
021328,001597: 
021329,001598:                                                                                                  #  CSM AND LEM STATE VECTORS
021330,001599: 
021331,001600:                                                                                                  #  DEBRIS
021332,001601: 
021333,001602:                                                                                                  #  CENTRALS A,Q,L
021334,001603: 
021335,001604:                                                                                                  #  OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
021336,001605: 
021337,001606: 20,2000                                           BANK     20                                    
021338,001607: 04,2000                                           SETLOC   R36LM                                 
021339,001608: 04,2000                                           BANK                                           
021340,001609: 

Page 492

021342,001611: 04,2746  E4,1726                                  EBANK=   RPASS36                               
021343,001612: 04,2746                                           COUNT*   $$/R36                                
021344,001613: 
021345,001614: 04,2746           22007        R36                ZL                                             
021346,001615: 04,2747           34714                           CAF      ZERO                                  #  SET TIME OF EVENT TO ZERO FOR FIRST
021347,001616: 04,2750           53052                           DXCH     DSPTEMX                               #  DISPLAY
021348,001617: 04,2751           33101                           CAF      V06N16N                               
021349,001618: 04,2752           04555                           TC       BANKCALL                              
021350,001619: 04,2753           20465                           CADR     GOMARKF                               
021351,001620: 04,2754           15423                           TCF      ENDEXT                                #  TERMINATE
021352,001621: 04,2755           12757                           TCF      +2                                    #  PROCEED
021353,001622: 04,2756           12751                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
021354,001623: 04,2757           53052                           DXCH     DSPTEMX                               
021355,001624: 04,2760           00006                           EXTEND                                         
021356,001625: 04,2761           13070                           BZF      LREGCHK                               #  A-REG ZERO GOTO CHECK L-REG FOR ZERO
021357,001626: 04,2762           52155        ASTROTIM           DXCH     MPAC                                  #  A-REG NON-ZERO, TIME = ASTRO INPUT TIME
021358,001627: 04,2763           06006                           TC       INTPRET                               
021359,001628: 04,2764           77634                           RTB                                            
021360,001629: 04,2765           45713                                    DPMODE                                
021361,001630: 04,2766           34041        R36INT             STCALL   TDEC1                                 
021362,001631: 04,2767           27036                                    OTHPREC                               
021363,001632: 04,2770           63375                           VLOAD    PDVL                                  
021364,001633: 04,2771           00007                                    VATT                                  
021365,001634: 04,2772           00001                                    RATT                                  #   -
021366,001635: 04,2773           02327                           STORE    RPASS36                               #   R
021367,001636: 04,2774           63256                           UNIT     PDVL                                  #    P
021368,001637: 04,2775           53435                           VXV      UNIT                                  #   -
021369,001638: 04,2776           77626                           STADR                                          
021370,001639: 04,2777           61442                           STODL    UNP36                                 #   U
021371,001640: 04,3000           00015                                    TAT                                   
021372,001641: 04,3001           34041                           STCALL   TDEC1                                 
021373,001642: 04,3002           27022                                    THISPREC                              
021374,001643: 04,3003           63375                           VLOAD    PDVL                                  #                    -
021375,001644: 04,3004           00007                                    VATT                                  #   VELOCITY VECTOR  V               00D
021376,001645: 04,3005           00001                                    RATT                                  #                     A
021377,001646: 04,3006           77725                           PDDL                                           
021378,001647: 04,3007           00015                                    TAT                                   #   SAVE TIME IN LOCATION 30D FOR REDISPLAY
021379,001648: 04,3010           24037                           STOVL    30D                                   #                    -
021380,001649: 04,3011           41406                           PUSH     PUSH                                  #   POSITION VECTOR  R   IN  06D AND 12D
021381,001650: 04,3012           63245                           BVSU     PDVL                                  #                     A  -   -
021382,001651: 04,3013           02327                                    RPASS36                               #   LINE OF SIGHT VECTOR R - R       12D
021383,001652: 04,3014           72441                           DOT      SL1                                   #                         P   A
021384,001653: 04,3015           02335                                    UNP36                                 #      -  -
021385,001654: 04,3016           26321                           STOVL    RANGE                                 #  Y = U .R
021386,001655: 04,3017           00001                                    00D                                   #          A
021387,001656: 04,3020           72441                           DOT      SL1                                   
021388,001657: 04,3021           02335                                    UNP36                                 #   .   -  -
021389,001658: 04,3022           26323                           STOVL    RRATE                                 #   Y = U .V
021390,001659: 04,3023           00007                                    06D                                   #   -       A  -

Page 493

021392,001661: 04,3024           41456                           UNIT     PUSH                                  #   U   = UNIT( R )                  18D
021393,001662: 04,3025           47235                           VXV      VXV                                   #    RA          A
021394,001663: 04,3026           00001                                    00D                                   #    -   -   -     -
021395,001664: 04,3027           00023                                    18D                                   #   (U  XV )XU    =U
021396,001665: 04,3030           53552                           VSL2     UNIT                                  #     RA  A   RA    A
021397,001666: 04,3031           77656                           UNIT                                           
021398,001667: 04,3032           24001                           STOVL    00D                                   #   UNIT HORIZONTAL IN FORWARD DIR.  00D
021399,001668: 04,3033           00023                                    18D                                   
021400,001669: 04,3034           74241                           DOT      VXSC                                  #   -
021401,001670: 04,3035           00015                                    12D                                   #   U
021402,001671: 04,3036           77752                           VSL2                                           #    L
021403,001672: 04,3037           53445                           BVSU     UNIT                                  
021404,001673: 04,3040           77656                           UNIT                                           
021405,001674: 04,3041           50206                           PUSH     DOT                                   #   LOS PROJECTED INTO HORIZONTAL    12D
021406,001675: 04,3042           00001                                    00D                                   #   PLANE
021407,001676: 04,3043           65552                           SL1      ARCCOS                                #               -  -
021408,001677: 04,3044           26325                           STOVL    RTHETA                                #   PSI= ARCCOS(U .U )
021409,001678: 04,3045           50235                           VXV      DOT                                   #                A  L
021410,001679: 04,3046           00001                                    00D                                   
021411,001680: 04,3047           71244                           BPL      DLOAD                                 
021412,001681: 04,3050           11055                                    R36TAG2                               
021413,001682: 04,3051           11464                                    LODPMAX                               
021414,001683: 04,3052           77625                           DSU                                            
021415,001684: 04,3053           02325                                    RTHETA                                
021416,001685: 04,3054           02325                           STORE    RTHETA                                
021417,001686: 04,3055           47145        R36TAG2            DLOAD    RTB                                   
021418,001687: 04,3056           00037                                    30D                                   
021419,001688: 04,3057           45541                                    SGNAGREE                              
021420,001689: 04,3060           01052                           STORE    DSPTEMX                               
021421,001690: 04,3061           77776                           EXIT                                           
021422,001691: 04,3062           33102                           CAF      V06N90N                               #   DISPLAY Y , YDOT , AND PSI
021423,001692: 04,3063           04555                           TC       BANKCALL                              
021424,001693: 04,3064           20465                           CADR     GOMARKF                               
021425,001694: 04,3065           15423                           TCF      ENDEXT                                #  TERMINATE
021426,001695: 04,3066           15423                           TCF      ENDEXT                                #  PROCEED , END OF PROGRAM
021427,001696: 04,3067           12751                           TCF      R36        +3                         #  REDISPLAY OUTPUT
021428,001697: 04,3070           56001        LREGCHK            XCH      L                                     
021429,001698: 04,3071           00006                           EXTEND                                         
021430,001699: 04,3072           13075                           BZF      ENTTIM2                               #  L-REG ZERO ,SET TIME = PRESENT TIME
021431,001700: 04,3073           56001                           XCH      L                                     #  L-REG NON ZERO, TIME = ASTRO INPUT TIME
021432,001701: 04,3074           12762                           TCF      ASTROTIM                              
021433,001702: 04,3075           06006        ENTTIM2            TC       INTPRET                               
021434,001703: 04,3076           52034                           RTB      GOTO                                  
021435,001704: 04,3077           45505                                    LOADTIME                              
021436,001705: 04,3100           10766                                    R36INT                                
021437,001706: 04,3101           01420        V06N16N            VN       00616                                 
021438,001707: 04,3102           01532        V06N90N            VN       00690                                 

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