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.

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

Page 660

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

Page 661

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

Page 662

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

Page 663

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

Page 664

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

Page 665

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

Page 666

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

Page 667

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

Page 668

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

Page 669

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

Page 670

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

Page 671

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

Page 672

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

Page 673

028687,000629: 35,3202           06524                                    ZEROVECS                              
028688,000630: 35,3203           03463                                    NORMEX                                
028689,000631: 

Page 674

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

Page 675

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

Page 676

028760,000702: 35,3274           03544                                    VACT3                                 
028761,000703: 35,3275           36331                           STCALL   VINIT                                 
028762,000704: 35,3276           22000                                    INITVEL                               
028763,000705: 35,3277           77624                           CALL                                           
028764,000706: 35,3300           73357                                    LOMAT                                 
028765,000707: 35,3301           64375                           VLOAD    MXV                                   
028766,000708: 35,3302           02366                                    DELVEET3                              
028767,000709: 35,3303           00001                                    0D                                    
028768,000710: 35,3304           77772                           VSL1                                           
028769,000711: 35,3305           37434                           STCALL   DELVLVC                               
028770,000712: 35,3306           03470                                    SUBEXIT                               
028771,000713: 

Page 677

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

Page 678

028812,000754:                                                                                                  #  ..... S34/35.4 .....
028813,000755: 
028814,000756: 35,3352           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
028815,000757: 35,3353           03463                                    NORMEX                                
028816,000758: 35,3354           00001                                    0D                                    
028817,000759: 35,3355           77650                           GOTO                                           
028818,000760: 35,3356           73334                                    NOVRWRT                               
028819,000761: 

Page 679

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

Page 680

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

Page 681

028919,000861: 35,3500           73502                                    NOCHG                                 
028920,000862: 35,3501           73307                                    S34/35.3                              
028921,000863: 35,3502           77775        NOCHG              VLOAD                                          
028922,000864: 35,3503           02366                                    DELVEET3                              
028923,000865: 35,3504           03656                           STORE    DELVSIN                               
028924,000866: 35,3505           77624        FLAGOFF            CALL                                           
028925,000867: 35,3506           73352                                    S34/35.4                              
028926,000868: 35,3507           77776                           EXIT                                           
028927,000869: 35,3510           33635                           CAF      V06N59                                
028928,000870: 35,3511           03621                           TC       VNPOOH                                
028929,000871: 35,3512           06042                           TC       INTPRET                               
028930,000872: 35,3513           77650                           GOTO                                           
028931,000873: 35,3514           03470                                    SUBEXIT                               
028932,000874: 

Page 682

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

Page 683

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

Page 684

029003,000945:                                                                                                  #  ..... DISPLAYE .....
029004,000946: 
029005,000947:                                                                                                  #  SUBROUTINES USED
029006,000948:                                                                                                  #        BANKCALL
029007,000949:                                                                                                  #        GOFLASHR
029008,000950:                                                                                                  #        GOTOPOOH
029009,000951:                                                                                                  #        BLANKET
029010,000952:                                                                                                  #        ENDOFJOB
029011,000953: 
029012,000954: 35,3603           00006        DISPLAYE           EXTEND                                         
029013,000955: 35,3604           23463                           QXCH     NORMEX                                
029014,000956: 35,3605           33633                           CAF      V06N55                                
029015,000957: 35,3606           04616                           TCR      BANKCALL                              
029016,000958: 35,3607           20477                           CADR     GOFLASH                               
029017,000959: 35,3610           16001                           TCF      GOTOPOOH                              
029018,000960: 35,3611           01463                           TC       NORMEX                                
029019,000961: 35,3612           13605                           TCF      -5                                    
029020,000962: 

Page 685

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

Page 686

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

Page 687

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

Page 688

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

Page 689

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

Page 690

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

Page 691

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

Page 692

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

Page 693

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

Page 694

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

Page 695

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

Page 696

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

Page 697

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

Page 698

029550,001492:                                                                                                  #  SETRAD
029551,001493: 
029552,001494: 23,2367           41545        SETRAD             DLOAD    PUSH                                  
029553,001495: 23,2370           06340                                    RPAD                                  
029554,001496: 23,2371           63130                           SXA,1    INCR,2                                
029555,001497: 23,2372           00047                                    X2                                    
029556,001498: 23,2373           00002                                    2D                                    
029557,001499: 23,2374           46135                           SLOAD    BHIZ                                  
029558,001500: 23,2375           00050                                    X2                                    
029559,001501: 23,2376           46402                                    SETRADX                               
029560,001502: 23,2377           51575                           VLOAD    ABVAL                                 
029561,001503: 23,2400           02023                                    RLS                                   
029562,001504: 23,2401           77725                           PDDL                                           
029563,001505: 23,2402           43545        SETRADX            DLOAD    RVQ                                   
029564,001506: 

Page 699

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

Page 700

029600,001542:                                                                                                  #  VECSHIFT
029601,001543: 
029602,001544: 23,2441           53754        VECSHIFT           LXA,2    VSR*                                  
029603,001545: 23,2442           02777                                    RTX2                                  
029604,001546: 23,2443           57176                                    0,2                                   
029605,001547: 23,2444           63350                           LXA,1    PDVL                                  
029606,001548: 23,2445           02776                                    RTX1                                  
029607,001549: 23,2446           63257                           VSR*     PDVL                                  
029608,001550: 23,2447           57176                                    0,2                                   
029609,001551: 23,2450           77616                           RVQ                                            
029610,001552: 

Page 701

029612,001554:                                                                                                  #  SHIFTR1
029613,001555: 
029614,001556: 23,2451           53754        SHIFTR1            LXA,2    SL*                                   
029615,001557: 23,2452           02777                                    RTX2                                  
029616,001558: 23,2453           57576                                    0,2                                   
029617,001559: 23,2454           77616                           RVQ                                            
029618,001560: 

Page 702

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

Page 703

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

Page 704

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

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