Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. 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:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

020212,000002:                                                                                                  ## Copyright:   Public domain.
020213,000003:                                                                                                  ## Filename:    P34-35_P74-75.agc
020214,000004:                                                                                                  ## Purpose:     Part of the source code for Comanche, build 055. It
020215,000005:                                                                                                  ##              is part of the source code for the Command Module's
020216,000006:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC), Apollo 11.
020217,000007:                                                                                                  ## Assembler:   yaYUL
020218,000008:                                                                                                  ## Reference:   pp. 460-504
020219,000009:                                                                                                  ## Contact:     Onno Hommes <ohommes@cmu.edu>
020220,000010:                                                                                                  ## Website:     http://www.ibiblio.org/apollo.
020221,000011:                                                                                                  ## Mod history: 2009-05-10 OH   Batch 2 Assignment Comanche Transcription
020222,000012:                                                                                                  ##              2009-05-23 RSB  In DISPLAYE, corrected a CADR GOFLASHR
020223,000013:                                                                                                  ##                              to CADR GOFLASH.
020224,000014:                                                                                                  ##              2010-08-28 JL   Added missing comment character on p478.
020225,000015:                                                                                                  ##              2011-05-08 JL   Removed workaround.
020226,000016:                                                                                                  ##              2016-12-10 RSB  Proofed comments with octopus/ProoferComments
020227,000017:                                                                                                  ##                              and fixed the errors found.
020228,000018:                                                                                                  ##              2017-01-17 RSB  Fixed comment-text errors noted while diff'ing
020229,000019:                                                                                                  ##                              vs Colossus 249.
020230,000020:                                                                                                  ##              2017-01-28 RSB  Back-ported some comment fixes I noticed while
020231,000021:                                                                                                  ##                              proofing Artemis 72.
020232,000022: 
020233,000023:                                                                                                  ## The contents of the "Comanche055" files, in general, are transcribed 
020234,000024:                                                                                                  ## from scanned documents. 
020235,000025:                                                                                                  ##
020236,000026:                                                                                                  ##       Assemble revision 055 of AGC program Comanche by NASA
020237,000027:                                                                                                  ##       2021113-051.  April 1, 1969.  
020238,000028:                                                                                                  ##
020239,000029:                                                                                                  ##       This AGC program shall also be referred to as Colossus 2A
020240,000030:                                                                                                  ##
020241,000031:                                                                                                  ##       Prepared by
020242,000032:                                                                                                  ##                       Massachusetts Institute of Technology
020243,000033:                                                                                                  ##                       75 Cambridge Parkway
020244,000034:                                                                                                  ##                       Cambridge, Massachusetts
020245,000035:                                                                                                  ##
020246,000036:                                                                                                  ##       under NASA contract NAS 9-4065.
020247,000037:                                                                                                  ##
020248,000038:                                                                                                  ## Refer directly to the online document mentioned above for further
020249,000039:                                                                                                  ## information.  Please report any errors to info@sandroid.org.
020250,000040: 
020251,000041: 

Page 460

020253,000043:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
020254,000044:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
020255,000045:                                                                                                  #  MOD BY WHITE.P                DATE 1JUNE67
020256,000046: 
020257,000047:                                                                                                  #  PURPOSE
020258,000048:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020259,000049:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
020260,000050:                                                                                                  #                PHASE INITIATION (TPI) MANEUVER, GIVEN -
020261,000051:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
020262,000052:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
020263,000053:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
020264,000054:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
020265,000055:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
020266,000056:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
020267,000057:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
020268,000058:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020269,000059:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020270,000060:                                                                                                  #                ASTRONAUT/GROUND.
020271,000061:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
020272,000062:                                                                                                  #                THRUSTING PROGRAM.
020273,000063: 
020274,000064:                                                                                                  #  ASSUMPTIONS
020275,000065:                                                                                                  #        (1)     LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
020276,000066:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
020277,000067:                                                                                                  #                THEREFORE -
020278,000068:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
020279,000069:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
020280,000070:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
020281,000071:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
020282,000072:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
020283,000073:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
020284,000074:                                                                                                  #                (C)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
020285,000075:                                                                                                  #                        ORBITS WAS MINIMIZED.
020286,000076:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
020287,000077:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 461

020289,000079:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
020290,000080:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
020291,000081:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
020292,000082:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
020293,000083:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
020294,000084:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
020295,000085:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
020296,000086:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
020297,000087:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
020298,000088:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
020299,000089:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
020300,000090:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
020301,000091:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
020302,000092:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
020303,000093:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
020304,000094:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
020305,000095:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
020306,000096:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
020307,000097:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
020308,000098:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
020309,000099:                                                                                                  #                THRUSTING MANEUVER.
020310,000100:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020311,000101:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020312,000102: 
020313,000103:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020314,000104:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020315,000105:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020316,000106:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020317,000107: 
020318,000108:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020319,000109:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020320,000110: 
020321,000111:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020322,000112:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020323,000113:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020324,000114: 
020325,000115:                                                                                                  #        (7)     ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
020326,000116:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020327,000117:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020328,000118:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020329,000119:                                                                                                  #                THROUGH THE USE OF V06N52.
020330,000120: 
020331,000121:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020332,000122:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 462

020334,000124:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020335,000125:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020336,000126:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
020337,000127:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020338,000128: 
020339,000129:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
020340,000130: 
020341,000131:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
020342,000132: 
020343,000133:                                                                                                  #  INPUT
020344,000134:                                                                                                  #        (1)     TTPI    TIME OF THE TPI MANEUVER
020345,000135:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
020346,000136:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020347,000137:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
020348,000138: 
020349,000139:                                                                                                  #  OUTPUT
020350,000140:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
020351,000141:                                                                                                  #        (2)     TTOGO           TIME TO GO
020352,000142:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
020353,000143:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
020354,000144:                                                                                                  #                 OR
020355,000145:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
020356,000146:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
020357,000147:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
020358,000148:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
020359,000149:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI - LINE OF SIGHT
020360,000150:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
020361,000151: 
020362,000152:                                                                                                  #  DOWNLINK
020363,000153:                                                                                                  #        (1)     TTPI            TIME OF THE TPI MANEUVER
020364,000154:                                                                                                  #        (2)     TIG             TIME OF THE TPI MANEUVER
020365,000155:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
020366,000156:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020367,000157:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
020368,000158:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI - REFERENCE COORDINATES
020369,000159:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
020370,000160: 
020371,000161:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
020372,000162:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
020373,000163:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
020374,000164:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
020375,000165:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020376,000166: 
020377,000167:                                                                                                  #  SUBROUTINES USED
020378,000168:                                                                                                  #        AVFLAGA

Page 463

020380,000170:                                                                                                  #        AVFLAGP
020381,000171:                                                                                                  #        VNPOOH
020382,000172:                                                                                                  #        DISPLAYE
020383,000173:                                                                                                  #        SELECTMU
020384,000174:                                                                                                  #        PRECSET
020385,000175:                                                                                                  #        S33/34.1
020386,000176:                                                                                                  #        ALARM
020387,000177:                                                                                                  #        BANKCALL
020388,000178:                                                                                                  #        GOFLASH
020389,000179:                                                                                                  #        GOTOPOOH
020390,000180:                                                                                                  #        TIMETHET
020391,000181:                                                                                                  #        S34/35.2
020392,000182:                                                                                                  #        PERIAPO1
020393,000183:                                                                                                  #        SHIFTR1
020394,000184:                                                                                                  #        S34/35.5
020395,000185:                                                                                                  #        VN1645
020396,000186: 
020397,000187: 35,2000                                           SETLOC   CSI/CDH                               
020398,000188: 35,2000                                           BANK                                           
020399,000189: 35,2000  E4,1770                                  EBANK=   SUBEXIT                               
020400,000190: 35,2000                                           COUNT    35/P3474                              
020401,000191: 
020402,000192: 35,2000           04627        P34                TC       AVFLAGA                               
020403,000193: 35,2001           02003                           TC       P34/P74A                              
020404,000194: 35,2002           04642        P74                TC       AVFLAGP                               
020405,000195: 35,2003           04647        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
020406,000196: 35,2004           34614                           CAF      V06N37                                #  TTPI
020407,000197: 35,2005           04575                           TC       VNPOOH                                
020408,000198: 35,2006           06006                           TC       INTPRET                               
020409,000199: 35,2007           77531                           SSP      EXIT                                  
020410,000200: 35,2010           03766                                    NN                                    
020411,000201: 35,2011           00000                                    0                                     
020412,000202: 35,2012           03070                           TC       DISPLAYE                              #  ELEV AND CENTANG
020413,000203: 35,2013           06006                           TC       INTPRET                               
020414,000204: 35,2014           71214                           CLEAR    DLOAD                                 
020415,000205: 35,2015           01270                                    ETPIFLAG                              
020416,000206: 35,2016           03663                                    TTPI                                  
020417,000207: 35,2017           17413                           STODL    TIG                                   
020418,000208: 35,2020           03744                                    ELEV                                  
020419,000209: 35,2021           43054                           BZE      SET                                   
020420,000210: 35,2022           72024                                    P34/P74B                              
020421,000211: 35,2023           01070                                    ETPIFLAG                              
020422,000212: 35,2024           77624        P34/P74B           CALL                                           
020423,000213: 35,2025           10712                                    SELECTMU                              
020424,000214: 35,2026                        DELELO             EQUALS   26D                                   
020425,000215: 35,2026           43145        P34/P74C           DLOAD    SET                                   
020426,000216: 35,2027           15335                                    ZEROVECS                              
020427,000217: 35,2030           03461                                    ITSWICH                               
020428,000218: 35,2031           43014                           BON      CLEAR                                 
020429,000219: 35,2032           01310                                    ETPIFLAG                              

Page 464

020431,000221: 35,2033           72035                                    SWCHSET                               
020432,000222: 35,2034           03661                                    ITSWICH                               
020433,000223: 35,2035           02364        SWCHSET            STORE    NOMTPI                                
020434,000224: 35,2036           43345        INTLOOP            DLOAD    DAD                                   
020435,000225: 35,2037           03663                                    TTPI                                  
020436,000226: 35,2040           02364                                    NOMTPI                                
020437,000227: 35,2041           34041                           STCALL   TDEC1                                 
020438,000228: 35,2042           45215                                    PRECSET                               
020439,000229: 35,2043           77624                           CALL                                           
020440,000230: 35,2044           72216                                    S33/34.1                              
020441,000231: 35,2045           77454                           BZE      EXIT                                  
020442,000232: 35,2046           72057                                    SWCHCLR                               
020443,000233: 35,2047           05650                           TC       ALARM                                 
020444,000234: 35,2050           00611                           OCT      611                                   
020445,000235: 35,2051           35050                           CAF      V05N09                                
020446,000236: 35,2052           04662                           TC       BANKCALL                              
020447,000237: 35,2053           20720                           CADR     GOFLASH                               
020448,000238: 35,2054           04106                           TC       GOTOPOOH                              
020449,000239: 35,2055           02003                           TC       P34/P74A                              #  PROCEED
020450,000240: 35,2056           02047                           TC       -7                                    #  V32
020451,000241: 
020452,000242: 35,2057           43014        SWCHCLR            BONCLR   BON                                   
020453,000243: 35,2060           03601                                    ITSWICH                               
020454,000244: 35,2061           72036                                    INTLOOP                               
020455,000245: 35,2062           01310                                    ETPIFLAG                              
020456,000246: 35,2063           72067                                    P34/P74D                              #  DISPLAY TTPI
020457,000247: 35,2064           77776                           EXIT                                           
020458,000248: 35,2065           03070                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
020459,000249: 35,2066           02072                           TC       P34/P74E                              
020460,000250: 35,2067           77776        P34/P74D           EXIT                                           
020461,000251: 35,2070           34614                           CAF      V06N37                                #  TTPI
020462,000252: 35,2071           04575                           TC       VNPOOH                                
020463,000253: 35,2072           06006        P34/P74E           TC       INTPRET                               
020464,000254: 35,2073           71201                           SETPD    DLOAD                                 
020465,000255: 35,2074           00001                                    0D                                    
020466,000256: 35,2075           03746                                    RTX1                                  
020467,000257: 35,2076           14047                           STODL    X1                                    
020468,000258: 35,2077           03754                                    CENTANG                               
020469,000259: 35,2100           71406                           PUSH     COS                                   
020470,000260: 35,2101           16734                           STODL    CSTH                                  
020471,000261: 35,2102           77756                           SIN                                            
020472,000262: 35,2103           26732                           STOVL    SNTH                                  
020473,000263: 35,2104           03554                                    RPASS3                                
020474,000264: 35,2105           77657                           VSR*                                           
020475,000265: 35,2106           57176                                    0,2                                   
020476,000266: 35,2107           26657                           STOVL    RVEC                                  
020477,000267: 35,2110           03562                                    VPASS3                                
020478,000268: 35,2111           43057                           VSR*     SET                                   
020479,000269: 35,2112           57176                                    0,2                                   
020480,000270: 35,2113           03466                                    RVSW                                  

Page 465

020482,000272: 35,2114           36746                           STCALL   VVEC                                  
020483,000273: 35,2115           24744                                    TIMETHET                              
020484,000274: 35,2116           77745                           DLOAD                                          
020485,000275: 35,2117           03663                                    TTPI                                  
020486,000276: 35,2120           03503                           STORE    INTIME                                #  FOR INITVEL
020487,000277: 35,2121           77615                           DAD                                            
020488,000278: 35,2122           00037                                    T                                     #  RENDEZVOUS TIME
020489,000279: 35,2123           37656                           STCALL   TPASS4                                #  FOR INITVEL
020490,000280: 35,2124           72526                                    S34/35.2                              
020491,000281: 35,2125           51575                           VLOAD    ABVAL                                 
020492,000282: 35,2126           03646                                    DELVEET3                              
020493,000283: 35,2127           26635                           STOVL    DELVTPI                               
020494,000284: 35,2130           03640                                    VPASS4                                
020495,000285: 35,2131           51451                           VSU      ABVAL                                 
020496,000286: 35,2132           03620                                    VTPRIME                               
020497,000287: 35,2133           26637                           STOVL    DELVTPF                               
020498,000288: 35,2134           03540                                    RACT3                                 
020499,000289: 35,2135           45115                           PDVL     CALL                                  
020500,000290: 35,2136           03612                                    VIPRIME                               
020501,000291: 35,2137           45153                                    PERIAPO1                              
020502,000292: 35,2140           77624                           CALL                                           
020503,000293: 35,2141           45263                                    SHIFTR1                               
020504,000294: 35,2142           16641                           STODL    POSTTPI                               
020505,000295: 35,2143           03663                                    TTPI                                  
020506,000296: 35,2144           03413                           STORE    TIG                                   
020507,000297: 35,2145           77776                           EXIT                                           
020508,000298: 35,2146           34616                           CAF      V06N58                                
020509,000299: 35,2147           04575                           TC       VNPOOH                                
020510,000300: 35,2150           06006                           TC       INTPRET                               
020511,000301: 35,2151           77624                           CALL                                           
020512,000302: 35,2152           72741                                    S34/35.5                              
020513,000303: 35,2153           77624                           CALL                                           
020514,000304: 35,2154           73002                                    VN1645                                
020515,000305: 35,2155           77650                           GOTO                                           
020516,000306: 35,2156           72026                                    P34/P74C                              
020517,000307: 

Page 466

020519,000309:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
020520,000310:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
020521,000311:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
020522,000312: 
020523,000313:                                                                                                  #  PURPOSE
020524,000314:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020525,000315:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
020526,000316:                                                                                                  #                MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
020527,000317:                                                                                                  #                VEHICLE RENDEZVOUS.
020528,000318:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020529,000319:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020530,000320:                                                                                                  #                ASTRONAUT/GROUND.
020531,000321:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
020532,000322:                                                                                                  #                THRUSTING PROGRAM.
020533,000323: 
020534,000324:                                                                                                  #  ASSUMPTIONS
020535,000325:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020536,000326:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
020537,000327:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
020538,000328:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
020539,000329:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
020540,000330:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
020541,000331:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
020542,000332:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
020543,000333:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
020544,000334:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020545,000335: 
020546,000336:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020547,000337:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020548,000338:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020549,000339:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020550,000340: 
020551,000341:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020552,000342:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020553,000343: 
020554,000344:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020555,000345:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020556,000346:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020557,000347: 
020558,000348:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
020559,000349:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
020560,000350:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.

Page 467

020562,000352:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
020563,000353:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020564,000354:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020565,000355:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020566,000356:                                                                                                  #                THROUGH THE USE OF V06N52.
020567,000357: 
020568,000358:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020569,000359:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
020570,000360:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020571,000361:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020572,000362:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
020573,000363:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020574,000364: 
020575,000365:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
020576,000366: 
020577,000367:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
020578,000368: 
020579,000369:                                                                                                  #  INPUT
020580,000370:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT - SAVED FROM P34/P74
020581,000371: 
020582,000372:                                                                                                  #  OUTPUT
020583,000373:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
020584,000374:                                                                                                  #        (2)     TTOGO           TIME TO GO
020585,000375:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
020586,000376:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID - LINE OF SIGHT
020587,000377:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
020588,000378: 
020589,000379:                                                                                                  #  DOWNLINK
020590,000380:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
020591,000381:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM - REFERENCE COORDINATES
020592,000382:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
020593,000383: 
020594,000384:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
020595,000385:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
020596,000386:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
020597,000387:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
020598,000388:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020599,000389: 
020600,000390:                                                                                                  #  SUBROUTINES USED
020601,000391:                                                                                                  #        AVFLAGA
020602,000392:                                                                                                  #        AVFLAGP
020603,000393:                                                                                                  #        LOADTIME
020604,000394:                                                                                                  #        SELECTMU
020605,000395:                                                                                                  #        PRECSET
020606,000396:                                                                                                  #        S34/35.1
020607,000397:                                                                                                  #        S34/35.2

Page 468

020609,000399:                                                                                                  #        S34/35.5
020610,000400:                                                                                                  #        VN1645
020611,000401: 
020612,000402: 35,2157                                           COUNT    35/P3575                              
020613,000403: 35,2157  E4,1763                                  EBANK=   KT                                    
020614,000404: 
020615,000405: 35,2157           04627        P35                TC       AVFLAGA                               
020616,000406: 35,2160           00006                           EXTEND                                         
020617,000407: 35,2161           31422                           DCA      ATIGINC                               
020618,000408: 35,2162           02166                           TC       P35/P75A                              
020619,000409: 35,2163           04642        P75                TC       AVFLAGP                               
020620,000410: 35,2164           00006                           EXTEND                                         
020621,000411: 35,2165           31424                           DCA      PTIGINC                               
020622,000412: 35,2166           53764        P35/P75A           DXCH     KT                                    
020623,000413: 35,2167           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
020624,000414: 35,2170           06006                           TC       INTPRET                               
020625,000415: 35,2171           77624                           CALL                                           
020626,000416: 35,2172           10712                                    SELECTMU                              
020627,000417: 35,2173           77634        P35/P75B           RTB                                            
020628,000418: 35,2174           45510                                    LOADTIME                              
020629,000419: 35,2175           03665                           STORE    TSTRT                                 
020630,000420: 35,2176           77615                           DAD                                            
020631,000421: 35,2177           02364                                    KT                                    
020632,000422: 35,2200           03413                           STORE    TIG                                   
020633,000423: 35,2201           03503                           STORE    INTIME                                #  FOR INITVEL
020634,000424: 35,2202           34041                           STCALL   TDEC1                                 
020635,000425: 35,2203           45215                                    PRECSET                               #  ADVANCE BOTH VEHICLES
020636,000426: 35,2204           77624                           CALL                                           
020637,000427: 35,2205           74000                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
020638,000428: 35,2206           77624                           CALL                                           
020639,000429: 35,2207           72526                                    S34/35.2                              #  GET DELTA V(LV)
020640,000430: 35,2210           77624                           CALL                                           
020641,000431: 35,2211           72741                                    S34/35.5                              
020642,000432: 35,2212           77624                           CALL                                           
020643,000433: 35,2213           73002                                    VN1645                                
020644,000434: 35,2214           77650                           GOTO                                           
020645,000435: 35,2215           72173                                    P35/P75B                              

Page 469

020647,000437:                                                                                                  #  ..... S33/34.1 .....
020648,000438: 
020649,000439: 35,2216           66220        S33/34.1           STQ      SSP                                   
020650,000440: 35,2217           01340                                    NORMEX                                
020651,000441: 35,2220           03665                                    TITER                                 
020652,000442: 35,2221           40000                           OCT      40000                                 
020653,000443: 35,2222           40345                           DLOAD    SETPD                                 
020654,000444: 35,2223           33111                                    MAX250                                
020655,000445: 35,2224           00001                                    0D                                    
020656,000446: 35,2225           27454                           STOVL    SECMAX                                
020657,000447: 35,2226           03540                                    RACT3                                 
020658,000448: 35,2227           27576                           STOVL    RAPREC                                
020659,000449: 35,2230           03546                                    VACT3                                 
020660,000450: 35,2231           27570                           STOVL    VAPREC                                
020661,000451: 35,2232           03554                                    RPASS3                                
020662,000452: 35,2233           27620                           STOVL    RPPREC                                
020663,000453: 35,2234           03562                                    VPASS3                                
020664,000454: 35,2235           03612                           STORE    VPPREC                                
020665,000455: 35,2236           77624        ELCALC             CALL                                           
020666,000456: 35,2237           74000                                    S34/35.1                              #  NORMAL AND LOS
020667,000457: 35,2240           63235                           VXV      PDVL                                  
020668,000458: 35,2241           03540                                    RACT3                                 #  (RA*VA)*RA 0D
020669,000459: 35,2242           53515                           PDVL     UNIT                                  #  ULOS AT 6D
020670,000460: 35,2243           03540                                    RACT3                                 
020671,000461: 35,2244           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
020672,000462: 35,2245           51352                           VSL2     BVSU                                  
020673,000463: 35,2246           02625                                    ULOS                                  
020674,000464: 35,2247           63256                           UNIT     PDVL                                  #  UP AT 0D
020675,000465: 35,2250           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
020676,000466: 35,2251           00001                                    0D                                    #  UP IN MPAC
020677,000467: 35,2252           75241                           DOT      SIGN                                  
020678,000468: 35,2253           02625                                    ULOS                                  
020679,000469: 35,2254           65552                           SL1      ACOS                                  
020680,000470: 35,2255           50315                           PDVL     DOT                                   #  EA AT 0D
020681,000471: 35,2256           02625                                    ULOS                                  
020682,000472: 35,2257           03540                                    RACT3                                 
020683,000473: 35,2260           71244                           BPL      DLOAD                                 
020684,000474: 35,2261           72264                                    TESTY                                 
020685,000475: 35,2262           15343                                    DPPOSMAX                              
020686,000476: 35,2263           41425                           DSU      PUSH                                  
020687,000477: 35,2264           71214        TESTY              BOFF     DLOAD                                 
020688,000478: 35,2265           03741                                    ITSWICH                               
020689,000479: 35,2266           72513                                    ELEX                                  
020690,000480: 35,2267           03452                                    DELEL                                 
020691,000481: 35,2270           14033                           STODL    DELELO                                
020692,000482: 35,2271           77625                           DSU                                            
020693,000483: 35,2272           03744                                    ELEV                                  
020694,000484: 35,2273           03452                           STORE    DELEL                                 
020695,000485: 35,2274           45246                           ABS      DSU                                   
020696,000486: 35,2275           33115                                    ELEPS                                 

Page 470

020698,000488: 35,2276           77640                           BMN                                            
020699,000489: 35,2277           72523                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
020700,000490: 35,2300           70535        FIGTIME            SLOAD    SR1                                   
020701,000491: 35,2301           03665                                    TITER                                 
020702,000492: 35,2302           72030                           BHIZ     LXA,1                                 
020703,000493: 35,2303           01340                                    NORMEX                                #  TOO MANY ITERATIONS
020704,000494: 35,2304           00154                                    MPAC                                  
020705,000495: 35,2305           77330                           SXA,1    VLOAD                                 
020706,000496: 35,2306           03664                                    TITER                                 
020707,000497: 35,2307           03554                                    RPASS3                                
020708,000498: 35,2310           65256                           UNIT     PDDL                                  
020709,000499: 35,2311           00045                                    36D                                   
020710,000500: 35,2312           53515                           PDVL     UNIT                                  
020711,000501: 35,2313           03540                                    RACT3                                 
020712,000502: 35,2314           77725                           PDDL                                           
020713,000503: 35,2315           41525                           PDDL     PUSH                                  
020714,000504: 35,2316           00045                                    36D                                   
020715,000505: 35,2317           77621                           BDSU                                           
020716,000506: 35,2320           00015                                    12D                                   
020717,000507: 35,2321           14037                           STODL    30D                                   #  RP-RA MAGNITUDES
020718,000508: 35,2322           15333                                    DPHALF                                
020719,000509: 35,2323           41425                           DSU      PUSH                                  
020720,000510: 35,2324           03744                                    ELEV                                  
020721,000511: 35,2325           50165                           SIGN     BMN                                   
020722,000512: 35,2326           00037                                    30D                                   
020723,000513: 35,2327           01340                                    NORMEX                                
020724,000514: 35,2330           71545                           DLOAD    COS                                   
020725,000515: 35,2331           56205                           DMP      DDV                                   
020726,000516: 35,2332           00017                                    14D                                   
020727,000517: 35,2333           00015                                    12D                                   
020728,000518: 35,2334           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
020729,000519: 35,2335           00035                           STORE    28D                                   
020730,000520: 35,2336           44246                           ABS      BDSU                                  
020731,000521: 35,2337           15333                                    DPHALF                                
020732,000522: 35,2340           77240                           BMN      VLOAD                                 
020733,000523: 35,2341           01340                                    NORMEX                                
020734,000524: 35,2342           02617                                    UNRM                                  
020735,000525: 35,2343           53435                           VXV      UNIT                                  
020736,000526: 35,2344           00007                                    6D                                    #  UN*RA
020737,000527: 35,2345           41241                           DOT      DMP                                   
020738,000528: 35,2346           03546                                    VACT3                                 
020739,000529: 35,2347           00015                                    12D                                   
020740,000530: 35,2350           47315                           PDVL     VXV                                   
020741,000531: 35,2351           00001                                    0D                                    
020742,000532: 35,2352           03562                                    VPASS3                                
020743,000533: 35,2353           53435                           VXV      UNIT                                  
020744,000534: 35,2354           00001                                    0D                                    #  (RP*VP)*RP
020745,000535: 35,2355           41241                           DOT      DMP                                   
020746,000536: 35,2356           03562                                    VPASS3                                
020747,000537: 35,2357           00017                                    14D                                   

Page 471

020749,000539: 35,2360           77621                           BDSU                                           
020750,000540: 35,2361           63301                           NORM     PDVL                                  #  NORMALIZED WA-WP 12D
020751,000541: 35,2362           00047                                    X1                                    
020752,000542: 35,2363           00007                                    6D                                    
020753,000543: 35,2364           50235                           VXV      DOT                                   
020754,000544: 35,2365           00001                                    0D                                    
020755,000545: 35,2366           02617                                    UNRM                                  #  RA*RP.UN 14D
020756,000546: 35,2367           50315                           PDVL     DOT                                   
020757,000547: 35,2370           00001                                    0D                                    
020758,000548: 35,2371           00007                                    6D                                    
020759,000549: 35,2372           65552                           SL1      ACOS                                  
020760,000550: 35,2373           77765                           SIGN                                           
020761,000551: 35,2374           43225                           DSU      DAD                                   #  ALPHA PI
020762,000552: 35,2375           15333                                    DPHALF                                
020763,000553: 35,2376           03744                                    ELEV                                  
020764,000554: 35,2377           65525                           PDDL     ACOS                                  
020765,000555: 35,2400           00035                                    28D                                   
020766,000556: 35,2401           75221                           BDSU     SIGN                                  
020767,000557: 35,2402           15333                                    DPHALF                                
020768,000558: 35,2403           00037                                    30D                                   #  CONTAINS RP-RA
020769,000559: 35,2404           77615                           DAD                                            
020770,000560: 35,2405           56205                           DMP      DDV                                   
020771,000561: 35,2406           33107                                    TWOPI                                 
020772,000562: 35,2407           77605                           DMP                                            
020773,000563: 35,2410           41257                           SL*      DMP                                   
020774,000564: 35,2411           20176                                    0          -3,1                       
020775,000565: 35,2412           51406                           PUSH     ABS                                   
020776,000566: 35,2413           50025                           DSU      BMN                                   
020777,000567: 35,2414           03454                                    SECMAX                                
020778,000568: 35,2415           72421                                    OKMAX                                 
020779,000569: 35,2416           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
020780,000570: 35,2417           03454                                    SECMAX                                
020781,000571: 35,2420           77606                           PUSH                                           
020782,000572: 35,2421           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
020783,000573: 35,2422           03665                                    TITER                                 
020784,000574: 35,2423           72431                                    REPETE                                
020785,000575: 35,2424           71331                           SSP      DLOAD                                 
020786,000576: 35,2425           03665                                    TITER                                 
020787,000577: 35,2426           37777                           OCT      37777                                 
020788,000578: 35,2427           77650                           GOTO                                           
020789,000579: 35,2430           72467                                    STORDELT                              
020790,000580: 35,2431           41345        REPETE             DLOAD    DMP                                   
020791,000581: 35,2432           03452                                    DELEL                                 
020792,000582: 35,2433           00033                                    DELELO                                
020793,000583: 35,2434           71244                           BPL      DLOAD                                 
020794,000584: 35,2435           72445                                    NEXTES                                
020795,000585: 35,2436           03454                                    SECMAX                                
020796,000586: 35,2437           77605                           DMP                                            
020797,000587: 35,2440           33113                                    THIRD                                 
020798,000588: 35,2441           17454                           STODL    SECMAX                                

Page 472

020800,000590: 35,2442           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
020801,000591: 35,2443           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
020802,000592: 35,2444           72455                                    RESIGN                                
020803,000593: 35,2445           51545        NEXTES             DLOAD    ABS                                   
020804,000594: 35,2446           03452                                    DELEL                                 
020805,000595: 35,2447           51525                           PDDL     ABS                                   
020806,000596: 35,2450           00033                                    DELELO                                
020807,000597: 35,2451           77625                           DSU                                            
020808,000598: 35,2452           71240                           BMN      DLOAD                                 
020809,000599: 35,2453           72460                                    REVERS                                #  WRONG DIRECTION
020810,000600: 35,2454           77646                           ABS                                            
020811,000601: 35,2455           52165        RESIGN             SIGN     GOTO                                  
020812,000602: 35,2456           03450                                    DELTEEO                               
020813,000603: 35,2457           72467                                    STORDELT                              
020814,000604: 35,2460           57545        REVERS             DLOAD    DCOMP                                 
020815,000605: 35,2461           03450                                    DELTEEO                               
020816,000606: 35,2462           70406                           PUSH     SR1                                   
020817,000607: 35,2463           03450                           STORE    DELTEEO                               
020818,000608: 35,2464           77615                           DAD                                            
020819,000609: 35,2465           77650                           GOTO                                           
020820,000610: 35,2466           72470                                    ADTIME                                
020821,000611: 35,2467           03450        STORDELT           STORE    DELTEEO                               
020822,000612: 35,2470           77615        ADTIME             DAD                                            
020823,000613: 35,2471           02364                                    NOMTPI                                #  SUM OF DELTA T:S
020824,000614: 35,2472           02364                           STORE    NOMTPI                                
020825,000615: 35,2473           63375                           VLOAD    PDVL                                  
020826,000616: 35,2474           03570                                    VAPREC                                
020827,000617: 35,2475           03576                                    RAPREC                                
020828,000618: 35,2476           77624                           CALL                                           
020829,000619: 35,2477           72701                                    GOINT                                 
020830,000620: 35,2500           77624                           CALL                                           
020831,000621: 35,2501           45237                                    ACTIVE                                #  STORE NEW RACT3 VACT3
020832,000622: 35,2502           63375                           VLOAD    PDVL                                  
020833,000623: 35,2503           03612                                    VPPREC                                
020834,000624: 35,2504           03620                                    RPPREC                                
020835,000625: 35,2505           77624                           CALL                                           
020836,000626: 35,2506           72701                                    GOINT                                 
020837,000627: 35,2507           77624                           CALL                                           
020838,000628: 35,2510           45247                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
020839,000629: 35,2511           77650                           GOTO                                           
020840,000630: 35,2512           72236                                    ELCALC                                
020841,000631: 35,2513           43345        ELEX               DLOAD    DAD                                   
020842,000632: 35,2514           03663                                    TTPI                                  
020843,000633: 35,2515           02364                                    NOMTPI                                
020844,000634: 35,2516           17663                           STODL    TTPI                                  
020845,000635: 35,2517           77614                           BON                                            
020846,000636: 35,2520           01310                                    ETPIFLAG                              
020847,000637: 35,2521           72523                                    TIMEX                                 
020848,000638: 35,2522           03744                           STORE    ELEV                                  
020849,000639: 35,2523           52145        TIMEX              DLOAD    GOTO                                  

Page 473

020851,000641: 35,2524           15335                                    ZEROVECS                              
020852,000642: 35,2525           01340                                    NORMEX                                
020853,000643: 

Page 474

020855,000645:                                                                                                  #  ..... S34/35.1 .....
020856,000646: 
020857,000647:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
020858,000648:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
020859,000649: 36,2000                                           SETLOC   S3435LOC                              
020860,000650: 36,2000                                           BANK                                           
020861,000651: 
020862,000652: 36,2000           52375        S34/35.1           VLOAD    VSU                                   
020863,000653: 36,2001           03554                                    RPASS3                                
020864,000654: 36,2002           03540                                    RACT3                                 
020865,000655: 36,2003           41456                           UNIT     PUSH                                  
020866,000656: 36,2004           26625                           STOVL    ULOS                                  
020867,000657: 36,2005           03540                                    RACT3                                 
020868,000658: 36,2006           53435                           VXV      UNIT                                  
020869,000659: 36,2007           03546                                    VACT3                                 
020870,000660: 36,2010           02617                           STORE    UNRM                                  
020871,000661: 36,2011           77616                           RVQ                                            
020872,000662: 

Page 475

020874,000664:                                                                                                  #  ..... S34/35.2 .....
020875,000665: 
020876,000666:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
020877,000667: 35,2000                                           SETLOC   CSI/CDH                               
020878,000668: 35,2000                                           BANK                                           
020879,000669: 
020880,000670: 35,2526           77220        S34/35.2           STQ      VLOAD                                 
020881,000671: 35,2527           02370                                    SUBEXIT                               
020882,000672: 35,2530           03562                                    VPASS3                                
020883,000673: 35,2531           65315                           PDVL     PDDL                                  
020884,000674: 35,2532           03554                                    RPASS3                                
020885,000675: 35,2533           03503                                    INTIME                                
020886,000676: 35,2534           65325                           PDDL     PDDL                                  
020887,000677: 35,2535           03656                                    TPASS4                                
020888,000678: 35,2536           33107                                    TWOPI                                 #  CONIC
020889,000679: 35,2537           46125                           PDDL     BHIZ                                  
020890,000680: 35,2540           03766                                    NN                                    
020891,000681: 35,2541           72544                                    S3435.23                              
020892,000682: 35,2542           65345                           DLOAD    PDDL                                  
020893,000683: 35,2543           15335                                    ZEROVECS                              #  PRECISION
020894,000684: 35,2544           77624        S3435.23           CALL                                           
020895,000685: 35,2545           72705                                    INTINT                                #  GET TARGET VECTOR
020896,000686: 35,2546           27415        S3435.25           STOVL    RTARG                                 
020897,000687: 35,2547           00007                                    VATT                                  
020898,000688: 35,2550           27640                           STOVL    VPASS4                                
020899,000689: 35,2551           03415                                    RTARG                                 
020900,000690:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI) SIGN(RA*RP.U)
020901,000691: 35,2552           63256                           UNIT     PDVL                                  #  UNIT RP
020902,000692: 35,2553           03540                                    RACT3                                 
020903,000693: 35,2554           41456                           UNIT     PUSH                                  #  UNIT RA
020904,000694: 35,2555           50235                           VXV      DOT                                   
020905,000695: 35,2556           00001                                    0D                                    
020906,000696: 35,2557           02617                                    UNRM                                  #  RA*RP.U
020907,000697: 35,2560           77715                           PDVL                                           
020908,000698: 35,2561           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
020909,000699: 35,2562           00001                                    0D                                    
020910,000700: 35,2563           75326                           ACOS     SIGN                                  
020911,000701: 35,2564           43244                           BPL      DAD                                   
020912,000702: 35,2565           72567                                    NOPIE                                 
020913,000703: 35,2566           15343                                    DPPOSMAX                              #  REASONABLE TWO PI
020914,000704: 35,2567           16633        NOPIE              STODL    ACTCENT                               
020915,000705: 35,2570           03656                                    TPASS4                                
020916,000706: 35,2571           77625                           DSU                                            
020917,000707: 35,2572           03503                                    INTIME                                
020918,000708: 35,2573           03423                           STORE    DELLT4                                
020919,000709: 35,2574           40335                           SLOAD    SETPD                                 
020920,000710: 35,2575           03766                                    NN                                    #  NUMBER OF OFFSETS
020921,000711: 35,2576           00001                                    0D                                    
020922,000712: 35,2577           63325                           PDDL     PDVL                                  
020923,000713: 35,2600           33122                                    EPSFOUR                               

Page 476

020925,000715: 35,2601           03540                                    RACT3                                 
020926,000716: 35,2602           27570                           STOVL    RINIT                                 
020927,000717: 35,2603           03546                                    VACT3                                 
020928,000718: 35,2604           37576                           STCALL   VINIT                                 
020929,000719: 35,2605           22000                                    INITVEL                               
020930,000720: 35,2606           77624                           CALL                                           
020931,000721: 35,2607           72666                                    LOMAT                                 
020932,000722: 35,2610           64375                           VLOAD    MXV                                   
020933,000723: 35,2611           03646                                    DELVEET3                              
020934,000724: 35,2612           00001                                    0D                                    
020935,000725: 35,2613           77772                           VSL1                                           
020936,000726: 35,2614           37405                           STCALL   DELVLVC                               
020937,000727: 35,2615           02370                                    SUBEXIT                               
020938,000728: 

Page 477

020940,000730:                                                                                                  #  ..... S34/35.3 .....
020941,000731: 
020942,000732: 35,2616           45020        S34/35.3           STQ      CALL                                  
020943,000733: 35,2617           01340                                    NORMEX                                
020944,000734: 35,2620           72666                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
020945,000735: 35,2621           61375                           VLOAD    VXM                                   
020946,000736: 35,2622           03405                                    DELVLVC                               #  NEW DEL V TPI
020947,000737: 35,2623           00001                                    0D                                    
020948,000738: 35,2624           77772                           VSL1                                           
020949,000739: 35,2625           03646                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
020950,000740: 35,2626           63255                           VAD      PDVL                                  
020951,000741: 35,2627           03546                                    VACT3                                 #  NEW V REQ
020952,000742: 35,2630           03540                                    RACT3                                 
020953,000743: 35,2631           65325                           PDDL     PDDL                                  
020954,000744: 35,2632           03413                                    TIG                                   
020955,000745: 35,2633           03656                                    TPASS4                                
020956,000746: 35,2634           41525                           PDDL     PUSH                                  
020957,000747: 35,2635           15343                                    DPPOSMAX                              
020958,000748: 35,2636           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
020959,000749: 35,2637           72705                                    INTINT                                
020960,000750: 35,2640           77775                           VLOAD                                          
020961,000751: 35,2641           00001                                    RATT                                  
020962,000752: 35,2642           03415                           STORE    RTARG                                 
020963,000753: 35,2643           41575        NOVRWRT            VLOAD    PUSH                                  
020964,000754: 35,2644           02625                                    ULOS                                  
020965,000755: 35,2645           57435                           VXV      VCOMP                                 
020966,000756: 35,2646           02617                                    UNRM                                  
020967,000757: 35,2647           41456                           UNIT     PUSH                                  
020968,000758: 35,2650           76435                           VXV      VSL1                                  
020969,000759: 35,2651           02625                                    ULOS                                  
020970,000760: 35,2652           77715                           PDVL                                           
020971,000761: 35,2653           64315                           PDVL     MXV                                   
020972,000762: 35,2654           03646                                    DELVEET3                              
020973,000763: 35,2655           00001                                    0D                                    
020974,000764: 35,2656           77772                           VSL1                                           
020975,000765: 35,2657           36611                           STCALL   DVLOS                                 
020976,000766: 35,2660           01340                                    NORMEX                                
020977,000767: 

Page 478

020979,000769:                                                                                                  #  ..... S34/35.4 .....
020980,000770: 
020981,000771: 35,2661           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
020982,000772: 35,2662           01340                                    NORMEX                                
020983,000773: 35,2663           00001                                    0D                                    
020984,000774: 35,2664           77650                           GOTO                                           
020985,000775: 35,2665           72643                                    NOVRWRT                               
020986,000776: 

Page 479

020988,000778:                                                                                                  #  ..... LOMAT .....
020989,000779: 
020990,000780: 35,2666           57575        LOMAT              VLOAD    VCOMP                                 
020991,000781: 35,2667           02617                                    UNRM                                  
020992,000782: 35,2670           24007                           STOVL    6D                                    #  Y
020993,000783: 35,2671           03540                                    RACT3                                 
020994,000784: 35,2672           57456                           UNIT     VCOMP                                 
020995,000785: 35,2673           00015                           STORE    12D                                   
020996,000786: 35,2674           76435                           VXV      VSL1                                  
020997,000787: 35,2675           02617                                    UNRM                                  #  Z*-Y
020998,000788: 35,2676           00001                           STORE    0D                                    
020999,000789: 35,2677           43401                           SETPD    RVQ                                   
021000,000790: 35,2700           00023                                    18D                                   
021001,000791: 35,2701           65325        GOINT              PDDL     PDDL                                  #  DO
021002,000792: 35,2702           15335                                    ZEROVECS                              #        NOT
021003,000793: 35,2703           02364                                    NOMTPI                                
021004,000794: 35,2704           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
021005,000795: 35,2705           45020        INTINT             STQ      CALL                                  
021006,000796: 35,2706           02367                                    RTRN                                  
021007,000797: 35,2707           27442                                    INTSTALL                              
021008,000798: 35,2710           71214                           CLEAR    DLOAD                                 
021009,000799: 35,2711           01673                                    INTYPFLG                              
021010,000800: 35,2712           43054                           BZE      SET                                   
021011,000801: 35,2713           72715                                    +2                                    
021012,000802: 35,2714           01473                                    INTYPFLG                              
021013,000803: 35,2715           45545                           DLOAD    STADR                                 
021014,000804: 35,2716           63736                           STODL    TDEC1                                 
021015,000805: 35,2717           73014                           SET      LXA,2                                 
021016,000806: 35,2720           00063                                    MOONFLAG                              
021017,000807: 35,2721           03746                                    RTX2                                  
021018,000808: 35,2722           43014                           BON      CLEAR                                 
021019,000809: 35,2723           04303                                    CMOONFLG                              
021020,000810: 35,2724           72726                                    ALLSET                                
021021,000811: 35,2725           00263                                    MOONFLAG                              
021022,000812: 35,2726           25517        ALLSET             STOVL    TET                                   
021023,000813: 35,2727           77657                           VSR*                                           
021024,000814: 35,2730           57176                                    0,2                                   
021025,000815: 35,2731           25535                           STOVL    RCV                                   
021026,000816: 35,2732           77657                           VSR*                                           
021027,000817: 35,2733           57176                                    0,2                                   
021028,000818: 35,2734           35543                           STCALL   VCV                                   
021029,000819: 35,2735           27135                                    INTEGRVS                              
021030,000820: 35,2736           52175                           VLOAD    GOTO                                  
021031,000821: 35,2737           00001                                    RATT                                  
021032,000822: 35,2740           02367                                    RTRN                                  
021033,000823: 

Page 480

021035,000825:                                                                                                  #  ..... S34/35.5 .....
021036,000826: 
021037,000827:                                                                                                  #  SUBROUTINES USED
021038,000828:                                                                                                  #        BANKCALL
021039,000829:                                                                                                  #        GOFLASH
021040,000830:                                                                                                  #        GOTOPOOH
021041,000831:                                                                                                  #        S34/35.3
021042,000832:                                                                                                  #        S34/35.4
021043,000833:                                                                                                  #        VNPOOH
021044,000834: 
021045,000835: 35,2741           43020        S34/35.5           STQ      BON                                   
021046,000836: 35,2742           02370                                    SUBEXIT                               
021047,000837: 35,2743           01311                                    FINALFLG                              
021048,000838: 35,2744           72750                                    FLAGON                                
021049,000839: 35,2745           52014                           SET      GOTO                                  
021050,000840: 35,2746           00470                                    UPDATFLG                              
021051,000841: 35,2747           72772                                    FLAGOFF                               
021052,000842: 35,2750           77775        FLAGON             VLOAD                                          
021053,000843: 35,2751           03405                                    DELVLVC                               
021054,000844: 35,2752           02611                           STORE    DVLOS                                 #  SAVE DELTA V BEFORE DISPLAY
021055,000845: 35,2753           77776                           EXIT                                           
021056,000846: 35,2754           34620                           CAF      V06N81                                
021057,000847: 35,2755           04575                           TC       VNPOOH                                
021058,000848: 35,2756           06006                           TC       INTPRET                               
021059,000849: 35,2757           52375                           VLOAD    VSU                                   #  TEST FOR OVERWRITE OF COMPUTED
021060,000850: 35,2760           03405                                    DELVLVC                               #                       DELTA V
021061,000851: 35,2761           02611                                    DVLOS                                 
021062,000852: 35,2762           53046                           ABVAL    BZE                                   
021063,000853: 35,2763           72766                                    NOCHG                                 #  NO OVERWRITE
021064,000854: 35,2764           77624                           CALL                                           
021065,000855: 35,2765           72616                                    S34/35.3                              #  COMPUTE NEW TARGET VECTOR
021066,000856: 35,2766           77214        NOCHG              CLEAR    VLOAD                                 
021067,000857: 35,2767           01267                                    XDELVFLG                              
021068,000858: 35,2770           03646                                    DELVEET3                              
021069,000859: 35,2771           03646                           STORE    DELVSIN                               
021070,000860: 35,2772           77624        FLAGOFF            CALL                                           
021071,000861: 35,2773           72661                                    S34/35.4                              
021072,000862: 35,2774           77776                           EXIT                                           
021073,000863: 35,2775           34617                           CAF      V06N59                                
021074,000864: 35,2776           04575                           TC       VNPOOH                                
021075,000865: 35,2777           06006                           TC       INTPRET                               
021076,000866: 35,3000           77650                           GOTO                                           
021077,000867: 35,3001           02370                                    SUBEXIT                               
021078,000868: 

Page 481

021080,000870:                                                                                                  #  ..... VN1645 .....
021081,000871: 
021082,000872:                                                                                                  #  SUBROUTINES USED
021083,000873:                                                                                                  #        P3XORP7X
021084,000874:                                                                                                  #        GET+MGA
021085,000875:                                                                                                  #        BANKCALL
021086,000876:                                                                                                  #        DELAYJOB
021087,000877:                                                                                                  #        COMPTGO
021088,000878:                                                                                                  #        GOFLASHR
021089,000879:                                                                                                  #        GOTOPOOH
021090,000880:                                                                                                  #        FLAGUP
021091,000881: 
021092,000882: 35,3002           71220        VN1645             STQ      DLOAD                                 
021093,000883: 35,3003           02370                                    SUBEXIT                               
021094,000884: 35,3004           33120                                    DP-.01                                
021095,000885: 35,3005           03626                           STORE    +MGA                                  #  MGA = -.01
021096,000886: 35,3006           71214                           BOFF     DLOAD                                 
021097,000887: 35,3007           01351                                    FINALFLG                              
021098,000888: 35,3010           73030                                    GET45                                 
021099,000889: 35,3011           33120                                    DP-.01                                
021100,000890: 35,3012           77615                           DAD                                            
021101,000891: 35,3013           33120                                    DP-.01                                
021102,000892: 35,3014           03626                           STORE    +MGA                                  #  MGA = -.02
021103,000893: 35,3015           77414                           BOFF     EXIT                                  
021104,000894: 35,3016           01742                                    REFSMFLG                              
021105,000895: 35,3017           73030                                    GET45                                 
021106,000896: 35,3020           03100                           TC       P3XORP7X                              
021107,000897: 35,3021           03023                           TC       +2                                    #  P3X
021108,000898: 35,3022           03031                           TC       GET45      +1                         #  P7X
021109,000899: 35,3023           06006                           TC       INTPRET                               
021110,000900: 35,3024           41575                           VLOAD    PUSH                                  
021111,000901: 35,3025           03646                                    DELVSIN                               
021112,000902: 35,3026           77624                           CALL                                           #  COMPUTE MGA
021113,000903: 35,3027           10654                                    GET+MGA                               
021114,000904: 35,3030           77776        GET45              EXIT                                           
021115,000905: 35,3031           03304                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
021116,000906: 35,3032           31770                           CA       SUBEXIT                               
021117,000907: 35,3033           55766                           TS       QSAVED                                
021118,000908: 35,3034           35041                           CAF      1SEC                                  
021119,000909: 35,3035           04662                           TC       BANKCALL                              
021120,000910: 35,3036           01732                           CADR     DELAYJOB                              
021121,000911: 35,3037           34621                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
021122,000912: 35,3040           04662                           TC       BANKCALL                              
021123,000913: 35,3041           20720                           CADR     GOFLASH                               
021124,000914: 35,3042           03045                           TC       KILCLOCK                              #  TERMINATE
021125,000915: 35,3043           03050                           TC       N45PROC                               #  PROCEED
021126,000916: 35,3044           03060                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
021127,000917: 35,3045           30005        KILCLOCK           CA       Z                                     
021128,000918: 35,3046           54000                           TS       DISPDEX                               

Page 482

021130,000920: 35,3047           04106                           TC       GOTOPOOH                              
021131,000921: 35,3050           40076        N45PROC            CS       FLAGWRD2                              
021132,000922: 35,3051           75012                           MASK     BIT6                                  
021133,000923: 35,3052           00006                           EXTEND                                         
021134,000924: 35,3053           13045                           BZF      KILCLOCK                              #  FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
021135,000925: 35,3054           05412                           TC       PHASCHNG                              
021136,000926: 35,3055           04024                           OCT      04024                                 
021137,000927: 35,3056           05546                           TC       UPFLAG                                #  SET
021138,000928: 35,3057           00047                           ADRES    FINALFLG                              #  FINALFLG
021139,000929: 35,3060           30005        CLUPDATE           CA       Z                                     
021140,000930: 35,3061           54000                           TS       DISPDEX                               
021141,000931: 35,3062           05412                           TC       PHASCHNG                              
021142,000932: 35,3063           04024                           OCT      04024                                 
021143,000933: 35,3064           06006                           TC       INTPRET                               
021144,000934: 35,3065           52014                           CLEAR    GOTO                                  
021145,000935: 35,3066           00670                                    UPDATFLG                              
021146,000936: 35,3067           02366                                    QSAVED                                
021147,000937: 

Page 483

021149,000939:                                                                                                  #  ..... DISPLAYE .....
021150,000940: 
021151,000941:                                                                                                  #  SUBROUTINES USED
021152,000942:                                                                                                  #        BANKCALL
021153,000943:                                                                                                  #        GOFLASHR
021154,000944:                                                                                                  #        GOTOPOOH
021155,000945:                                                                                                  #        BLANKET
021156,000946:                                                                                                  #        ENDOFJOB
021157,000947: 
021158,000948: 35,3070           00006        DISPLAYE           EXTEND                                         
021159,000949: 35,3071           23340                           QXCH     NORMEX                                
021160,000950: 35,3072           34615                           CAF      V06N55                                
021161,000951: 35,3073           04662                           TCR      BANKCALL                              
021162,000952: 35,3074           20720                           CADR     GOFLASH                               
021163,000953: 35,3075           14106                           TCF      GOTOPOOH                              
021164,000954: 35,3076           01340                           TC       NORMEX                                
021165,000955: 35,3077           13072                           TCF      -5                                    
021166,000956: 

Page 484

021168,000958:                                                                                                  #  ..... P3XORP7X .....
021169,000959: 
021170,000960: 35,3100           37713        P3XORP7X           CAF      HIGH9                                 
021171,000961: 35,3101           71011                           MASK     MODREG                                
021172,000962: 35,3102           00006                           EXTEND                                         
021173,000963: 35,3103           13105                           BZF      +2                                    
021174,000964: 35,3104           24002                           INCR     Q                                     
021175,000965: 35,3105           00002                           RETURN                                         
021176,000966: 
021177,000967:                                                                                                  #  ..... VNPOOH .....
021178,000968: 
021179,000969:                                                                                                  #  SUBROUTINES USED
021180,000970:                                                                                                  #        BANKCALL
021181,000971:                                                                                                  #        GOFLASH
021182,000972:                                                                                                  #        GOTOPOOH
021183,000973: 
021184,000974:    4000                                           SETLOC   P30SUBS                               
021185,000975:    4000                                           BANK                                           
021186,000976: 
021187,000977:    4575           00006        VNPOOH             EXTEND                                         
021188,000978:    4576           23767                           QXCH     RTRN                                  
021189,000979:    4577           55765                           TS       VERBNOUN                              
021190,000980:    4600           34610                           CAF      VNBANK                                #  ***** THIS ROUTINE MUST REMAIN IN
021191,000981:    4601           56004                           XCH      FBANK                                 #        FIXED-FIXED *****
021192,000982:    4602           55063                           TS       TBASE5                                #  * WATCH OUT *
021193,000983: 
021194,000984:    4603           31765                           CA       VERBNOUN                              
021195,000985:    4604           04662                           TCR      BANKCALL                              
021196,000986:    4605           20720                           CADR     GOFLASH                               
021197,000987:    4606           14106                           TCF      GOTOPOOH                              
021198,000988:    4607           14611                           TCF      +2                                    
021199,000989:    4610           04603        VNBANK             TC       -5                                    
021200,000990: 
021201,000991:    4611           31063                           CA       TBASE5                                
021202,000992:    4612           54004                           TS       FBANK                                 
021203,000993:    4613           01767                           TC       RTRN                                  
021204,000994: 

Page 485

021206,000996:                                                                                                  #  ..... CONSTANTS .....
021207,000997: 
021208,000998:    4614           01445        V06N37             VN       0637                                  
021209,000999:    4615           01467        V06N55             VN       0655                                  
021210,001000:    4616           01472        V06N58             VN       0658                                  
021211,001001:    4617           01473        V06N59             VN       0659                                  
021212,001002:    4620           01521        V06N81             VN       0681                                  
021213,001003:    4621           04055        V16N45             VN       1645                                  
021214,001004: 35,2000                                           SETLOC   CSI/CDH                               
021215,001005: 35,2000                                           BANK                                           
021216,001006: 
021217,001007: 35,3106           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
021218,001008: 35,3110           00001 20650  MAX250             2DEC     25         E3                         
021219,001009: 35,3112           12525 12525  THIRD              2DEC     .333333333                            
021220,001010: 35,3114           00004 21505  ELEPS              2DEC     .27777777  E-3                        
021221,001011: 35,3116           00002        DECTWO             OCT      2                                     
021222,001012: 35,3117           77777        DP-.01             OCT      77777                                 #  CONSTANTS
021223,001013: 35,3120           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
021224,001014: 35,3121           01252 25253  EPSFOUR            2DEC     .0416666666                            
021225,001015: 

Page 486

021227,001017:                                                                                                  #  ..... INITVEL .....
021228,001018:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
021229,001019:                                                                                                  #  MOD BY WHITE.P                DATE  21NOV67
021230,001020: 
021231,001021:                                                                                                  #  FUNCTIONAL DESCRIPTION
021232,001022:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
021233,001023:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
021234,001024:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
021235,001025:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
021236,001026:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
021237,001027:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
021238,001028:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
021239,001029:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
021240,001030:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
021241,001031:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
021242,001032: 
021243,001033:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
021244,001034:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
021245,001035:                                                                                                  #        SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
021246,001036:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
021247,001037:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
021248,001038:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
021249,001039:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
021250,001040:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
021251,001041: 
021252,001042:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
021253,001043:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
021254,001044:                                                                                                  #        TRAJECTORY COMPUTATIONS.
021255,001045: 
021256,001046:                                                                                                  #  CALLING SEQUENCE
021257,001047:                                                                                                  #        L       CALL
021258,001048:                                                                                                  #        L+1             INITVEL
021259,001049:                                                                                                  #        L+2     (RETURN - ALWAYS)
021260,001050: 
021261,001051:                                                                                                  #  INPUT
021262,001052:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
021263,001053:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
021264,001054:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
021265,001055:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
021266,001056:                                                                                                  #        (5)     INTIME          TIME OF RINIT
021267,001057:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
021268,001058:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
021269,001059:                                                                                                  #        (8)     RTX1            -2 FOR EARTH, -10D FOR LUNAR
021270,001060:                                                                                                  #        (9)     RTX2            COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
021271,001061:                                                                                                  #        PUSHLOC SET AT 4D
021272,001062: 

Page 487

021274,001064:                                                                                                  #  OUTPUT
021275,001065:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
021276,001066:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
021277,001067:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
021278,001068:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
021279,001069: 
021280,001070:                                                                                                  #  SUBROUTINES USED
021281,001071:                                                                                                  #        LAMBERT
021282,001072:                                                                                                  #        INTSTALL
021283,001073:                                                                                                  #        INTEGRVS
021284,001074: 
021285,001075: 11,2000                                           SETLOC   INTVEL                                
021286,001076: 11,2000                                           BANK                                           
021287,001077: 
021288,001078: 11,2000                                           COUNT    11/INITV                              
021289,001079: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
021290,001080: 11,2001           00475                                    GUESSW                                
021291,001081: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
021292,001082: 11,2003           03415                                    RTARG                                 
021293,001083: 11,2004           01340                                    NORMEX                                
021294,001084: 11,2005           03604                           STORE    RTARG1                                
021295,001085: 11,2006           46135                           SLOAD    BHIZ                                  
021296,001086: 11,2007           03747                                    RTX2                                  
021297,001087: 11,2010           22022                                    INITVEL1                              
021298,001088: 11,2011           72575                           VLOAD    VSL2                                  
021299,001089: 11,2012           03570                                    RINIT                                 #  B29
021300,001090: 11,2013           27570                           STOVL    RINIT                                 #  B27
021301,001091: 11,2014           03576                                    VINIT                                 #  B7
021302,001092: 11,2015           77752                           VSL2                                           
021303,001093: 11,2016           27576                           STOVL    VINIT                                 #  B5
021304,001094: 11,2017           03604                                    RTARG1                                
021305,001095: 11,2020           77752                           VSL2                                           
021306,001096: 11,2021           03604                           STORE    RTARG1                                
021307,001097: 
021308,001098:                                                                                                  #  INITIALIZATION
021309,001099: 
021310,001100: 11,2022           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
021311,001101: 11,2023           03505                                    ITCTR                                 
021312,001102: 11,2024           77776                                    0          -1                         
021313,001103: 11,2025           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
021314,001104: 11,2026           17630                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4) (PL 0D)
021315,001105: 11,2027           67154                           LXA,2    SXA,2                                 
021316,001106: 11,2030           00154                                    MPAC                                  
021317,001107: 11,2031           02703                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
021318,001108: 11,2032           77775                           VLOAD                                          
021319,001109: 11,2033           03570                                    RINIT                                 
021320,001110: 11,2034           26657                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
021321,001111: 11,2035           03604                                    RTARG1                                

Page 488

021323,001113: 11,2036           16665                           STODL    R2VEC                                 #  R2VEC EQ RTARG
021324,001114: 11,2037           03423                                    DELLT4                                
021325,001115: 11,2040           02673                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
021326,001116: 11,2041           77201                           SETPD    VLOAD                                 
021327,001117: 11,2042           00001                                    0D                                    #  INITIALIZE PL TO 0D
021328,001118: 11,2043           03570                                    RINIT                                 #  MPAC EQ RINIT (+29)
021329,001119: 11,2044           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)         (PL 6D)
021330,001120: 11,2045           53435                           VXV      UNIT                                  
021331,001121: 11,2046           03576                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI (+8)
021332,001122: 11,2047           26676                           STOVL    UN                                    
021333,001123: 11,2050           03604                                    RTARG1                                
021334,001124: 11,2051           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)     (PL 0D)
021335,001125: 11,2052           43015                           DAD      CLEAR                                 
021336,001126: 11,2053           03630                                    COZY4                                 
021337,001127: 11,2054           03665                                    NORMSW                                
021338,001128: 11,2055           03630                           STORE    COZY4                                 
021339,001129: 11,2056           43044        INITVEL2           BPL      SET                                   
021340,001130: 11,2057           22101                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
021341,001131: 11,2060           03465                                    NORMSW                                
021342,001132: 
021343,001133:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
021344,001134: 
021345,001135: 11,2061           41575                           VLOAD    PUSH                                  #                                   (PL 6D)
021346,001136: 11,2062           02665                                    R2VEC                                 #  RC TO 6D (+29)
021347,001137: 11,2063           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
021348,001138: 11,2064           46206                           PUSH     VPROJ                                 #                                   (PL 8D)
021349,001139: 11,2065           02676                                    UN                                    
021350,001140: 11,2066           51352                           VSL2     BVSU                                  
021351,001141: 11,2067           74256                           UNIT     VXSC                                  #                                   (PL 0D)
021352,001142: 11,2070           77772                           VSL1                                           
021353,001143: 11,2071           02665                           STORE    R2VEC                                 
021354,001144: 11,2072           67351                           TLOAD    SLOAD                                 
021355,001145: 11,2073           11566                                    ZEROVEC                               
021356,001146: 11,2074           03505                                    ITCTR                                 
021357,001147: 11,2075           77244                           BPL      VLOAD                                 
021358,001148: 11,2076           22101                                    INITVEL3                              
021359,001149: 11,2077           02665                                    R2VEC                                 
021360,001150: 11,2100           03604                           STORE    RTARG1                                
021361,001151: 11,2101           63345        INITVEL3           DLOAD    PDVL                                  #                                (PL 2D)
021362,001152: 11,2102           27735                                    MUEARTH                               #  POSITIVE VALUE
021363,001153: 11,2103           02665                                    R2VEC                                 
021364,001154: 11,2104           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)              (PL 8D)
021365,001155: 11,2105           02657                                    R1VEC                                 
021366,001156: 11,2106           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)              (PL 14D)
021367,001157: 11,2107           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
021368,001158: 11,2110           00003                                    2D                                    
021369,001159: 11,2111           77606                           PUSH                                           #                                (PL 20D)
021370,001160: 11,2112           71350                           LXA,1    DLOAD                                 
021371,001161: 11,2113           03745                                    RTX1                                  
021372,001162: 11,2114           00023                                    18D                                   
021373,001163: 11,2115           62040                           BMN      INCR,1                                

Page 489

021375,001165: 11,2116           22120                                    +2                                    
021376,001166: 11,2117           77767                           DEC      -8         B-14                       
021377,001167: 11,2120           67310                           INCR,1   SLOAD                                 
021378,001168: 11,2121           00012                                    10D                                   
021379,001169: 11,2122           00047                                    X1                                    
021380,001170: 11,2123           77230                           BHIZ     VLOAD                                 #                        (PL 14D)
021381,001171: 11,2124           22126                                    +2                                    
021382,001172: 11,2125           41476                           VCOMP    PUSH                                  #                        (PL 20 D)
021383,001173: 11,2126           77775                           VLOAD                                          #                        (PL 14D)
021384,001174: 11,2127           50235                           VXV      DOT                                   #                        (PL 2D)
021385,001175: 11,2130           71244                           BPL      DLOAD                                 #                        (PL 0D)
021386,001176: 11,2131           22133                                    INITVEL4                              
021387,001177: 11,2132           41476                           DCOMP    PUSH                                  #                        (PL 2D)
021388,001178: 11,2133           67154        INITVEL4           LXA,2    SXA,2                                 
021389,001179: 11,2134           00000                                    0D                                    
021390,001180: 11,2135           02674                                    GEOMSGN                               
021391,001181: 
021392,001182:                                                                                                  #  SET INPUTS UP FOR LAMBERT
021393,001183: 
021394,001184: 11,2136           45150                           LXA,1    CALL                                  
021395,001185: 11,2137           03745                                    RTX1                                  
021396,001186:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
021397,001187: 
021398,001188: 11,2140           25224                                    LAMBERT                               
021399,001189: 
021400,001190:                                                                                                  #        DELETE THRU 4521
021401,001191:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
021402,001192: 
021403,001193: 11,2141           77214                           CLEAR    VLOAD                                 
021404,001194: 11,2142           00675                                    GUESSW                                
021405,001195: 11,2143           02746                                    VVEC                                  
021406,001196: 
021407,001197:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
021408,001198: 
021409,001199: 11,2144           17612                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
021410,001200: 
021411,001201:                                                                                                  #     IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
021412,001202:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
021413,001203: 
021414,001204: 11,2145           02704                                    VTARGTAG                              
021415,001205: 11,2146           45030                           BHIZ     CALL                                  
021416,001206: 11,2147           22224                                    INITVEL7                              
021417,001207: 11,2150           27442                                    INTSTALL                              
021418,001208: 11,2151           43135                           SLOAD    CLEAR                                 
021419,001209: 11,2152           03747                                    RTX2                                  
021420,001210: 11,2153           00263                                    MOONFLAG                              
021421,001211: 11,2154           43030                           BHIZ     SET                                   
021422,001212: 11,2155           22157                                    INITVEL5                              
021423,001213: 11,2156           00063                                    MOONFLAG                              
021424,001214: 11,2157           77775        INITVEL5           VLOAD                                          
021425,001215: 11,2160           03570                                    RINIT                                 
021426,001216: 11,2161           02657                           STORE    R1VEC                                 

Page 490

021428,001218: 11,2162           25535                           STOVL    RCV                                   
021429,001219: 11,2163           03612                                    VIPRIME                               
021430,001220: 11,2164           15543                           STODL    VCV                                   
021431,001221: 11,2165           03503                                    INTIME                                
021432,001222: 11,2166           01517                           STORE    TET                                   
021433,001223: 11,2167           43015                           DAD      CLEAR                                 
021434,001224: 11,2170           03423                                    DELLT4                                
021435,001225: 11,2171           01673                                    INTYPFLG                              
021436,001226: 11,2172           34041                           STCALL   TDEC1                                 
021437,001227: 11,2173           27135                                    INTEGRVS                              
021438,001228: 11,2174           77775                           VLOAD                                          
021439,001229: 11,2175           00025                                    VATT1                                 
021440,001230: 11,2176           02705                           STORE    VTARGET                               
021441,001231: 
021442,001232:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
021443,001233:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
021444,001234: 
021445,001235: 11,2177           63154                           LXA,2    INCR,2                                
021446,001236: 11,2200           03504                                    ITCTR                                 
021447,001237: 11,2201           00001                                    1D                                    #  INCREMENT ITCTR
021448,001238: 11,2202           55134                           SXA,2    XSU,2                                 
021449,001239: 11,2203           03504                                    ITCTR                                 
021450,001240: 11,2204           02703                                    VTARGTAG                              
021451,001241: 11,2205           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
021452,001242: 11,2206           00050                                    X2                                    
021453,001243: 11,2207           22221                                    INITVEL6                              
021454,001244: 
021455,001245:                                                                                                  #  OFFSET CONIC TARGET VECTOR
021456,001246: 
021457,001247: 11,2210           52375                           VLOAD    VSU                                   
021458,001248: 11,2211           03604                                    RTARG1                                
021459,001249: 11,2212           00017                                    RATT1                                 
021460,001250: 11,2213           77655                           VAD                                            
021461,001251: 11,2214           02665                                    R2VEC                                 
021462,001252: 11,2215           16665                           STODL    R2VEC                                 
021463,001253: 11,2216           03630                                    COZY4                                 
021464,001254: 11,2217           77650                           GOTO                                           
021465,001255: 11,2220           22056                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
021466,001256: 
021467,001257:                                                                                                  #  COMPUTE THE DELTA VELOCITY
021468,001258: 
021469,001259: 11,2221           77775        INITVEL6           VLOAD                                          
021470,001260: 11,2222           02665                                    R2VEC                                 
021471,001261: 11,2223           03604                           STORE    RTARG1                                
021472,001262: 11,2224           52375        INITVEL7           VLOAD    VSU                                   
021473,001263: 11,2225           03612                                    VIPRIME                               
021474,001264: 11,2226           03576                                    VINIT                                 
021475,001265: 11,2227           27646                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)
021476,001266: 11,2230           02705                                    VTARGET                               
021477,001267: 11,2231           03620                           STORE    VTPRIME                               
021478,001268: 11,2232           46135                           SLOAD    BHIZ                                  
021479,001269: 11,2233           03747                                    RTX2                                  

Page 491

021481,001271: 11,2234           22251                                    INITVELX                              
021482,001272: 11,2235           70575                           VLOAD    VSR2                                  
021483,001273: 11,2236           03620                                    VTPRIME                               
021484,001274: 11,2237           27620                           STOVL    VTPRIME                               
021485,001275: 11,2240           03612                                    VIPRIME                               
021486,001276: 11,2241           77742                           VSR2                                           
021487,001277: 11,2242           27612                           STOVL    VIPRIME                               
021488,001278: 11,2243           03604                                    RTARG1                                
021489,001279: 11,2244           77742                           VSR2                                           
021490,001280: 11,2245           27604                           STOVL    RTARG1                                
021491,001281: 11,2246           03646                                    DELVEET3                              
021492,001282: 11,2247           77742                           VSR2                                           
021493,001283: 11,2250           03646                           STORE    DELVEET3                              
021494,001284: 11,2251           77201        INITVELX           SETPD    VLOAD                                 
021495,001285: 11,2252           00001                                    0D                                    
021496,001286: 11,2253           03604                                    RTARG1                                
021497,001287: 11,2254           37415                           STCALL   RTARG                                 
021498,001288: 11,2255           01340                                    NORMEX                                
021499,001289: 
021500,001290:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
021501,001291: 

Page 492

021503,001293:                                                                                                  #  ..... MIDGIM .....
021504,001294:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
021505,001295:                                                                                                  #  REVISION 03, 17 FEB 67
021506,001296: 
021507,001297:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
021508,001298:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
021509,001299:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
021510,001300:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
021511,001301:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
021512,001302: 
021513,001303:                                                                                                  #  .. INPUTS ..
021514,001304:                                                                                                  #    NAME     MEANING                                            UNITS/SCALING/MODE
021515,001305:                                                                                                  #    AVFLAG   INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE        BIT
021516,001306:                                                                                                  #    COMPUTER INT FLAG - 0 IS LEM COMPUTER, 1 IS CSM COMPUTER    BIT
021517,001307:                                                                                                  #    RINIT    ACTIVE VEHICLE RADIUS VECTOR                       METERS/CSEC (+7) VT
021518,001308:                                                                                                  #    VINIT    ACTIVE VEHICLE VELOCITY VECTOR                     METERS/CSEC (+7) VT
021519,001309:                                                                                                  #    0D(PL)   ACTIVE VEHICLE DELTA VELOCITY VECTOR               METERS/CSEC (+7) VT
021520,001310: 
021521,001311:                                                                                                  #  .. OUTPUTS ..
021522,001312:                                                                                                  #    NAME     MEANING                                            UNITS/SCALING/MODE
021523,001313:                                                                                                  #    +MGA     + MIDDLE GIMBAL ANGLE                              REVOLUTIONS (+0) DP
021524,001314:                                                                                                  #    DELVLVC  DELTA VELOCITY VECTOR IN LV COORD.                 METERS/CSEC (+7) VT
021525,001315:                                                                                                  #    MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.        -         BIT
021526,001316: 
021527,001317:                                                                                                  #  .. CALLING SEQUENCE ..
021528,001318:                                                                                                  #        L       CALL
021529,001319:                                                                                                  #        L+1             MIDGIM
021530,001320:                                                                                                  #        L+2     (RETURN - ALWAYS)
021531,001321: 
021532,001322:                                                                                                  #  .. NO SUBROUTINES CALLED ..
021533,001323: 
021534,001324:                                                                                                  #  .. DEBRIS - ERASEABLE TEMPORARY USAGE 
021535,001325:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
021536,001326: 
021537,001327:                                                                                                  #  .. ALARMS - NONE ..
021538,001328: 

Page 493

021540,001330:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
021541,001331: 04,2000                                           SETLOC   MIDDGIM                               
021542,001332: 04,2000                                           BANK                                           
021543,001333: 
021544,001334: 04,2645                                           COUNT*   $$/MIDG                               
021545,001335: 
021546,001336: 04,2645           20000 00000  HALFREV            2DEC     1          B-1                        
021547,001337: 
021548,001338: 04,2647           43014        MIDGIM             BON      BOFF                                  
021549,001339: 04,2650           01312                                    AVFLAG                                
021550,001340: 04,2651           10667                                    MIDGIM1                               
021551,001341: 04,2652           02747                                    COMPUTER                              
021552,001342: 04,2653           10672                                    GET.LVC                               
021553,001343: 
021554,001344:                                                                                                  #  COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
021555,001345: 
021556,001346: 04,2654           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
021557,001347: 04,2655           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
021558,001348: 04,2656           01744                                    REFSMMAT   +6                         #  FROM +2 TO +1 FOR ASIN ROUTINE
021559,001349: 04,2657           51136                           ARCSIN   BPL                                   
021560,001350: 04,2660           10664                                    SETMGA                                
021561,001351: 04,2661           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
021562,001352: 04,2662           10646                                    HALFREV                               #  ADDING ONE REVOLUTION
021563,001353: 04,2663           10646                                    HALFREV                               
021564,001354: 04,2664           03626        SETMGA             STORE    +MGA                                  
021565,001355: 04,2665           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
021566,001356: 04,2666           02675                                    MGLVFLAG                              #  AND EXIT
021567,001357: 
021568,001358: 04,2667           77614        MIDGIM1            BOFF                                           
021569,001359: 04,2670           02747                                    COMPUTER                              
021570,001360: 04,2671           10654                                    GET+MGA                               
021571,001361: 
021572,001362:                                                                                                  #  COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES.
021573,001363: 
021574,001364: 04,2672           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC, UNITIZE UR
021575,001365: 04,2673           03570                                    RINIT                                 
021576,001366: 04,2674           77676                           VCOMP                                          #  U(-R)
021577,001367: 04,2675           00023                           STORE    18D                                   #  U(-R) TO 18D
021578,001368: 04,2676           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
021579,001369: 04,2677           03576                                    VINIT                                 
021580,001370: 04,2700           00015                           STORE    12D                                   #  U(V*R) TO 12D
021581,001371: 04,2701           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
021582,001372: 04,2702           00023                                    18D                                   
021583,001373: 04,2703           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
021584,001374: 04,2704           00001                                    0D                                    #  DELTA V (+7) IN 0D
021585,001375: 04,2705           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
021586,001376: 04,2706           00007                                    6D                                    #  AND SCALE +7 IN MPAC
021587,001377: 04,2707           03405                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
021588,001378: 04,2710           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
021589,001379: 04,2711           02475                                    MGLVFLAG                              #  AND EXIT
021590,001380: 
021591,001381:                                                                                                  #  ..... END OF MIDGIM ROUTINE .....
021592,001382: 

Page 494

021594,001384: 04,2712           77160        SELECTMU           AXC,1    AXT,2                                 
021595,001385: 04,2713           00002                                    2D                                    
021596,001386: 04,2714           00000                                    0D                                    
021597,001387: 04,2715           77614                           BOFF                                           
021598,001388: 04,2716           04343                                    CMOONFLG                              
021599,001389: 04,2717           10723                                    SETMUER                               
021600,001390: 04,2720           77160                           AXC,1    AXT,2                                 
021601,001391: 04,2721           00012                                    10D                                   
021602,001392: 04,2722           00002                                    2D                                    
021603,001393: 04,2723           66143        SETMUER            DLOAD*   SXA,1                                 
021604,001394: 04,2724           11744                                    MUTABLE    +4,1                       
021605,001395: 04,2725           03745                                    RTX1                                  
021606,001396: 04,2726           23752                           STODL*   RTSR1/MU                              
021607,001397: 04,2727           11736                                    MUTABLE    -2,1                       
021608,001398: 04,2730           54214                           BOFF     SR                                    
021609,001399: 04,2731           04343                                    CMOONFLG                              
021610,001400: 04,2732           10734                                    RTRNMU                                
021611,001401: 04,2733           20607                                    6D                                    
021612,001402: 04,2734           03750        RTRNMU             STORE    RTMU                                  
021613,001403: 04,2735           43134                           SXA,2    CLEAR                                 
021614,001404: 04,2736           03746                                    RTX2                                  
021615,001405: 04,2737           01271                                    FINALFLG                              
021616,001406: 04,2740           77650                           GOTO                                           
021617,001407: 04,2741           73002                                    VN1645                                
021618,001408: 

Page 495

021620,001410:                                                                                                  #  ..... PERIAPO .....
021621,001411:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
021622,001412:                                                                                                  #  MOD BY WHITE.P                DATE 18JAN68
021623,001413: 
021624,001414:                                                                                                  #  FUNCTIONAL DESCRIPTION
021625,001415: 
021626,001416:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
021627,001417:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
021628,001418:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
021629,001419: 
021630,001420:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
021631,001421: 
021632,001422:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
021633,001423:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
021634,001424: 
021635,001425:                                                                                                  #  CALLING SEQUENCE
021636,001426:                                                                                                  #        L       CALL
021637,001427:                                                                                                  #        L+1             PERIAPO
021638,001428:                                                                                                  #        L+2     (RETURN - ALWAYS)
021639,001429: 
021640,001430:                                                                                                  #  INPUT
021641,001431:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
021642,001432:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021643,001433:                                                                                                  #        (2)     VVEC    VELOCITY VECTOR IN METERS/CENTISECOND
021644,001434:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
021645,001435:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
021646,001436:                                                                                                  #                        EARTH -2, MOON -10
021647,001437: 
021648,001438:                                                                                                  #  OUTPUT
021649,001439:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
021650,001440:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021651,001441:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
021652,001442:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
021653,001443:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
021654,001444:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021655,001445:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
021656,001446:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021657,001447:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
021658,001448:                                                                                                  #                        SCALE FACTOR - +3
021659,001449:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
021660,001450:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021661,001451:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
021662,001452: 
021663,001453:                                                                                                  #  SUBROUTINES USED
021664,001454:                                                                                                  #        SETRAD

Page 496

021666,001456:                                                                                                  #        APSIDES
021667,001457: 
021668,001458: 22,2000                                           SETLOC   APOPERI                               
021669,001459: 22,2000                                           BANK                                           
021670,001460: 
021671,001461: 22,3151                                           COUNT*   $$/PERAP                              
021672,001462: 
021673,001463: 22,3151           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
021674,001464:                                                                                                  #  = 20 909 901.57 FT
021675,001465: 
021676,001466: 22,3153           53754        PERIAPO1           LXA,2    VSR*                                  
021677,001467: 22,3154           03746                                    RTX2                                  
021678,001468: 22,3155           57176                                    0,2                                   
021679,001469: 22,3156           26746                           STOVL    VVEC                                  
021680,001470: 22,3157           53750                           LXA,1    VSR*                                  
021681,001471: 22,3160           03745                                    RTX1                                  
021682,001472: 22,3161           57176                                    0,2                                   
021683,001473: 22,3162           02657                           STORE    RVEC                                  
021684,001474: 22,3163           45020        PERIAPO            STQ      CALL                                  
021685,001475: 22,3164           01340                                    NORMEX                                
021686,001476: 22,3165           45201                                    SETRAD                                
021687,001477: 22,3166           37456                           STCALL   XXXALT                                
021688,001478: 22,3167           25703                                    APSIDES                               
021689,001479: 22,3170           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
021690,001480: 22,3171           00003                                    2D                                    
021691,001481: 22,3172           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
021692,001482: 22,3173           03456                                    XXXALT                                
021693,001483: 22,3174           00001                                    0D                                    
021694,001484: 22,3175           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
021695,001485: 22,3176           03456                                    XXXALT                                
021696,001486: 22,3177           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
021697,001487: 22,3200           01340                                    NORMEX                                

Page 497

021699,001489:                                                                                                  #  SETRAD
021700,001490: 22,3201           41545        SETRAD             DLOAD    PUSH                                  
021701,001491: 22,3202           05152                                    RPAD                                  
021702,001492: 22,3203           63130                           SXA,1    INCR,2                                
021703,001493: 22,3204           00047                                    X2                                    
021704,001494: 22,3205           00002                                    2D                                    
021705,001495: 22,3206           46135                           SLOAD    BHIZ                                  
021706,001496: 22,3207           00050                                    X2                                    
021707,001497: 22,3210           45214                                    SETRADX                               
021708,001498: 22,3211           51575                           VLOAD    ABVAL                                 
021709,001499: 22,3212           02026                                    RLS                                   
021710,001500: 22,3213           77725                           PDDL                                           
021711,001501: 22,3214           43545        SETRADX            DLOAD    RVQ                                   
021712,001502: 

Page 498

021714,001504:                                                                                                  #  PRECSET
021715,001505: 22,3215           77620        PRECSET            STQ                                            
021716,001506: 22,3216           01340                                    NORMEX                                
021717,001507: 22,3217           36635                           STCALL   TDEC2                                 
021718,001508: 22,3220           27105                                    LEMPREC                               
021719,001509: 22,3221           77624                           CALL                                           
021720,001510: 22,3222           45233                                    LEMSTORE                              
021721,001511: 22,3223           77745                           DLOAD                                          
021722,001512: 22,3224           02635                                    TDEC2                                 
021723,001513: 22,3225           34041                           STCALL   TDEC1                                 
021724,001514: 22,3226           27071                                    CSMPREC                               
021725,001515: 22,3227           77624                           CALL                                           
021726,001516: 22,3230           45243                                    CSMSTORE                              
021727,001517: 22,3231           77650                           GOTO                                           
021728,001518: 22,3232           01340                                    NORMEX                                
021729,001519: 22,3233           43175        LEMSTORE           VLOAD    BOFF                                  
021730,001520: 22,3234           00001                                    RATT                                  
021731,001521: 22,3235           01352                                    AVFLAG                                
021732,001522: 22,3236           45247                                    PASSIVE                               
021733,001523: 22,3237           27540        ACTIVE             STOVL    RACT3                                 
021734,001524: 22,3240           00007                                    VATT                                  
021735,001525: 22,3241           03546                           STORE    VACT3                                 
021736,001526: 22,3242           77616                           RVQ                                            
021737,001527: 22,3243           43175        CSMSTORE           VLOAD    BOFF                                  
021738,001528: 22,3244           00001                                    RATT                                  
021739,001529: 22,3245           01352                                    AVFLAG                                
021740,001530: 22,3246           45237                                    ACTIVE                                
021741,001531: 22,3247           27554        PASSIVE            STOVL    RPASS3                                
021742,001532: 22,3250           00007                                    VATT                                  
021743,001533: 22,3251           03562                           STORE    VPASS3                                
021744,001534: 22,3252           77616                           RVQ                                            
021745,001535: 

Page 499

021747,001537:                                                                                                  #  VECSHIFT
021748,001538: 22,3253           53754        VECSHIFT           LXA,2    VSR*                                  
021749,001539: 22,3254           03746                                    RTX2                                  
021750,001540: 22,3255           57176                                    0,2                                   
021751,001541: 22,3256           63350                           LXA,1    PDVL                                  
021752,001542: 22,3257           03745                                    RTX1                                  
021753,001543: 22,3260           63257                           VSR*     PDVL                                  
021754,001544: 22,3261           57176                                    0,2                                   
021755,001545: 22,3262           77616                           RVQ                                            
021756,001546: 

Page 500

021758,001548:                                                                                                  #  SHIFTR1
021759,001549: 22,3263           53754        SHIFTR1            LXA,2    SL*                                   
021760,001550: 22,3264           03746                                    RTX2                                  
021761,001551: 22,3265           57576                                    0,2                                   
021762,001552: 22,3266           77616                           RVQ                                            
021763,001553: 

Page 501

021765,001555:                                                                                                  #  PROGRAM DESCRIPTION
021766,001556: 
021767,001557:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
021768,001558:                                                                                                  #  MOD NO. 2             DATE 2 JANUARY 1969
021769,001559:                                                                                                  #  MOD BY A.W.BANCROFT   LOG SECTION EXTENDED VERBS
021770,001560: 
021771,001561:                                                                                                  #  FUNCTIONAL DESCRIPTION
021772,001562: 
021773,001563:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
021774,001564:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI).  (REQUESTED BY DSKY).
021775,001565: 
021776,001566:                                                                                                  #  CALLING SEQUENCE
021777,001567:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V 90 E
021778,001568: 
021779,001569:                                                                                                  #  SUBROUTINES CALLED
021780,001570:                                                                                                  #        EXDSPRET
021781,001571:                                                                                                  #        GOMARKF
021782,001572:                                                                                                  #        CSMPREC
021783,001573:                                                                                                  #        LEMPREC
021784,001574:                                                                                                  #        SGNAGREE
021785,001575:                                                                                                  #        LOADTIME
021786,001576: 
021787,001577:                                                                                                  #  NORMAL EXIT MODES
021788,001578:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
021789,001579: 
021790,001580:                                                                                                  #  ALARM OR ABORT EXIT MODES
021791,001581:                                                                                                  #        NONE
021792,001582: 
021793,001583:                                                                                                  #  OUTPUT
021794,001584:                                                                                                  #        DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
021795,001585: 
021796,001586:                                                                                                  #        DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
021797,001587:                                                                                                  #        REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
021798,001588: 
021799,001589:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
021800,001590:                                                                                                  #        CSM AND LEM STATE VECTORS
021801,001591: 
021802,001592:                                                                                                  #  DEBRIS
021803,001593:                                                                                                  #        CENTRALS A,Q,L
021804,001594:                                                                                                  #        OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
021805,001595: 
021806,001596: 20,2164                                           BANK     20                                    
021807,001597: 20,2000                                           SETLOC   R36CM                                 
021808,001598: 20,2000                                           BANK                                           

Page 502

021810,001600: 20,2164  E4,1726                                  EBANK=   RPASS36                               
021811,001601: 
021812,001602: 20,2164  41,3727                                  SBANK=   R36A                                  
021813,001603: 20,2164                                           COUNT*   $$/R36                                
021814,001604: 
021815,001605: 20,2164           35016        R36                CAF      TWO                                   
021816,001606: 20,2165           55051                           TS       OPTIONX                               
021817,001607: 20,2166           35017                           CAF      ONE                                   
021818,001608: 20,2167           55052                           TS       OPTIONX    +1                         
021819,001609: 20,2170           32200                           CAF      OPTION36                              #  V 04 N 12
021820,001610: 20,2171           04662                           TC       BANKCALL                              
021821,001611: 20,2172           20561                           CADR     GOXDSPF                               
021822,001612: 20,2173           05534                           TC       ENDEXT                                #  TERMINATE
021823,001613: 20,2174           02176                           TC       +2                                    #  PROCEED
021824,001614: 20,2175           02170                           TC       -5                                    #  R2 LOADED VIA DSKY
021825,001615: 20,2176           04701                           TC       POSTJUMP                              
021826,001616: 20,2177           63727                           CADR     R36A                                  
021827,001617: 
021828,001618: 20,2200           01014        OPTION36           VN       0412                                  
021829,001619: 
021830,001620: 41,2000                                           SETLOC   R36LM                                 
021831,001621: 41,2000                                           BANK                                           
021832,001622: 
021833,001623: 41,3727           22007        R36A               ZL                                             
021834,001624: 41,3730           35021                           CAF      ZERO                                  #  SET TIME OF EVENT TO ZERO FOR FIRST
021835,001625: 41,3731           53052                           DXCH     DSPTEMX                               #  DISPLAY
021836,001626: 41,3732           23742                           LXCH     OPTIONY                               #  SAVE VEH. OPTION
021837,001627: 41,3733           33775        R36P3              CAF      V06N16N                               
021838,001628: 41,3734           04662                           TC       BANKCALL                              
021839,001629: 41,3735           20561                           CADR     GOMARKF                               
021840,001630: 41,3736           15534                           TCF      ENDEXT                                #  TERMINATE
021841,001631: 41,3737           13741                           TCF      +2                                    #  PROCEED
021842,001632: 41,3740           13733                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
021843,001633: 41,3741           53052                           DXCH     DSPTEMX                               
021844,001634: 41,3742           00006                           EXTEND                                         
021845,001635: 41,3743           13764                           BZF      LREGCHK                               #  A-REG ZERO GOTO CHECK L-REG FOR ZERO
021846,001636: 41,3744           52155        ASTROTIM           DXCH     MPAC                                  #  A-REG NON-ZERO, TIME = ASTRO INPUT TIME
021847,001637: 41,3745           06006                           TC       INTPRET                               
021848,001638: 41,3746           52034                           RTB      GOTO                                  
021849,001639: 41,3747           45716                                    DPMODE                                
021850,001640: 41,3750           65521                                    R36INT                                
021851,001641: 
021852,001642: 42,2000                                           SETLOC   R36LM1                                
021853,001643: 42,2000                                           BANK                                           
021854,001644: 
021855,001645: 42,3521           00041        R36INT             STORE    TDEC1                                 
021856,001646: 42,3522           70535                           SLOAD    SR1                                   
021857,001647: 42,3523           02343                                    OPTIONY                               
021858,001648: 42,3524           45030                           BHIZ     CALL                                  
021859,001649: 42,3525           65531                                    R36PROG2                              #  FOR CSM DISPLAY

Page 503

021861,001651: 42,3526           27071                                    THISPREC                              #  FOR LEM DISPLAY
021862,001652: 42,3527           77650                           GOTO                                           
021863,001653: 42,3530           65533                                    R36PROG3                              
021864,001654: 42,3531           77624        R36PROG2           CALL                                           
021865,001655: 42,3532           27105                                    OTHPREC                               
021866,001656: 42,3533           63375        R36PROG3           VLOAD    PDVL                                  
021867,001657: 42,3534           00007                                    VATT                                  
021868,001658: 42,3535           00001                                    RATT                                  #  -
021869,001659: 42,3536           02327                           STORE    RPASS36                               #  R
021870,001660: 42,3537           63256                           UNIT     PDVL                                  #   P
021871,001661: 42,3540           53435                           VXV      UNIT                                  #  -
021872,001662: 42,3541           77626                           STADR                                          
021873,001663: 42,3542           61442                           STODL    UNP36                                 #  U
021874,001664: 42,3543           00015                                    TAT                                   
021875,001665: 42,3544           00041                           STORE    TDEC1                                 
021876,001666: 42,3545           70535                           SLOAD    SR1                                   
021877,001667: 42,3546           02343                                    OPTIONY                               
021878,001668: 42,3547           45030                           BHIZ     CALL                                  
021879,001669: 42,3550           65554                                    R36PROG4                              #  FOR CSM DISPLAY
021880,001670: 42,3551           27105                                    OTHPREC                               #  FOR LEM DISPLAY
021881,001671: 42,3552           77650                           GOTO                                           
021882,001672: 42,3553           65556                                    R36PROG5                              
021883,001673: 42,3554           77624        R36PROG4           CALL                                           
021884,001674: 42,3555           27071                                    THISPREC                              
021885,001675: 42,3556           63375        R36PROG5           VLOAD    PDVL                                  #                        -
021886,001676: 42,3557           00007                                    VATT                                  #  VELOCITY VECTOR       V       00D
021887,001677: 42,3560           00001                                    RATT                                  #                         A
021888,001678: 42,3561           77725                           PDDL                                           
021889,001679: 42,3562           00015                                    TAT                                   #  SAVE TIME IN LOCATION 30D FOR REDISPLAY
021890,001680: 42,3563           24037                           STOVL    30D                                   #                   -
021891,001681: 42,3564           41406                           PUSH     PUSH                                  #  POSITION VECTOR  R   IN  06D AND 12D
021892,001682: 42,3565           63245                           BVSU     PDVL                                  #                    A  -   -
021893,001683: 42,3566           02327                                    RPASS36                               #  LINE OF SIGHT VECTOR R - R       12D
021894,001684: 42,3567           72441                           DOT      SL1                                   #                        P   A
021895,001685: 42,3570           02335                                    UNP36                                 #      -   -
021896,001686: 42,3571           26321                           STOVL    RANGE                                 #  Y = U . R
021897,001687: 42,3572           00001                                    00D                                   #           A
021898,001688: 42,3573           72441                           DOT      SL1                                   
021899,001689: 42,3574           02335                                    UNP36                                 #  .   -   -
021900,001690: 42,3575           26323                           STOVL    RRATE                                 #  Y = U . V
021901,001691: 42,3576           00007                                    06D                                   #  -        A  -
021902,001692: 42,3577           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
021903,001693: 42,3600           47235                           VXV      VXV                                   #   RA          A
021904,001694: 42,3601           00001                                    00D                                   #   -    -     -     -
021905,001695: 42,3602           00023                                    18D                                   #  (U  X V ) X U   = U
021906,001696: 42,3603           53552                           VSL2     UNIT                                  #    RA   A     RA    A
021907,001697: 42,3604           52056                           UNIT     GOTO                                  
021908,001698: 42,3605           61600                                    R36B                                  
021909,001699: 
021910,001700: 40,2000                                           SETLOC   R36CM1                                

Page 504

021912,001702: 40,2000                                           BANK                                           
021913,001703: 
021914,001704: 40,3600           24001        R36B               STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D
021915,001705: 40,3601           00023                                    18D                                   
021916,001706: 40,3602           74241                           DOT      VXSC                                  #  -
021917,001707: 40,3603           00015                                    12D                                   #  U
021918,001708: 40,3604           77752                           VSL2                                           #   L
021919,001709: 40,3605           53445                           BVSU     UNIT                                  
021920,001710: 40,3606           77656                           UNIT                                           
021921,001711: 40,3607           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
021922,001712: 40,3610           00001                                    00D                                   #  PLANE
021923,001713: 40,3611           65552                           SL1      ARCCOS                                #               -   -
021924,001714: 40,3612           26325                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
021925,001715: 40,3613           50235                           VXV      DOT                                   #                A   L
021926,001716: 40,3614           00001                                    00D                                   
021927,001717: 40,3615           71244                           BPL      DLOAD                                 
021928,001718: 40,3616           63751                                    R36TAG2                               
021929,001719: 40,3617           15343                                    DPPOSMAX                              
021930,001720: 40,3620           77625                           DSU                                            
021931,001721: 40,3621           02325                                    RTHETA                                
021932,001722: 40,3622           36325                           STCALL   RTHETA                                
021933,001723: 40,3623           63751                                    R36TAG2                               
021934,001724: 
021935,001725: 41,2000                                           SETLOC   R36LM                                 
021936,001726: 41,2000                                           BANK                                           
021937,001727: 
021938,001728: 41,3751           47145        R36TAG2            DLOAD    RTB                                   
021939,001729: 41,3752           00037                                    30D                                   
021940,001730: 41,3753           45544                                    SGNAGREE                              
021941,001731: 41,3754           01052                           STORE    DSPTEMX                               
021942,001732: 41,3755           77776                           EXIT                                           
021943,001733: 41,3756           33776                           CAF      V06N90N                               #  DISPLAY Y, YDOT, AND PSI
021944,001734: 41,3757           04662                           TC       BANKCALL                              
021945,001735: 41,3760           20561                           CADR     GOMARKF                               
021946,001736: 41,3761           15534                           TCF      ENDEXT                                #  TERMINATE
021947,001737: 41,3762           15534                           TCF      ENDEXT                                #  PROCEED, END OF PROGRAM
021948,001738: 41,3763           13733                           TCF      R36P3                                 #  REDISPLAY OUTPUT
021949,001739: 41,3764           56001        LREGCHK            XCH      L                                     
021950,001740: 41,3765           00006                           EXTEND                                         
021951,001741: 41,3766           13771                           BZF      ENTTIM2                               #  L-REG ZERO, SET TIME = PRESENT TIME
021952,001742: 41,3767           56001                           XCH      L                                     #  L-REG NON ZERO, TIME = ASTRO INPUT TIME
021953,001743: 41,3770           13744                           TCF      ASTROTIM                              
021954,001744: 41,3771           06006        ENTTIM2            TC       INTPRET                               
021955,001745: 41,3772           52034                           RTB      GOTO                                  
021956,001746: 41,3773           45510                                    LOADTIME                              
021957,001747: 41,3774           65521                                    R36INT                                
021958,001748: 41,3775           01420        V06N16N            VN       00616                                 
021959,001749: 41,3776           01532        V06N90N            VN       00690                                 
021960,001750: 41,3777  30,2000                                  SBANK=   LOWSUPER                              

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