Source Code

This is a reconstructed version of Luminary 130, the initial AGC program released in November 1969 for the Apollo 13 LM. Three more releases followed before the flown revision was finally manufactured in February 1970.

This reconstruction was created from a previous transcription of the original listing of Luminary 131, combined with Luminary memo #129 which describes the small difference between the Luminary 130 and 131. The reconstructed source code was verified by matching memory-bank checksums to those listed for Luminary 130 in drawing 2021152G.

In this source code, program comments from the original (Luminary 131) code are prefixed with '#', while those added later by the Virtual AGC project are prefixed with '##'.

028225,000002:                                                                                                  ## Copyright:   Public domain.
028226,000003:                                                                                                  ## Filename:    P34-P35,_P74-P75.agc
028227,000004:                                                                                                  ## Purpose:     A section of the reconstructed source code for Luminary 130.
028228,000005:                                                                                                  ##              This was the original program released for the Apollo 13 LM,
028229,000006:                                                                                                  ##              although several more revisions would follow. It has been
028230,000007:                                                                                                  ##              reconstructed from a listing of Luminary 131, from which it
028231,000008:                                                                                                  ##              differs on only two lines in P70-P71. The difference is
028232,000009:                                                                                                  ##              described in detail in Luminary memo #129, which was used
028233,000010:                                                                                                  ##              to perform the reconstruction. This file is intended to be a
028234,000011:                                                                                                  ##              faithful reconstruction, except that the code format has been
028235,000012:                                                                                                  ##              changed to conform to the requirements of the yaYUL assembler
028236,000013:                                                                                                  ##              rather than the original YUL assembler.
028237,000014:                                                                                                  ## Reference:   pp. 660-704
028238,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028239,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo
028240,000017:                                                                                                  ## Mod history: 05/22/03 RSB.   Began transcribing.
028241,000018:                                                                                                  ##              2010-10-25 JL   Added missing # in comments.
028242,000019:                                                                                                  ##              2011-05-07 JL   Removed workaround.
028243,000020:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
028244,000021:                                                                                                  ##                              original harcopy, as opposed to the PDF page
028245,000022:                                                                                                  ##                              numbers in 1701.pdf.
028246,000023:                                                                                                  ##              2017-01-28 RSB  Back-ported some comment fixes I noticed while
028247,000024:                                                                                                  ##                              proofing Luminary 69.
028248,000025:                                                                                                  ##              2017-01-28 RSB  Back-ported some comment fixes I noticed while
028249,000026:                                                                                                  ##                              proofing Artemis 72.
028250,000027:                                                                                                  ##              2017-02-24 RSB  Proofed comment text using octopus/ProoferComments.
028251,000028:                                                                                                  ##              2017-02-28 RSB  Fixed lingering typos.
028252,000029:                                                                                                  ##              2017-03-09 RSB  Fixed VNP00H to VNPOOH.
028253,000030:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116. 
028254,000031:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
028255,000032:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
028256,000033:                                                                                                  ##              2018-09-04 MAS  Copied from Luminary 131 for Luminary 130.
028257,000034: 

Page 660

028259,000036:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
028260,000037:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
028261,000038:                                                                                                  #  MOD BY WHITE.P                DATE 1 JUNE 67
028262,000039: 
028263,000040:                                                                                                  #  PURPOSE
028264,000041:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028265,000042:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
028266,000043:                                                                                                  #                PHASE INITIATION (TPI) MANEUVER, GIVEN -
028267,000044:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
028268,000045:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
028269,000046:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
028270,000047:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
028271,000048:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
028272,000049:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028273,000050:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028274,000051:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028275,000052:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028276,000053:                                                                                                  #                ASTRONAUT/GROUND.
028277,000054:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
028278,000055:                                                                                                  #                THRUSTING PROGRAM.
028279,000056: 
028280,000057:                                                                                                  #  ASSUMPTIONS
028281,000058:                                                                                                  #        (1)     LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
028282,000059:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
028283,000060:                                                                                                  #                THEREFORE -
028284,000061:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028285,000062:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028286,000063:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028287,000064:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028288,000065:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028289,000066:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
028290,000067:                                                                                                  #                (C)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028291,000068:                                                                                                  #                        ORBITS WAS MINIMIZED.
028292,000069:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
028293,000070:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 661

028295,000072:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
028296,000073:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
028297,000074:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
028298,000075:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
028299,000076:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
028300,000077:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
028301,000078:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
028302,000079:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
028303,000080:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
028304,000081:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
028305,000082:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
028306,000083:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
028307,000084:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
028308,000085:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028309,000086:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
028310,000087:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028311,000088:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
028312,000089:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028313,000090:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
028314,000091:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028315,000092:                                                                                                  #                THRUSTING MANEUVER.
028316,000093:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028317,000094:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028318,000095: 
028319,000096:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028320,000097:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028321,000098:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028322,000099:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028323,000100: 
028324,000101:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028325,000102:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028326,000103: 
028327,000104:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028328,000105:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028329,000106:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028330,000107: 
028331,000108:                                                                                                  #        (7)     ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
028332,000109:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028333,000110:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028334,000111:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028335,000112:                                                                                                  #                THROUGH THE USE OF V06N52.
028336,000113: 
028337,000114:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028338,000115:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 662

028340,000117:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
028341,000118:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028342,000119:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
028343,000120:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028344,000121: 
028345,000122:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
028346,000123: 
028347,000124:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
028348,000125: 
028349,000126:                                                                                                  #  INPUT
028350,000127:                                                                                                  #        (1)     TTPI    TIME OF THE TPI MANEUVER
028351,000128:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
028352,000129:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028353,000130:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
028354,000131: 
028355,000132:                                                                                                  #  OUTPUT
028356,000133:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
028357,000134:                                                                                                  #        (2)     TTOGO           TIME TO GO
028358,000135:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
028359,000136:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
028360,000137:                                                                                                  #                 OR
028361,000138:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
028362,000139:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
028363,000140:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
028364,000141:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
028365,000142:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI - LINE OF SIGHT
028366,000143:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
028367,000144: 
028368,000145:                                                                                                  #  DOWNLINK
028369,000146:                                                                                                  #        (1)     TTPI            TIME OF THE TPI MANEUVER
028370,000147:                                                                                                  #        (2)     TIG             TIME OF THE TPI MANEUVER
028371,000148:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
028372,000149:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028373,000150:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
028374,000151:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI - REFERENCE COORDINATES
028375,000152:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
028376,000153: 
028377,000154:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028378,000155:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
028379,000156:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
028380,000157:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028381,000158:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028382,000159: 
028383,000160:                                                                                                  #  SUBROUTINES USED
028384,000161:                                                                                                  #        AVFLAGA

Page 663

028386,000163:                                                                                                  #        AVFLAGP
028387,000164:                                                                                                  #        VNPOOH
028388,000165:                                                                                                  #        DISPLAYE
028389,000166:                                                                                                  #        SELECTMU
028390,000167:                                                                                                  #        PRECSET
028391,000168:                                                                                                  #        S33/34.1
028392,000169:                                                                                                  #        ALARM
028393,000170:                                                                                                  #        BANKCALL
028394,000171:                                                                                                  #        GOFLASH
028395,000172:                                                                                                  #        GOTOPOOH
028396,000173:                                                                                                  #        TIMETHET
028397,000174:                                                                                                  #        S34/35.2
028398,000175:                                                                                                  #        PERIAPO1
028399,000176:                                                                                                  #        SHIFTR1
028400,000177:                                                                                                  #        S34/35.5
028401,000178:                                                                                                  #        VN1645
028402,000179: 
028403,000180: 35,2000                                           SETLOC   CSI/CDH                               
028404,000181: 35,2000                                           BANK                                           
028405,000182: 35,2455  E7,1470                                  EBANK=   SUBEXIT                               
028406,000183: 35,2455                                           COUNT*   $$/P3474                              
028407,000184: 35,2455           02354        P34                TC       AVFLAGA                               
028408,000185: 35,2456           02460                           TC       P34/P74A                              
028409,000186: 35,2457           02361        P74                TC       AVFLAGP                               
028410,000187: 35,2460           02366        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
028411,000188: 35,2461           33632                           CAF      V06N37                                #  TTPI
028412,000189: 35,2462           03621                           TC       VNPOOH                                
028413,000190: 35,2463           00006                           EXTEND                                         
028414,000191: 35,2464           33655                           DCA      130DEG                                
028415,000192: 35,2465           53621                           DXCH     CENTANG                               
028416,000193: 35,2466           32424                           CAF      P30ZERO                               
028417,000194: 35,2467           55466                           TS       NN                                    
028418,000195: 35,2470           03603                           TC       DISPLAYE                              #  ELEV AND CENTANG
028419,000196: 35,2471           06042                           TC       INTPRET                               
028420,000197: 35,2472           71214                           CLEAR    DLOAD                                 
028421,000198: 35,2473           01270                                    ETPIFLAG                              
028422,000199: 35,2474           03636                                    TTPI                                  
028423,000200: 35,2475           17442                           STODL    TIG                                   
028424,000201: 35,2476           02257                                    ELEV                                  
028425,000202: 35,2477           43054                           BZE      SET                                   
028426,000203: 35,2500           72502                                    P34/P74B                              
028427,000204: 35,2501           01070                                    ETPIFLAG                              
028428,000205: 35,2502           77624        P34/P74B           CALL                                           
028429,000206: 35,2503           20000                                    SELECTMU                              
028430,000207: 35,2504                        DELELO             EQUALS   26D                                   
028431,000208: 35,2504           43145        P34/P74C           DLOAD    SET                                   
028432,000209: 35,2505           06524                                    ZEROVECS                              
028433,000210: 35,2506           03460                                    ITSWICH                               
028434,000211: 35,2507           43014                           BON      CLEAR                                 
028435,000212: 35,2510           01310                                    ETPIFLAG                              

Page 664

028437,000214: 35,2511           72513                                    SWCHSET                               
028438,000215: 35,2512           03660                                    ITSWICH                               
028439,000216: 35,2513           02317        SWCHSET            STORE    NOMTPI                                
028440,000217: 35,2514           43345        INTLOOP            DLOAD    DAD                                   
028441,000218: 35,2515           03636                                    TTPI                                  
028442,000219: 35,2516           02317                                    NOMTPI                                
028443,000220: 35,2517           34041                           STCALL   TDEC1                                 
028444,000221: 35,2520           46403                                    PRECSET                               
028445,000222: 35,2521           77624                           CALL                                           
028446,000223: 35,2522           72674                                    S33/34.1                              
028447,000224: 35,2523           77454                           BZE      EXIT                                  
028448,000225: 35,2524           72535                                    SWCHCLR                               
028449,000226: 35,2525           05567                           TC       ALARM                                 
028450,000227: 35,2526           00611                           OCT      611                                   
028451,000228: 35,2527           35006                           CAF      V05N09                                
028452,000229: 35,2530           04616                           TC       BANKCALL                              
028453,000230: 35,2531           20477                           CADR     GOFLASH                               
028454,000231: 35,2532           06001                           TC       GOTOPOOH                              
028455,000232: 35,2533           02460                           TC       P34/P74A                              #  PROCEED
028456,000233: 35,2534           02525                           TC       -7                                    #  V32
028457,000234: 
028458,000235: 35,2535           43014        SWCHCLR            BONCLR   BON                                   
028459,000236: 35,2536           03600                                    ITSWICH                               
028460,000237: 35,2537           72514                                    INTLOOP                               
028461,000238: 35,2540           01310                                    ETPIFLAG                              
028462,000239: 35,2541           72545                                    P34/P74D                              #  DISPLAY TTPI
028463,000240: 35,2542           77776                           EXIT                                           
028464,000241: 35,2543           03603                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
028465,000242: 35,2544           02550                           TC       P34/P74E                              
028466,000243: 35,2545           77776        P34/P74D           EXIT                                           
028467,000244: 35,2546           33632                           CAF      V06N37                                #  TTPI
028468,000245: 35,2547           03621                           TC       VNPOOH                                
028469,000246: 35,2550           06042        P34/P74E           TC       INTPRET                               
028470,000247: 35,2551           71201                           SETPD    DLOAD                                 
028471,000248: 35,2552           00001                                    0D                                    
028472,000249: 35,2553           02777                                    RTX1                                  
028473,000250: 35,2554           14047                           STODL    X1                                    
028474,000251: 35,2555           03621                                    CENTANG                               
028475,000252: 35,2556           71406                           PUSH     COS                                   
028476,000253: 35,2557           16732                           STODL    CSTH                                  
028477,000254: 35,2560           77756                           SIN                                            
028478,000255: 35,2561           26730                           STOVL    SNTH                                  
028479,000256: 35,2562           03552                                    RPASS3                                
028480,000257: 35,2563           77657                           VSR*                                           
028481,000258: 35,2564           57176                                    0,2                                   
028482,000259: 35,2565           26655                           STOVL    RVEC                                  
028483,000260: 35,2566           03560                                    VPASS3                                
028484,000261: 35,2567           43057                           VSR*     SET                                   
028485,000262: 35,2570           57176                                    0,2                                   
028486,000263: 35,2571           03466                                    RVSW                                  

Page 665

028488,000265: 35,2572           36744                           STCALL   VVEC                                  
028489,000266: 35,2573           24732                                    TIMETHET                              
028490,000267: 35,2574           77745                           DLOAD                                          
028491,000268: 35,2575           03636                                    TTPI                                  
028492,000269: 35,2576           03610                           STORE    INTIME                                #  FOR INITVEL
028493,000270: 35,2577           77615                           DAD                                            
028494,000271: 35,2600           00037                                    T                                     #  RENDEZVOUS TIME
028495,000272: 35,2601           37631                           STCALL   TPASS4                                #  FOR INITVEL
028496,000273: 35,2602           73216                                    S34/35.2                              
028497,000274: 35,2603           51575                           VLOAD    ABVAL                                 
028498,000275: 35,2604           02366                                    DELVEET3                              
028499,000276: 35,2605           27576                           STOVL    DELVTPI                               
028500,000277: 35,2606           03506                                    VPASS4                                
028501,000278: 35,2607           51451                           VSU      ABVAL                                 
028502,000279: 35,2610           03566                                    VTPRIME                               
028503,000280: 35,2611           26350                           STOVL    DELVTPF                               
028504,000281: 35,2612           03536                                    RACT3                                 
028505,000282: 35,2613           45115                           PDVL     CALL                                  
028506,000283: 35,2614           02337                                    VIPRIME                               
028507,000284: 35,2615           46341                                    PERIAPO1                              
028508,000285: 35,2616           77624                           CALL                                           
028509,000286: 35,2617           46451                                    SHIFTR1                               
028510,000287: 35,2620           17606                           STODL    POSTTPI                               
028511,000288: 35,2621           03636                                    TTPI                                  
028512,000289: 35,2622           03442                           STORE    TIG                                   
028513,000290: 35,2623           77776                           EXIT                                           
028514,000291: 35,2624           33634                           CAF      V06N58                                
028515,000292: 35,2625           03621                           TC       VNPOOH                                
028516,000293: 35,2626           06042                           TC       INTPRET                               
028517,000294: 35,2627           77624                           CALL                                           
028518,000295: 35,2630           73432                                    S34/35.5                              
028519,000296: 35,2631           77624                           CALL                                           
028520,000297: 35,2632           73515                                    VN1645                                
028521,000298: 35,2633           77650                           GOTO                                           
028522,000299: 35,2634           72504                                    P34/P74C                              

Page 666

028524,000301:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
028525,000302:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
028526,000303:                                                                                                  #  MOD BY WHITE.P                DATE   1 JUNE 67
028527,000304: 
028528,000305:                                                                                                  #  PURPOSE
028529,000306:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028530,000307:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
028531,000308:                                                                                                  #                MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
028532,000309:                                                                                                  #                VEHICLE RENDEZVOUS.
028533,000310:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028534,000311:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028535,000312:                                                                                                  #                ASTRONAUT/GROUND.
028536,000313:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
028537,000314:                                                                                                  #                THRUSTING PROGRAM.
028538,000315: 
028539,000316:                                                                                                  #  ASSUMPTIONS
028540,000317:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028541,000318:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028542,000319:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
028543,000320:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
028544,000321:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
028545,000322:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
028546,000323:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
028547,000324:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
028548,000325:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
028549,000326:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028550,000327: 
028551,000328:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028552,000329:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028553,000330:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028554,000331:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028555,000332: 
028556,000333:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028557,000334:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028558,000335: 
028559,000336:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028560,000337:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028561,000338:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028562,000339: 
028563,000340:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
028564,000341:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
028565,000342:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.

Page 667

028567,000344:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
028568,000345:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028569,000346:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028570,000347:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028571,000348:                                                                                                  #                THROUGH THE USE OF V06N52.
028572,000349: 
028573,000350:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028574,000351:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
028575,000352:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
028576,000353:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028577,000354:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
028578,000355:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028579,000356: 
028580,000357:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
028581,000358: 
028582,000359:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
028583,000360: 
028584,000361:                                                                                                  #  INPUT
028585,000362:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT - SAVED FROM P34/P74
028586,000363: 
028587,000364:                                                                                                  #  OUTPUT
028588,000365:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
028589,000366:                                                                                                  #        (2)     TTOGO           TIME TO GO
028590,000367:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
028591,000368:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID - LINE OF SIGHT
028592,000369:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
028593,000370: 
028594,000371:                                                                                                  #  DOWNLINK
028595,000372:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
028596,000373:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM - REFERENCE COORDINATES
028597,000374:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028598,000375: 
028599,000376:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028600,000377:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
028601,000378:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
028602,000379:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028603,000380:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028604,000381: 
028605,000382:                                                                                                  #  SUBROUTINES USED
028606,000383:                                                                                                  #        AVFLAGA
028607,000384:                                                                                                  #        AVFLAGP
028608,000385:                                                                                                  #        LOADTIME
028609,000386:                                                                                                  #        SELECTMU
028610,000387:                                                                                                  #        PRECSET
028611,000388:                                                                                                  #        S34/35.1
028612,000389:                                                                                                  #        S34/35.2

Page 668

028614,000391:                                                                                                  #        S34/35.5
028615,000392:                                                                                                  #        VN1645
028616,000393: 
028617,000394: 35,2635                                           COUNT*   $$/P3575                              
028618,000395: 35,2635  E7,1575                                  EBANK=   KT                                    
028619,000396: 
028620,000397: 35,2635           02354        P35                TC       AVFLAGA                               
028621,000398: 35,2636           00006                           EXTEND                                         
028622,000399: 35,2637           31401                           DCA      ATIGINC                               
028623,000400: 35,2640           02644                           TC       P35/P75A                              
028624,000401: 35,2641           02361        P75                TC       AVFLAGP                               
028625,000402: 35,2642           00006                           EXTEND                                         
028626,000403: 35,2643           31403                           DCA      PTIGINC                               
028627,000404: 35,2644           53576        P35/P75A           DXCH     KT                                    
028628,000405: 35,2645           02366                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
028629,000406: 35,2646           06042                           TC       INTPRET                               
028630,000407: 35,2647           77624                           CALL                                           
028631,000408: 35,2650           20000                                    SELECTMU                              
028632,000409: 35,2651           77634        P35/P75B           RTB                                            
028633,000410: 35,2652           21574                                    LOADTIME                              
028634,000411: 35,2653           03612                           STORE    TSTRT                                 
028635,000412: 35,2654           77615                           DAD                                            
028636,000413: 35,2655           03576                                    KT                                    
028637,000414: 35,2656           03442                           STORE    TIG                                   
028638,000415: 35,2657           03610                           STORE    INTIME                                #  FOR INITVEL
028639,000416: 35,2660           34041                           STCALL   TDEC1                                 
028640,000417: 35,2661           46403                                    PRECSET                               #  ADVANCE BOTH VEHICLES
028641,000418: 35,2662           77624                           CALL                                           
028642,000419: 35,2663           73204                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
028643,000420: 35,2664           77624                           CALL                                           
028644,000421: 35,2665           73216                                    S34/35.2                              #  GET DELTA V(LV)
028645,000422: 35,2666           77624                           CALL                                           
028646,000423: 35,2667           73432                                    S34/35.5                              
028647,000424: 35,2670           77624                           CALL                                           
028648,000425: 35,2671           73515                                    VN1645                                
028649,000426: 35,2672           77650                           GOTO                                           
028650,000427: 35,2673           72651                                    P35/P75B                              

Page 669

028652,000429:                                                                                                  #  ..... S33/34.1 .....
028653,000430: 
028654,000431: 35,2674           66220        S33/34.1           STQ      SSP                                   
028655,000432: 35,2675           03463                                    NORMEX                                
028656,000433: 35,2676           03614                                    TITER                                 
028657,000434: 35,2677           40000                           OCT      40000                                 
028658,000435: 35,2700           40345                           DLOAD    SETPD                                 
028659,000436: 35,2701           33643                                    MAX250                                
028660,000437: 35,2702           00001                                    0D                                    
028661,000438: 35,2703           27574                           STOVL    SECMAX                                
028662,000439: 35,2704           03536                                    RACT3                                 
028663,000440: 35,2705           27500                           STOVL    RAPREC                                
028664,000441: 35,2706           03544                                    VACT3                                 
028665,000442: 35,2707           27506                           STOVL    VAPREC                                
028666,000443: 35,2710           03552                                    RPASS3                                
028667,000444: 35,2711           27522                           STOVL    RPPREC                                
028668,000445: 35,2712           03560                                    VPASS3                                
028669,000446: 35,2713           03530                           STORE    VPPREC                                
028670,000447: 35,2714           77624        ELCALC             CALL                                           
028671,000448: 35,2715           73204                                    S34/35.1                              #  NORMAL AND LOS
028672,000449: 35,2716           63235                           VXV      PDVL                                  
028673,000450: 35,2717           03536                                    RACT3                                 #  (RA*VA)*RA 0D
028674,000451: 35,2720           53515                           PDVL     UNIT                                  #  ULOS AT 6D
028675,000452: 35,2721           03536                                    RACT3                                 
028676,000453: 35,2722           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
028677,000454: 35,2723           51352                           VSL2     BVSU                                  
028678,000455: 35,2724           02311                                    ULOS                                  
028679,000456: 35,2725           63256                           UNIT     PDVL                                  #  UP AT 0D
028680,000457: 35,2726           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
028681,000458: 35,2727           00001                                    0D                                    #  UP IN MPAC
028682,000459: 35,2730           75241                           DOT      SIGN                                  
028683,000460: 35,2731           02311                                    ULOS                                  
028684,000461: 35,2732           65552                           SL1      ACOS                                  
028685,000462: 35,2733           50315                           PDVL     DOT                                   #  EA AT 0D
028686,000463: 35,2734           02311                                    ULOS                                  
028687,000464: 35,2735           03536                                    RACT3                                 
028688,000465: 35,2736           71244                           BPL      DLOAD                                 
028689,000466: 35,2737           72742                                    TESTY                                 
028690,000467: 35,2740           06532                                    DPPOSMAX                              
028691,000468: 35,2741           41425                           DSU      PUSH                                  
028692,000469: 35,2742           71214        TESTY              BOFF     DLOAD                                 
028693,000470: 35,2743           03740                                    ITSWICH                               
028694,000471: 35,2744           73171                                    ELEX                                  
028695,000472: 35,2745           03576                                    DELEL                                 
028696,000473: 35,2746           14033                           STODL    DELELO                                
028697,000474: 35,2747           77625                           DSU                                            
028698,000475: 35,2750           02257                                    ELEV                                  
028699,000476: 35,2751           03576                           STORE    DELEL                                 
028700,000477: 35,2752           45246                           ABS      DSU                                   
028701,000478: 35,2753           33647                                    ELEPS                                 

Page 670

028703,000480: 35,2754           77640                           BMN                                            
028704,000481: 35,2755           73201                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
028705,000482: 35,2756           70535        FIGTIME            SLOAD    SR1                                   
028706,000483: 35,2757           03614                                    TITER                                 
028707,000484: 35,2760           72030                           BHIZ     LXA,1                                 
028708,000485: 35,2761           03463                                    NORMEX                                #  TOO MANY ITERATIONS
028709,000486: 35,2762           00154                                    MPAC                                  
028710,000487: 35,2763           77330                           SXA,1    VLOAD                                 
028711,000488: 35,2764           03613                                    TITER                                 
028712,000489: 35,2765           03552                                    RPASS3                                
028713,000490: 35,2766           65256                           UNIT     PDDL                                  
028714,000491: 35,2767           00045                                    36D                                   
028715,000492: 35,2770           53515                           PDVL     UNIT                                  
028716,000493: 35,2771           03536                                    RACT3                                 
028717,000494: 35,2772           77725                           PDDL                                           
028718,000495: 35,2773           41525                           PDDL     PUSH                                  
028719,000496: 35,2774           00045                                    36D                                   
028720,000497: 35,2775           77621                           BDSU                                           
028721,000498: 35,2776           00015                                    12D                                   
028722,000499: 35,2777           14037                           STODL    30D                                   #  RP-RA MAGNITUDES
028723,000500: 35,3000           06522                                    DPHALF                                
028724,000501: 35,3001           41425                           DSU      PUSH                                  
028725,000502: 35,3002           02257                                    ELEV                                  
028726,000503: 35,3003           50165                           SIGN     BMN                                   
028727,000504: 35,3004           00037                                    30D                                   
028728,000505: 35,3005           03463                                    NORMEX                                
028729,000506: 35,3006           71545                           DLOAD    COS                                   
028730,000507: 35,3007           56205                           DMP      DDV                                   
028731,000508: 35,3010           00017                                    14D                                   
028732,000509: 35,3011           00015                                    12D                                   
028733,000510: 35,3012           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
028734,000511: 35,3013           00035                           STORE    28D                                   
028735,000512: 35,3014           44246                           ABS      BDSU                                  
028736,000513: 35,3015           06522                                    DPHALF                                
028737,000514: 35,3016           77240                           BMN      VLOAD                                 
028738,000515: 35,3017           03463                                    NORMEX                                
028739,000516: 35,3020           02261                                    UNRM                                  
028740,000517: 35,3021           53435                           VXV      UNIT                                  
028741,000518: 35,3022           00007                                    6D                                    #  UN*RA
028742,000519: 35,3023           41241                           DOT      DMP                                   
028743,000520: 35,3024           03544                                    VACT3                                 
028744,000521: 35,3025           00015                                    12D                                   
028745,000522: 35,3026           47315                           PDVL     VXV                                   
028746,000523: 35,3027           00001                                    0D                                    
028747,000524: 35,3030           03560                                    VPASS3                                
028748,000525: 35,3031           53435                           VXV      UNIT                                  
028749,000526: 35,3032           00001                                    0D                                    #  (RP*VP)*RP
028750,000527: 35,3033           41241                           DOT      DMP                                   
028751,000528: 35,3034           03560                                    VPASS3                                
028752,000529: 35,3035           00017                                    14D                                   

Page 671

028754,000531: 35,3036           77621                           BDSU                                           
028755,000532: 35,3037           63301                           NORM     PDVL                                  #  NORMALIZED WA-WP 12D
028756,000533: 35,3040           00047                                    X1                                    
028757,000534: 35,3041           00007                                    6D                                    
028758,000535: 35,3042           50235                           VXV      DOT                                   
028759,000536: 35,3043           00001                                    0D                                    
028760,000537: 35,3044           02261                                    UNRM                                  #  RA*RP.UN 14D
028761,000538: 35,3045           50315                           PDVL     DOT                                   
028762,000539: 35,3046           00001                                    0D                                    
028763,000540: 35,3047           00007                                    6D                                    
028764,000541: 35,3050           65552                           SL1      ACOS                                  
028765,000542: 35,3051           77765                           SIGN                                           
028766,000543: 35,3052           43225                           DSU      DAD                                   #  ALPHA PI
028767,000544: 35,3053           06522                                    DPHALF                                
028768,000545: 35,3054           02257                                    ELEV                                  
028769,000546: 35,3055           65525                           PDDL     ACOS                                  
028770,000547: 35,3056           00035                                    28D                                   
028771,000548: 35,3057           75221                           BDSU     SIGN                                  
028772,000549: 35,3060           06522                                    DPHALF                                
028773,000550: 35,3061           00037                                    30D                                   #  CONTAINS RP-RA
028774,000551: 35,3062           77615                           DAD                                            
028775,000552: 35,3063           56205                           DMP      DDV                                   
028776,000553: 35,3064           33641                                    TWOPI                                 
028777,000554: 35,3065           77605                           DMP                                            
028778,000555: 35,3066           41257                           SL*      DMP                                   
028779,000556: 35,3067           20176                                    0          -3,1                       
028780,000557: 35,3070           51406                           PUSH     ABS                                   
028781,000558: 35,3071           50025                           DSU      BMN                                   
028782,000559: 35,3072           03574                                    SECMAX                                
028783,000560: 35,3073           73077                                    OKMAX                                 
028784,000561: 35,3074           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
028785,000562: 35,3075           03574                                    SECMAX                                
028786,000563: 35,3076           77606                           PUSH                                           
028787,000564: 35,3077           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
028788,000565: 35,3100           03614                                    TITER                                 
028789,000566: 35,3101           73107                                    REPETE                                
028790,000567: 35,3102           71331                           SSP      DLOAD                                 
028791,000568: 35,3103           03614                                    TITER                                 
028792,000569: 35,3104           37777                           OCT      37777                                 
028793,000570: 35,3105           77650                           GOTO                                           
028794,000571: 35,3106           73145                                    STORDELT                              
028795,000572: 35,3107           41345        REPETE             DLOAD    DMP                                   
028796,000573: 35,3110           03576                                    DELEL                                 
028797,000574: 35,3111           00033                                    DELELO                                
028798,000575: 35,3112           71244                           BPL      DLOAD                                 
028799,000576: 35,3113           73123                                    NEXTES                                
028800,000577: 35,3114           03574                                    SECMAX                                
028801,000578: 35,3115           77605                           DMP                                            
028802,000579: 35,3116           33645                                    THIRD                                 
028803,000580: 35,3117           17574                           STODL    SECMAX                                

Page 672

028805,000582: 35,3120           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
028806,000583: 35,3121           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
028807,000584: 35,3122           73133                                    RESIGN                                
028808,000585: 35,3123           51545        NEXTES             DLOAD    ABS                                   
028809,000586: 35,3124           03576                                    DELEL                                 
028810,000587: 35,3125           51525                           PDDL     ABS                                   
028811,000588: 35,3126           00033                                    DELELO                                
028812,000589: 35,3127           77625                           DSU                                            
028813,000590: 35,3130           71240                           BMN      DLOAD                                 
028814,000591: 35,3131           73136                                    REVERS                                #  WRONG DIRECTION
028815,000592: 35,3132           77646                           ABS                                            
028816,000593: 35,3133           52165        RESIGN             SIGN     GOTO                                  
028817,000594: 35,3134           03606                                    DELTEEO                               
028818,000595: 35,3135           73145                                    STORDELT                              
028819,000596: 35,3136           57545        REVERS             DLOAD    DCOMP                                 
028820,000597: 35,3137           03606                                    DELTEEO                               
028821,000598: 35,3140           70406                           PUSH     SR1                                   
028822,000599: 35,3141           03606                           STORE    DELTEEO                               
028823,000600: 35,3142           77615                           DAD                                            
028824,000601: 35,3143           77650                           GOTO                                           
028825,000602: 35,3144           73146                                    ADTIME                                
028826,000603: 35,3145           03606        STORDELT           STORE    DELTEEO                               
028827,000604: 35,3146           77615        ADTIME             DAD                                            
028828,000605: 35,3147           02317                                    NOMTPI                                #  SUM OF DELTA T:S
028829,000606: 35,3150           02317                           STORE    NOMTPI                                
028830,000607: 35,3151           63375                           VLOAD    PDVL                                  
028831,000608: 35,3152           03506                                    VAPREC                                
028832,000609: 35,3153           03500                                    RAPREC                                
028833,000610: 35,3154           77624                           CALL                                           
028834,000611: 35,3155           73372                                    GOINT                                 
028835,000612: 35,3156           77624                           CALL                                           
028836,000613: 35,3157           46425                                    ACTIVE                                #  STORE NEW RACT3 VACT3
028837,000614: 35,3160           63375                           VLOAD    PDVL                                  
028838,000615: 35,3161           03530                                    VPPREC                                
028839,000616: 35,3162           03522                                    RPPREC                                
028840,000617: 35,3163           77624                           CALL                                           
028841,000618: 35,3164           73372                                    GOINT                                 
028842,000619: 35,3165           77624                           CALL                                           
028843,000620: 35,3166           46435                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
028844,000621: 35,3167           77650                           GOTO                                           
028845,000622: 35,3170           72714                                    ELCALC                                
028846,000623: 35,3171           43345        ELEX               DLOAD    DAD                                   
028847,000624: 35,3172           03636                                    TTPI                                  
028848,000625: 35,3173           02317                                    NOMTPI                                
028849,000626: 35,3174           17636                           STODL    TTPI                                  
028850,000627: 35,3175           77614                           BON                                            
028851,000628: 35,3176           01310                                    ETPIFLAG                              
028852,000629: 35,3177           73201                                    TIMEX                                 
028853,000630: 35,3200           02257                           STORE    ELEV                                  
028854,000631: 35,3201           52145        TIMEX              DLOAD    GOTO                                  

Page 673

028856,000633: 35,3202           06524                                    ZEROVECS                              
028857,000634: 35,3203           03463                                    NORMEX                                
028858,000635: 

Page 674

028860,000637:                                                                                                  #  ..... S34/35.1 .....
028861,000638: 
028862,000639:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
028863,000640:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
028864,000641: 
028865,000642: 35,3204           52375        S34/35.1           VLOAD    VSU                                   
028866,000643: 35,3205           03552                                    RPASS3                                
028867,000644: 35,3206           03536                                    RACT3                                 
028868,000645: 35,3207           41456                           UNIT     PUSH                                  
028869,000646: 35,3210           26311                           STOVL    ULOS                                  
028870,000647: 35,3211           03536                                    RACT3                                 
028871,000648: 35,3212           53435                           VXV      UNIT                                  
028872,000649: 35,3213           03544                                    VACT3                                 
028873,000650: 35,3214           02261                           STORE    UNRM                                  
028874,000651: 35,3215           77616                           RVQ                                            
028875,000652: 

Page 675

028877,000654:                                                                                                  #  ..... S34/35.2 .....
028878,000655: 
028879,000656:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
028880,000657: 
028881,000658: 35,3216           77220        S34/35.2           STQ      VLOAD                                 
028882,000659: 35,3217           03470                                    SUBEXIT                               
028883,000660: 35,3220           03560                                    VPASS3                                
028884,000661: 35,3221           65315                           PDVL     PDDL                                  
028885,000662: 35,3222           03552                                    RPASS3                                
028886,000663: 35,3223           03610                                    INTIME                                
028887,000664: 35,3224           65325                           PDDL     PDDL                                  
028888,000665: 35,3225           03631                                    TPASS4                                
028889,000666: 35,3226           33641                                    TWOPI                                 #  CONIC
028890,000667: 35,3227           46125                           PDDL     BHIZ                                  
028891,000668: 35,3230           03467                                    NN                                    
028892,000669: 35,3231           73235                                    S3435.23                              
028893,000670: 35,3232           77745                           DLOAD                                          
028894,000671: 35,3233           41545                           DLOAD    PUSH                                  
028895,000672: 35,3234           06524                                    ZEROVECS                              #  PRECISION
028896,000673: 35,3235           77624        S3435.23           CALL                                           
028897,000674: 35,3236           73376                                    INTINT                                #  GET TARGET VECTOR
028898,000675: 35,3237           27444        S3435.25           STOVL    RTARG                                 
028899,000676: 35,3240           00007                                    VATT                                  
028900,000677: 35,3241           27506                           STOVL    VPASS4                                
028901,000678: 35,3242           03444                                    RTARG                                 
028902,000679:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI) SIGN(RA*RP.U)
028903,000680: 35,3243           63256                           UNIT     PDVL                                  #  UNIT RP
028904,000681: 35,3244           03536                                    RACT3                                 
028905,000682: 35,3245           41456                           UNIT     PUSH                                  #  UNIT RA
028906,000683: 35,3246           50235                           VXV      DOT                                   
028907,000684: 35,3247           00001                                    0D                                    
028908,000685: 35,3250           02261                                    UNRM                                  #  RA*RP.U
028909,000686: 35,3251           77715                           PDVL                                           
028910,000687: 35,3252           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
028911,000688: 35,3253           00001                                    0D                                    
028912,000689: 35,3254           75326                           ACOS     SIGN                                  
028913,000690: 35,3255           43244                           BPL      DAD                                   
028914,000691: 35,3256           73260                                    NOPIE                                 
028915,000692: 35,3257           06532                                    DPPOSMAX                              #  REASONABLE TWO PI
028916,000693: 35,3260           15756        NOPIE              STODL    ACTCENT                               
028917,000694: 35,3261           03631                                    TPASS4                                
028918,000695: 35,3262           77625                           DSU                                            
028919,000696: 35,3263           03610                                    INTIME                                
028920,000697: 35,3264           03452                           STORE    DELLT4                                
028921,000698: 35,3265           40335                           SLOAD    SETPD                                 
028922,000699: 35,3266           03467                                    NN                                    #  NUMBER OF OFFSETS
028923,000700: 35,3267           00001                                    0D                                    
028924,000701: 35,3270           63325                           PDDL     PDVL                                  
028925,000702: 35,3271           33653                                    EPSFOUR                               
028926,000703: 35,3272           03536                                    RACT3                                 
028927,000704: 35,3273           26323                           STOVL    RINIT                                 

Page 676

028929,000706: 35,3274           03544                                    VACT3                                 
028930,000707: 35,3275           36331                           STCALL   VINIT                                 
028931,000708: 35,3276           22000                                    INITVEL                               
028932,000709: 35,3277           77624                           CALL                                           
028933,000710: 35,3300           73357                                    LOMAT                                 
028934,000711: 35,3301           64375                           VLOAD    MXV                                   
028935,000712: 35,3302           02366                                    DELVEET3                              
028936,000713: 35,3303           00001                                    0D                                    
028937,000714: 35,3304           77772                           VSL1                                           
028938,000715: 35,3305           37434                           STCALL   DELVLVC                               
028939,000716: 35,3306           03470                                    SUBEXIT                               
028940,000717: 

Page 677

028942,000719:                                                                                                  #  ..... S34/35.3 .....
028943,000720: 
028944,000721: 35,3307           45020        S34/35.3           STQ      CALL                                  
028945,000722: 35,3310           03463                                    NORMEX                                
028946,000723: 35,3311           73357                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
028947,000724: 35,3312           61375                           VLOAD    VXM                                   
028948,000725: 35,3313           03434                                    DELVLVC                               #  NEW DEL V TPI
028949,000726: 35,3314           00001                                    0D                                    
028950,000727: 35,3315           77772                           VSL1                                           
028951,000728: 35,3316           02366                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
028952,000729: 35,3317           63255                           VAD      PDVL                                  
028953,000730: 35,3320           03544                                    VACT3                                 #  NEW V REQ
028954,000731: 35,3321           03536                                    RACT3                                 
028955,000732: 35,3322           65325                           PDDL     PDDL                                  
028956,000733: 35,3323           03442                                    TIG                                   
028957,000734: 35,3324           03631                                    TPASS4                                
028958,000735: 35,3325           41525                           PDDL     PUSH                                  
028959,000736: 35,3326           06532                                    DPPOSMAX                              
028960,000737: 35,3327           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
028961,000738: 35,3330           73376                                    INTINT                                
028962,000739: 35,3331           77775                           VLOAD                                          
028963,000740: 35,3332           00001                                    RATT                                  
028964,000741: 35,3333           03444                           STORE    RTARG                                 
028965,000742: 35,3334           41575        NOVRWRT            VLOAD    PUSH                                  
028966,000743: 35,3335           02311                                    ULOS                                  
028967,000744: 35,3336           57435                           VXV      VCOMP                                 
028968,000745: 35,3337           02261                                    UNRM                                  
028969,000746: 35,3340           41456                           UNIT     PUSH                                  
028970,000747: 35,3341           76435                           VXV      VSL1                                  
028971,000748: 35,3342           02311                                    ULOS                                  
028972,000749: 35,3343           77715                           PDVL                                           
028973,000750: 35,3344           64315                           PDVL     MXV                                   
028974,000751: 35,3345           02366                                    DELVEET3                              
028975,000752: 35,3346           00001                                    0D                                    
028976,000753: 35,3347           77772                           VSL1                                           
028977,000754: 35,3350           36303                           STCALL   DVLOS                                 
028978,000755: 35,3351           03463                                    NORMEX                                
028979,000756: 

Page 678

028981,000758:                                                                                                  #  ..... S34/35.4 .....
028982,000759: 
028983,000760: 35,3352           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
028984,000761: 35,3353           03463                                    NORMEX                                
028985,000762: 35,3354           00001                                    0D                                    
028986,000763: 35,3355           77650                           GOTO                                           
028987,000764: 35,3356           73334                                    NOVRWRT                               
028988,000765: 

Page 679

028990,000767:                                                                                                  #  ..... LOMAT .....
028991,000768: 
028992,000769: 35,3357           57575        LOMAT              VLOAD    VCOMP                                 
028993,000770: 35,3360           02261                                    UNRM                                  
028994,000771: 35,3361           24007                           STOVL    6D                                    #  Y
028995,000772: 35,3362           03536                                    RACT3                                 
028996,000773: 35,3363           57456                           UNIT     VCOMP                                 
028997,000774: 35,3364           00015                           STORE    12D                                   
028998,000775: 35,3365           76435                           VXV      VSL1                                  
028999,000776: 35,3366           02261                                    UNRM                                  #  Z*-Y
029000,000777: 35,3367           00001                           STORE    0D                                    
029001,000778: 35,3370           43401                           SETPD    RVQ                                   
029002,000779: 35,3371           00023                                    18D                                   
029003,000780: 35,3372           65325        GOINT              PDDL     PDDL                                  #  DO
029004,000781: 35,3373           06524                                    ZEROVECS                              #        NOT
029005,000782: 35,3374           02317                                    NOMTPI                                
029006,000783: 35,3375           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
029007,000784: 35,3376           45020        INTINT             STQ      CALL                                  
029008,000785: 35,3377           03465                                    RTRN                                  
029009,000786: 35,3400           27410                                    INTSTALL                              
029010,000787: 35,3401           71214                           CLEAR    DLOAD                                 
029011,000788: 35,3402           01673                                    INTYPFLG                              
029012,000789: 35,3403           43054                           BZE      SET                                   
029013,000790: 35,3404           73406                                    +2                                    
029014,000791: 35,3405           01473                                    INTYPFLG                              
029015,000792: 35,3406           45545                           DLOAD    STADR                                 
029016,000793: 35,3407           63736                           STODL    TDEC1                                 
029017,000794: 35,3410           73014                           SET      LXA,2                                 
029018,000795: 35,3411           00063                                    MOONFLAG                              
029019,000796: 35,3412           02777                                    RTX2                                  
029020,000797: 35,3413           43014                           BON      CLEAR                                 
029021,000798: 35,3414           04303                                    CMOONFLG                              
029022,000799: 35,3415           73417                                    ALLSET                                
029023,000800: 35,3416           00263                                    MOONFLAG                              
029024,000801: 35,3417           25517        ALLSET             STOVL    TET                                   
029025,000802: 35,3420           77657                           VSR*                                           
029026,000803: 35,3421           57176                                    0,2                                   
029027,000804: 35,3422           25535                           STOVL    RCV                                   
029028,000805: 35,3423           77657                           VSR*                                           
029029,000806: 35,3424           57176                                    0,2                                   
029030,000807: 35,3425           35543                           STCALL   VCV                                   
029031,000808: 35,3426           27106                                    INTEGRVS                              
029032,000809: 35,3427           52175                           VLOAD    GOTO                                  
029033,000810: 35,3430           00001                                    RATT                                  
029034,000811: 35,3431           03465                                    RTRN                                  
029035,000812: 

Page 680

029037,000814:                                                                                                  #  ..... S34/35.5 .....
029038,000815: 
029039,000816:                                                                                                  #  SUBROUTINES USED
029040,000817:                                                                                                  #        BANKCALL
029041,000818:                                                                                                  #        GOFLASH
029042,000819:                                                                                                  #        GOTOPOOH
029043,000820:                                                                                                  #        S34/35.3
029044,000821:                                                                                                  #        S34/35.4
029045,000822:                                                                                                  #        VNPOOH
029046,000823: 
029047,000824: 35,3432           43020        S34/35.5           STQ      BON                                   
029048,000825: 35,3433           03470                                    SUBEXIT                               
029049,000826: 35,3434           01311                                    FINALFLG                              
029050,000827: 35,3435           73441                                    FLAGON                                
029051,000828: 35,3436           52014                           SET      GOTO                                  
029052,000829: 35,3437           00470                                    UPDATFLG                              
029053,000830: 35,3440           73505                                    FLAGOFF                               
029054,000831: 35,3441           77214        FLAGON             CLEAR    VLOAD                                 
029055,000832: 35,3442           03274                                    NTARGFLG                              
029056,000833: 35,3443           03434                                    DELVLVC                               
029057,000834: 35,3444           01236                           STORE    GDT/2                                 
029058,000835: 35,3445           77776                           EXIT                                           
029059,000836: 35,3446           33636                 +5        CAF      V06N81                                
029060,000837: 35,3447           04616                           TC       BANKCALL                              
029061,000838: 35,3450           20477                           CADR     GOFLASH                               
029062,000839: 35,3451           06001                           TC       GOTOPOOH                              
029063,000840: 35,3452           03454                           TC       +2                                    #  PRO
029064,000841: 35,3453           03446                           TC       FLAGON     +5                         #  LOAD
029065,000842: 35,3454           35016                 +2        CA       EBANK7                                
029066,000843: 35,3455           54003                           TS       EBANK                                 #  TO BE SURE
029067,000844: 
029068,000845: 35,3456           22007                           ZL                                             
029069,000846: 35,3457           34756                           CA       FIVE                                  
029070,000847: 35,3460           54002        NTARGCHK           TS       Q                                     
029071,000848: 35,3461           50002                           INDEX    Q                                     
029072,000849: 35,3462           41433                           CS       DELVLVC                               
029073,000850: 35,3463           50002                           INDEX    Q                                     
029074,000851: 35,3464           61235                           AD       GDT/2                                 
029075,000852: 35,3465           26001                           ADS      L                                     
029076,000853: 35,3466           10002                           CCS      Q                                     
029077,000854: 35,3467           13460                           TCF      NTARGCHK                              
029078,000855: 35,3470           22000                           LXCH     A                                     
029079,000856: 35,3471           00006                           EXTEND                                         
029080,000857: 35,3472           13475                           BZF      +3                                    
029081,000858: 35,3473           05504                           TC       UPFLAG                                
029082,000859: 35,3474           00146                           ADRES    NTARGFLG                              
029083,000860: 
029084,000861: 35,3475           06042                           TC       INTPRET                               
029085,000862: 35,3476           45014                           BOFF     CALL                                  
029086,000863: 35,3477           03354                                    NTARGFLG                              

Page 681

029088,000865: 35,3500           73502                                    NOCHG                                 
029089,000866: 35,3501           73307                                    S34/35.3                              
029090,000867: 35,3502           77775        NOCHG              VLOAD                                          
029091,000868: 35,3503           02366                                    DELVEET3                              
029092,000869: 35,3504           03656                           STORE    DELVSIN                               
029093,000870: 35,3505           77624        FLAGOFF            CALL                                           
029094,000871: 35,3506           73352                                    S34/35.4                              
029095,000872: 35,3507           77776                           EXIT                                           
029096,000873: 35,3510           33635                           CAF      V06N59                                
029097,000874: 35,3511           03621                           TC       VNPOOH                                
029098,000875: 35,3512           06042                           TC       INTPRET                               
029099,000876: 35,3513           77650                           GOTO                                           
029100,000877: 35,3514           03470                                    SUBEXIT                               
029101,000878: 

Page 682

029103,000880:                                                                                                  #  ..... VN1645 .....
029104,000881: 
029105,000882:                                                                                                  #  SUBROUTINES USED
029106,000883:                                                                                                  #        P3XORP7X
029107,000884:                                                                                                  #        GET+MGA
029108,000885:                                                                                                  #        BANKCALL
029109,000886:                                                                                                  #        DELAYJOB
029110,000887:                                                                                                  #        COMPTGO
029111,000888:                                                                                                  #        GOFLASHR
029112,000889:                                                                                                  #        GOTOPOOH
029113,000890:                                                                                                  #        FLAGUP
029114,000891: 
029115,000892: 35,3515           71220        VN1645             STQ      DLOAD                                 
029116,000893: 35,3516           03470                                    SUBEXIT                               
029117,000894: 35,3517           33651                                    DP-.01                                
029118,000895: 35,3520           02253                           STORE    +MGA                                  #  MGA = -.01
029119,000896: 35,3521           71214                           BOFF     DLOAD                                 
029120,000897: 35,3522           01351                                    FINALFLG                              
029121,000898: 35,3523           73543                                    GET45                                 
029122,000899: 35,3524           33651                                    DP-.01                                
029123,000900: 35,3525           77615                           DAD                                            
029124,000901: 35,3526           33651                                    DP-.01                                
029125,000902: 35,3527           02253                           STORE    +MGA                                  #  MGA = -.02
029126,000903: 35,3530           77414                           BOFF     EXIT                                  
029127,000904: 35,3531           01742                                    REFSMFLG                              
029128,000905: 35,3532           73543                                    GET45                                 
029129,000906: 35,3533           03613                           TC       P3XORP7X                              
029130,000907: 35,3534           03536                           TC       +2                                    #  P3X
029131,000908: 35,3535           03544                           TC       GET45      +1                         #  P7X
029132,000909: 35,3536           06042                           TC       INTPRET                               
029133,000910: 35,3537           41575                           VLOAD    PUSH                                  
029134,000911: 35,3540           03656                                    DELVSIN                               
029135,000912: 35,3541           77624                           CALL                                           #  COMPUTE MGA
029136,000913: 35,3542           15725                                    GET+MGA                               
029137,000914: 35,3543           77776        GET45              EXIT                                           
029138,000915: 35,3544           02437                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
029139,000916: 35,3545           31470                           CA       SUBEXIT                               
029140,000917: 35,3546           55464                           TS       QSAVED                                
029141,000918: 35,3547           34777                           CAF      1SEC                                  
029142,000919: 35,3550           04616                           TC       BANKCALL                              
029143,000920: 35,3551           01736                           CADR     DELAYJOB                              
029144,000921: 35,3552           33637                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
029145,000922: 35,3553           04616                           TC       BANKCALL                              
029146,000923: 35,3554           20477                           CADR     GOFLASH                               
029147,000924: 35,3555           03560                           TC       KILCLOCK                              #  TERMINATE
029148,000925: 35,3556           03563                           TC       N45PROC                               #  PROCEED
029149,000926: 35,3557           03573                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
029150,000927: 35,3560           30005        KILCLOCK           CA       Z                                     
029151,000928: 35,3561           55162                           TS       DISPDEX                               

Page 683

029153,000930: 35,3562           06001                           TC       GOTOPOOH                              
029154,000931: 35,3563           40076        N45PROC            CS       FLAGWRD2                              
029155,000932: 35,3564           74746                           MASK     BIT6                                  
029156,000933: 35,3565           00006                           EXTEND                                         
029157,000934: 35,3566           13560                           BZF      KILCLOCK                              #  FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
029158,000935: 35,3567           05353                           TC       PHASCHNG                              
029159,000936: 35,3570           04024                           OCT      04024                                 
029160,000937: 35,3571           05504                           TC       UPFLAG                                #  SET
029161,000938: 35,3572           00047                           ADRES    FINALFLG                              #  FINALFLG
029162,000939: 35,3573           30005        CLUPDATE           CA       Z                                     
029163,000940: 35,3574           55162                           TS       DISPDEX                               
029164,000941: 35,3575           05353                           TC       PHASCHNG                              
029165,000942: 35,3576           04024                           OCT      04024                                 
029166,000943: 35,3577           06042                           TC       INTPRET                               
029167,000944: 35,3600           52014                           CLEAR    GOTO                                  
029168,000945: 35,3601           00670                                    UPDATFLG                              
029169,000946: 35,3602           03464                                    QSAVED                                
029170,000947: 

Page 684

029172,000949:                                                                                                  #  ..... DISPLAYE .....
029173,000950: 
029174,000951:                                                                                                  #  SUBROUTINES USED
029175,000952:                                                                                                  #        BANKCALL
029176,000953:                                                                                                  #        GOFLASHR
029177,000954:                                                                                                  #        GOTOPOOH
029178,000955:                                                                                                  #        BLANKET
029179,000956:                                                                                                  #        ENDOFJOB
029180,000957: 
029181,000958: 35,3603           00006        DISPLAYE           EXTEND                                         
029182,000959: 35,3604           23463                           QXCH     NORMEX                                
029183,000960: 35,3605           33633                           CAF      V06N55                                
029184,000961: 35,3606           04616                           TCR      BANKCALL                              
029185,000962: 35,3607           20477                           CADR     GOFLASH                               
029186,000963: 35,3610           16001                           TCF      GOTOPOOH                              
029187,000964: 35,3611           01463                           TC       NORMEX                                
029188,000965: 35,3612           13605                           TCF      -5                                    
029189,000966: 

Page 685

029191,000968:                                                                                                  #  ..... P3XORP7X .....
029192,000969: 
029193,000970: 35,3613           37747        P3XORP7X           CAF      HIGH9                                 
029194,000971: 35,3614           71010                           MASK     MODREG                                
029195,000972: 35,3615           00006                           EXTEND                                         
029196,000973: 35,3616           13620                           BZF      +2                                    
029197,000974: 35,3617           24002                           INCR     Q                                     
029198,000975: 35,3620           00002                           RETURN                                         
029199,000976: 
029200,000977:                                                                                                  #  ..... VNPOOH .....
029201,000978: 
029202,000979:                                                                                                  #  SUBROUTINES USED
029203,000980:                                                                                                  #        BANKCALL
029204,000981:                                                                                                  #        GOFLASH
029205,000982:                                                                                                  #        GOTOPOOH
029206,000983: 
029207,000984: 35,3621           00006        VNPOOH             EXTEND                                         
029208,000985: 35,3622           23465                           QXCH     RTRN                                  
029209,000986: 35,3623           55615                           TS       VERBNOUN                              
029210,000987: 35,3624           31615                           CA       VERBNOUN                              
029211,000988: 35,3625           04616                           TCR      BANKCALL                              
029212,000989: 35,3626           20477                           CADR     GOFLASH                               
029213,000990: 35,3627           16001                           TCF      GOTOPOOH                              
029214,000991: 35,3630           01465                           TC       RTRN                                  
029215,000992: 35,3631           13624                           TCF      -5                                    
029216,000993: 

Page 686

029218,000995:                                                                                                  #  ..... CONSTANTS .....
029219,000996: 
029220,000997: 35,3632           01445        V06N37             VN       0637                                  
029221,000998: 35,3633           01467        V06N55             VN       0655                                  
029222,000999: 35,3634           01472        V06N58             VN       0658                                  
029223,001000: 35,3635           01473        V06N59             VN       0659                                  
029224,001001: 35,3636           01521        V06N81             VN       0681                                  
029225,001002: 35,3637           04055        V16N45             VN       1645                                  
029226,001003: 35,3640           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
029227,001004: 35,3642           00001 20650  MAX250             2DEC     25         E3                         
029228,001005: 35,3644           12525 12525  THIRD              2DEC     .333333333                            
029229,001006: 35,3646           00004 21505  ELEPS              2DEC     .27777777  E-3                        
029230,001007: 35,3650           77777        DP-.01             OCT      77777                                 #  CONSTANTS
029231,001008: 35,3651           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
029232,001009: 35,3652           01252 25253  EPSFOUR            2DEC     .0416666666                            
029233,001010: 35,3654           13434 16162  130DEG             2DEC     .3611111111                            
029234,001011: 

Page 687

029236,001013:                                                                                                  #  ..... INITVEL .....
029237,001014:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
029238,001015:                                                                                                  #  MOD BY WHITE.P                DATE   21 NOV 67
029239,001016: 
029240,001017:                                                                                                  #  FUNCTIONAL DESCRIPTION
029241,001018:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
029242,001019:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
029243,001020:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
029244,001021:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
029245,001022:                                                                                                  #        OFFSETS).  IN ADDITION, IN TH EPRECISION TRAJECTORY CASE, THE
029246,001023:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
029247,001024:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
029248,001025:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
029249,001026:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
029250,001027:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
029251,001028: 
029252,001029:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
029253,001030:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
029254,001031:                                                                                                  #        SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
029255,001032:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
029256,001033:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
029257,001034:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
029258,001035:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
029259,001036:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
029260,001037: 
029261,001038:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
029262,001039:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
029263,001040:                                                                                                  #        TRAJECTORY COMPUTATIONS.
029264,001041: 
029265,001042:                                                                                                  #  CALLING SEQUENCE
029266,001043:                                                                                                  #        L       CALL
029267,001044:                                                                                                  #        L+1             INITVEL
029268,001045:                                                                                                  #        L+2     (RETURN - ALWAYS)
029269,001046: 
029270,001047:                                                                                                  #  INPUT
029271,001048:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
029272,001049:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
029273,001050:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
029274,001051:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
029275,001052:                                                                                                  #        (5)     INTIME          TIME OF RINIT
029276,001053:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
029277,001054:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
029278,001055:                                                                                                  #        (8)     RTX1            -2 FOR EARTH, -10D FOR LUNAR
029279,001056:                                                                                                  #        (9)     RTX2            COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
029280,001057:                                                                                                  #        PUSHLOC SET AT 4D
029281,001058: 

Page 688

029283,001060:                                                                                                  #  OUTPUT
029284,001061:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
029285,001062:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
029286,001063:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
029287,001064:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
029288,001065: 
029289,001066:                                                                                                  #  SUBROUTINES USED
029290,001067:                                                                                                  #        LAMBERT
029291,001068:                                                                                                  #        INTSTALL
029292,001069:                                                                                                  #        INTEGRVS
029293,001070: 
029294,001071: 11,2000                                           SETLOC   INTVEL                                
029295,001072: 11,2000                                           BANK                                           
029296,001073: 
029297,001074: 11,2000                                           COUNT*   $$/INITV                              
029298,001075: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
029299,001076: 11,2001           00475                                    GUESSW                                
029300,001077: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
029301,001078: 11,2003           03444                                    RTARG                                 
029302,001079: 11,2004           03463                                    NORMEX                                
029303,001080: 11,2005           03472                           STORE    RTARG1                                
029304,001081: 11,2006           77646                           ABVAL                                          
029305,001082: 11,2007           03723                           STORE    RTMAG                                 
029306,001083: 11,2010           46135                           SLOAD    BHIZ                                  
029307,001084: 11,2011           03000                                    RTX2                                  
029308,001085: 11,2012           22026                                    INITVEL1                              
029309,001086: 11,2013           72575                           VLOAD    VSL2                                  
029310,001087: 11,2014           02323                                    RINIT                                 #  B29
029311,001088: 11,2015           26323                           STOVL    RINIT                                 #  B27
029312,001089: 11,2016           02331                                    VINIT                                 #  B7
029313,001090: 11,2017           77752                           VSL2                                           
029314,001091: 11,2020           26331                           STOVL    VINIT                                 #  B5
029315,001092: 11,2021           03472                                    RTARG1                                
029316,001093: 11,2022           77752                           VSL2                                           
029317,001094: 11,2023           03472                           STORE    RTARG1                                
029318,001095: 11,2024           77646                           ABVAL                                          
029319,001096: 11,2025           03723                           STORE    RTMAG                                 
029320,001097: 
029321,001098:                                                                                                  #  INITIALIZATION
029322,001099: 
029323,001100: 11,2026           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
029324,001101: 11,2027           03617                                    ITCTR                                 
029325,001102: 11,2030           77776                                    0          -1                         
029326,001103: 11,2031           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
029327,001104: 11,2032           17667                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4) (PL 0D)
029328,001105: 11,2033           67154                           LXA,2    SXA,2                                 
029329,001106: 11,2034           00154                                    MPAC                                  
029330,001107: 11,2035           02701                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
029331,001108: 11,2036           77775                           VLOAD                                          

Page 689

029333,001110: 11,2037           02323                                    RINIT                                 
029334,001111: 11,2040           26655                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
029335,001112: 11,2041           03472                                    RTARG1                                
029336,001113: 11,2042           16663                           STODL    R2VEC                                 #  R2VEC EQ RTARG
029337,001114: 11,2043           03452                                    DELLT4                                
029338,001115: 11,2044           02671                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
029339,001116: 11,2045           77201                           SETPD    VLOAD                                 
029340,001117: 11,2046           00001                                    0D                                    #  INITIALIZE PL TO 0D
029341,001118: 11,2047           02323                                    RINIT                                 #  MPAC EQ RINIT (+29)
029342,001119: 11,2050           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)         (PL 6D)
029343,001120: 11,2051           53435                           VXV      UNIT                                  
029344,001121: 11,2052           02331                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI (+8)
029345,001122: 11,2053           26674                           STOVL    UN                                    
029346,001123: 11,2054           03472                                    RTARG1                                
029347,001124: 11,2055           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)     (PL 0D)
029348,001125: 11,2056           43015                           DAD      CLEAR                                 
029349,001126: 11,2057           03667                                    COZY4                                 
029350,001127: 11,2060           03665                                    NORMSW                                
029351,001128: 11,2061           03667                           STORE    COZY4                                 
029352,001129: 11,2062           43044        INITVEL2           BPL      SET                                   
029353,001130: 11,2063           22105                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
029354,001131: 11,2064           03465                                    NORMSW                                
029355,001132: 
029356,001133:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
029357,001134: 
029358,001135: 11,2065           41575                           VLOAD    PUSH                                  #                (PL 6D)
029359,001136: 11,2066           02663                                    R2VEC                                 #  RC TO 6D (+29)
029360,001137: 11,2067           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
029361,001138: 11,2070           46206                           PUSH     VPROJ                                 #                (PL 8D)
029362,001139: 11,2071           02674                                    UN                                    
029363,001140: 11,2072           51352                           VSL2     BVSU                                  
029364,001141: 11,2073           74256                           UNIT     VXSC                                  #                (PL 0D)
029365,001142: 11,2074           77772                           VSL1                                           
029366,001143: 11,2075           02663                           STORE    R2VEC                                 
029367,001144: 11,2076           67351                           TLOAD    SLOAD                                 
029368,001145: 11,2077           24007                                    ZEROVEC                               
029369,001146: 11,2100           03617                                    ITCTR                                 
029370,001147: 11,2101           77244                           BPL      VLOAD                                 
029371,001148: 11,2102           22105                                    INITVEL3                              
029372,001149: 11,2103           02663                                    R2VEC                                 
029373,001150: 11,2104           03472                           STORE    RTARG1                                
029374,001151: 11,2105           63345        INITVEL3           DLOAD    PDVL                                  #                                (PL 2D)
029375,001152: 11,2106           26007                                    MUEARTH                               #  POSITIVE VALUE
029376,001153: 11,2107           02663                                    R2VEC                                 
029377,001154: 11,2110           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)              (PL 8D)
029378,001155: 11,2111           02655                                    R1VEC                                 
029379,001156: 11,2112           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)              (PL 14D)
029380,001157: 11,2113           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
029381,001158: 11,2114           00003                                    2D                                    
029382,001159: 11,2115           77606                           PUSH                                           #                                (PL 20D)
029383,001160: 11,2116           71350                           LXA,1    DLOAD                                 

Page 690

029385,001162: 11,2117           02776                                    RTX1                                  
029386,001163: 11,2120           00023                                    18D                                   
029387,001164: 11,2121           62040                           BMN      INCR,1                                
029388,001165: 11,2122           22124                                    +2                                    
029389,001166: 11,2123           77767                           DEC      -8         B-14                       
029390,001167: 11,2124           67310                           INCR,1   SLOAD                                 
029391,001168: 11,2125           00012                                    10D                                   
029392,001169: 11,2126           00047                                    X1                                    
029393,001170: 11,2127           77230                           BHIZ     VLOAD                                 #                        (PL 14D)
029394,001171: 11,2130           22132                                    +2                                    
029395,001172: 11,2131           41476                           VCOMP    PUSH                                  #                        (PL 20 D)
029396,001173: 11,2132           77775                           VLOAD                                          #                        (PL 14D)
029397,001174: 11,2133           50235                           VXV      DOT                                   #                        (PL 2D)
029398,001175: 11,2134           71244                           BPL      DLOAD                                 #                        (PL 0D)
029399,001176: 11,2135           22137                                    INITVEL4                              
029400,001177: 11,2136           41476                           DCOMP    PUSH                                  #                        (PL 2D)
029401,001178: 11,2137           67154        INITVEL4           LXA,2    SXA,2                                 
029402,001179: 11,2140           00000                                    0D                                    
029403,001180: 11,2141           02672                                    GEOMSGN                               
029404,001181: 
029405,001182:                                                                                                  #  SET INPUTS UP FOR LAMBERT
029406,001183: 
029407,001184: 11,2142           66350                           LXA,1    SSP                                   
029408,001185: 11,2143           02776                                    RTX1                                  
029409,001186: 11,2144           00027                                    ITERCTR                               
029410,001187: 11,2145           00024                                    20D                                   
029411,001188: 
029412,001189:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
029413,001190: 
029414,001191: 11,2146           77624                           CALL                                           
029415,001192: 11,2147           25212                                    LAMBERT                               
029416,001193: 
029417,001194:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
029418,001195: 
029419,001196: 11,2150           77214                           CLEAR    VLOAD                                 
029420,001197: 11,2151           00675                                    GUESSW                                
029421,001198: 11,2152           02744                                    VVEC                                  
029422,001199: 
029423,001200:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
029424,001201: 
029425,001202: 11,2153           16337                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
029426,001203: 
029427,001204:                                                                                                  #  IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
029428,001205:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
029429,001206: 
029430,001207: 11,2154           02702                                    VTARGTAG                              
029431,001208: 11,2155           45030                           BHIZ     CALL                                  
029432,001209: 11,2156           22233                                    INITVEL7                              
029433,001210: 11,2157           27410                                    INTSTALL                              
029434,001211: 11,2160           43135                           SLOAD    CLEAR                                 
029435,001212: 11,2161           03000                                    RTX2                                  
029436,001213: 11,2162           00263                                    MOONFLAG                              
029437,001214: 11,2163           43030                           BHIZ     SET                                   

Page 691

029439,001216: 11,2164           22166                                    INITVEL5                              
029440,001217: 11,2165           00063                                    MOONFLAG                              
029441,001218: 11,2166           77775        INITVEL5           VLOAD                                          
029442,001219: 11,2167           02323                                    RINIT                                 
029443,001220: 11,2170           02655                           STORE    R1VEC                                 
029444,001221: 11,2171           25535                           STOVL    RCV                                   
029445,001222: 11,2172           02337                                    VIPRIME                               
029446,001223: 11,2173           15543                           STODL    VCV                                   
029447,001224: 11,2174           03610                                    INTIME                                
029448,001225: 11,2175           01517                           STORE    TET                                   
029449,001226: 11,2176           43015                           DAD      CLEAR                                 
029450,001227: 11,2177           03452                                    DELLT4                                
029451,001228: 11,2200           01673                                    INTYPFLG                              
029452,001229: 11,2201           34041                           STCALL   TDEC1                                 
029453,001230: 11,2202           27106                                    INTEGRVS                              
029454,001231: 11,2203           77775                           VLOAD                                          
029455,001232: 11,2204           00025                                    VATT1                                 
029456,001233: 11,2205           02703                           STORE    VTARGET                               
029457,001234: 
029458,001235:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
029459,001236:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
029460,001237: 
029461,001238: 11,2206           63154                           LXA,2    INCR,2                                
029462,001239: 11,2207           03616                                    ITCTR                                 
029463,001240: 11,2210           00001                                    1D                                    #  INCREMENT ITCTR
029464,001241: 11,2211           55134                           SXA,2    XSU,2                                 
029465,001242: 11,2212           03616                                    ITCTR                                 
029466,001243: 11,2213           02701                                    VTARGTAG                              
029467,001244: 11,2214           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
029468,001245: 11,2215           00050                                    X2                                    
029469,001246: 11,2216           22230                                    INITVEL6                              
029470,001247: 
029471,001248:                                                                                                  #  OFFSET CONIC TARGET VECTOR
029472,001249: 
029473,001250: 11,2217           52375                           VLOAD    VSU                                   
029474,001251: 11,2220           03472                                    RTARG1                                
029475,001252: 11,2221           00017                                    RATT1                                 
029476,001253: 11,2222           77655                           VAD                                            
029477,001254: 11,2223           02663                                    R2VEC                                 
029478,001255: 11,2224           16663                           STODL    R2VEC                                 
029479,001256: 11,2225           03667                                    COZY4                                 
029480,001257: 11,2226           77650                           GOTO                                           
029481,001258: 11,2227           22062                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
029482,001259: 
029483,001260:                                                                                                  #  COMPUTE THE DELTA VELOCITY
029484,001261: 
029485,001262: 11,2230           77775        INITVEL6           VLOAD                                          
029486,001263: 11,2231           02663                                    R2VEC                                 
029487,001264: 11,2232           03472                           STORE    RTARG1                                
029488,001265: 11,2233           52375        INITVEL7           VLOAD    VSU                                   
029489,001266: 11,2234           02337                                    VIPRIME                               
029490,001267: 11,2235           02331                                    VINIT                                 

Page 692

029492,001269: 11,2236           26366                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)
029493,001270: 11,2237           02703                                    VTARGET                               
029494,001271: 11,2240           03566                           STORE    VTPRIME                               
029495,001272: 11,2241           46135                           SLOAD    BHIZ                                  
029496,001273: 11,2242           03000                                    RTX2                                  
029497,001274: 11,2243           22260                                    INITVELX                              
029498,001275: 11,2244           70575                           VLOAD    VSR2                                  
029499,001276: 11,2245           03566                                    VTPRIME                               
029500,001277: 11,2246           27566                           STOVL    VTPRIME                               
029501,001278: 11,2247           02337                                    VIPRIME                               
029502,001279: 11,2250           77742                           VSR2                                           
029503,001280: 11,2251           26337                           STOVL    VIPRIME                               
029504,001281: 11,2252           03472                                    RTARG1                                
029505,001282: 11,2253           77742                           VSR2                                           
029506,001283: 11,2254           27472                           STOVL    RTARG1                                
029507,001284: 11,2255           02366                                    DELVEET3                              
029508,001285: 11,2256           77742                           VSR2                                           
029509,001286: 11,2257           02366                           STORE    DELVEET3                              
029510,001287: 11,2260           70750        INITVELX           LXA,1    DLOAD*                                
029511,001288: 11,2261           02776                                    RTX1                                  
029512,001289: 11,2262           10003                                    MUTABLE    -2,1                       
029513,001290: 11,2263           41206                           PUSH     DMP                                   
029514,001291: 11,2264           02742                                    R1A                                   
029515,001292: 11,2265           56342                           SR1      DDV                                   
029516,001293: 11,2266           00041                                    R1                                    
029517,001294: 11,2267           17721                           STODL    MU/A                                  
029518,001295: 11,2270           77661                           SR                                             
029519,001296: 11,2271           20607                                    6                                     
029520,001297: 11,2272           03717                           STORE    MUASTEER                              
029521,001298: 11,2273           77201                           SETPD    VLOAD                                 
029522,001299: 11,2274           00001                                    0D                                    
029523,001300: 11,2275           03472                                    RTARG1                                
029524,001301: 11,2276           03444                           STORE    RTARG                                 
029525,001302: 11,2277           52014                           CLEAR    GOTO                                  
029526,001303: 11,2300           01267                                    XDELVFLG                              
029527,001304: 11,2301           03463                                    NORMEX                                
029528,001305: 
029529,001306:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
029530,001307: 

Page 693

029532,001309:                                                                                                  #  ..... MIDGIM .....
029533,001310:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
029534,001311:                                                                                                  #  REVISION 03, 17 FEB 67
029535,001312: 
029536,001313:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
029537,001314:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
029538,001315:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
029539,001316:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
029540,001317:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
029541,001318: 
029542,001319:                                                                                                  #  .. INPUTS ..
029543,001320:                                                                                                  #        NAME    MEANING                                         UNITS/SCALING/MODE
029544,001321:                                                                                                  #        AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE     BIT
029545,001322:                                                                                                  #        RINIT   ACTIVE VEHICLE RADIUS VECTOR                    METERS/CSEC (+7) VT
029546,001323:                                                                                                  #        VINIT   ACTIVE VEHICLE VELOCITY VECTOR                  METERS/CSEC (+7) VT
029547,001324:                                                                                                  #        0D(PL)  ACTIVE VEHICLE DELTA VELOCITY VECTOR            METERS/CSEC (+7) VT
029548,001325: 
029549,001326:                                                                                                  #  .. OUTPUTS ..
029550,001327:                                                                                                  #     NAME       MEANING                                         UNITS/SCALING/MODE
029551,001328:                                                                                                  #     +MGA       + MIDDLE GIMBAL ANGLE                           REVOLUTIONS (+0) DP
029552,001329:                                                                                                  #     DELVLVC    DELTA VELOCITY VECTOR IN LV COORD.              METERS/CSEC (+7) VT
029553,001330:                                                                                                  #     MGLVFLAG   INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.   -   BIT
029554,001331: 
029555,001332:                                                                                                  #  .. CALLING SEQUENCE ..
029556,001333:                                                                                                  #        L       CALL
029557,001334:                                                                                                  #        L+1             MIDGIM
029558,001335:                                                                                                  #        L+2     (RETURN - ALWAYS)
029559,001336: 
029560,001337:                                                                                                  #  .. NO SUBROUTINES CALLED ..
029561,001338: 
029562,001339:                                                                                                  #  .. DEBRIS - ERASEABLE TEMPORARY USAGE
029563,001340:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
029564,001341: 
029565,001342:                                                                                                  #  .. ALARMS - NONE ..
029566,001343: 

Page 694

029568,001345:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
029569,001346: 
029570,001347: 06,2000                                           SETLOC   MIDDGIM                               
029571,001348: 06,2000                                           BANK                                           
029572,001349: 
029573,001350: 06,3723                                           COUNT*   $$/MIDG                               
029574,001351: 
029575,001352: 06,3723           20000 00000  HALFREV            2DEC     1          B-1                        
029576,001353: 
029577,001354: 06,3725           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
029578,001355: 06,3726           77656                           UNIT                                           
029579,001356: 06,3727           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
029580,001357: 06,3730           01742                                    REFSMMAT   +6                         #  FROM +2 TO +1 FOR ASIN ROUTINE
029581,001358: 06,3731           51136                           ARCSIN   BPL                                   
029582,001359: 06,3732           15736                                    SETMGA                                
029583,001360: 06,3733           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
029584,001361: 06,3734           15724                                    HALFREV                               #  ADDING ONE REVOLUTION
029585,001362: 06,3735           15724                                    HALFREV                               
029586,001363: 06,3736           02253        SETMGA             STORE    +MGA                                  
029587,001364: 06,3737           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
029588,001365: 06,3740           02675                                    MGLVFLAG                              #  AND EXIT
029589,001366: 06,3741           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC, UNITIZE UR
029590,001367: 06,3742           02323                                    RINIT                                 
029591,001368: 06,3743           77676                           VCOMP                                          #  U(-R)
029592,001369: 06,3744           00023                           STORE    18D                                   #  U(-R) TO 18D
029593,001370: 06,3745           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
029594,001371: 06,3746           02331                                    VINIT                                 
029595,001372: 06,3747           00015                           STORE    12D                                   #  U(V*R) TO 12D
029596,001373: 06,3750           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
029597,001374: 06,3751           00023                                    18D                                   
029598,001375: 06,3752           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
029599,001376: 06,3753           00001                                    0D                                    #  DELTA V (+7) IN 0D
029600,001377: 06,3754           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
029601,001378: 06,3755           00007                                    6D                                    #  AND SCALE +7 IN MPAC
029602,001379: 06,3756           03434                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
029603,001380: 06,3757           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
029604,001381: 06,3760           02475                                    MGLVFLAG                              #  AND EXIT
029605,001382: 
029606,001383:                                                                                                  #  ..... END OF MIDGIM ROUTINE .....
029607,001384: 

Page 695

029609,001386: 10,2000                                           BANK     10                                    
029610,001387: 10,2000                                           SETLOC   SLCTMU                                
029611,001388: 10,2000                                           BANK                                           
029612,001389: 10,2000                                           COUNT*   $$/MIDG                               
029613,001390: 
029614,001391: 10,2000           77160        SELECTMU           AXC,1    AXT,2                                 
029615,001392: 10,2001           00002                                    2D                                    
029616,001393: 10,2002           00000                                    0D                                    
029617,001394: 10,2003           77614                           BOFF                                           
029618,001395: 10,2004           04343                                    CMOONFLG                              
029619,001396: 10,2005           20011                                    SETMUER                               
029620,001397: 10,2006           77160                           AXC,1    AXT,2                                 
029621,001398: 10,2007           00012                                    10D                                   
029622,001399: 10,2010           00002                                    2D                                    
029623,001400: 10,2011           66143        SETMUER            DLOAD*   SXA,1                                 
029624,001401: 10,2012           10011                                    MUTABLE    +4,1                       
029625,001402: 10,2013           02776                                    RTX1                                  
029626,001403: 10,2014           22317                           STODL*   RTSR1/MU                              
029627,001404: 10,2015           10003                                    MUTABLE    -2,1                       
029628,001405: 10,2016           54214                           BOFF     SR                                    
029629,001406: 10,2017           04343                                    CMOONFLG                              
029630,001407: 10,2020           20022                                    RTRNMU                                
029631,001408: 10,2021           20607                                    6D                                    
029632,001409: 10,2022           02321        RTRNMU             STORE    RTMU                                  
029633,001410: 10,2023           43134                           SXA,2    CLEAR                                 
029634,001411: 10,2024           02777                                    RTX2                                  
029635,001412: 10,2025           01271                                    FINALFLG                              
029636,001413: 10,2026           77650                           GOTO                                           
029637,001414: 10,2027           73515                                    VN1645                                
029638,001415: 

Page 696

029640,001417:                                                                                                  #  ..... PERIAPO .....
029641,001418:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
029642,001419:                                                                                                  #  MOD BY WHITE.P                DATE 18 JAN 68
029643,001420: 
029644,001421:                                                                                                  #  FUNCTIONAL DESCRIPTION
029645,001422:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
029646,001423:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
029647,001424:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
029648,001425: 
029649,001426:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
029650,001427: 
029651,001428:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
029652,001429:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
029653,001430: 
029654,001431:                                                                                                  #  CALLING SEQUENCE
029655,001432:                                                                                                  #        L       CALL
029656,001433:                                                                                                  #        L+1             PERIAPO
029657,001434:                                                                                                  #        L+2     (RETURN - ALWAYS)
029658,001435: 
029659,001436:                                                                                                  #  INPUT
029660,001437:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
029661,001438:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029662,001439:                                                                                                  #        (2)     VVEC    VELOCITY VECTOR IN METERS/CENTISECOND
029663,001440:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
029664,001441:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
029665,001442:                                                                                                  #                        EARTH -2, MOON -10
029666,001443: 
029667,001444:                                                                                                  #  OUTPUT
029668,001445:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
029669,001446:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029670,001447:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
029671,001448:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
029672,001449:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
029673,001450:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029674,001451:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
029675,001452:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029676,001453:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
029677,001454:                                                                                                  #                        SCALE FACTOR - +3
029678,001455:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
029679,001456:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029680,001457:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
029681,001458: 
029682,001459:                                                                                                  #  SUBROUTINES USED
029683,001460:                                                                                                  #        SETRAD

Page 697

029685,001462:                                                                                                  #        APSIDES
029686,001463: 
029687,001464: 23,2000                                           SETLOC   APOPERI                               
029688,001465: 23,2000                                           BANK                                           
029689,001466: 
029690,001467: 23,2337                                           COUNT*   $$/PERAP                              
029691,001468: 
029692,001469: 23,2337           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
029693,001470:                                                                                                  #  = 20 909 901.57 FT
029694,001471: 
029695,001472: 23,2341           53754        PERIAPO1           LXA,2    VSR*                                  
029696,001473: 23,2342           02777                                    RTX2                                  
029697,001474: 23,2343           57176                                    0,2                                   
029698,001475: 23,2344           26744                           STOVL    VVEC                                  
029699,001476: 23,2345           53750                           LXA,1    VSR*                                  
029700,001477: 23,2346           02776                                    RTX1                                  
029701,001478: 23,2347           57176                                    0,2                                   
029702,001479: 23,2350           02655                           STORE    RVEC                                  
029703,001480: 23,2351           45020        PERIAPO            STQ      CALL                                  
029704,001481: 23,2352           03463                                    NORMEX                                
029705,001482: 23,2353           46367                                    SETRAD                                
029706,001483: 23,2354           37671                           STCALL   XXXALT                                
029707,001484: 23,2355           25704                                    APSIDES                               
029708,001485: 23,2356           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
029709,001486: 23,2357           00003                                    2D                                    
029710,001487: 23,2360           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
029711,001488: 23,2361           03671                                    XXXALT                                
029712,001489: 23,2362           00001                                    0D                                    
029713,001490: 23,2363           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
029714,001491: 23,2364           03671                                    XXXALT                                
029715,001492: 23,2365           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
029716,001493: 23,2366           03463                                    NORMEX                                
029717,001494: 

Page 698

029719,001496:                                                                                                  #  SETRAD
029720,001497: 
029721,001498: 23,2367           41545        SETRAD             DLOAD    PUSH                                  
029722,001499: 23,2370           06340                                    RPAD                                  
029723,001500: 23,2371           63130                           SXA,1    INCR,2                                
029724,001501: 23,2372           00047                                    X2                                    
029725,001502: 23,2373           00002                                    2D                                    
029726,001503: 23,2374           46135                           SLOAD    BHIZ                                  
029727,001504: 23,2375           00050                                    X2                                    
029728,001505: 23,2376           46402                                    SETRADX                               
029729,001506: 23,2377           51575                           VLOAD    ABVAL                                 
029730,001507: 23,2400           02023                                    RLS                                   
029731,001508: 23,2401           77725                           PDDL                                           
029732,001509: 23,2402           43545        SETRADX            DLOAD    RVQ                                   
029733,001510: 

Page 699

029735,001512:                                                                                                  #  PRECSET
029736,001513: 
029737,001514: 23,2403           77620        PRECSET            STQ                                            
029738,001515: 23,2404           03463                                    NORMEX                                
029739,001516: 23,2405           37574                           STCALL   TDEC2                                 
029740,001517: 23,2406           27056                                    LEMPREC                               
029741,001518: 23,2407           77624                           CALL                                           
029742,001519: 23,2410           46421                                    LEMSTORE                              
029743,001520: 23,2411           77745                           DLOAD                                          
029744,001521: 23,2412           03574                                    TDEC2                                 
029745,001522: 23,2413           34041                           STCALL   TDEC1                                 
029746,001523: 23,2414           27042                                    CSMPREC                               
029747,001524: 23,2415           77624                           CALL                                           
029748,001525: 23,2416           46431                                    CSMSTORE                              
029749,001526: 23,2417           77650                           GOTO                                           
029750,001527: 23,2420           03463                                    NORMEX                                
029751,001528: 23,2421           43175        LEMSTORE           VLOAD    BOFF                                  
029752,001529: 23,2422           00001                                    RATT                                  
029753,001530: 23,2423           01352                                    AVFLAG                                
029754,001531: 23,2424           46435                                    PASSIVE                               
029755,001532: 23,2425           27536        ACTIVE             STOVL    RACT3                                 
029756,001533: 23,2426           00007                                    VATT                                  
029757,001534: 23,2427           03544                           STORE    VACT3                                 
029758,001535: 23,2430           77616                           RVQ                                            
029759,001536: 23,2431           43175        CSMSTORE           VLOAD    BOFF                                  
029760,001537: 23,2432           00001                                    RATT                                  
029761,001538: 23,2433           01352                                    AVFLAG                                
029762,001539: 23,2434           46425                                    ACTIVE                                
029763,001540: 23,2435           27552        PASSIVE            STOVL    RPASS3                                
029764,001541: 23,2436           00007                                    VATT                                  
029765,001542: 23,2437           03560                           STORE    VPASS3                                
029766,001543: 23,2440           77616                           RVQ                                            
029767,001544: 

Page 700

029769,001546:                                                                                                  #  VECSHIFT
029770,001547: 
029771,001548: 23,2441           53754        VECSHIFT           LXA,2    VSR*                                  
029772,001549: 23,2442           02777                                    RTX2                                  
029773,001550: 23,2443           57176                                    0,2                                   
029774,001551: 23,2444           63350                           LXA,1    PDVL                                  
029775,001552: 23,2445           02776                                    RTX1                                  
029776,001553: 23,2446           63257                           VSR*     PDVL                                  
029777,001554: 23,2447           57176                                    0,2                                   
029778,001555: 23,2450           77616                           RVQ                                            
029779,001556: 

Page 701

029781,001558:                                                                                                  #  SHIFTR1
029782,001559: 
029783,001560: 23,2451           53754        SHIFTR1            LXA,2    SL*                                   
029784,001561: 23,2452           02777                                    RTX2                                  
029785,001562: 23,2453           57576                                    0,2                                   
029786,001563: 23,2454           77616                           RVQ                                            
029787,001564: 

Page 702

029789,001566:                                                                                                  #  PROGRAM DESCRIPTION
029790,001567: 
029791,001568:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
029792,001569:                                                                                                  #  MOD NO. 0             DATE 22 DECEMBER 67
029793,001570:                                                                                                  #  MOD BY N.M.NEVILLE    LOG SECTION EXTENDED VERBS
029794,001571:                                                                                                  #  FUNCTIONAL DESCRIPTION
029795,001572: 
029796,001573:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
029797,001574:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI).  (REQUESTED BY DSKY).
029798,001575: 
029799,001576:                                                                                                  #  CALLING SEQUENCE
029800,001577:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V 90 E
029801,001578: 
029802,001579:                                                                                                  #  SUBROUTINES CALLED
029803,001580:                                                                                                  #        EXDSPRET
029804,001581:                                                                                                  #        GOMARKF
029805,001582:                                                                                                  #        CSMPREC
029806,001583:                                                                                                  #        LEMPREC
029807,001584:                                                                                                  #        SGNAGREE
029808,001585:                                                                                                  #        LOADTIME
029809,001586: 
029810,001587:                                                                                                  #  NORMAL EXIT MODES
029811,001588:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
029812,001589: 
029813,001590:                                                                                                  #  ALARM OR ABORT EXIT MODES
029814,001591:                                                                                                  #        NONE
029815,001592: 
029816,001593:                                                                                                  #  OUTPUT
029817,001594:                                                                                                  #        DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
029818,001595: 
029819,001596:                                                                                                  #        DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
029820,001597:                                                                                                  #        REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
029821,001598: 
029822,001599:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029823,001600:                                                                                                  #        CSM AND LEM STATE VECTORS
029824,001601: 
029825,001602:                                                                                                  #  DEBRIS
029826,001603:                                                                                                  #        CENTRALS A,Q,L
029827,001604:                                                                                                  #        OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
029828,001605: 
029829,001606: 20,2115                                           BANK     20                                    
029830,001607: 04,2000                                           SETLOC   R36LM                                 
029831,001608: 04,2000                                           BANK                                           

Page 703

029833,001610: 04,2642  E7,1441                                  EBANK=   TIG                                   
029834,001611: 04,2642                                           COUNT*   $$/R36                                
029835,001612: 
029836,001613: 04,2642           00006        R36                EXTEND                                         
029837,001614: 04,2643           31442                           DCA      TIG                                   #  SET TIME-OF-EVENT TO TIG FOR NOMINAL
029838,001615: 04,2644           53051                           DXCH     DSPTEMX                               #  DISPLAY
029839,001616: 04,2645           32755                           CAF      V06N16N                               
029840,001617: 04,2646           04616                           TC       BANKCALL                              
029841,001618: 04,2647           20334                           CADR     GOMARKF                               
029842,001619: 04,2650           15472                           TCF      ENDEXT                                #  TERMINATE
029843,001620: 04,2651           12653                           TCF      +2                                    #  PROCEED
029844,001621: 04,2652           12645                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
029845,001622: 04,2653           06042                           TC       INTPRET                               
029846,001623: 04,2654           53145                           DLOAD    BZE                                   
029847,001624: 04,2655           01051                                    DSPTEMX                               
029848,001625: 04,2656           10752                                    GETNOW                                #  ASTOR-LOADED ZERO, GET PRES TIME
029849,001626: 04,2657           34041        R36INT             STCALL   TDEC1                                 
029850,001627: 04,2660           27042                                    OTHPREC                               
029851,001628: 04,2661           63375                           VLOAD    PDVL                                  
029852,001629: 04,2662           00007                                    VATT                                  
029853,001630: 04,2663           00001                                    RATT                                  #  -
029854,001631: 04,2664           02207                           STORE    RPASS36                               #  R
029855,001632: 04,2665           63256                           UNIT     PDVL                                  #  P
029856,001633: 04,2666           53435                           VXV      UNIT                                  #  -
029857,001634: 04,2667           77626                           STADR                                          
029858,001635: 04,2670           61562                           STODL    UNP36                                 #  U
029859,001636: 04,2671           00015                                    TAT                                   
029860,001637: 04,2672           34041                           STCALL   TDEC1                                 
029861,001638: 04,2673           27056                                    THISPREC                              
029862,001639: 04,2674           63375                           VLOAD    PDVL                                  #                    -
029863,001640: 04,2675           00007                                    VATT                                  #  VELOCITY VECTOR   V   00D
029864,001641: 04,2676           00001                                    RATT                                  #                     A
029865,001642: 04,2677           41406                           PUSH     PUSH                                  #  POSITION VECTOR   R   IN  06D AND 12D
029866,001643: 04,2700           63245                           BVSU     PDVL                                  #                     A  -   -
029867,001644: 04,2701           02207                                    RPASS36                               #  LINE OF SIGHT VECTOR  R - R       12D
029868,001645: 04,2702           72441                           DOT      SL1                                   #                         P   A
029869,001646: 04,2703           02215                                    UNP36                                 #      -   -
029870,001647: 04,2704           26201                           STOVL    RANGE                                 #  Y = U . R
029871,001648: 04,2705           00001                                    00D                                   #           A
029872,001649: 04,2706           72441                           DOT      SL1                                   
029873,001650: 04,2707           02215                                    UNP36                                 #  .   -   -
029874,001651: 04,2710           26203                           STOVL    RRATE                                 #  Y = U . V
029875,001652: 04,2711           00007                                    06D                                   #  -        A  -
029876,001653: 04,2712           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
029877,001654: 04,2713           47235                           VXV      VXV                                   #   RA          A
029878,001655: 04,2714           00001                                    00D                                   #   -    -     -     -
029879,001656: 04,2715           00023                                    18D                                   #  (U  X V ) X U   = U
029880,001657: 04,2716           53552                           VSL2     UNIT                                  #    RA   A     RA    A
029881,001658: 04,2717           77656                           UNIT                                           
029882,001659: 04,2720           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D

Page 704

029884,001661: 04,2721           00023                                    18D                                   
029885,001662: 04,2722           74241                           DOT      VXSC                                  #  -
029886,001663: 04,2723           00015                                    12D                                   #  U
029887,001664: 04,2724           77752                           VSL2                                           #   L
029888,001665: 04,2725           53445                           BVSU     UNIT                                  
029889,001666: 04,2726           77656                           UNIT                                           
029890,001667: 04,2727           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
029891,001668: 04,2730           00001                                    00D                                   #  PLANE
029892,001669: 04,2731           65552                           SL1      ARCCOS                                #               -   -
029893,001670: 04,2732           26205                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
029894,001671: 04,2733           50235                           VXV      DOT                                   #                A   L
029895,001672: 04,2734           00001                                    00D                                   
029896,001673: 04,2735           71244                           BPL      DLOAD                                 
029897,001674: 04,2736           10743                                    R36TAG2                               
029898,001675: 04,2737           24020                                    LODPMAX                               
029899,001676: 04,2740           77625                           DSU                                            
029900,001677: 04,2741           02205                                    RTHETA                                
029901,001678: 04,2742           02205                           STORE    RTHETA                                
029902,001679: 04,2743           77776        R36TAG2            EXIT                                           
029903,001680: 04,2744           32756                           CAF      V06N90N                               #  DISPLAY Y, YDOT, AND PSI
029904,001681: 04,2745           04616                           TC       BANKCALL                              
029905,001682: 04,2746           20334                           CADR     GOMARKF                               
029906,001683: 04,2747           15472                           TCF      ENDEXT                                #  TERMINATE
029907,001684: 04,2750           15472                           TCF      ENDEXT                                #  PROCEED, END OF PROGRAM
029908,001685: 04,2751           12642                           TCF      R36                                   #  RECYCLE, TIG OR ASTRO-OPTION
029909,001686: 04,2752           52034        GETNOW             RTB      GOTO                                  #  ASTRO-SELECTED PRESENT TIME
029910,001687: 04,2753           21574                                    LOADTIME                              
029911,001688: 04,2754           10657                                    R36INT                                
029912,001689: 04,2755           01420        V06N16N            VN       00616                                 
029913,001690: 04,2756           01532        V06N90N            VN       00690                                 

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