Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

019941,000002:                                                                                                  ## Copyright:   Public domain.
019942,000003:                                                                                                  ## Filename:    P34-35_P74-75.agc
019943,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
019944,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
019945,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
019946,000007:                                                                                                  ## Assembler:   yaYUL
019947,000008:                                                                                                  ## Reference:   pp. 452-495.
019948,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
019949,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
019950,000011:                                                                                                  ## Mod history: 08/11/04 RSB.   Began adapting from corresponding Luminary131
019951,000012:                                                                                                  ##                              source file.
019952,000013:                                                                                                  ##              2010-08-29 JL   Added missing comment characters. 
019953,000014:                                                                                                  ##              2011-05-07 JL   Removed workaround.
019954,000015:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
019955,000016:                                                                                                  ##                              original harcopy, as opposed to the PDF page
019956,000017:                                                                                                  ##                              numbers in 1701.pdf.
019957,000018:                                                                                                  ##              2017-01-17 RSB  Cross-diff'd comment text (not whitespace)
019958,000019:                                                                                                  ##                              vs the already-proofed corresponding Colossus
019959,000020:                                                                                                  ##                              237 and Comanche 55 source-code files
019960,000021:                                                                                                  ##                              and corrected errors found.
019961,000022:                                                                                                  ##              2017-01-28 RSB  Back-ported some comment fixes I noticed while
019962,000023:                                                                                                  ##                              proofing Artemis 72.
019963,000024:                                                                                                  ##              2017-03-09 RSB  Fixed VNP00H to VNPOOH.
019964,000025:                                                                                                  ##
019965,000026:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
019966,000027:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
019967,000028:                                                                                                  ## document read, in part:
019968,000029:                                                                                                  ##
019969,000030:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
019970,000031:                                                                                                  ##      2021111-041.  October 28, 1968.  
019971,000032:                                                                                                  ##
019972,000033:                                                                                                  ##      This AGC program shall also be referred to as
019973,000034:                                                                                                  ##                              Colossus 1A
019974,000035:                                                                                                  ##
019975,000036:                                                                                                  ##      Prepared by
019976,000037:                                                                                                  ##                      Massachusetts Institute of Technology
019977,000038:                                                                                                  ##                      75 Cambridge Parkway
019978,000039:                                                                                                  ##                      Cambridge, Massachusetts
019979,000040:                                                                                                  ##      under NASA contract NAS 9-4065.
019980,000041:                                                                                                  ##
019981,000042:                                                                                                  ## Refer directly to the online document mentioned above for further information.
019982,000043:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
019983,000044:                                                                                                  ##
019984,000045:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
019985,000046:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
019986,000047:                                                                                                  ## source file, and then is proofed to incorporate any changes.
019987,000048: 

Page 452

019989,000050:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
019990,000051:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
019991,000052:                                                                                                  #  MOD BY WHITE.P                DATE  1 JUNE 67
019992,000053: 
019993,000054:                                                                                                  #  PURPOSE
019994,000055:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
019995,000056:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
019996,000057:                                                                                                  #                PHASE INITIATION (TPI) MANEUVER, GIVEN -
019997,000058:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
019998,000059:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
019999,000060:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
020000,000061:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
020001,000062:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
020002,000063:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
020003,000064:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
020004,000065:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020005,000066:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020006,000067:                                                                                                  #                ASTRONAUT/GROUND.
020007,000068:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
020008,000069:                                                                                                  #                THRUSTING PROGRAM.
020009,000070: 
020010,000071:                                                                                                  #  ASSUMPTIONS
020011,000072:                                                                                                  #        (1)     LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
020012,000073:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
020013,000074:                                                                                                  #                THEREFORE -
020014,000075:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
020015,000076:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
020016,000077:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
020017,000078:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
020018,000079:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
020019,000080:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
020020,000081:                                                                                                  #                (C)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
020021,000082:                                                                                                  #                        ORBITS WAS MINIMIZED.
020022,000083:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
020023,000084:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 453

020025,000086:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
020026,000087:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
020027,000088:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
020028,000089:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
020029,000090:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
020030,000091:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
020031,000092:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
020032,000093:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
020033,000094:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
020034,000095:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
020035,000096:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
020036,000097:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
020037,000098:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
020038,000099:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
020039,000100:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
020040,000101:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
020041,000102:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
020042,000103:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
020043,000104:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
020044,000105:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
020045,000106:                                                                                                  #                THRUSTING MANEUVER.
020046,000107:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020047,000108:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020048,000109: 
020049,000110:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020050,000111:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020051,000112:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020052,000113:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020053,000114: 
020054,000115:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020055,000116:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020056,000117: 
020057,000118:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020058,000119:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020059,000120:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020060,000121: 
020061,000122:                                                                                                  #        (7)     ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
020062,000123:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020063,000124:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020064,000125:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020065,000126:                                                                                                  #                THROUGH THE USE OF V06N52.
020066,000127: 
020067,000128:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020068,000129:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 454

020070,000131:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020071,000132:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020072,000133:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
020073,000134:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020074,000135: 
020075,000136:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
020076,000137: 
020077,000138:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
020078,000139: 
020079,000140:                                                                                                  #  INPUT
020080,000141:                                                                                                  #        (1)     TTPI    TIME OF THE TPI MANEUVER
020081,000142:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
020082,000143:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020083,000144:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
020084,000145: 
020085,000146:                                                                                                  #  OUTPUT
020086,000147:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
020087,000148:                                                                                                  #        (2)     TTOGO           TIME TO GO
020088,000149:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
020089,000150:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
020090,000151:                                                                                                  #                 OR
020091,000152:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
020092,000153:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
020093,000154:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
020094,000155:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
020095,000156:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI - LINE OF SIGHT
020096,000157:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
020097,000158: 
020098,000159:                                                                                                  #  DOWNLINK
020099,000160:                                                                                                  #        (1)     TTPI            TIME OF THE TPI MANEUVER
020100,000161:                                                                                                  #        (2)     TIG             TIME OF THE TPI MANEUVER
020101,000162:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
020102,000163:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020103,000164:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
020104,000165:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI - REFERENCE COORDINATES
020105,000166:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
020106,000167: 
020107,000168:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
020108,000169:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
020109,000170:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
020110,000171:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
020111,000172:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020112,000173: 
020113,000174:                                                                                                  #  SUBROUTINES USED
020114,000175:                                                                                                  #        AVFLAGA

Page 455

020116,000177:                                                                                                  #        AVFLAGP
020117,000178:                                                                                                  #        VNPOOH
020118,000179:                                                                                                  #        DISPLAYE
020119,000180:                                                                                                  #        SELECTMU
020120,000181:                                                                                                  #        PRECSET
020121,000182:                                                                                                  #        S33/34.1
020122,000183:                                                                                                  #        ALARM
020123,000184:                                                                                                  #        BANKCALL
020124,000185:                                                                                                  #        GOFLASH
020125,000186:                                                                                                  #        GOTOPOOH
020126,000187:                                                                                                  #        TIMETHET
020127,000188:                                                                                                  #        S34/35.2
020128,000189:                                                                                                  #        PERIAPO1
020129,000190:                                                                                                  #        SHIFTR1
020130,000191:                                                                                                  #        S34/35.5
020131,000192:                                                                                                  #        VN1645
020132,000193: 
020133,000194: 35,2000                                           SETLOC   CSI/CDH                               
020134,000195: 35,2000                                           BANK                                           
020135,000196: 35,2000  E4,1770                                  EBANK=   SUBEXIT                               
020136,000197: 35,2000                                           COUNT    35/P3474                              
020137,000198: 35,2000           03726        P34                TC       AVFLAGA                               
020138,000199: 35,2001           02003                           TC       P34/P74A                              
020139,000200: 35,2002           03741        P74                TC       AVFLAGP                               
020140,000201: 35,2003           03746        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
020141,000202: 35,2004           33125                           CAF      V06N37                                #  TTPI
020142,000203: 35,2005           03114                           TC       VNPOOH                                
020143,000204: 35,2006           03073                           TC       DISPLAYE                              #  ELEV AND CENTANG
020144,000205: 35,2007           06006                           TC       INTPRET                               
020145,000206: 35,2010           71214                           CLEAR    DLOAD                                 
020146,000207: 35,2011           01270                                    ETPIFLAG                              
020147,000208: 35,2012           03663                                    TTPI                                  
020148,000209: 35,2013           17413                           STODL    TIG                                   
020149,000210: 35,2014           03744                                    ELEV                                  
020150,000211: 35,2015           43054                           BZE      SET                                   
020151,000212: 35,2016           72020                                    P34/P74B                              
020152,000213: 35,2017           01070                                    ETPIFLAG                              
020153,000214: 35,2020           77624        P34/P74B           CALL                                           
020154,000215: 35,2021           10716                                    SELECTMU                              
020155,000216: 35,2022                        DELELO             EQUALS   26D                                   
020156,000217: 35,2022           43145        P34/P74C           DLOAD    SET                                   
020157,000218: 35,2023           15332                                    ZEROVECS                              
020158,000219: 35,2024           03461                                    ITSWICH                               
020159,000220: 35,2025           43014                           BON      CLEAR                                 
020160,000221: 35,2026           01310                                    ETPIFLAG                              
020161,000222: 35,2027           72031                                    SWCHSET                               
020162,000223: 35,2030           03661                                    ITSWICH                               
020163,000224: 35,2031           02364        SWCHSET            STORE    NOMTPI                                
020164,000225: 35,2032           43345        INTLOOP            DLOAD    DAD                                   

Page 456

020166,000227: 35,2033           03663                                    TTPI                                  
020167,000228: 35,2034           02364                                    NOMTPI                                
020168,000229: 35,2035           34041                           STCALL   TDEC1                                 
020169,000230: 35,2036           45354                                    PRECSET                               
020170,000231: 35,2037           77624                           CALL                                           
020171,000232: 35,2040           72212                                    S33/34.1                              
020172,000233: 35,2041           77454                           BZE      EXIT                                  
020173,000234: 35,2042           72053                                    SWCHCLR                               
020174,000235: 35,2043           05537                           TC       ALARM                                 
020175,000236: 35,2044           00611                           OCT      611                                   
020176,000237: 35,2045           34743                           CAF      V05N09                                
020177,000238: 35,2046           04555                           TC       BANKCALL                              
020178,000239: 35,2047           20624                           CADR     GOFLASH                               
020179,000240: 35,2050           04106                           TC       GOTOPOOH                              
020180,000241: 35,2051           02003                           TC       P34/P74A                              #  PROCEED
020181,000242: 35,2052           02043                           TC       -7                                    #  V32
020182,000243: 
020183,000244: 35,2053           43014        SWCHCLR            BONCLR   BON                                   
020184,000245: 35,2054           03601                                    ITSWICH                               
020185,000246: 35,2055           72032                                    INTLOOP                               
020186,000247: 35,2056           01310                                    ETPIFLAG                              
020187,000248: 35,2057           72063                                    P34/P74D                              #  DISPLAY TTPI
020188,000249: 35,2060           77776                           EXIT                                           
020189,000250: 35,2061           03073                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
020190,000251: 35,2062           02066                           TC       P34/P74E                              
020191,000252: 35,2063           77776        P34/P74D           EXIT                                           
020192,000253: 35,2064           33125                           CAF      V06N37                                #  TTPI
020193,000254: 35,2065           03114                           TC       VNPOOH                                
020194,000255: 35,2066           06006        P34/P74E           TC       INTPRET                               
020195,000256: 35,2067           71201                           SETPD    DLOAD                                 
020196,000257: 35,2070           00001                                    0D                                    
020197,000258: 35,2071           03746                                    RTX1                                  
020198,000259: 35,2072           14047                           STODL    X1                                    
020199,000260: 35,2073           03754                                    CENTANG                               
020200,000261: 35,2074           71406                           PUSH     COS                                   
020201,000262: 35,2075           16734                           STODL    CSTH                                  
020202,000263: 35,2076           77756                           SIN                                            
020203,000264: 35,2077           26732                           STOVL    SNTH                                  
020204,000265: 35,2100           03554                                    RPASS3                                
020205,000266: 35,2101           77657                           VSR*                                           
020206,000267: 35,2102           57176                                    0,2                                   
020207,000268: 35,2103           26657                           STOVL    RVEC                                  
020208,000269: 35,2104           03562                                    VPASS3                                
020209,000270: 35,2105           43057                           VSR*     SET                                   
020210,000271: 35,2106           57176                                    0,2                                   
020211,000272: 35,2107           03466                                    RVSW                                  
020212,000273: 35,2110           36746                           STCALL   VVEC                                  
020213,000274: 35,2111           24737                                    TIMETHET                              
020214,000275: 35,2112           77745                           DLOAD                                          
020215,000276: 35,2113           03663                                    TTPI                                  

Page 457

020217,000278: 35,2114           03503                           STORE    INTIME                                #  FOR INITVEL
020218,000279: 35,2115           77615                           DAD                                            
020219,000280: 35,2116           00037                                    T                                     #  RENDEZVOUS TIME
020220,000281: 35,2117           37656                           STCALL   TPASS4                                #  FOR INITVEL
020221,000282: 35,2120           72534                                    S34/35.2                              
020222,000283: 35,2121           51575                           VLOAD    ABVAL                                 
020223,000284: 35,2122           03646                                    DELVEET3                              
020224,000285: 35,2123           26635                           STOVL    DELVTPI                               
020225,000286: 35,2124           03640                                    VPASS4                                
020226,000287: 35,2125           51451                           VSU      ABVAL                                 
020227,000288: 35,2126           03620                                    VTPRIME                               
020228,000289: 35,2127           26637                           STOVL    DELVTPF                               
020229,000290: 35,2130           03540                                    RACT3                                 
020230,000291: 35,2131           45115                           PDVL     CALL                                  
020231,000292: 35,2132           03612                                    VIPRIME                               
020232,000293: 35,2133           45312                                    PERIAPO1                              
020233,000294: 35,2134           77624                           CALL                                           
020234,000295: 35,2135           45422                                    SHIFTR1                               
020235,000296: 35,2136           16641                           STODL    POSTTPI                               
020236,000297: 35,2137           03663                                    TTPI                                  
020237,000298: 35,2140           03413                           STORE    TIG                                   
020238,000299: 35,2141           77776                           EXIT                                           
020239,000300: 35,2142           33127                           CAF      V06N58                                
020240,000301: 35,2143           03114                           TC       VNPOOH                                
020241,000302: 35,2144           06006                           TC       INTPRET                               
020242,000303: 35,2145           77624                           CALL                                           
020243,000304: 35,2146           72742                                    S34/35.5                              
020244,000305: 35,2147           77624                           CALL                                           
020245,000306: 35,2150           73005                                    VN1645                                
020246,000307: 35,2151           77650                           GOTO                                           
020247,000308: 35,2152           72022                                    P34/P74C                              
020248,000309: 

Page 458

020250,000311:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
020251,000312:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
020252,000313:                                                                                                  #  MOD BY WHITE.P                DATE  1 JUNE 67
020253,000314: 
020254,000315:                                                                                                  #  PURPOSE
020255,000316:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020256,000317:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
020257,000318:                                                                                                  #                MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
020258,000319:                                                                                                  #                VEHICLE RENDEZVOUS.
020259,000320:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020260,000321:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020261,000322:                                                                                                  #                ASTRONAUT/GROUND.
020262,000323:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
020263,000324:                                                                                                  #                THRUSTING PROGRAM.
020264,000325: 
020265,000326:                                                                                                  #  ASSUMPTIONS
020266,000327:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020267,000328:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
020268,000329:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
020269,000330:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
020270,000331:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
020271,000332:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
020272,000333:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
020273,000334:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
020274,000335:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
020275,000336:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020276,000337: 
020277,000338:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020278,000339:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020279,000340:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020280,000341:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020281,000342: 
020282,000343:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020283,000344:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020284,000345: 
020285,000346:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020286,000347:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020287,000348:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020288,000349: 
020289,000350:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
020290,000351:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
020291,000352:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.

Page 459

020293,000354:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
020294,000355:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020295,000356:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020296,000357:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020297,000358:                                                                                                  #                THROUGH THE USE OF V06N52.
020298,000359: 
020299,000360:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020300,000361:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
020301,000362:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020302,000363:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020303,000364:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
020304,000365:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020305,000366: 
020306,000367:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
020307,000368: 
020308,000369:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
020309,000370: 
020310,000371:                                                                                                  #  INPUT
020311,000372:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT - SAVED FROM P34/P74
020312,000373: 
020313,000374:                                                                                                  #  OUTPUT
020314,000375:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
020315,000376:                                                                                                  #        (2)     TTOGO           TIME TO GO
020316,000377:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
020317,000378:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID - LINE OF SIGHT
020318,000379:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
020319,000380: 
020320,000381:                                                                                                  #  DOWNLINK
020321,000382:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
020322,000383:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM - REFERENCE COORDINATES
020323,000384:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
020324,000385: 
020325,000386:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
020326,000387:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
020327,000388:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
020328,000389:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
020329,000390:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020330,000391: 
020331,000392:                                                                                                  #  SUBROUTINES USED
020332,000393:                                                                                                  #        AVFLAGA
020333,000394:                                                                                                  #        AVFLAGP
020334,000395:                                                                                                  #        LOADTIME
020335,000396:                                                                                                  #        SELECTMU
020336,000397:                                                                                                  #        PRECSET
020337,000398:                                                                                                  #        S34/35.1
020338,000399:                                                                                                  #        S34/35.2

Page 460

020340,000401:                                                                                                  #        S34/35.5
020341,000402:                                                                                                  #        VN1645
020342,000403: 
020343,000404: 35,2153                                           COUNT    35/P3575                              
020344,000405: 35,2153  E4,1763                                  EBANK=   KT                                    
020345,000406: 
020346,000407: 35,2153           03726        P35                TC       AVFLAGA                               
020347,000408: 35,2154           00006                           EXTEND                                         
020348,000409: 35,2155           31422                           DCA      ATIGINC                               
020349,000410: 35,2156           02162                           TC       P35/P75A                              
020350,000411: 35,2157           03741        P75                TC       AVFLAGP                               
020351,000412: 35,2160           00006                           EXTEND                                         
020352,000413: 35,2161           31424                           DCA      PTIGINC                               
020353,000414: 35,2162           53764        P35/P75A           DXCH     KT                                    
020354,000415: 35,2163           03746                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
020355,000416: 35,2164           06006                           TC       INTPRET                               
020356,000417: 35,2165           77624                           CALL                                           
020357,000418: 35,2166           10716                                    SELECTMU                              
020358,000419: 35,2167           77634        P35/P75B           RTB                                            
020359,000420: 35,2170           45505                                    LOADTIME                              
020360,000421: 35,2171           03665                           STORE    TSTRT                                 
020361,000422: 35,2172           77615                           DAD                                            
020362,000423: 35,2173           02364                                    KT                                    
020363,000424: 35,2174           03413                           STORE    TIG                                   
020364,000425: 35,2175           03503                           STORE    INTIME                                #  FOR INITVEL
020365,000426: 35,2176           34041                           STCALL   TDEC1                                 
020366,000427: 35,2177           45354                                    PRECSET                               #  ADVANCE BOTH VEHICLES
020367,000428: 35,2200           77624                           CALL                                           
020368,000429: 35,2201           72522                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
020369,000430: 35,2202           77624                           CALL                                           
020370,000431: 35,2203           72534                                    S34/35.2                              #  GET DELTA V(LV)
020371,000432: 35,2204           77624                           CALL                                           
020372,000433: 35,2205           72742                                    S34/35.5                              
020373,000434: 35,2206           77624                           CALL                                           
020374,000435: 35,2207           73005                                    VN1645                                
020375,000436: 35,2210           77650                           GOTO                                           
020376,000437: 35,2211           72167                                    P35/P75B                              

Page 461

020378,000439:                                                                                                  #  ..... S33/34.1 .....
020379,000440: 
020380,000441: 35,2212           66220        S33/34.1           STQ      SSP                                   
020381,000442: 35,2213           01340                                    NORMEX                                
020382,000443: 35,2214           03665                                    TITER                                 
020383,000444: 35,2215           40000                           OCT      40000                                 
020384,000445: 35,2216           40345                           DLOAD    SETPD                                 
020385,000446: 35,2217           33136                                    MAX250                                
020386,000447: 35,2220           00001                                    0D                                    
020387,000448: 35,2221           27454                           STOVL    SECMAX                                
020388,000449: 35,2222           03540                                    RACT3                                 
020389,000450: 35,2223           27576                           STOVL    RAPREC                                
020390,000451: 35,2224           03546                                    VACT3                                 
020391,000452: 35,2225           27570                           STOVL    VAPREC                                
020392,000453: 35,2226           03554                                    RPASS3                                
020393,000454: 35,2227           27620                           STOVL    RPPREC                                
020394,000455: 35,2230           03562                                    VPASS3                                
020395,000456: 35,2231           03612                           STORE    VPPREC                                
020396,000457: 35,2232           77624        ELCALC             CALL                                           
020397,000458: 35,2233           72522                                    S34/35.1                              #  NORMAL AND LOS
020398,000459: 35,2234           63235                           VXV      PDVL                                  
020399,000460: 35,2235           03540                                    RACT3                                 #  (RA*VA)*RA 0D
020400,000461: 35,2236           53515                           PDVL     UNIT                                  #  ULOS AT 6D
020401,000462: 35,2237           03540                                    RACT3                                 
020402,000463: 35,2240           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
020403,000464: 35,2241           51352                           VSL2     BVSU                                  
020404,000465: 35,2242           02625                                    ULOS                                  
020405,000466: 35,2243           63256                           UNIT     PDVL                                  #  UP AT 0D
020406,000467: 35,2244           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
020407,000468: 35,2245           00001                                    0D                                    #  UP IN MPAC
020408,000469: 35,2246           75241                           DOT      SIGN                                  
020409,000470: 35,2247           02625                                    ULOS                                  
020410,000471: 35,2250           65552                           SL1      ACOS                                  
020411,000472: 35,2251           50315                           PDVL     DOT                                   #  EA AT 0D
020412,000473: 35,2252           02625                                    ULOS                                  
020413,000474: 35,2253           03540                                    RACT3                                 
020414,000475: 35,2254           71244                           BPL      DLOAD                                 
020415,000476: 35,2255           72260                                    TESTY                                 
020416,000477: 35,2256           15340                                    DPPOSMAX                              
020417,000478: 35,2257           41425                           DSU      PUSH                                  
020418,000479: 35,2260           71214        TESTY              BOFF     DLOAD                                 
020419,000480: 35,2261           03741                                    ITSWICH                               
020420,000481: 35,2262           72507                                    ELEX                                  
020421,000482: 35,2263           03452                                    DELEL                                 
020422,000483: 35,2264           14033                           STODL    DELELO                                
020423,000484: 35,2265           77625                           DSU                                            
020424,000485: 35,2266           03744                                    ELEV                                  
020425,000486: 35,2267           03452                           STORE    DELEL                                 
020426,000487: 35,2270           45246                           ABS      DSU                                   
020427,000488: 35,2271           33142                                    ELEPS                                 

Page 462

020429,000490: 35,2272           77640                           BMN                                            
020430,000491: 35,2273           72517                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
020431,000492: 35,2274           70535        FIGTIME            SLOAD    SR1                                   
020432,000493: 35,2275           03665                                    TITER                                 
020433,000494: 35,2276           72030                           BHIZ     LXA,1                                 
020434,000495: 35,2277           01340                                    NORMEX                                #  TOO MANY ITERATIONS
020435,000496: 35,2300           00154                                    MPAC                                  
020436,000497: 35,2301           77330                           SXA,1    VLOAD                                 
020437,000498: 35,2302           03664                                    TITER                                 
020438,000499: 35,2303           03554                                    RPASS3                                
020439,000500: 35,2304           65256                           UNIT     PDDL                                  
020440,000501: 35,2305           00045                                    36D                                   
020441,000502: 35,2306           53515                           PDVL     UNIT                                  
020442,000503: 35,2307           03540                                    RACT3                                 
020443,000504: 35,2310           77725                           PDDL                                           
020444,000505: 35,2311           41525                           PDDL     PUSH                                  
020445,000506: 35,2312           00045                                    36D                                   
020446,000507: 35,2313           77621                           BDSU                                           
020447,000508: 35,2314           00015                                    12D                                   
020448,000509: 35,2315           14037                           STODL    30D                                   #  RP-RA MAGNITUDES
020449,000510: 35,2316           15330                                    DPHALF                                
020450,000511: 35,2317           41425                           DSU      PUSH                                  
020451,000512: 35,2320           03744                                    ELEV                                  
020452,000513: 35,2321           50165                           SIGN     BMN                                   
020453,000514: 35,2322           00037                                    30D                                   
020454,000515: 35,2323           01340                                    NORMEX                                
020455,000516: 35,2324           71545                           DLOAD    COS                                   
020456,000517: 35,2325           56205                           DMP      DDV                                   
020457,000518: 35,2326           00017                                    14D                                   
020458,000519: 35,2327           00015                                    12D                                   
020459,000520: 35,2330           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
020460,000521: 35,2331           00035                           STORE    28D                                   
020461,000522: 35,2332           44246                           ABS      BDSU                                  
020462,000523: 35,2333           15330                                    DPHALF                                
020463,000524: 35,2334           77240                           BMN      VLOAD                                 
020464,000525: 35,2335           01340                                    NORMEX                                
020465,000526: 35,2336           02617                                    UNRM                                  
020466,000527: 35,2337           53435                           VXV      UNIT                                  
020467,000528: 35,2340           00007                                    6D                                    #  UN*RA
020468,000529: 35,2341           41241                           DOT      DMP                                   
020469,000530: 35,2342           03546                                    VACT3                                 
020470,000531: 35,2343           00015                                    12D                                   
020471,000532: 35,2344           47315                           PDVL     VXV                                   
020472,000533: 35,2345           00001                                    0D                                    
020473,000534: 35,2346           03562                                    VPASS3                                
020474,000535: 35,2347           53435                           VXV      UNIT                                  
020475,000536: 35,2350           00001                                    0D                                    #  (RP*VP)*RP
020476,000537: 35,2351           41241                           DOT      DMP                                   
020477,000538: 35,2352           03562                                    VPASS3                                
020478,000539: 35,2353           00017                                    14D                                   

Page 463

020480,000541: 35,2354           77621                           BDSU                                           
020481,000542: 35,2355           63301                           NORM     PDVL                                  #  NORMALIZED WA-WP 12D
020482,000543: 35,2356           00047                                    X1                                    
020483,000544: 35,2357           00007                                    6D                                    
020484,000545: 35,2360           50235                           VXV      DOT                                   
020485,000546: 35,2361           00001                                    0D                                    
020486,000547: 35,2362           02617                                    UNRM                                  #  RA*RP.UN 14D
020487,000548: 35,2363           50315                           PDVL     DOT                                   
020488,000549: 35,2364           00001                                    0D                                    
020489,000550: 35,2365           00007                                    6D                                    
020490,000551: 35,2366           65552                           SL1      ACOS                                  
020491,000552: 35,2367           77765                           SIGN                                           
020492,000553: 35,2370           43225                           DSU      DAD                                   #  ALPHA PI
020493,000554: 35,2371           15330                                    DPHALF                                
020494,000555: 35,2372           03744                                    ELEV                                  
020495,000556: 35,2373           65525                           PDDL     ACOS                                  
020496,000557: 35,2374           00035                                    28D                                   
020497,000558: 35,2375           75221                           BDSU     SIGN                                  
020498,000559: 35,2376           15330                                    DPHALF                                
020499,000560: 35,2377           00037                                    30D                                   #  CONTAINS RP-RA
020500,000561: 35,2400           77615                           DAD                                            
020501,000562: 35,2401           56205                           DMP      DDV                                   
020502,000563: 35,2402           33134                                    TWOPI                                 
020503,000564: 35,2403           77605                           DMP                                            
020504,000565: 35,2404           41257                           SL*      DMP                                   
020505,000566: 35,2405           20176                                    0          -3,1                       
020506,000567: 35,2406           51406                           PUSH     ABS                                   
020507,000568: 35,2407           50025                           DSU      BMN                                   
020508,000569: 35,2410           03454                                    SECMAX                                
020509,000570: 35,2411           72415                                    OKMAX                                 
020510,000571: 35,2412           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
020511,000572: 35,2413           03454                                    SECMAX                                
020512,000573: 35,2414           77606                           PUSH                                           
020513,000574: 35,2415           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
020514,000575: 35,2416           03665                                    TITER                                 
020515,000576: 35,2417           72425                                    REPETE                                
020516,000577: 35,2420           71331                           SSP      DLOAD                                 
020517,000578: 35,2421           03665                                    TITER                                 
020518,000579: 35,2422           37777                           OCT      37777                                 
020519,000580: 35,2423           77650                           GOTO                                           
020520,000581: 35,2424           72463                                    STORDELT                              
020521,000582: 35,2425           41345        REPETE             DLOAD    DMP                                   
020522,000583: 35,2426           03452                                    DELEL                                 
020523,000584: 35,2427           00033                                    DELELO                                
020524,000585: 35,2430           71244                           BPL      DLOAD                                 
020525,000586: 35,2431           72441                                    NEXTES                                
020526,000587: 35,2432           03454                                    SECMAX                                
020527,000588: 35,2433           77605                           DMP                                            
020528,000589: 35,2434           33140                                    THIRD                                 
020529,000590: 35,2435           17454                           STODL    SECMAX                                

Page 464

020531,000592: 35,2436           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
020532,000593: 35,2437           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
020533,000594: 35,2440           72451                                    RESIGN                                
020534,000595: 35,2441           51545        NEXTES             DLOAD    ABS                                   
020535,000596: 35,2442           03452                                    DELEL                                 
020536,000597: 35,2443           51525                           PDDL     ABS                                   
020537,000598: 35,2444           00033                                    DELELO                                
020538,000599: 35,2445           77625                           DSU                                            
020539,000600: 35,2446           71240                           BMN      DLOAD                                 
020540,000601: 35,2447           72454                                    REVERS                                #  WRONG DIRECTION
020541,000602: 35,2450           77646                           ABS                                            
020542,000603: 35,2451           52165        RESIGN             SIGN     GOTO                                  
020543,000604: 35,2452           03450                                    DELTEEO                               
020544,000605: 35,2453           72463                                    STORDELT                              
020545,000606: 35,2454           57545        REVERS             DLOAD    DCOMP                                 
020546,000607: 35,2455           03450                                    DELTEEO                               
020547,000608: 35,2456           70406                           PUSH     SR1                                   
020548,000609: 35,2457           03450                           STORE    DELTEEO                               
020549,000610: 35,2460           77615                           DAD                                            
020550,000611: 35,2461           77650                           GOTO                                           
020551,000612: 35,2462           72464                                    ADTIME                                
020552,000613: 35,2463           03450        STORDELT           STORE    DELTEEO                               
020553,000614: 35,2464           77615        ADTIME             DAD                                            
020554,000615: 35,2465           02364                                    NOMTPI                                #  SUM OF DELTA T:S
020555,000616: 35,2466           02364                           STORE    NOMTPI                                
020556,000617: 35,2467           63375                           VLOAD    PDVL                                  
020557,000618: 35,2470           03570                                    VAPREC                                
020558,000619: 35,2471           03576                                    RAPREC                                
020559,000620: 35,2472           77624                           CALL                                           
020560,000621: 35,2473           72702                                    GOINT                                 
020561,000622: 35,2474           77624                           CALL                                           
020562,000623: 35,2475           45376                                    ACTIVE                                #  STORE NEW RACT3 VACT3
020563,000624: 35,2476           63375                           VLOAD    PDVL                                  
020564,000625: 35,2477           03612                                    VPPREC                                
020565,000626: 35,2500           03620                                    RPPREC                                
020566,000627: 35,2501           77624                           CALL                                           
020567,000628: 35,2502           72702                                    GOINT                                 
020568,000629: 35,2503           77624                           CALL                                           
020569,000630: 35,2504           45406                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
020570,000631: 35,2505           77650                           GOTO                                           
020571,000632: 35,2506           72232                                    ELCALC                                
020572,000633: 35,2507           43345        ELEX               DLOAD    DAD                                   
020573,000634: 35,2510           03663                                    TTPI                                  
020574,000635: 35,2511           02364                                    NOMTPI                                
020575,000636: 35,2512           17663                           STODL    TTPI                                  
020576,000637: 35,2513           77614                           BON                                            
020577,000638: 35,2514           01310                                    ETPIFLAG                              
020578,000639: 35,2515           72517                                    TIMEX                                 
020579,000640: 35,2516           03744                           STORE    ELEV                                  
020580,000641: 35,2517           52145        TIMEX              DLOAD    GOTO                                  

Page 465

020582,000643: 35,2520           15332                                    ZEROVECS                              
020583,000644: 35,2521           01340                                    NORMEX                                
020584,000645: 

Page 466

020586,000647:                                                                                                  #  ..... S34/35.1 .....
020587,000648: 
020588,000649:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
020589,000650:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
020590,000651: 
020591,000652: 35,2522           52375        S34/35.1           VLOAD    VSU                                   
020592,000653: 35,2523           03554                                    RPASS3                                
020593,000654: 35,2524           03540                                    RACT3                                 
020594,000655: 35,2525           41456                           UNIT     PUSH                                  
020595,000656: 35,2526           26625                           STOVL    ULOS                                  
020596,000657: 35,2527           03540                                    RACT3                                 
020597,000658: 35,2530           53435                           VXV      UNIT                                  
020598,000659: 35,2531           03546                                    VACT3                                 
020599,000660: 35,2532           02617                           STORE    UNRM                                  
020600,000661: 35,2533           77616                           RVQ                                            
020601,000662: 

Page 467

020603,000664:                                                                                                  #  ..... S34/35.2 .....
020604,000665: 
020605,000666:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
020606,000667: 
020607,000668: 35,2534           77220        S34/35.2           STQ      VLOAD                                 
020608,000669: 35,2535           02370                                    SUBEXIT                               
020609,000670: 35,2536           03562                                    VPASS3                                
020610,000671: 35,2537           65315                           PDVL     PDDL                                  
020611,000672: 35,2540           03554                                    RPASS3                                
020612,000673: 35,2541           03503                                    INTIME                                
020613,000674: 35,2542           65325                           PDDL     PDDL                                  
020614,000675: 35,2543           03656                                    TPASS4                                
020615,000676: 35,2544           15332                                    ZEROVECS                              
020616,000677: 35,2545           45006                           PUSH     CALL                                  
020617,000678: 35,2546           72706                                    INTINT                                #  GET TARGET VECTOR
020618,000679: 35,2547           27415        S3435.25           STOVL    RTARG                                 
020619,000680: 35,2550           00007                                    VATT                                  
020620,000681: 35,2551           27640                           STOVL    VPASS4                                
020621,000682: 35,2552           03415                                    RTARG                                 
020622,000683:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI) SIGN(RA*RP.U)
020623,000684: 35,2553           63256                           UNIT     PDVL                                  #  UNIT RP
020624,000685: 35,2554           03540                                    RACT3                                 
020625,000686: 35,2555           41456                           UNIT     PUSH                                  #  UNIT RA
020626,000687: 35,2556           50235                           VXV      DOT                                   
020627,000688: 35,2557           00001                                    0D                                    
020628,000689: 35,2560           02617                                    UNRM                                  #  RA*RP.U
020629,000690: 35,2561           77715                           PDVL                                           
020630,000691: 35,2562           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
020631,000692: 35,2563           00001                                    0D                                    
020632,000693: 35,2564           75326                           ACOS     SIGN                                  
020633,000694: 35,2565           43244                           BPL      DAD                                   
020634,000695: 35,2566           72570                                    NOPIE                                 
020635,000696: 35,2567           15340                                    DPPOSMAX                              #  REASONABLE TWO PI
020636,000697: 35,2570           16633        NOPIE              STODL    ACTCENT                               
020637,000698: 35,2571           03656                                    TPASS4                                
020638,000699: 35,2572           77625                           DSU                                            
020639,000700: 35,2573           03503                                    INTIME                                
020640,000701: 35,2574           03423                           STORE    DELLT4                                
020641,000702: 35,2575           40335                           SLOAD    SETPD                                 
020642,000703: 35,2576           33144                                    DECTWO                                
020643,000704: 35,2577           00001                                    0D                                    
020644,000705: 35,2600           63325                           PDDL     PDVL                                  
020645,000706: 35,2601           33147                                    EPSFOUR                               
020646,000707: 35,2602           03540                                    RACT3                                 
020647,000708: 35,2603           27570                           STOVL    RINIT                                 
020648,000709: 35,2604           03546                                    VACT3                                 
020649,000710: 35,2605           37576                           STCALL   VINIT                                 
020650,000711: 35,2606           22000                                    INITVEL                               
020651,000712: 35,2607           77624                           CALL                                           
020652,000713: 35,2610           72667                                    LOMAT                                 
020653,000714: 35,2611           64375                           VLOAD    MXV                                   

Page 468

020655,000716: 35,2612           03646                                    DELVEET3                              
020656,000717: 35,2613           00001                                    0D                                    
020657,000718: 35,2614           77772                           VSL1                                           
020658,000719: 35,2615           37405                           STCALL   DELVLVC                               
020659,000720: 35,2616           02370                                    SUBEXIT                               
020660,000721: 

Page 469

020662,000723:                                                                                                  #  ..... S34/35.3 .....
020663,000724: 
020664,000725: 35,2617           45020        S34/35.3           STQ      CALL                                  
020665,000726: 35,2620           01340                                    NORMEX                                
020666,000727: 35,2621           72667                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
020667,000728: 35,2622           61375                           VLOAD    VXM                                   
020668,000729: 35,2623           03405                                    DELVLVC                               #  NEW DEL V TPI
020669,000730: 35,2624           00001                                    0D                                    
020670,000731: 35,2625           77772                           VSL1                                           
020671,000732: 35,2626           03646                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
020672,000733: 35,2627           63255                           VAD      PDVL                                  
020673,000734: 35,2630           03546                                    VACT3                                 #  NEW V REQ
020674,000735: 35,2631           03540                                    RACT3                                 
020675,000736: 35,2632           65325                           PDDL     PDDL                                  
020676,000737: 35,2633           03413                                    TIG                                   
020677,000738: 35,2634           03656                                    TPASS4                                
020678,000739: 35,2635           41525                           PDDL     PUSH                                  
020679,000740: 35,2636           15340                                    DPPOSMAX                              
020680,000741: 35,2637           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
020681,000742: 35,2640           72706                                    INTINT                                
020682,000743: 35,2641           77775                           VLOAD                                          
020683,000744: 35,2642           00001                                    RATT                                  
020684,000745: 35,2643           03415                           STORE    RTARG                                 
020685,000746: 35,2644           41575        NOVRWRT            VLOAD    PUSH                                  
020686,000747: 35,2645           02625                                    ULOS                                  
020687,000748: 35,2646           57435                           VXV      VCOMP                                 
020688,000749: 35,2647           02617                                    UNRM                                  
020689,000750: 35,2650           41456                           UNIT     PUSH                                  
020690,000751: 35,2651           76435                           VXV      VSL1                                  
020691,000752: 35,2652           02625                                    ULOS                                  
020692,000753: 35,2653           77715                           PDVL                                           
020693,000754: 35,2654           64315                           PDVL     MXV                                   
020694,000755: 35,2655           03646                                    DELVEET3                              
020695,000756: 35,2656           00001                                    0D                                    
020696,000757: 35,2657           77772                           VSL1                                           
020697,000758: 35,2660           36611                           STCALL   DVLOS                                 
020698,000759: 35,2661           01340                                    NORMEX                                
020699,000760: 

Page 470

020701,000762:                                                                                                  #  ..... S34/35.4 .....
020702,000763: 
020703,000764: 35,2662           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
020704,000765: 35,2663           01340                                    NORMEX                                
020705,000766: 35,2664           00001                                    0D                                    
020706,000767: 35,2665           77650                           GOTO                                           
020707,000768: 35,2666           72644                                    NOVRWRT                               
020708,000769: 

Page 471

020710,000771:                                                                                                  #  ..... LOMAT .....
020711,000772: 
020712,000773: 35,2667           57575        LOMAT              VLOAD    VCOMP                                 
020713,000774: 35,2670           02617                                    UNRM                                  
020714,000775: 35,2671           24007                           STOVL    6D                                    #  Y
020715,000776: 35,2672           03540                                    RACT3                                 
020716,000777: 35,2673           57456                           UNIT     VCOMP                                 
020717,000778: 35,2674           00015                           STORE    12D                                   
020718,000779: 35,2675           76435                           VXV      VSL1                                  
020719,000780: 35,2676           02617                                    UNRM                                  #  Z*-Y
020720,000781: 35,2677           00001                           STORE    0D                                    
020721,000782: 35,2700           43401                           SETPD    RVQ                                   
020722,000783: 35,2701           00023                                    18D                                   
020723,000784: 35,2702           65325        GOINT              PDDL     PDDL                                  #  DO
020724,000785: 35,2703           15332                                    ZEROVECS                              #        NOT
020725,000786: 35,2704           02364                                    NOMTPI                                
020726,000787: 35,2705           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
020727,000788: 35,2706           45020        INTINT             STQ      CALL                                  
020728,000789: 35,2707           02367                                    RTRN                                  
020729,000790: 35,2710           27371                                    INTSTALL                              
020730,000791: 35,2711           71214                           CLEAR    DLOAD                                 
020731,000792: 35,2712           01673                                    INTYPFLG                              
020732,000793: 35,2713           43054                           BZE      SET                                   
020733,000794: 35,2714           72716                                    +2                                    
020734,000795: 35,2715           01473                                    INTYPFLG                              
020735,000796: 35,2716           45545                           DLOAD    STADR                                 
020736,000797: 35,2717           63736                           STODL    TDEC1                                 
020737,000798: 35,2720           73014                           SET      LXA,2                                 
020738,000799: 35,2721           00063                                    MOONFLAG                              
020739,000800: 35,2722           03746                                    RTX2                                  
020740,000801: 35,2723           43014                           BON      CLEAR                                 
020741,000802: 35,2724           04303                                    CMOONFLG                              
020742,000803: 35,2725           72727                                    ALLSET                                
020743,000804: 35,2726           00263                                    MOONFLAG                              
020744,000805: 35,2727           25517        ALLSET             STOVL    TET                                   
020745,000806: 35,2730           77657                           VSR*                                           
020746,000807: 35,2731           57176                                    0,2                                   
020747,000808: 35,2732           25535                           STOVL    RCV                                   
020748,000809: 35,2733           77657                           VSR*                                           
020749,000810: 35,2734           57176                                    0,2                                   
020750,000811: 35,2735           35543                           STCALL   VCV                                   
020751,000812: 35,2736           27066                                    INTEGRVS                              
020752,000813: 35,2737           52175                           VLOAD    GOTO                                  
020753,000814: 35,2740           00001                                    RATT                                  
020754,000815: 35,2741           02367                                    RTRN                                  
020755,000816: 

Page 472

020757,000818:                                                                                                  #  ..... S34/35.5 .....
020758,000819: 
020759,000820:                                                                                                  #  SUBROUTINES USED
020760,000821:                                                                                                  #        BANKCALL
020761,000822:                                                                                                  #        GOFLASH
020762,000823:                                                                                                  #        GOTOPOOH
020763,000824:                                                                                                  #        S34/35.3
020764,000825:                                                                                                  #        S34/35.4
020765,000826:                                                                                                  #        VNPOOH
020766,000827: 
020767,000828: 35,2742           43020        S34/35.5           STQ      BON                                   
020768,000829: 35,2743           02370                                    SUBEXIT                               
020769,000830: 35,2744           01311                                    FINALFLG                              
020770,000831: 35,2745           72751                                    FLAGON                                
020771,000832: 35,2746           52014                           SET      GOTO                                  
020772,000833: 35,2747           00470                                    UPDATFLG                              
020773,000834: 35,2750           72775                                    FLAGOFF                               
020774,000835: 35,2751           77414        FLAGON             CLEAR    EXIT                                  
020775,000836: 35,2752           03274                                    NTARGFLG                              
020776,000837: 35,2753           33131                           CAF      V06N81                                
020777,000838: 35,2754           04555                           TC       BANKCALL                              
020778,000839: 35,2755           20624                           CADR     GOFLASH                               
020779,000840: 35,2756           04106                           TC       GOTOPOOH                              
020780,000841: 35,2757           02764                           TC       +5                                    
020781,000842: 35,2760           06006                           TC       INTPRET                               
020782,000843: 35,2761           77414                           SET      EXIT                                  
020783,000844: 35,2762           03074                                    NTARGFLG                              
020784,000845: 35,2763           02753                           TC       FLAGON     +2                         
020785,000846: 35,2764           06006                           TC       INTPRET                               
020786,000847: 35,2765           45014                           BOFF     CALL                                  
020787,000848: 35,2766           03354                                    NTARGFLG                              
020788,000849: 35,2767           72771                                    NOCHG                                 
020789,000850: 35,2770           72617                                    S34/35.3                              
020790,000851: 35,2771           77214        NOCHG              CLEAR    VLOAD                                 
020791,000852: 35,2772           01267                                    XDELVFLG                              
020792,000853: 35,2773           03646                                    DELVEET3                              
020793,000854: 35,2774           03646                           STORE    DELVSIN                               
020794,000855: 35,2775           77624        FLAGOFF            CALL                                           
020795,000856: 35,2776           72662                                    S34/35.4                              
020796,000857: 35,2777           77776                           EXIT                                           
020797,000858: 35,3000           33130                           CAF      V06N59                                
020798,000859: 35,3001           03114                           TC       VNPOOH                                
020799,000860: 35,3002           06006                           TC       INTPRET                               
020800,000861: 35,3003           77650                           GOTO                                           
020801,000862: 35,3004           02370                                    SUBEXIT                               
020802,000863: 

Page 473

020804,000865:                                                                                                  #  ..... VN1645 .....
020805,000866: 
020806,000867:                                                                                                  #  SUBROUTINES USED
020807,000868:                                                                                                  #        P3XORP7X
020808,000869:                                                                                                  #        GET+MGA
020809,000870:                                                                                                  #        BANKCALL
020810,000871:                                                                                                  #        DELAYJOB
020811,000872:                                                                                                  #        COMPTGO
020812,000873:                                                                                                  #        GOFLASHR
020813,000874:                                                                                                  #        GOTOPOOH
020814,000875:                                                                                                  #        FLAGUP
020815,000876: 
020816,000877: 35,3005           71220        VN1645             STQ      DLOAD                                 
020817,000878: 35,3006           02370                                    SUBEXIT                               
020818,000879: 35,3007           33145                                    DP-.01                                
020819,000880: 35,3010           03626                           STORE    +MGA                                  #  MGA = -.01
020820,000881: 35,3011           71214                           BOFF     DLOAD                                 
020821,000882: 35,3012           01351                                    FINALFLG                              
020822,000883: 35,3013           73033                                    GET45                                 
020823,000884: 35,3014           33145                                    DP-.01                                
020824,000885: 35,3015           77615                           DAD                                            
020825,000886: 35,3016           33145                                    DP-.01                                
020826,000887: 35,3017           03626                           STORE    +MGA                                  #  MGA = -.02
020827,000888: 35,3020           77414                           BOFF     EXIT                                  
020828,000889: 35,3021           01742                                    REFSMFLG                              
020829,000890: 35,3022           73033                                    GET45                                 
020830,000891: 35,3023           03106                           TC       P3XORP7X                              
020831,000892: 35,3024           03026                           TC       +2                                    #  P3X
020832,000893: 35,3025           03034                           TC       GET45      +1                         #  P7X
020833,000894: 35,3026           06006                           TC       INTPRET                               
020834,000895: 35,3027           41575                           VLOAD    PUSH                                  
020835,000896: 35,3030           03646                                    DELVSIN                               
020836,000897: 35,3031           77624                           CALL                                           #  COMPUTE MGA
020837,000898: 35,3032           10660                                    GET+MGA                               
020838,000899: 35,3033           77776        GET45              EXIT                                           
020839,000900: 35,3034           03564                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
020840,000901: 35,3035           31770                           CA       SUBEXIT                               
020841,000902: 35,3036           55766                           TS       QSAVED                                
020842,000903: 35,3037           34734                           CAF      1SEC                                  
020843,000904: 35,3040           04555                           TC       BANKCALL                              
020844,000905: 35,3041           01732                           CADR     DELAYJOB                              
020845,000906: 35,3042           33132                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
020846,000907: 35,3043           04555                           TC       BANKCALL                              
020847,000908: 35,3044           20624                           CADR     GOFLASH                               
020848,000909: 35,3045           03050                           TC       KILCLOCK                              #  TERMINATE
020849,000910: 35,3046           03053                           TC       N45PROC                               #  PROCEED
020850,000911: 35,3047           03063                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
020851,000912: 35,3050           30005        KILCLOCK           CA       Z                                     
020852,000913: 35,3051           54000                           TS       DISPDEX                               

Page 474

020854,000915: 35,3052           04106                           TC       GOTOPOOH                              
020855,000916: 35,3053           40076        N45PROC            CS       FLAGWRD2                              
020856,000917: 35,3054           74705                           MASK     BIT6                                  
020857,000918: 35,3055           00006                           EXTEND                                         
020858,000919: 35,3056           13050                           BZF      KILCLOCK                              #  FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
020859,000920: 35,3057           05301                           TC       PHASCHNG                              
020860,000921: 35,3060           04024                           OCT      04024                                 
020861,000922: 35,3061           05435                           TC       UPFLAG                                #  SET
020862,000923: 35,3062           00047                           ADRES    FINALFLG                              #  FINALFLG
020863,000924: 35,3063           30005        CLUPDATE           CA       Z                                     
020864,000925: 35,3064           54000                           TS       DISPDEX                               
020865,000926: 35,3065           05301                           TC       PHASCHNG                              
020866,000927: 35,3066           04024                           OCT      04024                                 
020867,000928: 35,3067           06006                           TC       INTPRET                               
020868,000929: 35,3070           52014                           CLEAR    GOTO                                  
020869,000930: 35,3071           00670                                    UPDATFLG                              
020870,000931: 35,3072           02366                                    QSAVED                                
020871,000932: 

Page 475

020873,000934:                                                                                                  #  ..... DISPLAYE .....
020874,000935: 
020875,000936:                                                                                                  #  SUBROUTINES USED
020876,000937:                                                                                                  #        BANKCALL
020877,000938:                                                                                                  #        GOFLASHR
020878,000939:                                                                                                  #        GOTOPOOH
020879,000940:                                                                                                  #        BLANKET
020880,000941:                                                                                                  #        ENDOFJOB
020881,000942: 
020882,000943: 35,3073           00006        DISPLAYE           EXTEND                                         
020883,000944: 35,3074           23340                           QXCH     NORMEX                                
020884,000945: 35,3075           33126                           CAF      V06N55                                
020885,000946: 35,3076           04555                           TCR      BANKCALL                              
020886,000947: 35,3077           20763                           CADR     GOFLASHR                              
020887,000948: 35,3100           14106                           TCF      GOTOPOOH                              
020888,000949: 35,3101           01340                           TC       NORMEX                                
020889,000950: 35,3102           13075                           TCF      -5                                    
020890,000951: 35,3103           34712                           CAF      BIT1                                  #  BLANK R1
020891,000952: 35,3104           05415                           TCR      BLANKET                               
020892,000953: 35,3105           15112                           TCF      ENDOFJOB                              
020893,000954: 

Page 476

020895,000956:                                                                                                  #  ..... P3XORP7X .....
020896,000957: 
020897,000958: 35,3106           37713        P3XORP7X           CAF      HIGH9                                 
020898,000959: 35,3107           71011                           MASK     MODREG                                
020899,000960: 35,3110           00006                           EXTEND                                         
020900,000961: 35,3111           13113                           BZF      +2                                    
020901,000962: 35,3112           24002                           INCR     Q                                     
020902,000963: 35,3113           00002                           RETURN                                         
020903,000964: 
020904,000965:                                                                                                  #  ..... VNPOOH .....
020905,000966: 
020906,000967:                                                                                                  #  SUBROUTINES USED
020907,000968:                                                                                                  #        BANKCALL
020908,000969:                                                                                                  #        GOFLASH
020909,000970:                                                                                                  #        GOTOPOOH
020910,000971: 
020911,000972: 35,3114           00006        VNPOOH             EXTEND                                         
020912,000973: 35,3115           23767                           QXCH     RTRN                                  
020913,000974: 35,3116           55765                           TS       VERBNOUN                              
020914,000975: 35,3117           31765                           CA       VERBNOUN                              
020915,000976: 35,3120           04555                           TCR      BANKCALL                              
020916,000977: 35,3121           20624                           CADR     GOFLASH                               
020917,000978: 35,3122           14106                           TCF      GOTOPOOH                              
020918,000979: 35,3123           01767                           TC       RTRN                                  
020919,000980: 35,3124           13117                           TCF      -5                                    
020920,000981: 

Page 477

020922,000983:                                                                                                  #  ..... CONSTANTS .....
020923,000984: 
020924,000985: 35,3125           01445        V06N37             VN       0637                                  
020925,000986: 35,3126           01467        V06N55             VN       0655                                  
020926,000987: 35,3127           01472        V06N58             VN       0658                                  
020927,000988: 35,3130           01473        V06N59             VN       0659                                  
020928,000989: 35,3131           01521        V06N81             VN       0681                                  
020929,000990: 35,3132           04055        V16N45             VN       1645                                  
020930,000991: 35,3133           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
020931,000992: 35,3135           00001 20650  MAX250             2DEC     25         E3                         
020932,000993: 35,3137           12525 12525  THIRD              2DEC     .333333333                            
020933,000994: 35,3141           00004 21505  ELEPS              2DEC     .27777777  E-3                        
020934,000995: 35,3143           00002        DECTWO             OCT      2                                     
020935,000996: 35,3144           77777        DP-.01             OCT      77777                                 #  CONSTANTS
020936,000997: 35,3145           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
020937,000998: 35,3146           01252 25253  EPSFOUR            2DEC     .0416666666                            
020938,000999: 

Page 478

020940,001001:                                                                                                  #  ..... INITVEL .....
020941,001002:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
020942,001003:                                                                                                  #  MOD BY WHITE.P                DATE  21 NOV 67
020943,001004: 
020944,001005:                                                                                                  #  FUNCTIONAL DESCRIPTION
020945,001006:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
020946,001007:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
020947,001008:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
020948,001009:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
020949,001010:                                                                                                  #        OFFSETS).  IN ADDITION, IN TH EPRECISION TRAJECTORY CASE, THE
020950,001011:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
020951,001012:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
020952,001013:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
020953,001014:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
020954,001015:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
020955,001016: 
020956,001017:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
020957,001018:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
020958,001019:                                                                                                  #        SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
020959,001020:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
020960,001021:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
020961,001022:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
020962,001023:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
020963,001024:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
020964,001025: 
020965,001026:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
020966,001027:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
020967,001028:                                                                                                  #        TRAJECTORY COMPUTATIONS.
020968,001029: 
020969,001030:                                                                                                  #  CALLING SEQUENCE
020970,001031:                                                                                                  #        L       CALL
020971,001032:                                                                                                  #        L+1             INITVEL
020972,001033:                                                                                                  #        L+2     (RETURN - ALWAYS)
020973,001034: 
020974,001035:                                                                                                  #  INPUT
020975,001036:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
020976,001037:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
020977,001038:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
020978,001039:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
020979,001040:                                                                                                  #        (5)     INTIME          TIME OF RINIT
020980,001041:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
020981,001042:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
020982,001043:                                                                                                  #        (8)     RTX1            -2 FOR EARTH, -10D FOR LUNAR
020983,001044:                                                                                                  #        (9)     RTX2            COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
020984,001045:                                                                                                  #        PUSHLOC SET AT 4D
020985,001046: 

Page 479

020987,001048:                                                                                                  #  OUTPUT
020988,001049:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
020989,001050:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
020990,001051:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
020991,001052:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
020992,001053: 
020993,001054:                                                                                                  #  SUBROUTINES USED
020994,001055:                                                                                                  #        LAMBERT
020995,001056:                                                                                                  #        INTSTALL
020996,001057:                                                                                                  #        INTEGRVS
020997,001058: 
020998,001059: 11,2000                                           SETLOC   INTVEL                                
020999,001060: 11,2000                                           BANK                                           
021000,001061: 
021001,001062: 11,2000                                           COUNT    11/INITV                              
021002,001063: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
021003,001064: 11,2001           00475                                    GUESSW                                
021004,001065: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
021005,001066: 11,2003           03415                                    RTARG                                 
021006,001067: 11,2004           01340                                    NORMEX                                
021007,001068: 11,2005           03604                           STORE    RTARG1                                
021008,001069: 11,2006           46135                           SLOAD    BHIZ                                  
021009,001070: 11,2007           03747                                    RTX2                                  
021010,001071: 11,2010           22022                                    INITVEL1                              
021011,001072: 11,2011           72575                           VLOAD    VSL2                                  
021012,001073: 11,2012           03570                                    RINIT                                 #  B29
021013,001074: 11,2013           27570                           STOVL    RINIT                                 #  B27
021014,001075: 11,2014           03576                                    VINIT                                 #  B7
021015,001076: 11,2015           77752                           VSL2                                           
021016,001077: 11,2016           27576                           STOVL    VINIT                                 #  B5
021017,001078: 11,2017           03604                                    RTARG1                                
021018,001079: 11,2020           77752                           VSL2                                           
021019,001080: 11,2021           03604                           STORE    RTARG1                                
021020,001081: 
021021,001082:                                                                                                  #  INITIALIZATION
021022,001083: 
021023,001084: 11,2022           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
021024,001085: 11,2023           03505                                    ITCTR                                 
021025,001086: 11,2024           77776                                    0          -1                         
021026,001087: 11,2025           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
021027,001088: 11,2026           17630                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4) (PL 0D)
021028,001089: 11,2027           67154                           LXA,2    SXA,2                                 
021029,001090: 11,2030           00154                                    MPAC                                  
021030,001091: 11,2031           02703                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
021031,001092: 11,2032           77775                           VLOAD                                          
021032,001093: 11,2033           03570                                    RINIT                                 
021033,001094: 11,2034           26657                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
021034,001095: 11,2035           03604                                    RTARG1                                

Page 480

021036,001097: 11,2036           16665                           STODL    R2VEC                                 #  R2VEC EQ RTARG
021037,001098: 11,2037           03423                                    DELLT4                                
021038,001099: 11,2040           02673                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
021039,001100: 11,2041           77201                           SETPD    VLOAD                                 
021040,001101: 11,2042           00001                                    0D                                    #  INITIALIZE PL TO 0D
021041,001102: 11,2043           03570                                    RINIT                                 #  MPAC EQ RINIT (+29)
021042,001103: 11,2044           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)         (PL 6D)
021043,001104: 11,2045           53435                           VXV      UNIT                                  
021044,001105: 11,2046           03576                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI (+8)
021045,001106: 11,2047           26676                           STOVL    UN                                    
021046,001107: 11,2050           03604                                    RTARG1                                
021047,001108: 11,2051           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)     (PL 0D)
021048,001109: 11,2052           43015                           DAD      CLEAR                                 
021049,001110: 11,2053           03630                                    COZY4                                 
021050,001111: 11,2054           03665                                    NORMSW                                
021051,001112: 11,2055           03630                           STORE    COZY4                                 
021052,001113: 11,2056           43044        INITVEL2           BPL      SET                                   
021053,001114: 11,2057           22101                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
021054,001115: 11,2060           03465                                    NORMSW                                
021055,001116: 
021056,001117:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
021057,001118: 
021058,001119: 11,2061           41575                           VLOAD    PUSH                                  #                (PL 6D)
021059,001120: 11,2062           02665                                    R2VEC                                 #  RC TO 6D (+29)
021060,001121: 11,2063           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
021061,001122: 11,2064           46206                           PUSH     VPROJ                                 #                (PL 8D)
021062,001123: 11,2065           02676                                    UN                                    
021063,001124: 11,2066           51352                           VSL2     BVSU                                  
021064,001125: 11,2067           74256                           UNIT     VXSC                                  #                (PL 0D)
021065,001126: 11,2070           77772                           VSL1                                           
021066,001127: 11,2071           02665                           STORE    R2VEC                                 
021067,001128: 11,2072           67351                           TLOAD    SLOAD                                 
021068,001129: 11,2073           11456                                    ZEROVEC                               
021069,001130: 11,2074           03505                                    ITCTR                                 
021070,001131: 11,2075           77244                           BPL      VLOAD                                 
021071,001132: 11,2076           22101                                    INITVEL3                              
021072,001133: 11,2077           02665                                    R2VEC                                 
021073,001134: 11,2100           03604                           STORE    RTARG1                                
021074,001135: 11,2101           63345        INITVEL3           DLOAD    PDVL                                  #                                (PL 2D)
021075,001136: 11,2102           27736                                    MUEARTH                               #  POSITIVE VALUE
021076,001137: 11,2103           02665                                    R2VEC                                 
021077,001138: 11,2104           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)              (PL 8D)
021078,001139: 11,2105           02657                                    R1VEC                                 
021079,001140: 11,2106           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)              (PL 14D)
021080,001141: 11,2107           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
021081,001142: 11,2110           00003                                    2D                                    
021082,001143: 11,2111           77606                           PUSH                                           #                                (PL 20D)
021083,001144: 11,2112           71350                           LXA,1    DLOAD                                 
021084,001145: 11,2113           03745                                    RTX1                                  
021085,001146: 11,2114           00023                                    18D                                   
021086,001147: 11,2115           62040                           BMN      INCR,1                                

Page 481

021088,001149: 11,2116           22120                                    +2                                    
021089,001150: 11,2117           77767                           DEC      -8         B-14                       
021090,001151: 11,2120           67310                           INCR,1   SLOAD                                 
021091,001152: 11,2121           00012                                    10D                                   
021092,001153: 11,2122           00047                                    X1                                    
021093,001154: 11,2123           77230                           BHIZ     VLOAD                                 #                        (PL 14D)
021094,001155: 11,2124           22126                                    +2                                    
021095,001156: 11,2125           41476                           VCOMP    PUSH                                  #                        (PL 20 D)
021096,001157: 11,2126           77775                           VLOAD                                          #                        (PL 14D)
021097,001158: 11,2127           50235                           VXV      DOT                                   #                        (PL 2D)
021098,001159: 11,2130           71244                           BPL      DLOAD                                 #                        (PL 0D)
021099,001160: 11,2131           22133                                    INITVEL4                              
021100,001161: 11,2132           41476                           DCOMP    PUSH                                  #                        (PL 2D)
021101,001162: 11,2133           67154        INITVEL4           LXA,2    SXA,2                                 
021102,001163: 11,2134           00000                                    0D                                    
021103,001164: 11,2135           02674                                    GEOMSGN                               
021104,001165: 
021105,001166:                                                                                                  #  SET INPUTS UP FOR LAMBERT
021106,001167: 
021107,001168: 11,2136           45150                           LXA,1    CALL                                  
021108,001169: 11,2137           03745                                    RTX1                                  
021109,001170:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
021110,001171: 11,2140           25215                                    LAMBERT                               
021111,001172: 
021112,001173:                                                                                                  #     DELETE THRU 4521
021113,001174:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
021114,001175: 
021115,001176: 11,2141           77214                           CLEAR    VLOAD                                 
021116,001177: 11,2142           00675                                    GUESSW                                
021117,001178: 11,2143           02746                                    VVEC                                  
021118,001179: 
021119,001180:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
021120,001181: 
021121,001182: 11,2144           17612                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
021122,001183: 
021123,001184:                                                                                                  #  IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
021124,001185:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
021125,001186: 
021126,001187: 11,2145           02704                                    VTARGTAG                              
021127,001188: 11,2146           45030                           BHIZ     CALL                                  
021128,001189: 11,2147           22224                                    INITVEL7                              
021129,001190: 11,2150           27371                                    INTSTALL                              
021130,001191: 11,2151           43135                           SLOAD    CLEAR                                 
021131,001192: 11,2152           03747                                    RTX2                                  
021132,001193: 11,2153           00263                                    MOONFLAG                              
021133,001194: 11,2154           43030                           BHIZ     SET                                   
021134,001195: 11,2155           22157                                    INITVEL5                              
021135,001196: 11,2156           00063                                    MOONFLAG                              
021136,001197: 11,2157           77775        INITVEL5           VLOAD                                          
021137,001198: 11,2160           03570                                    RINIT                                 
021138,001199: 11,2161           02657                           STORE    R1VEC                                 

Page 482

021140,001201: 11,2162           25535                           STOVL    RCV                                   
021141,001202: 11,2163           03612                                    VIPRIME                               
021142,001203: 11,2164           15543                           STODL    VCV                                   
021143,001204: 11,2165           03503                                    INTIME                                
021144,001205: 11,2166           01517                           STORE    TET                                   
021145,001206: 11,2167           43015                           DAD      CLEAR                                 
021146,001207: 11,2170           03423                                    DELLT4                                
021147,001208: 11,2171           01673                                    INTYPFLG                              
021148,001209: 11,2172           34041                           STCALL   TDEC1                                 
021149,001210: 11,2173           27066                                    INTEGRVS                              
021150,001211: 11,2174           77775                           VLOAD                                          
021151,001212: 11,2175           00025                                    VATT1                                 
021152,001213: 11,2176           02705                           STORE    VTARGET                               
021153,001214: 
021154,001215:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
021155,001216:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
021156,001217: 
021157,001218: 11,2177           63154                           LXA,2    INCR,2                                
021158,001219: 11,2200           03504                                    ITCTR                                 
021159,001220: 11,2201           00001                                    1D                                    #  INCREMENT ITCTR
021160,001221: 11,2202           55134                           SXA,2    XSU,2                                 
021161,001222: 11,2203           03504                                    ITCTR                                 
021162,001223: 11,2204           02703                                    VTARGTAG                              
021163,001224: 11,2205           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
021164,001225: 11,2206           00050                                    X2                                    
021165,001226: 11,2207           22221                                    INITVEL6                              
021166,001227: 
021167,001228:                                                                                                  #  OFFSET CONIC TARGET VECTOR
021168,001229: 
021169,001230: 11,2210           52375                           VLOAD    VSU                                   
021170,001231: 11,2211           03604                                    RTARG1                                
021171,001232: 11,2212           00017                                    RATT1                                 
021172,001233: 11,2213           77655                           VAD                                            
021173,001234: 11,2214           02665                                    R2VEC                                 
021174,001235: 11,2215           16665                           STODL    R2VEC                                 
021175,001236: 11,2216           03630                                    COZY4                                 
021176,001237: 11,2217           77650                           GOTO                                           
021177,001238: 11,2220           22056                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
021178,001239: 
021179,001240:                                                                                                  #  COMPUTE THE DELTA VELOCITY
021180,001241: 
021181,001242: 11,2221           77775        INITVEL6           VLOAD                                          
021182,001243: 11,2222           02665                                    R2VEC                                 
021183,001244: 11,2223           03604                           STORE    RTARG1                                
021184,001245: 11,2224           52375        INITVEL7           VLOAD    VSU                                   
021185,001246: 11,2225           03612                                    VIPRIME                               
021186,001247: 11,2226           03576                                    VINIT                                 
021187,001248: 11,2227           27646                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)
021188,001249: 11,2230           02705                                    VTARGET                               
021189,001250: 11,2231           03620                           STORE    VTPRIME                               
021190,001251: 11,2232           46135                           SLOAD    BHIZ                                  
021191,001252: 11,2233           03747                                    RTX2                                  

Page 483

021193,001254: 11,2234           22251                                    INITVELX                              
021194,001255: 11,2235           70575                           VLOAD    VSR2                                  
021195,001256: 11,2236           03620                                    VTPRIME                               
021196,001257: 11,2237           27620                           STOVL    VTPRIME                               
021197,001258: 11,2240           03612                                    VIPRIME                               
021198,001259: 11,2241           77742                           VSR2                                           
021199,001260: 11,2242           27612                           STOVL    VIPRIME                               
021200,001261: 11,2243           03604                                    RTARG1                                
021201,001262: 11,2244           77742                           VSR2                                           
021202,001263: 11,2245           27604                           STOVL    RTARG1                                
021203,001264: 11,2246           03646                                    DELVEET3                              
021204,001265: 11,2247           77742                           VSR2                                           
021205,001266: 11,2250           03646                           STORE    DELVEET3                              
021206,001267: 11,2251           77201        INITVELX           SETPD    VLOAD                                 
021207,001268: 11,2252           00001                                    0D                                    
021208,001269: 11,2253           03604                                    RTARG1                                
021209,001270: 11,2254           37415                           STCALL   RTARG                                 
021210,001271: 11,2255           01340                                    NORMEX                                
021211,001272: 
021212,001273:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
021213,001274: 

Page 484

021215,001276:                                                                                                  #  ..... MIDGIM .....
021216,001277:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
021217,001278:                                                                                                  #  REVISION 03, 17 FEB 67
021218,001279: 
021219,001280:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
021220,001281:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
021221,001282:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
021222,001283:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
021223,001284:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
021224,001285: 
021225,001286:                                                                                                  #  .. INPUTS ..
021226,001287:                                                                                                  #        NAME    MEANING                                         UNITS/SCALING/MODE
021227,001288:                                                                                                  #        AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE                     BIT
021228,001289:                                                                                                  #       COMPUTER INT FLAG - 0 IS LEM COMPUTER, 1 IS CSM COMPUTER                 BIT
021229,001290:                                                                                                  #        RINIT   ACTIVE VEHICLE RADIUS VECTOR                    METERS/CSEC (+7) VT
021230,001291:                                                                                                  #        VINIT   ACTIVE VEHICLE VELOCITY VECTOR                  METERS/CSEC (+7) VT
021231,001292:                                                                                                  #        0D(PL)  ACTIVE VEHICLE DELTA VELOCITY VECTOR            METERS/CSEC (+7) VT
021232,001293: 
021233,001294:                                                                                                  #  .. OUTPUTS ..
021234,001295:                                                                                                  #     NAME       MEANING                                         UNITS/SCALING/MODE
021235,001296:                                                                                                  #     +MGA       + MIDDLE GIMBAL ANGLE                           REVOLUTIONS (+0) DP
021236,001297:                                                                                                  #     DELVLVC    DELTA VELOCITY VECTOR IN LV COORD.              METERS/CSEC (+7) VT
021237,001298:                                                                                                  #     MGLVFLAG   INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.       -       BIT
021238,001299: 
021239,001300:                                                                                                  #  .. CALLING SEQUENCE ..
021240,001301:                                                                                                  #        L       CALL
021241,001302:                                                                                                  #        L+1             MIDGIM
021242,001303:                                                                                                  #        L+2     (RETURN - ALWAYS)
021243,001304: 
021244,001305:                                                                                                  #  .. NO SUBROUTINES CALLED ..
021245,001306: 
021246,001307:                                                                                                  #  .. DEBRIS - ERASEABLE TEMPORARY USAGE
021247,001308:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
021248,001309: 
021249,001310:                                                                                                  #  .. ALARMS - NONE ..
021250,001311: 

Page 485

021252,001313:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
021253,001314: 04,2000                                           SETLOC   MIDDGIM                               
021254,001315: 04,2000                                           BANK                                           
021255,001316: 
021256,001317: 04,2651                                           COUNT*   $$/MIDG                               
021257,001318: 
021258,001319: 04,2651           20000 00000  HALFREV            2DEC     1          B-1                        
021259,001320: 
021260,001321: 04,2653           43014        MIDGIM             BON      BOFF                                  
021261,001322: 04,2654           01312                                    AVFLAG                                
021262,001323: 04,2655           10673                                    MIDGIM1                               
021263,001324: 04,2656           02747                                    COMPUTER                              
021264,001325: 04,2657           10676                                    GET.LVC                               
021265,001326: 
021266,001327:                                                                                                  #  COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
021267,001328: 
021268,001329: 04,2660           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
021269,001330: 04,2661           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
021270,001331: 04,2662           01744                                    REFSMMAT   +6                         #  FROM +2 TO +1 FOR ASIN ROUTINE
021271,001332: 04,2663           51136                           ARCSIN   BPL                                   
021272,001333: 04,2664           10670                                    SETMGA                                
021273,001334: 04,2665           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
021274,001335: 04,2666           10652                                    HALFREV                               #  ADDING ONE REVOLUTION
021275,001336: 04,2667           10652                                    HALFREV                               
021276,001337: 04,2670           03626        SETMGA             STORE    +MGA                                  
021277,001338: 04,2671           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
021278,001339: 04,2672           02675                                    MGLVFLAG                              #  AND EXIT
021279,001340: 
021280,001341: 04,2673           77614        MIDGIM1            BOFF                                           
021281,001342: 04,2674           02747                                    COMPUTER                              
021282,001343: 04,2675           10660                                    GET+MGA                               
021283,001344: 
021284,001345:                                                                                                  #  COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES.
021285,001346: 
021286,001347: 04,2676           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC, UNITIZE UR
021287,001348: 04,2677           03570                                    RINIT                                 
021288,001349: 04,2700           77676                           VCOMP                                          #  U(-R)
021289,001350: 04,2701           00023                           STORE    18D                                   #  U(-R) TO 18D
021290,001351: 04,2702           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
021291,001352: 04,2703           03576                                    VINIT                                 
021292,001353: 04,2704           00015                           STORE    12D                                   #  U(V*R) TO 12D
021293,001354: 04,2705           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
021294,001355: 04,2706           00023                                    18D                                   
021295,001356: 04,2707           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
021296,001357: 04,2710           00001                                    0D                                    #  DELTA V (+7) IN 0D
021297,001358: 04,2711           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
021298,001359: 04,2712           00007                                    6D                                    #  AND SCALE +7 IN MPAC
021299,001360: 04,2713           03405                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
021300,001361: 04,2714           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
021301,001362: 04,2715           02475                                    MGLVFLAG                              #  AND EXIT
021302,001363: 
021303,001364:                                                                                                  #  ..... END OF MIDGIM ROUTINE .....
021304,001365: 

Page 486

021306,001367: 04,2716           77160        SELECTMU           AXC,1    AXT,2                                 
021307,001368: 04,2717           00002                                    2D                                    
021308,001369: 04,2720           00000                                    0D                                    
021309,001370: 04,2721           77614                           BOFF                                           
021310,001371: 04,2722           04343                                    CMOONFLG                              
021311,001372: 04,2723           10727                                    SETMUER                               
021312,001373: 04,2724           77160                           AXC,1    AXT,2                                 
021313,001374: 04,2725           00012                                    10D                                   
021314,001375: 04,2726           00002                                    2D                                    
021315,001376: 04,2727           66143        SETMUER            DLOAD*   SXA,1                                 
021316,001377: 04,2730           11635                                    MUTABLE    +4,1                       
021317,001378: 04,2731           03745                                    RTX1                                  
021318,001379: 04,2732           23752                           STODL*   RTSR1/MU                              
021319,001380: 04,2733           11627                                    MUTABLE    -2,1                       
021320,001381: 04,2734           54214                           BOFF     SR                                    
021321,001382: 04,2735           04343                                    CMOONFLG                              
021322,001383: 04,2736           10740                                    RTRNMU                                
021323,001384: 04,2737           20607                                    6D                                    
021324,001385: 04,2740           03750        RTRNMU             STORE    RTMU                                  
021325,001386: 04,2741           43134                           SXA,2    CLEAR                                 
021326,001387: 04,2742           03746                                    RTX2                                  
021327,001388: 04,2743           01271                                    FINALFLG                              
021328,001389: 04,2744           77650                           GOTO                                           
021329,001390: 04,2745           73005                                    VN1645                                
021330,001391: 

Page 487

021332,001393:                                                                                                  #  ..... PERIAPO .....
021333,001394:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
021334,001395:                                                                                                  #  MOD BY WHITE.P                DATE 18 JAN 68
021335,001396: 
021336,001397:                                                                                                  #  FUNCTIONAL DESCRIPTION
021337,001398:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
021338,001399:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
021339,001400:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
021340,001401: 
021341,001402:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
021342,001403: 
021343,001404:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
021344,001405:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
021345,001406: 
021346,001407:                                                                                                  #  CALLING SEQUENCE
021347,001408:                                                                                                  #        L       CALL
021348,001409:                                                                                                  #        L+1             PERIAPO
021349,001410:                                                                                                  #        L+2     (RETURN - ALWAYS)
021350,001411: 
021351,001412:                                                                                                  #  INPUT
021352,001413:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
021353,001414:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021354,001415:                                                                                                  #        (2)     VVEC    VELOCITY VECTOR IN METERS/CENTISECOND
021355,001416:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
021356,001417:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
021357,001418:                                                                                                  #                        EARTH -2, MOON -10
021358,001419: 
021359,001420:                                                                                                  #  OUTPUT
021360,001421:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
021361,001422:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021362,001423:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
021363,001424:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
021364,001425:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
021365,001426:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021366,001427:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
021367,001428:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021368,001429:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
021369,001430:                                                                                                  #                        SCALE FACTOR - +3
021370,001431:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
021371,001432:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021372,001433:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
021373,001434: 
021374,001435:                                                                                                  #  SUBROUTINES USED
021375,001436:                                                                                                  #        SETRAD

Page 488

021377,001438:                                                                                                  #        APSIDES
021378,001439: 
021379,001440: 22,2000                                           SETLOC   APOPERI                               
021380,001441: 22,2000                                           BANK                                           
021381,001442: 
021382,001443: 22,3310                                           COUNT*   $$/PERAP                              
021383,001444: 
021384,001445: 22,3310           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
021385,001446:                                                                                                  #  = 20 909 901.57 FT
021386,001447: 
021387,001448: 22,3312           53754        PERIAPO1           LXA,2    VSR*                                  
021388,001449: 22,3313           03746                                    RTX2                                  
021389,001450: 22,3314           57176                                    0,2                                   
021390,001451: 22,3315           26746                           STOVL    VVEC                                  
021391,001452: 22,3316           53750                           LXA,1    VSR*                                  
021392,001453: 22,3317           03745                                    RTX1                                  
021393,001454: 22,3320           57176                                    0,2                                   
021394,001455: 22,3321           02657                           STORE    RVEC                                  
021395,001456: 22,3322           45020        PERIAPO            STQ      CALL                                  
021396,001457: 22,3323           01340                                    NORMEX                                
021397,001458: 22,3324           45340                                    SETRAD                                
021398,001459: 22,3325           37456                           STCALL   XXXALT                                
021399,001460: 22,3326           25671                                    APSIDES                               
021400,001461: 22,3327           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
021401,001462: 22,3330           00003                                    2D                                    
021402,001463: 22,3331           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
021403,001464: 22,3332           03456                                    XXXALT                                
021404,001465: 22,3333           00001                                    0D                                    
021405,001466: 22,3334           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
021406,001467: 22,3335           03456                                    XXXALT                                
021407,001468: 22,3336           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
021408,001469: 22,3337           01340                                    NORMEX                                

Page 489

021410,001471:                                                                                                  #        SETRAD
021411,001472: 
021412,001473: 22,3340           41545        SETRAD             DLOAD    PUSH                                  
021413,001474: 22,3341           05311                                    RPAD                                  
021414,001475: 22,3342           63130                           SXA,1    INCR,2                                
021415,001476: 22,3343           00047                                    X2                                    
021416,001477: 22,3344           00002                                    2D                                    
021417,001478: 22,3345           46135                           SLOAD    BHIZ                                  
021418,001479: 22,3346           00050                                    X2                                    
021419,001480: 22,3347           45353                                    SETRADX                               
021420,001481: 22,3350           51575                           VLOAD    ABVAL                                 
021421,001482: 22,3351           02026                                    RLS                                   
021422,001483: 22,3352           77725                           PDDL                                           
021423,001484: 22,3353           43545        SETRADX            DLOAD    RVQ                                   
021424,001485: 

Page 490

021426,001487:                                                                                                  #        PRECSET
021427,001488: 
021428,001489: 22,3354           77620        PRECSET            STQ                                            
021429,001490: 22,3355           01340                                    NORMEX                                
021430,001491: 22,3356           36635                           STCALL   TDEC2                                 
021431,001492: 22,3357           27036                                    LEMPREC                               
021432,001493: 22,3360           77624                           CALL                                           
021433,001494: 22,3361           45372                                    LEMSTORE                              
021434,001495: 22,3362           77745                           DLOAD                                          
021435,001496: 22,3363           02635                                    TDEC2                                 
021436,001497: 22,3364           34041                           STCALL   TDEC1                                 
021437,001498: 22,3365           27022                                    CSMPREC                               
021438,001499: 22,3366           77624                           CALL                                           
021439,001500: 22,3367           45402                                    CSMSTORE                              
021440,001501: 22,3370           77650                           GOTO                                           
021441,001502: 22,3371           01340                                    NORMEX                                
021442,001503: 22,3372           43175        LEMSTORE           VLOAD    BOFF                                  
021443,001504: 22,3373           00001                                    RATT                                  
021444,001505: 22,3374           01352                                    AVFLAG                                
021445,001506: 22,3375           45406                                    PASSIVE                               
021446,001507: 22,3376           27540        ACTIVE             STOVL    RACT3                                 
021447,001508: 22,3377           00007                                    VATT                                  
021448,001509: 22,3400           03546                           STORE    VACT3                                 
021449,001510: 22,3401           77616                           RVQ                                            
021450,001511: 22,3402           43175        CSMSTORE           VLOAD    BOFF                                  
021451,001512: 22,3403           00001                                    RATT                                  
021452,001513: 22,3404           01352                                    AVFLAG                                
021453,001514: 22,3405           45376                                    ACTIVE                                
021454,001515: 22,3406           27554        PASSIVE            STOVL    RPASS3                                
021455,001516: 22,3407           00007                                    VATT                                  
021456,001517: 22,3410           03562                           STORE    VPASS3                                
021457,001518: 22,3411           77616                           RVQ                                            
021458,001519: 

Page 491

021460,001521:                                                                                                  #        VECSHIFT
021461,001522: 
021462,001523: 22,3412           53754        VECSHIFT           LXA,2    VSR*                                  
021463,001524: 22,3413           03746                                    RTX2                                  
021464,001525: 22,3414           57176                                    0,2                                   
021465,001526: 22,3415           63350                           LXA,1    PDVL                                  
021466,001527: 22,3416           03745                                    RTX1                                  
021467,001528: 22,3417           63257                           VSR*     PDVL                                  
021468,001529: 22,3420           57176                                    0,2                                   
021469,001530: 22,3421           77616                           RVQ                                            
021470,001531: 

Page 492

021472,001533:                                                                                                  #        SHIFTR1
021473,001534: 
021474,001535: 22,3422           53754        SHIFTR1            LXA,2    SL*                                   
021475,001536: 22,3423           03746                                    RTX2                                  
021476,001537: 22,3424           57576                                    0,2                                   
021477,001538: 22,3425           77616                           RVQ                                            
021478,001539: 

Page 493

021480,001541:                                                                                                  #  PROGRAM DESCRIPTION
021481,001542: 
021482,001543:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
021483,001544:                                                                                                  #  MOD NO. 0             DATE 22 DECEMBER 67
021484,001545:                                                                                                  #  MOD BY N.M.NEVILLE    LOG SECTION EXTENDED VERBS
021485,001546: 
021486,001547:                                                                                                  #  FUNCTIONAL DESCRIPTION
021487,001548: 
021488,001549:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
021489,001550:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI).  (REQUESTED BY DSKY).
021490,001551: 
021491,001552:                                                                                                  #  CALLING SEQUENCE
021492,001553:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V 90 E
021493,001554: 
021494,001555:                                                                                                  #  SUBROUTINES CALLED
021495,001556:                                                                                                  #        EXDSPRET
021496,001557:                                                                                                  #        GOMARKF
021497,001558:                                                                                                  #        CSMPREC
021498,001559:                                                                                                  #        LEMPREC
021499,001560:                                                                                                  #        SGNAGREE
021500,001561:                                                                                                  #        LOADTIME
021501,001562: 
021502,001563:                                                                                                  #  NORMAL EXIT MODES
021503,001564:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
021504,001565: 
021505,001566:                                                                                                  #  ALARM OR ABORT EXIT MODES
021506,001567:                                                                                                  #        NONE
021507,001568: 
021508,001569:                                                                                                  #  OUTPUT
021509,001570:                                                                                                  #        DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
021510,001571: 
021511,001572:                                                                                                  #        DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
021512,001573:                                                                                                  #        REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
021513,001574: 
021514,001575:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
021515,001576:                                                                                                  #        CSM AND LEM STATE VECTORS
021516,001577: 
021517,001578:                                                                                                  #  DEBRIS
021518,001579:                                                                                                  #        CENTRALS A,Q,L
021519,001580:                                                                                                  #        OTHER  THOSE USED BY THE ABOVE LISTED SUBROUTINES
021520,001581: 
021521,001582: 20,2000                                           BANK     20                                    
021522,001583: 04,2000                                           SETLOC   R36LM                                 
021523,001584: 04,2000                                           BANK                                           

Page 494

021525,001586: 04,2746  E4,1726                                  EBANK=   RPASS36                               
021526,001587: 04,2746                                           COUNT*   $$/R36                                
021527,001588: 
021528,001589: 04,2746           22007        R36                ZL                                             
021529,001590: 04,2747           34714                           CAF      ZERO                                  #  SET TIME OF EVENT TO ZERO FOR FIRST
021530,001591: 04,2750           53052                           DXCH     DSPTEMX                               #  DISPLAY
021531,001592: 04,2751           33101                           CAF      V06N16N                               
021532,001593: 04,2752           04555                           TC       BANKCALL                              
021533,001594: 04,2753           20465                           CADR     GOMARKF                               
021534,001595: 04,2754           15423                           TCF      ENDEXT                                #  TERMINATE
021535,001596: 04,2755           12757                           TCF      +2                                    #  PROCEED
021536,001597: 04,2756           12751                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
021537,001598: 04,2757           53052                           DXCH     DSPTEMX                               
021538,001599: 04,2760           00006                           EXTEND                                         
021539,001600: 04,2761           13070                           BZF      LREGCHK                               #  A-REG ZERO GOTO CHECK L-REG FOR ZERO
021540,001601: 04,2762           52155        ASTROTIM           DXCH     MPAC                                  #  A-REG NON-ZERO, TIME = ASTRO INPUT TIME
021541,001602: 04,2763           06006                           TC       INTPRET                               
021542,001603: 04,2764           77634                           RTB                                            
021543,001604: 04,2765           45713                                    DPMODE                                
021544,001605: 04,2766           34041        R36INT             STCALL   TDEC1                                 
021545,001606: 04,2767           27036                                    OTHPREC                               
021546,001607: 04,2770           63375                           VLOAD    PDVL                                  
021547,001608: 04,2771           00007                                    VATT                                  
021548,001609: 04,2772           00001                                    RATT                                  #  -
021549,001610: 04,2773           02327                           STORE    RPASS36                               #  R
021550,001611: 04,2774           63256                           UNIT     PDVL                                  #  P
021551,001612: 04,2775           53435                           VXV      UNIT                                  #  -
021552,001613: 04,2776           77626                           STADR                                          
021553,001614: 04,2777           61442                           STODL    UNP36                                 #  U
021554,001615: 04,3000           00015                                    TAT                                   
021555,001616: 04,3001           34041                           STCALL   TDEC1                                 
021556,001617: 04,3002           27022                                    THISPREC                              
021557,001618: 04,3003           63375                           VLOAD    PDVL                                  #                   -
021558,001619: 04,3004           00007                                    VATT                                  #  VELOCITY VECTOR  V    00D
021559,001620: 04,3005           00001                                    RATT                                  #                    A
021560,001621: 04,3006           77725                           PDDL                                           
021561,001622: 04,3007           00015                                    TAT                                   #  SAVE TIME IN LOCATION 30D FOR REDISPLAY
021562,001623: 04,3010           24037                           STOVL    30D                                   #                   -
021563,001624: 04,3011           41406                           PUSH     PUSH                                  #  POSITION VECTOR  R    IN  06D AND 12D
021564,001625: 04,3012           63245                           BVSU     PDVL                                  #                    A   -   -
021565,001626: 04,3013           02327                                    RPASS36                               #  LINE OF SIGHT VECTOR  R - R       12D
021566,001627: 04,3014           72441                           DOT      SL1                                   #                         P   A
021567,001628: 04,3015           02335                                    UNP36                                 #      -   -
021568,001629: 04,3016           26321                           STOVL    RANGE                                 #  Y = U . R
021569,001630: 04,3017           00001                                    00D                                   #           A
021570,001631: 04,3020           72441                           DOT      SL1                                   
021571,001632: 04,3021           02335                                    UNP36                                 #  .   -   -
021572,001633: 04,3022           26323                           STOVL    RRATE                                 #  Y = U . V
021573,001634: 04,3023           00007                                    06D                                   #  -        A  -

Page 495

021575,001636: 04,3024           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
021576,001637: 04,3025           47235                           VXV      VXV                                   #   RA          A
021577,001638: 04,3026           00001                                    00D                                   #   -    -     -     -
021578,001639: 04,3027           00023                                    18D                                   #  (U  X V ) X U   = U
021579,001640: 04,3030           53552                           VSL2     UNIT                                  #    RA   A     RA    A
021580,001641: 04,3031           77656                           UNIT                                           
021581,001642: 04,3032           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D
021582,001643: 04,3033           00023                                    18D                                   
021583,001644: 04,3034           74241                           DOT      VXSC                                  #  -
021584,001645: 04,3035           00015                                    12D                                   #  U
021585,001646: 04,3036           77752                           VSL2                                           #   L
021586,001647: 04,3037           53445                           BVSU     UNIT                                  
021587,001648: 04,3040           77656                           UNIT                                           
021588,001649: 04,3041           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
021589,001650: 04,3042           00001                                    00D                                   #  PLANE
021590,001651: 04,3043           65552                           SL1      ARCCOS                                #               -   -
021591,001652: 04,3044           26325                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
021592,001653: 04,3045           50235                           VXV      DOT                                   #                A   L
021593,001654: 04,3046           00001                                    00D                                   
021594,001655: 04,3047           71244                           BPL      DLOAD                                 
021595,001656: 04,3050           11055                                    R36TAG2                               
021596,001657: 04,3051           11467                                    LODPMAX                               
021597,001658: 04,3052           77625                           DSU                                            
021598,001659: 04,3053           02325                                    RTHETA                                
021599,001660: 04,3054           02325                           STORE    RTHETA                                
021600,001661: 04,3055           47145        R36TAG2            DLOAD    RTB                                   
021601,001662: 04,3056           00037                                    30D                                   
021602,001663: 04,3057           45541                                    SGNAGREE                              
021603,001664: 04,3060           01052                           STORE    DSPTEMX                               
021604,001665: 04,3061           77776                           EXIT                                           
021605,001666: 04,3062           33102                           CAF      V06N90N                               #  DISPLAY Y, YDOT, AND PSI
021606,001667: 04,3063           04555                           TC       BANKCALL                              
021607,001668: 04,3064           20465                           CADR     GOMARKF                               
021608,001669: 04,3065           15423                           TCF      ENDEXT                                #  TERMINATE
021609,001670: 04,3066           15423                           TCF      ENDEXT                                #  PROCEED, END OF PROGRAM
021610,001671: 04,3067           12751                           TCF      R36        +3                         #  REDISPLAY OUTPUT
021611,001672: 04,3070           56001        LREGCHK            XCH      L                                     
021612,001673: 04,3071           00006                           EXTEND                                         
021613,001674: 04,3072           13075                           BZF      ENTTIM2                               #  L-REG ZERO, SET TIME = PRESENT TIME
021614,001675: 04,3073           56001                           XCH      L                                     #  L-REG NON ZERO, TIME = ASTRO INPUT TIME
021615,001676: 04,3074           12762                           TCF      ASTROTIM                              
021616,001677: 04,3075           06006        ENTTIM2            TC       INTPRET                               
021617,001678: 04,3076           52034                           RTB      GOTO                                  
021618,001679: 04,3077           45505                                    LOADTIME                              
021619,001680: 04,3100           10766                                    R36INT                                
021620,001681: 04,3101           01420        V06N16N            VN       00616                                 
021621,001682: 04,3102           01532        V06N90N            VN       00690                                 

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