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.

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

Page 460

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

Page 461

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

Page 462

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

Page 463

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

Page 464

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

Page 465

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

Page 466

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

Page 467

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

Page 468

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

Page 469

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

Page 470

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

Page 471

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

Page 472

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

Page 473

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

Page 474

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

Page 475

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

Page 476

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

Page 477

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

Page 478

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

Page 479

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

Page 480

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

Page 481

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

Page 482

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

Page 483

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

Page 484

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

Page 485

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

Page 486

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

Page 487

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

Page 488

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

Page 489

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

Page 490

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

Page 491

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

Page 492

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

Page 493

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

Page 494

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

Page 495

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

Page 496

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

Page 497

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

Page 498

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

Page 499

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

Page 500

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

Page 501

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

Page 502

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

Page 503

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

Page 504

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

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