Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

028051,000002:                                                                                                  ## Copyright:   Public domain.
028052,000003:                                                                                                  ## Filename:    P34-35_P74-75.agc
028053,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
028054,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
028055,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
028056,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
028057,000008:                                                                                                  ##              that the code format has been changed to conform to the
028058,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
028059,000010:                                                                                                  ##              original YUL assembler.
028060,000011:                                                                                                  ## Reference:   pp. 660-704
028061,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028062,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo
028063,000014:                                                                                                  ## Mod history: 05/22/03 RSB.   Began transcribing.
028064,000015:                                                                                                  ##              2010-10-25 JL   Added missing # in comments.
028065,000016:                                                                                                  ##              2011-05-07 JL   Removed workaround.
028066,000017:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
028067,000018:                                                                                                  ##                              original harcopy, as opposed to the PDF page
028068,000019:                                                                                                  ##                              numbers in 1701.pdf.
028069,000020:                                                                                                  ##              2017-01-28 RSB  Back-ported some comment fixes I noticed while
028070,000021:                                                                                                  ##                              proofing Luminary 69.
028071,000022:                                                                                                  ##              2017-01-28 RSB  Back-ported some comment fixes I noticed while
028072,000023:                                                                                                  ##                              proofing Artemis 72.
028073,000024:                                                                                                  ##              2017-02-24 RSB  Proofed comment text using octopus/ProoferComments.
028074,000025:                                                                                                  ##              2017-02-28 RSB  Fixed lingering typos.
028075,000026:                                                                                                  ##              2017-03-09 RSB  Fixed VNP00H to VNPOOH.
028076,000027:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116. 
028077,000028:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
028078,000029:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
028079,000030: 

Page 660

028081,000032:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
028082,000033:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
028083,000034:                                                                                                  #  MOD BY WHITE.P                DATE 1 JUNE 67
028084,000035: 
028085,000036:                                                                                                  #  PURPOSE
028086,000037:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028087,000038:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
028088,000039:                                                                                                  #                PHASE INITIATION (TPI) MANEUVER, GIVEN -
028089,000040:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
028090,000041:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
028091,000042:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
028092,000043:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
028093,000044:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
028094,000045:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028095,000046:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028096,000047:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028097,000048:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028098,000049:                                                                                                  #                ASTRONAUT/GROUND.
028099,000050:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
028100,000051:                                                                                                  #                THRUSTING PROGRAM.
028101,000052: 
028102,000053:                                                                                                  #  ASSUMPTIONS
028103,000054:                                                                                                  #        (1)     LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
028104,000055:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
028105,000056:                                                                                                  #                THEREFORE -
028106,000057:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028107,000058:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028108,000059:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028109,000060:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028110,000061:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028111,000062:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
028112,000063:                                                                                                  #                (C)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028113,000064:                                                                                                  #                        ORBITS WAS MINIMIZED.
028114,000065:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
028115,000066:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 661

028117,000068:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
028118,000069:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
028119,000070:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
028120,000071:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
028121,000072:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
028122,000073:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
028123,000074:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
028124,000075:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
028125,000076:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
028126,000077:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
028127,000078:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
028128,000079:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
028129,000080:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
028130,000081:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028131,000082:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
028132,000083:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028133,000084:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
028134,000085:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028135,000086:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
028136,000087:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028137,000088:                                                                                                  #                THRUSTING MANEUVER.
028138,000089:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028139,000090:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028140,000091: 
028141,000092:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028142,000093:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028143,000094:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028144,000095:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028145,000096: 
028146,000097:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028147,000098:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028148,000099: 
028149,000100:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028150,000101:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028151,000102:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028152,000103: 
028153,000104:                                                                                                  #        (7)     ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
028154,000105:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028155,000106:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028156,000107:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028157,000108:                                                                                                  #                THROUGH THE USE OF V06N52.
028158,000109: 
028159,000110:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028160,000111:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 662

028162,000113:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
028163,000114:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028164,000115:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
028165,000116:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028166,000117: 
028167,000118:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
028168,000119: 
028169,000120:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
028170,000121: 
028171,000122:                                                                                                  #  INPUT
028172,000123:                                                                                                  #        (1)     TTPI    TIME OF THE TPI MANEUVER
028173,000124:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
028174,000125:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028175,000126:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
028176,000127: 
028177,000128:                                                                                                  #  OUTPUT
028178,000129:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
028179,000130:                                                                                                  #        (2)     TTOGO           TIME TO GO
028180,000131:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
028181,000132:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
028182,000133:                                                                                                  #                 OR
028183,000134:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
028184,000135:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
028185,000136:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
028186,000137:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
028187,000138:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI - LINE OF SIGHT
028188,000139:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
028189,000140: 
028190,000141:                                                                                                  #  DOWNLINK
028191,000142:                                                                                                  #        (1)     TTPI            TIME OF THE TPI MANEUVER
028192,000143:                                                                                                  #        (2)     TIG             TIME OF THE TPI MANEUVER
028193,000144:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
028194,000145:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028195,000146:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
028196,000147:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI - REFERENCE COORDINATES
028197,000148:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
028198,000149: 
028199,000150:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028200,000151:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
028201,000152:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
028202,000153:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028203,000154:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028204,000155: 
028205,000156:                                                                                                  #  SUBROUTINES USED
028206,000157:                                                                                                  #        AVFLAGA

Page 663

028208,000159:                                                                                                  #        AVFLAGP
028209,000160:                                                                                                  #        VNPOOH
028210,000161:                                                                                                  #        DISPLAYE
028211,000162:                                                                                                  #        SELECTMU
028212,000163:                                                                                                  #        PRECSET
028213,000164:                                                                                                  #        S33/34.1
028214,000165:                                                                                                  #        ALARM
028215,000166:                                                                                                  #        BANKCALL
028216,000167:                                                                                                  #        GOFLASH
028217,000168:                                                                                                  #        GOTOPOOH
028218,000169:                                                                                                  #        TIMETHET
028219,000170:                                                                                                  #        S34/35.2
028220,000171:                                                                                                  #        PERIAPO1
028221,000172:                                                                                                  #        SHIFTR1
028222,000173:                                                                                                  #        S34/35.5
028223,000174:                                                                                                  #        VN1645
028224,000175: 
028225,000176: 35,2000                                           SETLOC   CSI/CDH                               
028226,000177: 35,2000                                           BANK                                           
028227,000178: 35,2455  E7,1470                                  EBANK=   SUBEXIT                               
028228,000179: 35,2455                                           COUNT*   $$/P3474                              
028229,000180: 35,2455           02354        P34                TC       AVFLAGA                               
028230,000181: 35,2456           02460                           TC       P34/P74A                              
028231,000182: 35,2457           02361        P74                TC       AVFLAGP                               
028232,000183: 35,2460           02366        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
028233,000184: 35,2461           33632                           CAF      V06N37                                #  TTPI
028234,000185: 35,2462           03621                           TC       VNPOOH                                
028235,000186: 35,2463           00006                           EXTEND                                         
028236,000187: 35,2464           33655                           DCA      130DEG                                
028237,000188: 35,2465           53621                           DXCH     CENTANG                               
028238,000189: 35,2466           32424                           CAF      P30ZERO                               
028239,000190: 35,2467           55466                           TS       NN                                    
028240,000191: 35,2470           03603                           TC       DISPLAYE                              #  ELEV AND CENTANG
028241,000192: 35,2471           06042                           TC       INTPRET                               
028242,000193: 35,2472           71214                           CLEAR    DLOAD                                 
028243,000194: 35,2473           01270                                    ETPIFLAG                              
028244,000195: 35,2474           03636                                    TTPI                                  
028245,000196: 35,2475           17442                           STODL    TIG                                   
028246,000197: 35,2476           02257                                    ELEV                                  
028247,000198: 35,2477           43054                           BZE      SET                                   
028248,000199: 35,2500           72502                                    P34/P74B                              
028249,000200: 35,2501           01070                                    ETPIFLAG                              
028250,000201: 35,2502           77624        P34/P74B           CALL                                           
028251,000202: 35,2503           20000                                    SELECTMU                              
028252,000203: 35,2504                        DELELO             EQUALS   26D                                   
028253,000204: 35,2504           43145        P34/P74C           DLOAD    SET                                   
028254,000205: 35,2505           06524                                    ZEROVECS                              
028255,000206: 35,2506           03460                                    ITSWICH                               
028256,000207: 35,2507           43014                           BON      CLEAR                                 
028257,000208: 35,2510           01310                                    ETPIFLAG                              

Page 664

028259,000210: 35,2511           72513                                    SWCHSET                               
028260,000211: 35,2512           03660                                    ITSWICH                               
028261,000212: 35,2513           02317        SWCHSET            STORE    NOMTPI                                
028262,000213: 35,2514           43345        INTLOOP            DLOAD    DAD                                   
028263,000214: 35,2515           03636                                    TTPI                                  
028264,000215: 35,2516           02317                                    NOMTPI                                
028265,000216: 35,2517           34041                           STCALL   TDEC1                                 
028266,000217: 35,2520           46403                                    PRECSET                               
028267,000218: 35,2521           77624                           CALL                                           
028268,000219: 35,2522           72674                                    S33/34.1                              
028269,000220: 35,2523           77454                           BZE      EXIT                                  
028270,000221: 35,2524           72535                                    SWCHCLR                               
028271,000222: 35,2525           05567                           TC       ALARM                                 
028272,000223: 35,2526           00611                           OCT      611                                   
028273,000224: 35,2527           35006                           CAF      V05N09                                
028274,000225: 35,2530           04616                           TC       BANKCALL                              
028275,000226: 35,2531           20477                           CADR     GOFLASH                               
028276,000227: 35,2532           06001                           TC       GOTOPOOH                              
028277,000228: 35,2533           02460                           TC       P34/P74A                              #  PROCEED
028278,000229: 35,2534           02525                           TC       -7                                    #  V32
028279,000230: 
028280,000231: 35,2535           43014        SWCHCLR            BONCLR   BON                                   
028281,000232: 35,2536           03600                                    ITSWICH                               
028282,000233: 35,2537           72514                                    INTLOOP                               
028283,000234: 35,2540           01310                                    ETPIFLAG                              
028284,000235: 35,2541           72545                                    P34/P74D                              #  DISPLAY TTPI
028285,000236: 35,2542           77776                           EXIT                                           
028286,000237: 35,2543           03603                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
028287,000238: 35,2544           02550                           TC       P34/P74E                              
028288,000239: 35,2545           77776        P34/P74D           EXIT                                           
028289,000240: 35,2546           33632                           CAF      V06N37                                #  TTPI
028290,000241: 35,2547           03621                           TC       VNPOOH                                
028291,000242: 35,2550           06042        P34/P74E           TC       INTPRET                               
028292,000243: 35,2551           71201                           SETPD    DLOAD                                 
028293,000244: 35,2552           00001                                    0D                                    
028294,000245: 35,2553           02777                                    RTX1                                  
028295,000246: 35,2554           14047                           STODL    X1                                    
028296,000247: 35,2555           03621                                    CENTANG                               
028297,000248: 35,2556           71406                           PUSH     COS                                   
028298,000249: 35,2557           16732                           STODL    CSTH                                  
028299,000250: 35,2560           77756                           SIN                                            
028300,000251: 35,2561           26730                           STOVL    SNTH                                  
028301,000252: 35,2562           03552                                    RPASS3                                
028302,000253: 35,2563           77657                           VSR*                                           
028303,000254: 35,2564           57176                                    0,2                                   
028304,000255: 35,2565           26655                           STOVL    RVEC                                  
028305,000256: 35,2566           03560                                    VPASS3                                
028306,000257: 35,2567           43057                           VSR*     SET                                   
028307,000258: 35,2570           57176                                    0,2                                   
028308,000259: 35,2571           03466                                    RVSW                                  

Page 665

028310,000261: 35,2572           36744                           STCALL   VVEC                                  
028311,000262: 35,2573           24732                                    TIMETHET                              
028312,000263: 35,2574           77745                           DLOAD                                          
028313,000264: 35,2575           03636                                    TTPI                                  
028314,000265: 35,2576           03610                           STORE    INTIME                                #  FOR INITVEL
028315,000266: 35,2577           77615                           DAD                                            
028316,000267: 35,2600           00037                                    T                                     #  RENDEZVOUS TIME
028317,000268: 35,2601           37631                           STCALL   TPASS4                                #  FOR INITVEL
028318,000269: 35,2602           73216                                    S34/35.2                              
028319,000270: 35,2603           51575                           VLOAD    ABVAL                                 
028320,000271: 35,2604           02366                                    DELVEET3                              
028321,000272: 35,2605           27576                           STOVL    DELVTPI                               
028322,000273: 35,2606           03506                                    VPASS4                                
028323,000274: 35,2607           51451                           VSU      ABVAL                                 
028324,000275: 35,2610           03566                                    VTPRIME                               
028325,000276: 35,2611           26350                           STOVL    DELVTPF                               
028326,000277: 35,2612           03536                                    RACT3                                 
028327,000278: 35,2613           45115                           PDVL     CALL                                  
028328,000279: 35,2614           02337                                    VIPRIME                               
028329,000280: 35,2615           46341                                    PERIAPO1                              
028330,000281: 35,2616           77624                           CALL                                           
028331,000282: 35,2617           46451                                    SHIFTR1                               
028332,000283: 35,2620           17606                           STODL    POSTTPI                               
028333,000284: 35,2621           03636                                    TTPI                                  
028334,000285: 35,2622           03442                           STORE    TIG                                   
028335,000286: 35,2623           77776                           EXIT                                           
028336,000287: 35,2624           33634                           CAF      V06N58                                
028337,000288: 35,2625           03621                           TC       VNPOOH                                
028338,000289: 35,2626           06042                           TC       INTPRET                               
028339,000290: 35,2627           77624                           CALL                                           
028340,000291: 35,2630           73432                                    S34/35.5                              
028341,000292: 35,2631           77624                           CALL                                           
028342,000293: 35,2632           73515                                    VN1645                                
028343,000294: 35,2633           77650                           GOTO                                           
028344,000295: 35,2634           72504                                    P34/P74C                              

Page 666

028346,000297:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
028347,000298:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
028348,000299:                                                                                                  #  MOD BY WHITE.P                DATE   1 JUNE 67
028349,000300: 
028350,000301:                                                                                                  #  PURPOSE
028351,000302:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028352,000303:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
028353,000304:                                                                                                  #                MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
028354,000305:                                                                                                  #                VEHICLE RENDEZVOUS.
028355,000306:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028356,000307:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028357,000308:                                                                                                  #                ASTRONAUT/GROUND.
028358,000309:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
028359,000310:                                                                                                  #                THRUSTING PROGRAM.
028360,000311: 
028361,000312:                                                                                                  #  ASSUMPTIONS
028362,000313:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028363,000314:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028364,000315:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
028365,000316:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
028366,000317:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
028367,000318:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
028368,000319:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
028369,000320:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
028370,000321:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
028371,000322:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028372,000323: 
028373,000324:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028374,000325:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028375,000326:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028376,000327:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028377,000328: 
028378,000329:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028379,000330:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028380,000331: 
028381,000332:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028382,000333:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028383,000334:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028384,000335: 
028385,000336:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
028386,000337:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
028387,000338:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.

Page 667

028389,000340:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
028390,000341:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028391,000342:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028392,000343:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028393,000344:                                                                                                  #                THROUGH THE USE OF V06N52.
028394,000345: 
028395,000346:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028396,000347:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
028397,000348:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
028398,000349:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028399,000350:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
028400,000351:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028401,000352: 
028402,000353:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
028403,000354: 
028404,000355:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
028405,000356: 
028406,000357:                                                                                                  #  INPUT
028407,000358:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT - SAVED FROM P34/P74
028408,000359: 
028409,000360:                                                                                                  #  OUTPUT
028410,000361:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
028411,000362:                                                                                                  #        (2)     TTOGO           TIME TO GO
028412,000363:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
028413,000364:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID - LINE OF SIGHT
028414,000365:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
028415,000366: 
028416,000367:                                                                                                  #  DOWNLINK
028417,000368:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
028418,000369:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM - REFERENCE COORDINATES
028419,000370:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028420,000371: 
028421,000372:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028422,000373:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
028423,000374:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
028424,000375:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028425,000376:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028426,000377: 
028427,000378:                                                                                                  #  SUBROUTINES USED
028428,000379:                                                                                                  #        AVFLAGA
028429,000380:                                                                                                  #        AVFLAGP
028430,000381:                                                                                                  #        LOADTIME
028431,000382:                                                                                                  #        SELECTMU
028432,000383:                                                                                                  #        PRECSET
028433,000384:                                                                                                  #        S34/35.1
028434,000385:                                                                                                  #        S34/35.2

Page 668

028436,000387:                                                                                                  #        S34/35.5
028437,000388:                                                                                                  #        VN1645
028438,000389: 
028439,000390: 35,2635                                           COUNT*   $$/P3575                              
028440,000391: 35,2635  E7,1575                                  EBANK=   KT                                    
028441,000392: 
028442,000393: 35,2635           02354        P35                TC       AVFLAGA                               
028443,000394: 35,2636           00006                           EXTEND                                         
028444,000395: 35,2637           31401                           DCA      ATIGINC                               
028445,000396: 35,2640           02644                           TC       P35/P75A                              
028446,000397: 35,2641           02361        P75                TC       AVFLAGP                               
028447,000398: 35,2642           00006                           EXTEND                                         
028448,000399: 35,2643           31403                           DCA      PTIGINC                               
028449,000400: 35,2644           53576        P35/P75A           DXCH     KT                                    
028450,000401: 35,2645           02366                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
028451,000402: 35,2646           06042                           TC       INTPRET                               
028452,000403: 35,2647           77624                           CALL                                           
028453,000404: 35,2650           20000                                    SELECTMU                              
028454,000405: 35,2651           77634        P35/P75B           RTB                                            
028455,000406: 35,2652           21574                                    LOADTIME                              
028456,000407: 35,2653           03612                           STORE    TSTRT                                 
028457,000408: 35,2654           77615                           DAD                                            
028458,000409: 35,2655           03576                                    KT                                    
028459,000410: 35,2656           03442                           STORE    TIG                                   
028460,000411: 35,2657           03610                           STORE    INTIME                                #  FOR INITVEL
028461,000412: 35,2660           34041                           STCALL   TDEC1                                 
028462,000413: 35,2661           46403                                    PRECSET                               #  ADVANCE BOTH VEHICLES
028463,000414: 35,2662           77624                           CALL                                           
028464,000415: 35,2663           73204                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
028465,000416: 35,2664           77624                           CALL                                           
028466,000417: 35,2665           73216                                    S34/35.2                              #  GET DELTA V(LV)
028467,000418: 35,2666           77624                           CALL                                           
028468,000419: 35,2667           73432                                    S34/35.5                              
028469,000420: 35,2670           77624                           CALL                                           
028470,000421: 35,2671           73515                                    VN1645                                
028471,000422: 35,2672           77650                           GOTO                                           
028472,000423: 35,2673           72651                                    P35/P75B                              

Page 669

028474,000425:                                                                                                  #  ..... S33/34.1 .....
028475,000426: 
028476,000427: 35,2674           66220        S33/34.1           STQ      SSP                                   
028477,000428: 35,2675           03463                                    NORMEX                                
028478,000429: 35,2676           03614                                    TITER                                 
028479,000430: 35,2677           40000                           OCT      40000                                 
028480,000431: 35,2700           40345                           DLOAD    SETPD                                 
028481,000432: 35,2701           33643                                    MAX250                                
028482,000433: 35,2702           00001                                    0D                                    
028483,000434: 35,2703           27574                           STOVL    SECMAX                                
028484,000435: 35,2704           03536                                    RACT3                                 
028485,000436: 35,2705           27500                           STOVL    RAPREC                                
028486,000437: 35,2706           03544                                    VACT3                                 
028487,000438: 35,2707           27506                           STOVL    VAPREC                                
028488,000439: 35,2710           03552                                    RPASS3                                
028489,000440: 35,2711           27522                           STOVL    RPPREC                                
028490,000441: 35,2712           03560                                    VPASS3                                
028491,000442: 35,2713           03530                           STORE    VPPREC                                
028492,000443: 35,2714           77624        ELCALC             CALL                                           
028493,000444: 35,2715           73204                                    S34/35.1                              #  NORMAL AND LOS
028494,000445: 35,2716           63235                           VXV      PDVL                                  
028495,000446: 35,2717           03536                                    RACT3                                 #  (RA*VA)*RA 0D
028496,000447: 35,2720           53515                           PDVL     UNIT                                  #  ULOS AT 6D
028497,000448: 35,2721           03536                                    RACT3                                 
028498,000449: 35,2722           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
028499,000450: 35,2723           51352                           VSL2     BVSU                                  
028500,000451: 35,2724           02311                                    ULOS                                  
028501,000452: 35,2725           63256                           UNIT     PDVL                                  #  UP AT 0D
028502,000453: 35,2726           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
028503,000454: 35,2727           00001                                    0D                                    #  UP IN MPAC
028504,000455: 35,2730           75241                           DOT      SIGN                                  
028505,000456: 35,2731           02311                                    ULOS                                  
028506,000457: 35,2732           65552                           SL1      ACOS                                  
028507,000458: 35,2733           50315                           PDVL     DOT                                   #  EA AT 0D
028508,000459: 35,2734           02311                                    ULOS                                  
028509,000460: 35,2735           03536                                    RACT3                                 
028510,000461: 35,2736           71244                           BPL      DLOAD                                 
028511,000462: 35,2737           72742                                    TESTY                                 
028512,000463: 35,2740           06532                                    DPPOSMAX                              
028513,000464: 35,2741           41425                           DSU      PUSH                                  
028514,000465: 35,2742           71214        TESTY              BOFF     DLOAD                                 
028515,000466: 35,2743           03740                                    ITSWICH                               
028516,000467: 35,2744           73171                                    ELEX                                  
028517,000468: 35,2745           03576                                    DELEL                                 
028518,000469: 35,2746           14033                           STODL    DELELO                                
028519,000470: 35,2747           77625                           DSU                                            
028520,000471: 35,2750           02257                                    ELEV                                  
028521,000472: 35,2751           03576                           STORE    DELEL                                 
028522,000473: 35,2752           45246                           ABS      DSU                                   
028523,000474: 35,2753           33647                                    ELEPS                                 

Page 670

028525,000476: 35,2754           77640                           BMN                                            
028526,000477: 35,2755           73201                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
028527,000478: 35,2756           70535        FIGTIME            SLOAD    SR1                                   
028528,000479: 35,2757           03614                                    TITER                                 
028529,000480: 35,2760           72030                           BHIZ     LXA,1                                 
028530,000481: 35,2761           03463                                    NORMEX                                #  TOO MANY ITERATIONS
028531,000482: 35,2762           00154                                    MPAC                                  
028532,000483: 35,2763           77330                           SXA,1    VLOAD                                 
028533,000484: 35,2764           03613                                    TITER                                 
028534,000485: 35,2765           03552                                    RPASS3                                
028535,000486: 35,2766           65256                           UNIT     PDDL                                  
028536,000487: 35,2767           00045                                    36D                                   
028537,000488: 35,2770           53515                           PDVL     UNIT                                  
028538,000489: 35,2771           03536                                    RACT3                                 
028539,000490: 35,2772           77725                           PDDL                                           
028540,000491: 35,2773           41525                           PDDL     PUSH                                  
028541,000492: 35,2774           00045                                    36D                                   
028542,000493: 35,2775           77621                           BDSU                                           
028543,000494: 35,2776           00015                                    12D                                   
028544,000495: 35,2777           14037                           STODL    30D                                   #  RP-RA MAGNITUDES
028545,000496: 35,3000           06522                                    DPHALF                                
028546,000497: 35,3001           41425                           DSU      PUSH                                  
028547,000498: 35,3002           02257                                    ELEV                                  
028548,000499: 35,3003           50165                           SIGN     BMN                                   
028549,000500: 35,3004           00037                                    30D                                   
028550,000501: 35,3005           03463                                    NORMEX                                
028551,000502: 35,3006           71545                           DLOAD    COS                                   
028552,000503: 35,3007           56205                           DMP      DDV                                   
028553,000504: 35,3010           00017                                    14D                                   
028554,000505: 35,3011           00015                                    12D                                   
028555,000506: 35,3012           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
028556,000507: 35,3013           00035                           STORE    28D                                   
028557,000508: 35,3014           44246                           ABS      BDSU                                  
028558,000509: 35,3015           06522                                    DPHALF                                
028559,000510: 35,3016           77240                           BMN      VLOAD                                 
028560,000511: 35,3017           03463                                    NORMEX                                
028561,000512: 35,3020           02261                                    UNRM                                  
028562,000513: 35,3021           53435                           VXV      UNIT                                  
028563,000514: 35,3022           00007                                    6D                                    #  UN*RA
028564,000515: 35,3023           41241                           DOT      DMP                                   
028565,000516: 35,3024           03544                                    VACT3                                 
028566,000517: 35,3025           00015                                    12D                                   
028567,000518: 35,3026           47315                           PDVL     VXV                                   
028568,000519: 35,3027           00001                                    0D                                    
028569,000520: 35,3030           03560                                    VPASS3                                
028570,000521: 35,3031           53435                           VXV      UNIT                                  
028571,000522: 35,3032           00001                                    0D                                    #  (RP*VP)*RP
028572,000523: 35,3033           41241                           DOT      DMP                                   
028573,000524: 35,3034           03560                                    VPASS3                                
028574,000525: 35,3035           00017                                    14D                                   

Page 671

028576,000527: 35,3036           77621                           BDSU                                           
028577,000528: 35,3037           63301                           NORM     PDVL                                  #  NORMALIZED WA-WP 12D
028578,000529: 35,3040           00047                                    X1                                    
028579,000530: 35,3041           00007                                    6D                                    
028580,000531: 35,3042           50235                           VXV      DOT                                   
028581,000532: 35,3043           00001                                    0D                                    
028582,000533: 35,3044           02261                                    UNRM                                  #  RA*RP.UN 14D
028583,000534: 35,3045           50315                           PDVL     DOT                                   
028584,000535: 35,3046           00001                                    0D                                    
028585,000536: 35,3047           00007                                    6D                                    
028586,000537: 35,3050           65552                           SL1      ACOS                                  
028587,000538: 35,3051           77765                           SIGN                                           
028588,000539: 35,3052           43225                           DSU      DAD                                   #  ALPHA PI
028589,000540: 35,3053           06522                                    DPHALF                                
028590,000541: 35,3054           02257                                    ELEV                                  
028591,000542: 35,3055           65525                           PDDL     ACOS                                  
028592,000543: 35,3056           00035                                    28D                                   
028593,000544: 35,3057           75221                           BDSU     SIGN                                  
028594,000545: 35,3060           06522                                    DPHALF                                
028595,000546: 35,3061           00037                                    30D                                   #  CONTAINS RP-RA
028596,000547: 35,3062           77615                           DAD                                            
028597,000548: 35,3063           56205                           DMP      DDV                                   
028598,000549: 35,3064           33641                                    TWOPI                                 
028599,000550: 35,3065           77605                           DMP                                            
028600,000551: 35,3066           41257                           SL*      DMP                                   
028601,000552: 35,3067           20176                                    0          -3,1                       
028602,000553: 35,3070           51406                           PUSH     ABS                                   
028603,000554: 35,3071           50025                           DSU      BMN                                   
028604,000555: 35,3072           03574                                    SECMAX                                
028605,000556: 35,3073           73077                                    OKMAX                                 
028606,000557: 35,3074           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
028607,000558: 35,3075           03574                                    SECMAX                                
028608,000559: 35,3076           77606                           PUSH                                           
028609,000560: 35,3077           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
028610,000561: 35,3100           03614                                    TITER                                 
028611,000562: 35,3101           73107                                    REPETE                                
028612,000563: 35,3102           71331                           SSP      DLOAD                                 
028613,000564: 35,3103           03614                                    TITER                                 
028614,000565: 35,3104           37777                           OCT      37777                                 
028615,000566: 35,3105           77650                           GOTO                                           
028616,000567: 35,3106           73145                                    STORDELT                              
028617,000568: 35,3107           41345        REPETE             DLOAD    DMP                                   
028618,000569: 35,3110           03576                                    DELEL                                 
028619,000570: 35,3111           00033                                    DELELO                                
028620,000571: 35,3112           71244                           BPL      DLOAD                                 
028621,000572: 35,3113           73123                                    NEXTES                                
028622,000573: 35,3114           03574                                    SECMAX                                
028623,000574: 35,3115           77605                           DMP                                            
028624,000575: 35,3116           33645                                    THIRD                                 
028625,000576: 35,3117           17574                           STODL    SECMAX                                

Page 672

028627,000578: 35,3120           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
028628,000579: 35,3121           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
028629,000580: 35,3122           73133                                    RESIGN                                
028630,000581: 35,3123           51545        NEXTES             DLOAD    ABS                                   
028631,000582: 35,3124           03576                                    DELEL                                 
028632,000583: 35,3125           51525                           PDDL     ABS                                   
028633,000584: 35,3126           00033                                    DELELO                                
028634,000585: 35,3127           77625                           DSU                                            
028635,000586: 35,3130           71240                           BMN      DLOAD                                 
028636,000587: 35,3131           73136                                    REVERS                                #  WRONG DIRECTION
028637,000588: 35,3132           77646                           ABS                                            
028638,000589: 35,3133           52165        RESIGN             SIGN     GOTO                                  
028639,000590: 35,3134           03606                                    DELTEEO                               
028640,000591: 35,3135           73145                                    STORDELT                              
028641,000592: 35,3136           57545        REVERS             DLOAD    DCOMP                                 
028642,000593: 35,3137           03606                                    DELTEEO                               
028643,000594: 35,3140           70406                           PUSH     SR1                                   
028644,000595: 35,3141           03606                           STORE    DELTEEO                               
028645,000596: 35,3142           77615                           DAD                                            
028646,000597: 35,3143           77650                           GOTO                                           
028647,000598: 35,3144           73146                                    ADTIME                                
028648,000599: 35,3145           03606        STORDELT           STORE    DELTEEO                               
028649,000600: 35,3146           77615        ADTIME             DAD                                            
028650,000601: 35,3147           02317                                    NOMTPI                                #  SUM OF DELTA T:S
028651,000602: 35,3150           02317                           STORE    NOMTPI                                
028652,000603: 35,3151           63375                           VLOAD    PDVL                                  
028653,000604: 35,3152           03506                                    VAPREC                                
028654,000605: 35,3153           03500                                    RAPREC                                
028655,000606: 35,3154           77624                           CALL                                           
028656,000607: 35,3155           73372                                    GOINT                                 
028657,000608: 35,3156           77624                           CALL                                           
028658,000609: 35,3157           46425                                    ACTIVE                                #  STORE NEW RACT3 VACT3
028659,000610: 35,3160           63375                           VLOAD    PDVL                                  
028660,000611: 35,3161           03530                                    VPPREC                                
028661,000612: 35,3162           03522                                    RPPREC                                
028662,000613: 35,3163           77624                           CALL                                           
028663,000614: 35,3164           73372                                    GOINT                                 
028664,000615: 35,3165           77624                           CALL                                           
028665,000616: 35,3166           46435                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
028666,000617: 35,3167           77650                           GOTO                                           
028667,000618: 35,3170           72714                                    ELCALC                                
028668,000619: 35,3171           43345        ELEX               DLOAD    DAD                                   
028669,000620: 35,3172           03636                                    TTPI                                  
028670,000621: 35,3173           02317                                    NOMTPI                                
028671,000622: 35,3174           17636                           STODL    TTPI                                  
028672,000623: 35,3175           77614                           BON                                            
028673,000624: 35,3176           01310                                    ETPIFLAG                              
028674,000625: 35,3177           73201                                    TIMEX                                 
028675,000626: 35,3200           02257                           STORE    ELEV                                  
028676,000627: 35,3201           52145        TIMEX              DLOAD    GOTO                                  

Page 673

028678,000629: 35,3202           06524                                    ZEROVECS                              
028679,000630: 35,3203           03463                                    NORMEX                                
028680,000631: 

Page 674

028682,000633:                                                                                                  #  ..... S34/35.1 .....
028683,000634: 
028684,000635:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
028685,000636:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
028686,000637: 
028687,000638: 35,3204           52375        S34/35.1           VLOAD    VSU                                   
028688,000639: 35,3205           03552                                    RPASS3                                
028689,000640: 35,3206           03536                                    RACT3                                 
028690,000641: 35,3207           41456                           UNIT     PUSH                                  
028691,000642: 35,3210           26311                           STOVL    ULOS                                  
028692,000643: 35,3211           03536                                    RACT3                                 
028693,000644: 35,3212           53435                           VXV      UNIT                                  
028694,000645: 35,3213           03544                                    VACT3                                 
028695,000646: 35,3214           02261                           STORE    UNRM                                  
028696,000647: 35,3215           77616                           RVQ                                            
028697,000648: 

Page 675

028699,000650:                                                                                                  #  ..... S34/35.2 .....
028700,000651: 
028701,000652:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
028702,000653: 
028703,000654: 35,3216           77220        S34/35.2           STQ      VLOAD                                 
028704,000655: 35,3217           03470                                    SUBEXIT                               
028705,000656: 35,3220           03560                                    VPASS3                                
028706,000657: 35,3221           65315                           PDVL     PDDL                                  
028707,000658: 35,3222           03552                                    RPASS3                                
028708,000659: 35,3223           03610                                    INTIME                                
028709,000660: 35,3224           65325                           PDDL     PDDL                                  
028710,000661: 35,3225           03631                                    TPASS4                                
028711,000662: 35,3226           33641                                    TWOPI                                 #  CONIC
028712,000663: 35,3227           46125                           PDDL     BHIZ                                  
028713,000664: 35,3230           03467                                    NN                                    
028714,000665: 35,3231           73235                                    S3435.23                              
028715,000666: 35,3232           77745                           DLOAD                                          
028716,000667: 35,3233           41545                           DLOAD    PUSH                                  
028717,000668: 35,3234           06524                                    ZEROVECS                              #  PRECISION
028718,000669: 35,3235           77624        S3435.23           CALL                                           
028719,000670: 35,3236           73376                                    INTINT                                #  GET TARGET VECTOR
028720,000671: 35,3237           27444        S3435.25           STOVL    RTARG                                 
028721,000672: 35,3240           00007                                    VATT                                  
028722,000673: 35,3241           27506                           STOVL    VPASS4                                
028723,000674: 35,3242           03444                                    RTARG                                 
028724,000675:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI) SIGN(RA*RP.U)
028725,000676: 35,3243           63256                           UNIT     PDVL                                  #  UNIT RP
028726,000677: 35,3244           03536                                    RACT3                                 
028727,000678: 35,3245           41456                           UNIT     PUSH                                  #  UNIT RA
028728,000679: 35,3246           50235                           VXV      DOT                                   
028729,000680: 35,3247           00001                                    0D                                    
028730,000681: 35,3250           02261                                    UNRM                                  #  RA*RP.U
028731,000682: 35,3251           77715                           PDVL                                           
028732,000683: 35,3252           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
028733,000684: 35,3253           00001                                    0D                                    
028734,000685: 35,3254           75326                           ACOS     SIGN                                  
028735,000686: 35,3255           43244                           BPL      DAD                                   
028736,000687: 35,3256           73260                                    NOPIE                                 
028737,000688: 35,3257           06532                                    DPPOSMAX                              #  REASONABLE TWO PI
028738,000689: 35,3260           15756        NOPIE              STODL    ACTCENT                               
028739,000690: 35,3261           03631                                    TPASS4                                
028740,000691: 35,3262           77625                           DSU                                            
028741,000692: 35,3263           03610                                    INTIME                                
028742,000693: 35,3264           03452                           STORE    DELLT4                                
028743,000694: 35,3265           40335                           SLOAD    SETPD                                 
028744,000695: 35,3266           03467                                    NN                                    #  NUMBER OF OFFSETS
028745,000696: 35,3267           00001                                    0D                                    
028746,000697: 35,3270           63325                           PDDL     PDVL                                  
028747,000698: 35,3271           33653                                    EPSFOUR                               
028748,000699: 35,3272           03536                                    RACT3                                 
028749,000700: 35,3273           26323                           STOVL    RINIT                                 

Page 676

028751,000702: 35,3274           03544                                    VACT3                                 
028752,000703: 35,3275           36331                           STCALL   VINIT                                 
028753,000704: 35,3276           22000                                    INITVEL                               
028754,000705: 35,3277           77624                           CALL                                           
028755,000706: 35,3300           73357                                    LOMAT                                 
028756,000707: 35,3301           64375                           VLOAD    MXV                                   
028757,000708: 35,3302           02366                                    DELVEET3                              
028758,000709: 35,3303           00001                                    0D                                    
028759,000710: 35,3304           77772                           VSL1                                           
028760,000711: 35,3305           37434                           STCALL   DELVLVC                               
028761,000712: 35,3306           03470                                    SUBEXIT                               
028762,000713: 

Page 677

028764,000715:                                                                                                  #  ..... S34/35.3 .....
028765,000716: 
028766,000717: 35,3307           45020        S34/35.3           STQ      CALL                                  
028767,000718: 35,3310           03463                                    NORMEX                                
028768,000719: 35,3311           73357                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
028769,000720: 35,3312           61375                           VLOAD    VXM                                   
028770,000721: 35,3313           03434                                    DELVLVC                               #  NEW DEL V TPI
028771,000722: 35,3314           00001                                    0D                                    
028772,000723: 35,3315           77772                           VSL1                                           
028773,000724: 35,3316           02366                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
028774,000725: 35,3317           63255                           VAD      PDVL                                  
028775,000726: 35,3320           03544                                    VACT3                                 #  NEW V REQ
028776,000727: 35,3321           03536                                    RACT3                                 
028777,000728: 35,3322           65325                           PDDL     PDDL                                  
028778,000729: 35,3323           03442                                    TIG                                   
028779,000730: 35,3324           03631                                    TPASS4                                
028780,000731: 35,3325           41525                           PDDL     PUSH                                  
028781,000732: 35,3326           06532                                    DPPOSMAX                              
028782,000733: 35,3327           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
028783,000734: 35,3330           73376                                    INTINT                                
028784,000735: 35,3331           77775                           VLOAD                                          
028785,000736: 35,3332           00001                                    RATT                                  
028786,000737: 35,3333           03444                           STORE    RTARG                                 
028787,000738: 35,3334           41575        NOVRWRT            VLOAD    PUSH                                  
028788,000739: 35,3335           02311                                    ULOS                                  
028789,000740: 35,3336           57435                           VXV      VCOMP                                 
028790,000741: 35,3337           02261                                    UNRM                                  
028791,000742: 35,3340           41456                           UNIT     PUSH                                  
028792,000743: 35,3341           76435                           VXV      VSL1                                  
028793,000744: 35,3342           02311                                    ULOS                                  
028794,000745: 35,3343           77715                           PDVL                                           
028795,000746: 35,3344           64315                           PDVL     MXV                                   
028796,000747: 35,3345           02366                                    DELVEET3                              
028797,000748: 35,3346           00001                                    0D                                    
028798,000749: 35,3347           77772                           VSL1                                           
028799,000750: 35,3350           36303                           STCALL   DVLOS                                 
028800,000751: 35,3351           03463                                    NORMEX                                
028801,000752: 

Page 678

028803,000754:                                                                                                  #  ..... S34/35.4 .....
028804,000755: 
028805,000756: 35,3352           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
028806,000757: 35,3353           03463                                    NORMEX                                
028807,000758: 35,3354           00001                                    0D                                    
028808,000759: 35,3355           77650                           GOTO                                           
028809,000760: 35,3356           73334                                    NOVRWRT                               
028810,000761: 

Page 679

028812,000763:                                                                                                  #  ..... LOMAT .....
028813,000764: 
028814,000765: 35,3357           57575        LOMAT              VLOAD    VCOMP                                 
028815,000766: 35,3360           02261                                    UNRM                                  
028816,000767: 35,3361           24007                           STOVL    6D                                    #  Y
028817,000768: 35,3362           03536                                    RACT3                                 
028818,000769: 35,3363           57456                           UNIT     VCOMP                                 
028819,000770: 35,3364           00015                           STORE    12D                                   
028820,000771: 35,3365           76435                           VXV      VSL1                                  
028821,000772: 35,3366           02261                                    UNRM                                  #  Z*-Y
028822,000773: 35,3367           00001                           STORE    0D                                    
028823,000774: 35,3370           43401                           SETPD    RVQ                                   
028824,000775: 35,3371           00023                                    18D                                   
028825,000776: 35,3372           65325        GOINT              PDDL     PDDL                                  #  DO
028826,000777: 35,3373           06524                                    ZEROVECS                              #        NOT
028827,000778: 35,3374           02317                                    NOMTPI                                
028828,000779: 35,3375           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
028829,000780: 35,3376           45020        INTINT             STQ      CALL                                  
028830,000781: 35,3377           03465                                    RTRN                                  
028831,000782: 35,3400           27410                                    INTSTALL                              
028832,000783: 35,3401           71214                           CLEAR    DLOAD                                 
028833,000784: 35,3402           01673                                    INTYPFLG                              
028834,000785: 35,3403           43054                           BZE      SET                                   
028835,000786: 35,3404           73406                                    +2                                    
028836,000787: 35,3405           01473                                    INTYPFLG                              
028837,000788: 35,3406           45545                           DLOAD    STADR                                 
028838,000789: 35,3407           63736                           STODL    TDEC1                                 
028839,000790: 35,3410           73014                           SET      LXA,2                                 
028840,000791: 35,3411           00063                                    MOONFLAG                              
028841,000792: 35,3412           02777                                    RTX2                                  
028842,000793: 35,3413           43014                           BON      CLEAR                                 
028843,000794: 35,3414           04303                                    CMOONFLG                              
028844,000795: 35,3415           73417                                    ALLSET                                
028845,000796: 35,3416           00263                                    MOONFLAG                              
028846,000797: 35,3417           25517        ALLSET             STOVL    TET                                   
028847,000798: 35,3420           77657                           VSR*                                           
028848,000799: 35,3421           57176                                    0,2                                   
028849,000800: 35,3422           25535                           STOVL    RCV                                   
028850,000801: 35,3423           77657                           VSR*                                           
028851,000802: 35,3424           57176                                    0,2                                   
028852,000803: 35,3425           35543                           STCALL   VCV                                   
028853,000804: 35,3426           27106                                    INTEGRVS                              
028854,000805: 35,3427           52175                           VLOAD    GOTO                                  
028855,000806: 35,3430           00001                                    RATT                                  
028856,000807: 35,3431           03465                                    RTRN                                  
028857,000808: 

Page 680

028859,000810:                                                                                                  #  ..... S34/35.5 .....
028860,000811: 
028861,000812:                                                                                                  #  SUBROUTINES USED
028862,000813:                                                                                                  #        BANKCALL
028863,000814:                                                                                                  #        GOFLASH
028864,000815:                                                                                                  #        GOTOPOOH
028865,000816:                                                                                                  #        S34/35.3
028866,000817:                                                                                                  #        S34/35.4
028867,000818:                                                                                                  #        VNPOOH
028868,000819: 
028869,000820: 35,3432           43020        S34/35.5           STQ      BON                                   
028870,000821: 35,3433           03470                                    SUBEXIT                               
028871,000822: 35,3434           01311                                    FINALFLG                              
028872,000823: 35,3435           73441                                    FLAGON                                
028873,000824: 35,3436           52014                           SET      GOTO                                  
028874,000825: 35,3437           00470                                    UPDATFLG                              
028875,000826: 35,3440           73505                                    FLAGOFF                               
028876,000827: 35,3441           77214        FLAGON             CLEAR    VLOAD                                 
028877,000828: 35,3442           03274                                    NTARGFLG                              
028878,000829: 35,3443           03434                                    DELVLVC                               
028879,000830: 35,3444           01236                           STORE    GDT/2                                 
028880,000831: 35,3445           77776                           EXIT                                           
028881,000832: 35,3446           33636                 +5        CAF      V06N81                                
028882,000833: 35,3447           04616                           TC       BANKCALL                              
028883,000834: 35,3450           20477                           CADR     GOFLASH                               
028884,000835: 35,3451           06001                           TC       GOTOPOOH                              
028885,000836: 35,3452           03454                           TC       +2                                    #  PRO
028886,000837: 35,3453           03446                           TC       FLAGON     +5                         #  LOAD
028887,000838: 35,3454           35016                 +2        CA       EBANK7                                
028888,000839: 35,3455           54003                           TS       EBANK                                 #  TO BE SURE
028889,000840: 
028890,000841: 35,3456           22007                           ZL                                             
028891,000842: 35,3457           34756                           CA       FIVE                                  
028892,000843: 35,3460           54002        NTARGCHK           TS       Q                                     
028893,000844: 35,3461           50002                           INDEX    Q                                     
028894,000845: 35,3462           41433                           CS       DELVLVC                               
028895,000846: 35,3463           50002                           INDEX    Q                                     
028896,000847: 35,3464           61235                           AD       GDT/2                                 
028897,000848: 35,3465           26001                           ADS      L                                     
028898,000849: 35,3466           10002                           CCS      Q                                     
028899,000850: 35,3467           13460                           TCF      NTARGCHK                              
028900,000851: 35,3470           22000                           LXCH     A                                     
028901,000852: 35,3471           00006                           EXTEND                                         
028902,000853: 35,3472           13475                           BZF      +3                                    
028903,000854: 35,3473           05504                           TC       UPFLAG                                
028904,000855: 35,3474           00146                           ADRES    NTARGFLG                              
028905,000856: 
028906,000857: 35,3475           06042                           TC       INTPRET                               
028907,000858: 35,3476           45014                           BOFF     CALL                                  
028908,000859: 35,3477           03354                                    NTARGFLG                              

Page 681

028910,000861: 35,3500           73502                                    NOCHG                                 
028911,000862: 35,3501           73307                                    S34/35.3                              
028912,000863: 35,3502           77775        NOCHG              VLOAD                                          
028913,000864: 35,3503           02366                                    DELVEET3                              
028914,000865: 35,3504           03656                           STORE    DELVSIN                               
028915,000866: 35,3505           77624        FLAGOFF            CALL                                           
028916,000867: 35,3506           73352                                    S34/35.4                              
028917,000868: 35,3507           77776                           EXIT                                           
028918,000869: 35,3510           33635                           CAF      V06N59                                
028919,000870: 35,3511           03621                           TC       VNPOOH                                
028920,000871: 35,3512           06042                           TC       INTPRET                               
028921,000872: 35,3513           77650                           GOTO                                           
028922,000873: 35,3514           03470                                    SUBEXIT                               
028923,000874: 

Page 682

028925,000876:                                                                                                  #  ..... VN1645 .....
028926,000877: 
028927,000878:                                                                                                  #  SUBROUTINES USED
028928,000879:                                                                                                  #        P3XORP7X
028929,000880:                                                                                                  #        GET+MGA
028930,000881:                                                                                                  #        BANKCALL
028931,000882:                                                                                                  #        DELAYJOB
028932,000883:                                                                                                  #        COMPTGO
028933,000884:                                                                                                  #        GOFLASHR
028934,000885:                                                                                                  #        GOTOPOOH
028935,000886:                                                                                                  #        FLAGUP
028936,000887: 
028937,000888: 35,3515           71220        VN1645             STQ      DLOAD                                 
028938,000889: 35,3516           03470                                    SUBEXIT                               
028939,000890: 35,3517           33651                                    DP-.01                                
028940,000891: 35,3520           02253                           STORE    +MGA                                  #  MGA = -.01
028941,000892: 35,3521           71214                           BOFF     DLOAD                                 
028942,000893: 35,3522           01351                                    FINALFLG                              
028943,000894: 35,3523           73543                                    GET45                                 
028944,000895: 35,3524           33651                                    DP-.01                                
028945,000896: 35,3525           77615                           DAD                                            
028946,000897: 35,3526           33651                                    DP-.01                                
028947,000898: 35,3527           02253                           STORE    +MGA                                  #  MGA = -.02
028948,000899: 35,3530           77414                           BOFF     EXIT                                  
028949,000900: 35,3531           01742                                    REFSMFLG                              
028950,000901: 35,3532           73543                                    GET45                                 
028951,000902: 35,3533           03613                           TC       P3XORP7X                              
028952,000903: 35,3534           03536                           TC       +2                                    #  P3X
028953,000904: 35,3535           03544                           TC       GET45      +1                         #  P7X
028954,000905: 35,3536           06042                           TC       INTPRET                               
028955,000906: 35,3537           41575                           VLOAD    PUSH                                  
028956,000907: 35,3540           03656                                    DELVSIN                               
028957,000908: 35,3541           77624                           CALL                                           #  COMPUTE MGA
028958,000909: 35,3542           15725                                    GET+MGA                               
028959,000910: 35,3543           77776        GET45              EXIT                                           
028960,000911: 35,3544           02437                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
028961,000912: 35,3545           31470                           CA       SUBEXIT                               
028962,000913: 35,3546           55464                           TS       QSAVED                                
028963,000914: 35,3547           34777                           CAF      1SEC                                  
028964,000915: 35,3550           04616                           TC       BANKCALL                              
028965,000916: 35,3551           01736                           CADR     DELAYJOB                              
028966,000917: 35,3552           33637                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
028967,000918: 35,3553           04616                           TC       BANKCALL                              
028968,000919: 35,3554           20477                           CADR     GOFLASH                               
028969,000920: 35,3555           03560                           TC       KILCLOCK                              #  TERMINATE
028970,000921: 35,3556           03563                           TC       N45PROC                               #  PROCEED
028971,000922: 35,3557           03573                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
028972,000923: 35,3560           30005        KILCLOCK           CA       Z                                     
028973,000924: 35,3561           55162                           TS       DISPDEX                               

Page 683

028975,000926: 35,3562           06001                           TC       GOTOPOOH                              
028976,000927: 35,3563           40076        N45PROC            CS       FLAGWRD2                              
028977,000928: 35,3564           74746                           MASK     BIT6                                  
028978,000929: 35,3565           00006                           EXTEND                                         
028979,000930: 35,3566           13560                           BZF      KILCLOCK                              #  FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
028980,000931: 35,3567           05353                           TC       PHASCHNG                              
028981,000932: 35,3570           04024                           OCT      04024                                 
028982,000933: 35,3571           05504                           TC       UPFLAG                                #  SET
028983,000934: 35,3572           00047                           ADRES    FINALFLG                              #  FINALFLG
028984,000935: 35,3573           30005        CLUPDATE           CA       Z                                     
028985,000936: 35,3574           55162                           TS       DISPDEX                               
028986,000937: 35,3575           05353                           TC       PHASCHNG                              
028987,000938: 35,3576           04024                           OCT      04024                                 
028988,000939: 35,3577           06042                           TC       INTPRET                               
028989,000940: 35,3600           52014                           CLEAR    GOTO                                  
028990,000941: 35,3601           00670                                    UPDATFLG                              
028991,000942: 35,3602           03464                                    QSAVED                                
028992,000943: 

Page 684

028994,000945:                                                                                                  #  ..... DISPLAYE .....
028995,000946: 
028996,000947:                                                                                                  #  SUBROUTINES USED
028997,000948:                                                                                                  #        BANKCALL
028998,000949:                                                                                                  #        GOFLASHR
028999,000950:                                                                                                  #        GOTOPOOH
029000,000951:                                                                                                  #        BLANKET
029001,000952:                                                                                                  #        ENDOFJOB
029002,000953: 
029003,000954: 35,3603           00006        DISPLAYE           EXTEND                                         
029004,000955: 35,3604           23463                           QXCH     NORMEX                                
029005,000956: 35,3605           33633                           CAF      V06N55                                
029006,000957: 35,3606           04616                           TCR      BANKCALL                              
029007,000958: 35,3607           20477                           CADR     GOFLASH                               
029008,000959: 35,3610           16001                           TCF      GOTOPOOH                              
029009,000960: 35,3611           01463                           TC       NORMEX                                
029010,000961: 35,3612           13605                           TCF      -5                                    
029011,000962: 

Page 685

029013,000964:                                                                                                  #  ..... P3XORP7X .....
029014,000965: 
029015,000966: 35,3613           37747        P3XORP7X           CAF      HIGH9                                 
029016,000967: 35,3614           71010                           MASK     MODREG                                
029017,000968: 35,3615           00006                           EXTEND                                         
029018,000969: 35,3616           13620                           BZF      +2                                    
029019,000970: 35,3617           24002                           INCR     Q                                     
029020,000971: 35,3620           00002                           RETURN                                         
029021,000972: 
029022,000973:                                                                                                  #  ..... VNPOOH .....
029023,000974: 
029024,000975:                                                                                                  #  SUBROUTINES USED
029025,000976:                                                                                                  #        BANKCALL
029026,000977:                                                                                                  #        GOFLASH
029027,000978:                                                                                                  #        GOTOPOOH
029028,000979: 
029029,000980: 35,3621           00006        VNPOOH             EXTEND                                         
029030,000981: 35,3622           23465                           QXCH     RTRN                                  
029031,000982: 35,3623           55615                           TS       VERBNOUN                              
029032,000983: 35,3624           31615                           CA       VERBNOUN                              
029033,000984: 35,3625           04616                           TCR      BANKCALL                              
029034,000985: 35,3626           20477                           CADR     GOFLASH                               
029035,000986: 35,3627           16001                           TCF      GOTOPOOH                              
029036,000987: 35,3630           01465                           TC       RTRN                                  
029037,000988: 35,3631           13624                           TCF      -5                                    
029038,000989: 

Page 686

029040,000991:                                                                                                  #  ..... CONSTANTS .....
029041,000992: 
029042,000993: 35,3632           01445        V06N37             VN       0637                                  
029043,000994: 35,3633           01467        V06N55             VN       0655                                  
029044,000995: 35,3634           01472        V06N58             VN       0658                                  
029045,000996: 35,3635           01473        V06N59             VN       0659                                  
029046,000997: 35,3636           01521        V06N81             VN       0681                                  
029047,000998: 35,3637           04055        V16N45             VN       1645                                  
029048,000999: 35,3640           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
029049,001000: 35,3642           00001 20650  MAX250             2DEC     25         E3                         
029050,001001: 35,3644           12525 12525  THIRD              2DEC     .333333333                            
029051,001002: 35,3646           00004 21505  ELEPS              2DEC     .27777777  E-3                        
029052,001003: 35,3650           77777        DP-.01             OCT      77777                                 #  CONSTANTS
029053,001004: 35,3651           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
029054,001005: 35,3652           01252 25253  EPSFOUR            2DEC     .0416666666                            
029055,001006: 35,3654           13434 16162  130DEG             2DEC     .3611111111                            
029056,001007: 

Page 687

029058,001009:                                                                                                  #  ..... INITVEL .....
029059,001010:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
029060,001011:                                                                                                  #  MOD BY WHITE.P                DATE   21 NOV 67
029061,001012: 
029062,001013:                                                                                                  #  FUNCTIONAL DESCRIPTION
029063,001014:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
029064,001015:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
029065,001016:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
029066,001017:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
029067,001018:                                                                                                  #        OFFSETS).  IN ADDITION, IN TH EPRECISION TRAJECTORY CASE, THE
029068,001019:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
029069,001020:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
029070,001021:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
029071,001022:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
029072,001023:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
029073,001024: 
029074,001025:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
029075,001026:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
029076,001027:                                                                                                  #        SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
029077,001028:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
029078,001029:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
029079,001030:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
029080,001031:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
029081,001032:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
029082,001033: 
029083,001034:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
029084,001035:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
029085,001036:                                                                                                  #        TRAJECTORY COMPUTATIONS.
029086,001037: 
029087,001038:                                                                                                  #  CALLING SEQUENCE
029088,001039:                                                                                                  #        L       CALL
029089,001040:                                                                                                  #        L+1             INITVEL
029090,001041:                                                                                                  #        L+2     (RETURN - ALWAYS)
029091,001042: 
029092,001043:                                                                                                  #  INPUT
029093,001044:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
029094,001045:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
029095,001046:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
029096,001047:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
029097,001048:                                                                                                  #        (5)     INTIME          TIME OF RINIT
029098,001049:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
029099,001050:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
029100,001051:                                                                                                  #        (8)     RTX1            -2 FOR EARTH, -10D FOR LUNAR
029101,001052:                                                                                                  #        (9)     RTX2            COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
029102,001053:                                                                                                  #        PUSHLOC SET AT 4D
029103,001054: 

Page 688

029105,001056:                                                                                                  #  OUTPUT
029106,001057:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
029107,001058:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
029108,001059:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
029109,001060:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
029110,001061: 
029111,001062:                                                                                                  #  SUBROUTINES USED
029112,001063:                                                                                                  #        LAMBERT
029113,001064:                                                                                                  #        INTSTALL
029114,001065:                                                                                                  #        INTEGRVS
029115,001066: 
029116,001067: 11,2000                                           SETLOC   INTVEL                                
029117,001068: 11,2000                                           BANK                                           
029118,001069: 
029119,001070: 11,2000                                           COUNT*   $$/INITV                              
029120,001071: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
029121,001072: 11,2001           00475                                    GUESSW                                
029122,001073: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
029123,001074: 11,2003           03444                                    RTARG                                 
029124,001075: 11,2004           03463                                    NORMEX                                
029125,001076: 11,2005           03472                           STORE    RTARG1                                
029126,001077: 11,2006           77646                           ABVAL                                          
029127,001078: 11,2007           03723                           STORE    RTMAG                                 
029128,001079: 11,2010           46135                           SLOAD    BHIZ                                  
029129,001080: 11,2011           03000                                    RTX2                                  
029130,001081: 11,2012           22026                                    INITVEL1                              
029131,001082: 11,2013           72575                           VLOAD    VSL2                                  
029132,001083: 11,2014           02323                                    RINIT                                 #  B29
029133,001084: 11,2015           26323                           STOVL    RINIT                                 #  B27
029134,001085: 11,2016           02331                                    VINIT                                 #  B7
029135,001086: 11,2017           77752                           VSL2                                           
029136,001087: 11,2020           26331                           STOVL    VINIT                                 #  B5
029137,001088: 11,2021           03472                                    RTARG1                                
029138,001089: 11,2022           77752                           VSL2                                           
029139,001090: 11,2023           03472                           STORE    RTARG1                                
029140,001091: 11,2024           77646                           ABVAL                                          
029141,001092: 11,2025           03723                           STORE    RTMAG                                 
029142,001093: 
029143,001094:                                                                                                  #  INITIALIZATION
029144,001095: 
029145,001096: 11,2026           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
029146,001097: 11,2027           03617                                    ITCTR                                 
029147,001098: 11,2030           77776                                    0          -1                         
029148,001099: 11,2031           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
029149,001100: 11,2032           17667                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4) (PL 0D)
029150,001101: 11,2033           67154                           LXA,2    SXA,2                                 
029151,001102: 11,2034           00154                                    MPAC                                  
029152,001103: 11,2035           02701                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
029153,001104: 11,2036           77775                           VLOAD                                          

Page 689

029155,001106: 11,2037           02323                                    RINIT                                 
029156,001107: 11,2040           26655                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
029157,001108: 11,2041           03472                                    RTARG1                                
029158,001109: 11,2042           16663                           STODL    R2VEC                                 #  R2VEC EQ RTARG
029159,001110: 11,2043           03452                                    DELLT4                                
029160,001111: 11,2044           02671                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
029161,001112: 11,2045           77201                           SETPD    VLOAD                                 
029162,001113: 11,2046           00001                                    0D                                    #  INITIALIZE PL TO 0D
029163,001114: 11,2047           02323                                    RINIT                                 #  MPAC EQ RINIT (+29)
029164,001115: 11,2050           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)         (PL 6D)
029165,001116: 11,2051           53435                           VXV      UNIT                                  
029166,001117: 11,2052           02331                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI (+8)
029167,001118: 11,2053           26674                           STOVL    UN                                    
029168,001119: 11,2054           03472                                    RTARG1                                
029169,001120: 11,2055           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)     (PL 0D)
029170,001121: 11,2056           43015                           DAD      CLEAR                                 
029171,001122: 11,2057           03667                                    COZY4                                 
029172,001123: 11,2060           03665                                    NORMSW                                
029173,001124: 11,2061           03667                           STORE    COZY4                                 
029174,001125: 11,2062           43044        INITVEL2           BPL      SET                                   
029175,001126: 11,2063           22105                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
029176,001127: 11,2064           03465                                    NORMSW                                
029177,001128: 
029178,001129:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
029179,001130: 
029180,001131: 11,2065           41575                           VLOAD    PUSH                                  #                (PL 6D)
029181,001132: 11,2066           02663                                    R2VEC                                 #  RC TO 6D (+29)
029182,001133: 11,2067           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
029183,001134: 11,2070           46206                           PUSH     VPROJ                                 #                (PL 8D)
029184,001135: 11,2071           02674                                    UN                                    
029185,001136: 11,2072           51352                           VSL2     BVSU                                  
029186,001137: 11,2073           74256                           UNIT     VXSC                                  #                (PL 0D)
029187,001138: 11,2074           77772                           VSL1                                           
029188,001139: 11,2075           02663                           STORE    R2VEC                                 
029189,001140: 11,2076           67351                           TLOAD    SLOAD                                 
029190,001141: 11,2077           24007                                    ZEROVEC                               
029191,001142: 11,2100           03617                                    ITCTR                                 
029192,001143: 11,2101           77244                           BPL      VLOAD                                 
029193,001144: 11,2102           22105                                    INITVEL3                              
029194,001145: 11,2103           02663                                    R2VEC                                 
029195,001146: 11,2104           03472                           STORE    RTARG1                                
029196,001147: 11,2105           63345        INITVEL3           DLOAD    PDVL                                  #                                (PL 2D)
029197,001148: 11,2106           26007                                    MUEARTH                               #  POSITIVE VALUE
029198,001149: 11,2107           02663                                    R2VEC                                 
029199,001150: 11,2110           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)              (PL 8D)
029200,001151: 11,2111           02655                                    R1VEC                                 
029201,001152: 11,2112           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)              (PL 14D)
029202,001153: 11,2113           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
029203,001154: 11,2114           00003                                    2D                                    
029204,001155: 11,2115           77606                           PUSH                                           #                                (PL 20D)
029205,001156: 11,2116           71350                           LXA,1    DLOAD                                 

Page 690

029207,001158: 11,2117           02776                                    RTX1                                  
029208,001159: 11,2120           00023                                    18D                                   
029209,001160: 11,2121           62040                           BMN      INCR,1                                
029210,001161: 11,2122           22124                                    +2                                    
029211,001162: 11,2123           77767                           DEC      -8         B-14                       
029212,001163: 11,2124           67310                           INCR,1   SLOAD                                 
029213,001164: 11,2125           00012                                    10D                                   
029214,001165: 11,2126           00047                                    X1                                    
029215,001166: 11,2127           77230                           BHIZ     VLOAD                                 #                        (PL 14D)
029216,001167: 11,2130           22132                                    +2                                    
029217,001168: 11,2131           41476                           VCOMP    PUSH                                  #                        (PL 20 D)
029218,001169: 11,2132           77775                           VLOAD                                          #                        (PL 14D)
029219,001170: 11,2133           50235                           VXV      DOT                                   #                        (PL 2D)
029220,001171: 11,2134           71244                           BPL      DLOAD                                 #                        (PL 0D)
029221,001172: 11,2135           22137                                    INITVEL4                              
029222,001173: 11,2136           41476                           DCOMP    PUSH                                  #                        (PL 2D)
029223,001174: 11,2137           67154        INITVEL4           LXA,2    SXA,2                                 
029224,001175: 11,2140           00000                                    0D                                    
029225,001176: 11,2141           02672                                    GEOMSGN                               
029226,001177: 
029227,001178:                                                                                                  #  SET INPUTS UP FOR LAMBERT
029228,001179: 
029229,001180: 11,2142           66350                           LXA,1    SSP                                   
029230,001181: 11,2143           02776                                    RTX1                                  
029231,001182: 11,2144           00027                                    ITERCTR                               
029232,001183: 11,2145           00024                                    20D                                   
029233,001184: 
029234,001185:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
029235,001186: 
029236,001187: 11,2146           77624                           CALL                                           
029237,001188: 11,2147           25212                                    LAMBERT                               
029238,001189: 
029239,001190:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
029240,001191: 
029241,001192: 11,2150           77214                           CLEAR    VLOAD                                 
029242,001193: 11,2151           00675                                    GUESSW                                
029243,001194: 11,2152           02744                                    VVEC                                  
029244,001195: 
029245,001196:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
029246,001197: 
029247,001198: 11,2153           16337                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
029248,001199: 
029249,001200:                                                                                                  #  IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
029250,001201:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
029251,001202: 
029252,001203: 11,2154           02702                                    VTARGTAG                              
029253,001204: 11,2155           45030                           BHIZ     CALL                                  
029254,001205: 11,2156           22233                                    INITVEL7                              
029255,001206: 11,2157           27410                                    INTSTALL                              
029256,001207: 11,2160           43135                           SLOAD    CLEAR                                 
029257,001208: 11,2161           03000                                    RTX2                                  
029258,001209: 11,2162           00263                                    MOONFLAG                              
029259,001210: 11,2163           43030                           BHIZ     SET                                   

Page 691

029261,001212: 11,2164           22166                                    INITVEL5                              
029262,001213: 11,2165           00063                                    MOONFLAG                              
029263,001214: 11,2166           77775        INITVEL5           VLOAD                                          
029264,001215: 11,2167           02323                                    RINIT                                 
029265,001216: 11,2170           02655                           STORE    R1VEC                                 
029266,001217: 11,2171           25535                           STOVL    RCV                                   
029267,001218: 11,2172           02337                                    VIPRIME                               
029268,001219: 11,2173           15543                           STODL    VCV                                   
029269,001220: 11,2174           03610                                    INTIME                                
029270,001221: 11,2175           01517                           STORE    TET                                   
029271,001222: 11,2176           43015                           DAD      CLEAR                                 
029272,001223: 11,2177           03452                                    DELLT4                                
029273,001224: 11,2200           01673                                    INTYPFLG                              
029274,001225: 11,2201           34041                           STCALL   TDEC1                                 
029275,001226: 11,2202           27106                                    INTEGRVS                              
029276,001227: 11,2203           77775                           VLOAD                                          
029277,001228: 11,2204           00025                                    VATT1                                 
029278,001229: 11,2205           02703                           STORE    VTARGET                               
029279,001230: 
029280,001231:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
029281,001232:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
029282,001233: 
029283,001234: 11,2206           63154                           LXA,2    INCR,2                                
029284,001235: 11,2207           03616                                    ITCTR                                 
029285,001236: 11,2210           00001                                    1D                                    #  INCREMENT ITCTR
029286,001237: 11,2211           55134                           SXA,2    XSU,2                                 
029287,001238: 11,2212           03616                                    ITCTR                                 
029288,001239: 11,2213           02701                                    VTARGTAG                              
029289,001240: 11,2214           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
029290,001241: 11,2215           00050                                    X2                                    
029291,001242: 11,2216           22230                                    INITVEL6                              
029292,001243: 
029293,001244:                                                                                                  #  OFFSET CONIC TARGET VECTOR
029294,001245: 
029295,001246: 11,2217           52375                           VLOAD    VSU                                   
029296,001247: 11,2220           03472                                    RTARG1                                
029297,001248: 11,2221           00017                                    RATT1                                 
029298,001249: 11,2222           77655                           VAD                                            
029299,001250: 11,2223           02663                                    R2VEC                                 
029300,001251: 11,2224           16663                           STODL    R2VEC                                 
029301,001252: 11,2225           03667                                    COZY4                                 
029302,001253: 11,2226           77650                           GOTO                                           
029303,001254: 11,2227           22062                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
029304,001255: 
029305,001256:                                                                                                  #  COMPUTE THE DELTA VELOCITY
029306,001257: 
029307,001258: 11,2230           77775        INITVEL6           VLOAD                                          
029308,001259: 11,2231           02663                                    R2VEC                                 
029309,001260: 11,2232           03472                           STORE    RTARG1                                
029310,001261: 11,2233           52375        INITVEL7           VLOAD    VSU                                   
029311,001262: 11,2234           02337                                    VIPRIME                               
029312,001263: 11,2235           02331                                    VINIT                                 

Page 692

029314,001265: 11,2236           26366                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)
029315,001266: 11,2237           02703                                    VTARGET                               
029316,001267: 11,2240           03566                           STORE    VTPRIME                               
029317,001268: 11,2241           46135                           SLOAD    BHIZ                                  
029318,001269: 11,2242           03000                                    RTX2                                  
029319,001270: 11,2243           22260                                    INITVELX                              
029320,001271: 11,2244           70575                           VLOAD    VSR2                                  
029321,001272: 11,2245           03566                                    VTPRIME                               
029322,001273: 11,2246           27566                           STOVL    VTPRIME                               
029323,001274: 11,2247           02337                                    VIPRIME                               
029324,001275: 11,2250           77742                           VSR2                                           
029325,001276: 11,2251           26337                           STOVL    VIPRIME                               
029326,001277: 11,2252           03472                                    RTARG1                                
029327,001278: 11,2253           77742                           VSR2                                           
029328,001279: 11,2254           27472                           STOVL    RTARG1                                
029329,001280: 11,2255           02366                                    DELVEET3                              
029330,001281: 11,2256           77742                           VSR2                                           
029331,001282: 11,2257           02366                           STORE    DELVEET3                              
029332,001283: 11,2260           70750        INITVELX           LXA,1    DLOAD*                                
029333,001284: 11,2261           02776                                    RTX1                                  
029334,001285: 11,2262           10003                                    MUTABLE    -2,1                       
029335,001286: 11,2263           41206                           PUSH     DMP                                   
029336,001287: 11,2264           02742                                    R1A                                   
029337,001288: 11,2265           56342                           SR1      DDV                                   
029338,001289: 11,2266           00041                                    R1                                    
029339,001290: 11,2267           17721                           STODL    MU/A                                  
029340,001291: 11,2270           77661                           SR                                             
029341,001292: 11,2271           20607                                    6                                     
029342,001293: 11,2272           03717                           STORE    MUASTEER                              
029343,001294: 11,2273           77201                           SETPD    VLOAD                                 
029344,001295: 11,2274           00001                                    0D                                    
029345,001296: 11,2275           03472                                    RTARG1                                
029346,001297: 11,2276           03444                           STORE    RTARG                                 
029347,001298: 11,2277           52014                           CLEAR    GOTO                                  
029348,001299: 11,2300           01267                                    XDELVFLG                              
029349,001300: 11,2301           03463                                    NORMEX                                
029350,001301: 
029351,001302:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
029352,001303: 

Page 693

029354,001305:                                                                                                  #  ..... MIDGIM .....
029355,001306:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
029356,001307:                                                                                                  #  REVISION 03, 17 FEB 67
029357,001308: 
029358,001309:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
029359,001310:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
029360,001311:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
029361,001312:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
029362,001313:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
029363,001314: 
029364,001315:                                                                                                  #  .. INPUTS ..
029365,001316:                                                                                                  #        NAME    MEANING                                         UNITS/SCALING/MODE
029366,001317:                                                                                                  #        AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE     BIT
029367,001318:                                                                                                  #        RINIT   ACTIVE VEHICLE RADIUS VECTOR                    METERS/CSEC (+7) VT
029368,001319:                                                                                                  #        VINIT   ACTIVE VEHICLE VELOCITY VECTOR                  METERS/CSEC (+7) VT
029369,001320:                                                                                                  #        0D(PL)  ACTIVE VEHICLE DELTA VELOCITY VECTOR            METERS/CSEC (+7) VT
029370,001321: 
029371,001322:                                                                                                  #  .. OUTPUTS ..
029372,001323:                                                                                                  #     NAME       MEANING                                         UNITS/SCALING/MODE
029373,001324:                                                                                                  #     +MGA       + MIDDLE GIMBAL ANGLE                           REVOLUTIONS (+0) DP
029374,001325:                                                                                                  #     DELVLVC    DELTA VELOCITY VECTOR IN LV COORD.              METERS/CSEC (+7) VT
029375,001326:                                                                                                  #     MGLVFLAG   INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.   -   BIT
029376,001327: 
029377,001328:                                                                                                  #  .. CALLING SEQUENCE ..
029378,001329:                                                                                                  #        L       CALL
029379,001330:                                                                                                  #        L+1             MIDGIM
029380,001331:                                                                                                  #        L+2     (RETURN - ALWAYS)
029381,001332: 
029382,001333:                                                                                                  #  .. NO SUBROUTINES CALLED ..
029383,001334: 
029384,001335:                                                                                                  #  .. DEBRIS - ERASEABLE TEMPORARY USAGE
029385,001336:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
029386,001337: 
029387,001338:                                                                                                  #  .. ALARMS - NONE ..
029388,001339: 

Page 694

029390,001341:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
029391,001342: 
029392,001343: 06,2000                                           SETLOC   MIDDGIM                               
029393,001344: 06,2000                                           BANK                                           
029394,001345: 
029395,001346: 06,3723                                           COUNT*   $$/MIDG                               
029396,001347: 
029397,001348: 06,3723           20000 00000  HALFREV            2DEC     1          B-1                        
029398,001349: 
029399,001350: 06,3725           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
029400,001351: 06,3726           77656                           UNIT                                           
029401,001352: 06,3727           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
029402,001353: 06,3730           01742                                    REFSMMAT   +6                         #  FROM +2 TO +1 FOR ASIN ROUTINE
029403,001354: 06,3731           51136                           ARCSIN   BPL                                   
029404,001355: 06,3732           15736                                    SETMGA                                
029405,001356: 06,3733           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
029406,001357: 06,3734           15724                                    HALFREV                               #  ADDING ONE REVOLUTION
029407,001358: 06,3735           15724                                    HALFREV                               
029408,001359: 06,3736           02253        SETMGA             STORE    +MGA                                  
029409,001360: 06,3737           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
029410,001361: 06,3740           02675                                    MGLVFLAG                              #  AND EXIT
029411,001362: 06,3741           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC, UNITIZE UR
029412,001363: 06,3742           02323                                    RINIT                                 
029413,001364: 06,3743           77676                           VCOMP                                          #  U(-R)
029414,001365: 06,3744           00023                           STORE    18D                                   #  U(-R) TO 18D
029415,001366: 06,3745           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
029416,001367: 06,3746           02331                                    VINIT                                 
029417,001368: 06,3747           00015                           STORE    12D                                   #  U(V*R) TO 12D
029418,001369: 06,3750           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
029419,001370: 06,3751           00023                                    18D                                   
029420,001371: 06,3752           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
029421,001372: 06,3753           00001                                    0D                                    #  DELTA V (+7) IN 0D
029422,001373: 06,3754           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
029423,001374: 06,3755           00007                                    6D                                    #  AND SCALE +7 IN MPAC
029424,001375: 06,3756           03434                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
029425,001376: 06,3757           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
029426,001377: 06,3760           02475                                    MGLVFLAG                              #  AND EXIT
029427,001378: 
029428,001379:                                                                                                  #  ..... END OF MIDGIM ROUTINE .....
029429,001380: 

Page 695

029431,001382: 10,2000                                           BANK     10                                    
029432,001383: 10,2000                                           SETLOC   SLCTMU                                
029433,001384: 10,2000                                           BANK                                           
029434,001385: 10,2000                                           COUNT*   $$/MIDG                               
029435,001386: 
029436,001387: 10,2000           77160        SELECTMU           AXC,1    AXT,2                                 
029437,001388: 10,2001           00002                                    2D                                    
029438,001389: 10,2002           00000                                    0D                                    
029439,001390: 10,2003           77614                           BOFF                                           
029440,001391: 10,2004           04343                                    CMOONFLG                              
029441,001392: 10,2005           20011                                    SETMUER                               
029442,001393: 10,2006           77160                           AXC,1    AXT,2                                 
029443,001394: 10,2007           00012                                    10D                                   
029444,001395: 10,2010           00002                                    2D                                    
029445,001396: 10,2011           66143        SETMUER            DLOAD*   SXA,1                                 
029446,001397: 10,2012           10011                                    MUTABLE    +4,1                       
029447,001398: 10,2013           02776                                    RTX1                                  
029448,001399: 10,2014           22317                           STODL*   RTSR1/MU                              
029449,001400: 10,2015           10003                                    MUTABLE    -2,1                       
029450,001401: 10,2016           54214                           BOFF     SR                                    
029451,001402: 10,2017           04343                                    CMOONFLG                              
029452,001403: 10,2020           20022                                    RTRNMU                                
029453,001404: 10,2021           20607                                    6D                                    
029454,001405: 10,2022           02321        RTRNMU             STORE    RTMU                                  
029455,001406: 10,2023           43134                           SXA,2    CLEAR                                 
029456,001407: 10,2024           02777                                    RTX2                                  
029457,001408: 10,2025           01271                                    FINALFLG                              
029458,001409: 10,2026           77650                           GOTO                                           
029459,001410: 10,2027           73515                                    VN1645                                
029460,001411: 

Page 696

029462,001413:                                                                                                  #  ..... PERIAPO .....
029463,001414:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
029464,001415:                                                                                                  #  MOD BY WHITE.P                DATE 18 JAN 68
029465,001416: 
029466,001417:                                                                                                  #  FUNCTIONAL DESCRIPTION
029467,001418:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
029468,001419:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
029469,001420:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
029470,001421: 
029471,001422:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
029472,001423: 
029473,001424:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
029474,001425:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
029475,001426: 
029476,001427:                                                                                                  #  CALLING SEQUENCE
029477,001428:                                                                                                  #        L       CALL
029478,001429:                                                                                                  #        L+1             PERIAPO
029479,001430:                                                                                                  #        L+2     (RETURN - ALWAYS)
029480,001431: 
029481,001432:                                                                                                  #  INPUT
029482,001433:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
029483,001434:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029484,001435:                                                                                                  #        (2)     VVEC    VELOCITY VECTOR IN METERS/CENTISECOND
029485,001436:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
029486,001437:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
029487,001438:                                                                                                  #                        EARTH -2, MOON -10
029488,001439: 
029489,001440:                                                                                                  #  OUTPUT
029490,001441:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
029491,001442:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029492,001443:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
029493,001444:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
029494,001445:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
029495,001446:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029496,001447:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
029497,001448:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029498,001449:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
029499,001450:                                                                                                  #                        SCALE FACTOR - +3
029500,001451:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
029501,001452:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029502,001453:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
029503,001454: 
029504,001455:                                                                                                  #  SUBROUTINES USED
029505,001456:                                                                                                  #        SETRAD

Page 697

029507,001458:                                                                                                  #        APSIDES
029508,001459: 
029509,001460: 23,2000                                           SETLOC   APOPERI                               
029510,001461: 23,2000                                           BANK                                           
029511,001462: 
029512,001463: 23,2337                                           COUNT*   $$/PERAP                              
029513,001464: 
029514,001465: 23,2337           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
029515,001466:                                                                                                  #  = 20 909 901.57 FT
029516,001467: 
029517,001468: 23,2341           53754        PERIAPO1           LXA,2    VSR*                                  
029518,001469: 23,2342           02777                                    RTX2                                  
029519,001470: 23,2343           57176                                    0,2                                   
029520,001471: 23,2344           26744                           STOVL    VVEC                                  
029521,001472: 23,2345           53750                           LXA,1    VSR*                                  
029522,001473: 23,2346           02776                                    RTX1                                  
029523,001474: 23,2347           57176                                    0,2                                   
029524,001475: 23,2350           02655                           STORE    RVEC                                  
029525,001476: 23,2351           45020        PERIAPO            STQ      CALL                                  
029526,001477: 23,2352           03463                                    NORMEX                                
029527,001478: 23,2353           46367                                    SETRAD                                
029528,001479: 23,2354           37671                           STCALL   XXXALT                                
029529,001480: 23,2355           25704                                    APSIDES                               
029530,001481: 23,2356           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
029531,001482: 23,2357           00003                                    2D                                    
029532,001483: 23,2360           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
029533,001484: 23,2361           03671                                    XXXALT                                
029534,001485: 23,2362           00001                                    0D                                    
029535,001486: 23,2363           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
029536,001487: 23,2364           03671                                    XXXALT                                
029537,001488: 23,2365           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
029538,001489: 23,2366           03463                                    NORMEX                                
029539,001490: 

Page 698

029541,001492:                                                                                                  #  SETRAD
029542,001493: 
029543,001494: 23,2367           41545        SETRAD             DLOAD    PUSH                                  
029544,001495: 23,2370           06340                                    RPAD                                  
029545,001496: 23,2371           63130                           SXA,1    INCR,2                                
029546,001497: 23,2372           00047                                    X2                                    
029547,001498: 23,2373           00002                                    2D                                    
029548,001499: 23,2374           46135                           SLOAD    BHIZ                                  
029549,001500: 23,2375           00050                                    X2                                    
029550,001501: 23,2376           46402                                    SETRADX                               
029551,001502: 23,2377           51575                           VLOAD    ABVAL                                 
029552,001503: 23,2400           02023                                    RLS                                   
029553,001504: 23,2401           77725                           PDDL                                           
029554,001505: 23,2402           43545        SETRADX            DLOAD    RVQ                                   
029555,001506: 

Page 699

029557,001508:                                                                                                  #  PRECSET
029558,001509: 
029559,001510: 23,2403           77620        PRECSET            STQ                                            
029560,001511: 23,2404           03463                                    NORMEX                                
029561,001512: 23,2405           37574                           STCALL   TDEC2                                 
029562,001513: 23,2406           27056                                    LEMPREC                               
029563,001514: 23,2407           77624                           CALL                                           
029564,001515: 23,2410           46421                                    LEMSTORE                              
029565,001516: 23,2411           77745                           DLOAD                                          
029566,001517: 23,2412           03574                                    TDEC2                                 
029567,001518: 23,2413           34041                           STCALL   TDEC1                                 
029568,001519: 23,2414           27042                                    CSMPREC                               
029569,001520: 23,2415           77624                           CALL                                           
029570,001521: 23,2416           46431                                    CSMSTORE                              
029571,001522: 23,2417           77650                           GOTO                                           
029572,001523: 23,2420           03463                                    NORMEX                                
029573,001524: 23,2421           43175        LEMSTORE           VLOAD    BOFF                                  
029574,001525: 23,2422           00001                                    RATT                                  
029575,001526: 23,2423           01352                                    AVFLAG                                
029576,001527: 23,2424           46435                                    PASSIVE                               
029577,001528: 23,2425           27536        ACTIVE             STOVL    RACT3                                 
029578,001529: 23,2426           00007                                    VATT                                  
029579,001530: 23,2427           03544                           STORE    VACT3                                 
029580,001531: 23,2430           77616                           RVQ                                            
029581,001532: 23,2431           43175        CSMSTORE           VLOAD    BOFF                                  
029582,001533: 23,2432           00001                                    RATT                                  
029583,001534: 23,2433           01352                                    AVFLAG                                
029584,001535: 23,2434           46425                                    ACTIVE                                
029585,001536: 23,2435           27552        PASSIVE            STOVL    RPASS3                                
029586,001537: 23,2436           00007                                    VATT                                  
029587,001538: 23,2437           03560                           STORE    VPASS3                                
029588,001539: 23,2440           77616                           RVQ                                            
029589,001540: 

Page 700

029591,001542:                                                                                                  #  VECSHIFT
029592,001543: 
029593,001544: 23,2441           53754        VECSHIFT           LXA,2    VSR*                                  
029594,001545: 23,2442           02777                                    RTX2                                  
029595,001546: 23,2443           57176                                    0,2                                   
029596,001547: 23,2444           63350                           LXA,1    PDVL                                  
029597,001548: 23,2445           02776                                    RTX1                                  
029598,001549: 23,2446           63257                           VSR*     PDVL                                  
029599,001550: 23,2447           57176                                    0,2                                   
029600,001551: 23,2450           77616                           RVQ                                            
029601,001552: 

Page 701

029603,001554:                                                                                                  #  SHIFTR1
029604,001555: 
029605,001556: 23,2451           53754        SHIFTR1            LXA,2    SL*                                   
029606,001557: 23,2452           02777                                    RTX2                                  
029607,001558: 23,2453           57576                                    0,2                                   
029608,001559: 23,2454           77616                           RVQ                                            
029609,001560: 

Page 702

029611,001562:                                                                                                  #  PROGRAM DESCRIPTION
029612,001563: 
029613,001564:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
029614,001565:                                                                                                  #  MOD NO. 0             DATE 22 DECEMBER 67
029615,001566:                                                                                                  #  MOD BY N.M.NEVILLE    LOG SECTION EXTENDED VERBS
029616,001567:                                                                                                  #  FUNCTIONAL DESCRIPTION
029617,001568: 
029618,001569:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
029619,001570:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI).  (REQUESTED BY DSKY).
029620,001571: 
029621,001572:                                                                                                  #  CALLING SEQUENCE
029622,001573:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V 90 E
029623,001574: 
029624,001575:                                                                                                  #  SUBROUTINES CALLED
029625,001576:                                                                                                  #        EXDSPRET
029626,001577:                                                                                                  #        GOMARKF
029627,001578:                                                                                                  #        CSMPREC
029628,001579:                                                                                                  #        LEMPREC
029629,001580:                                                                                                  #        SGNAGREE
029630,001581:                                                                                                  #        LOADTIME
029631,001582: 
029632,001583:                                                                                                  #  NORMAL EXIT MODES
029633,001584:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
029634,001585: 
029635,001586:                                                                                                  #  ALARM OR ABORT EXIT MODES
029636,001587:                                                                                                  #        NONE
029637,001588: 
029638,001589:                                                                                                  #  OUTPUT
029639,001590:                                                                                                  #        DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
029640,001591: 
029641,001592:                                                                                                  #        DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
029642,001593:                                                                                                  #        REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
029643,001594: 
029644,001595:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029645,001596:                                                                                                  #        CSM AND LEM STATE VECTORS
029646,001597: 
029647,001598:                                                                                                  #  DEBRIS
029648,001599:                                                                                                  #        CENTRALS A,Q,L
029649,001600:                                                                                                  #        OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
029650,001601: 
029651,001602: 20,2115                                           BANK     20                                    
029652,001603: 04,2000                                           SETLOC   R36LM                                 
029653,001604: 04,2000                                           BANK                                           

Page 703

029655,001606: 04,2642  E7,1441                                  EBANK=   TIG                                   
029656,001607: 04,2642                                           COUNT*   $$/R36                                
029657,001608: 
029658,001609: 04,2642           00006        R36                EXTEND                                         
029659,001610: 04,2643           31442                           DCA      TIG                                   #  SET TIME-OF-EVENT TO TIG FOR NOMINAL
029660,001611: 04,2644           53051                           DXCH     DSPTEMX                               #  DISPLAY
029661,001612: 04,2645           32755                           CAF      V06N16N                               
029662,001613: 04,2646           04616                           TC       BANKCALL                              
029663,001614: 04,2647           20334                           CADR     GOMARKF                               
029664,001615: 04,2650           15472                           TCF      ENDEXT                                #  TERMINATE
029665,001616: 04,2651           12653                           TCF      +2                                    #  PROCEED
029666,001617: 04,2652           12645                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
029667,001618: 04,2653           06042                           TC       INTPRET                               
029668,001619: 04,2654           53145                           DLOAD    BZE                                   
029669,001620: 04,2655           01051                                    DSPTEMX                               
029670,001621: 04,2656           10752                                    GETNOW                                #  ASTOR-LOADED ZERO, GET PRES TIME
029671,001622: 04,2657           34041        R36INT             STCALL   TDEC1                                 
029672,001623: 04,2660           27042                                    OTHPREC                               
029673,001624: 04,2661           63375                           VLOAD    PDVL                                  
029674,001625: 04,2662           00007                                    VATT                                  
029675,001626: 04,2663           00001                                    RATT                                  #  -
029676,001627: 04,2664           02207                           STORE    RPASS36                               #  R
029677,001628: 04,2665           63256                           UNIT     PDVL                                  #  P
029678,001629: 04,2666           53435                           VXV      UNIT                                  #  -
029679,001630: 04,2667           77626                           STADR                                          
029680,001631: 04,2670           61562                           STODL    UNP36                                 #  U
029681,001632: 04,2671           00015                                    TAT                                   
029682,001633: 04,2672           34041                           STCALL   TDEC1                                 
029683,001634: 04,2673           27056                                    THISPREC                              
029684,001635: 04,2674           63375                           VLOAD    PDVL                                  #                    -
029685,001636: 04,2675           00007                                    VATT                                  #  VELOCITY VECTOR   V   00D
029686,001637: 04,2676           00001                                    RATT                                  #                     A
029687,001638: 04,2677           41406                           PUSH     PUSH                                  #  POSITION VECTOR   R   IN  06D AND 12D
029688,001639: 04,2700           63245                           BVSU     PDVL                                  #                     A  -   -
029689,001640: 04,2701           02207                                    RPASS36                               #  LINE OF SIGHT VECTOR  R - R       12D
029690,001641: 04,2702           72441                           DOT      SL1                                   #                         P   A
029691,001642: 04,2703           02215                                    UNP36                                 #      -   -
029692,001643: 04,2704           26201                           STOVL    RANGE                                 #  Y = U . R
029693,001644: 04,2705           00001                                    00D                                   #           A
029694,001645: 04,2706           72441                           DOT      SL1                                   
029695,001646: 04,2707           02215                                    UNP36                                 #  .   -   -
029696,001647: 04,2710           26203                           STOVL    RRATE                                 #  Y = U . V
029697,001648: 04,2711           00007                                    06D                                   #  -        A  -
029698,001649: 04,2712           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
029699,001650: 04,2713           47235                           VXV      VXV                                   #   RA          A
029700,001651: 04,2714           00001                                    00D                                   #   -    -     -     -
029701,001652: 04,2715           00023                                    18D                                   #  (U  X V ) X U   = U
029702,001653: 04,2716           53552                           VSL2     UNIT                                  #    RA   A     RA    A
029703,001654: 04,2717           77656                           UNIT                                           
029704,001655: 04,2720           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D

Page 704

029706,001657: 04,2721           00023                                    18D                                   
029707,001658: 04,2722           74241                           DOT      VXSC                                  #  -
029708,001659: 04,2723           00015                                    12D                                   #  U
029709,001660: 04,2724           77752                           VSL2                                           #   L
029710,001661: 04,2725           53445                           BVSU     UNIT                                  
029711,001662: 04,2726           77656                           UNIT                                           
029712,001663: 04,2727           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
029713,001664: 04,2730           00001                                    00D                                   #  PLANE
029714,001665: 04,2731           65552                           SL1      ARCCOS                                #               -   -
029715,001666: 04,2732           26205                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
029716,001667: 04,2733           50235                           VXV      DOT                                   #                A   L
029717,001668: 04,2734           00001                                    00D                                   
029718,001669: 04,2735           71244                           BPL      DLOAD                                 
029719,001670: 04,2736           10743                                    R36TAG2                               
029720,001671: 04,2737           24020                                    LODPMAX                               
029721,001672: 04,2740           77625                           DSU                                            
029722,001673: 04,2741           02205                                    RTHETA                                
029723,001674: 04,2742           02205                           STORE    RTHETA                                
029724,001675: 04,2743           77776        R36TAG2            EXIT                                           
029725,001676: 04,2744           32756                           CAF      V06N90N                               #  DISPLAY Y, YDOT, AND PSI
029726,001677: 04,2745           04616                           TC       BANKCALL                              
029727,001678: 04,2746           20334                           CADR     GOMARKF                               
029728,001679: 04,2747           15472                           TCF      ENDEXT                                #  TERMINATE
029729,001680: 04,2750           15472                           TCF      ENDEXT                                #  PROCEED, END OF PROGRAM
029730,001681: 04,2751           12642                           TCF      R36                                   #  RECYCLE, TIG OR ASTRO-OPTION
029731,001682: 04,2752           52034        GETNOW             RTB      GOTO                                  #  ASTRO-SELECTED PRESENT TIME
029732,001683: 04,2753           21574                                    LOADTIME                              
029733,001684: 04,2754           10657                                    R36INT                                
029734,001685: 04,2755           01420        V06N16N            VN       00616                                 
029735,001686: 04,2756           01532        V06N90N            VN       00690                                 

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