Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

028095,000002:                                                                                                  ## Copyright:   Public domain.
028096,000003:                                                                                                  ## Filename:    P34-P35,_P74-P75.agc
028097,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
028098,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM) 
028099,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
028100,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
028101,000008:                                                                                                  ##              that the code format has been changed to conform to the
028102,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
028103,000010:                                                                                                  ##              original YUL assembler.
028104,000011:                                                                                                  ## Reference:   pp. 658-702
028105,000012:                                                                                                  ## Assembler:   yaYUL
028106,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028107,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
028108,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
028109,000016:                                                                                                  ##              2017-01-28 RSB  Back-ported some comment fixes I noticed while
028110,000017:                                                                                                  ##                              proofing Luminary 69.
028111,000018:                                                                                                  ##              2017-03-09 RSB  Transcribed, and then proofed comment-text using
028112,000019:                                                                                                  ##                              3-way diff vs Luminary 99 and Luminary 131.
028113,000020:                                                                                                  ##                              (Admittedly, the former is more for detecting errors
028114,000021:                                                                                                  ##                              in Luminary 99 than the other way around.)
028115,000022:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
028116,000023:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
028117,000024: 

Page 658

028119,000026:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
028120,000027: 
028121,000028:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
028122,000029:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
028123,000030: 
028124,000031:                                                                                                  #  PURPOSE
028125,000032: 
028126,000033:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028127,000034:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
028128,000035:                                                                                                  #                PHASE INITIATION (TPI) MANEUVER, GIVEN -
028129,000036: 
028130,000037:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
028131,000038:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
028132,000039: 
028133,000040:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
028134,000041:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
028135,000042: 
028136,000043:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
028137,000044: 
028138,000045:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028139,000046:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028140,000047: 
028141,000048:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028142,000049:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028143,000050:                                                                                                  #                ASTRONAUT/GROUND.
028144,000051: 
028145,000052:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
028146,000053:                                                                                                  #                THRUSTING PROGRAM.
028147,000054: 
028148,000055:                                                                                                  #  ASSUMPTIONS
028149,000056: 
028150,000057:                                                                                                  #        (1)     LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
028151,000058:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
028152,000059:                                                                                                  #                THEREFORE -
028153,000060: 
028154,000061:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028155,000062:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028156,000063:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028157,000064:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028158,000065: 
028159,000066:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028160,000067:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
028161,000068: 
028162,000069:                                                                                                  #                (C)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028163,000070:                                                                                                  #                        ORBITS WAS MINIMIZED.
028164,000071: 
028165,000072:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
028166,000073:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 659

028168,000075:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
028169,000076: 
028170,000077:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
028171,000078:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
028172,000079:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
028173,000080:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
028174,000081: 
028175,000082:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
028176,000083:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
028177,000084: 
028178,000085:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
028179,000086:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
028180,000087:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
028181,000088:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
028182,000089:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
028183,000090:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
028184,000091: 
028185,000092:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028186,000093:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
028187,000094:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028188,000095:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
028189,000096:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028190,000097:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
028191,000098:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028192,000099:                                                                                                  #                THRUSTING MANEUVER.
028193,000100: 
028194,000101:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028195,000102: 
028196,000103:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028197,000104: 
028198,000105:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028199,000106:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028200,000107:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028201,000108:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028202,000109: 
028203,000110:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028204,000111:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028205,000112: 
028206,000113:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028207,000114:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028208,000115:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028209,000116: 
028210,000117:                                                                                                  #        (7)     ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
028211,000118:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028212,000119:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028213,000120:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028214,000121:                                                                                                  #                THROUGH THE USE OF V06N52.
028215,000122: 
028216,000123:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028217,000124:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 660

028219,000126:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
028220,000127:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028221,000128:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
028222,000129: 
028223,000130:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028224,000131: 
028225,000132:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
028226,000133: 
028227,000134:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
028228,000135: 
028229,000136:                                                                                                  #  INPUT
028230,000137: 
028231,000138:                                                                                                  #        (1)     TTPI    TIME OF THE TPI MANEUVER
028232,000139:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
028233,000140:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028234,000141:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
028235,000142: 
028236,000143:                                                                                                  #  OUTPUT
028237,000144: 
028238,000145:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
028239,000146:                                                                                                  #        (2)     TTOGO           TIME TO GO
028240,000147:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
028241,000148:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
028242,000149:                                                                                                  #                 OR
028243,000150:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
028244,000151:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
028245,000152:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
028246,000153:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
028247,000154:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI - LINE OF SIGHT
028248,000155:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
028249,000156: 
028250,000157:                                                                                                  #  DOWNLINK
028251,000158: 
028252,000159:                                                                                                  #        (1)     TTPI            TIME OF THE TPI MANEUVER
028253,000160:                                                                                                  #        (2)     TIG             TIME OF THE TPI MANEUVER
028254,000161:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
028255,000162:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028256,000163:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
028257,000164:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI - REFERENCE COORDINATES
028258,000165:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
028259,000166: 
028260,000167:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028261,000168: 
028262,000169:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
028263,000170:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
028264,000171:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028265,000172:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028266,000173: 
028267,000174:                                                                                                  #  SUBROUTINES USED
028268,000175: 
028269,000176:                                                                                                  #        AVFLAGA

Page 661

028271,000178:                                                                                                  #        AVFLAGP
028272,000179:                                                                                                  #        VNPOOH
028273,000180:                                                                                                  #        DISPLAYE
028274,000181:                                                                                                  #        SELECTMU
028275,000182:                                                                                                  #        PRECSET
028276,000183:                                                                                                  #        S33/34.1
028277,000184:                                                                                                  #        ALARM
028278,000185:                                                                                                  #        BANKCALL
028279,000186:                                                                                                  #        GOFLASH
028280,000187:                                                                                                  #        GOTOPOOH
028281,000188:                                                                                                  #        TIMETHET
028282,000189:                                                                                                  #        S34/35.2
028283,000190:                                                                                                  #        PERIAPO1
028284,000191:                                                                                                  #        SHIFTR1
028285,000192:                                                                                                  #        S34/35.5
028286,000193:                                                                                                  #        VN1645
028287,000194: 
028288,000195: 35,2000                                           SETLOC   CSI/CDH                               
028289,000196: 35,2000                                           BANK                                           
028290,000197: 35,2455  E7,1470                                  EBANK=   SUBEXIT                               
028291,000198: 35,2455                                           COUNT*   $$/P3474                              
028292,000199: 35,2455           02354        P34                TC       AVFLAGA                               
028293,000200: 35,2456           02460                           TC       P34/P74A                              
028294,000201: 35,2457           02361        P74                TC       AVFLAGP                               
028295,000202: 35,2460           02366        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
028296,000203: 35,2461           33632                           CAF      V06N37                                #  TTPI
028297,000204: 35,2462           03621                           TC       VNPOOH                                
028298,000205: 35,2463           00006                           EXTEND                                         
028299,000206: 35,2464           33655                           DCA      130DEG                                
028300,000207: 35,2465           53621                           DXCH     CENTANG                               
028301,000208: 35,2466           32424                           CAF      P30ZERO                               
028302,000209: 35,2467           55466                           TS       NN                                    
028303,000210: 35,2470           03603                           TC       DISPLAYE                              #  ELEV AND CENTANG
028304,000211: 35,2471           06042                           TC       INTPRET                               
028305,000212: 35,2472           71214                           CLEAR    DLOAD                                 
028306,000213: 35,2473           01270                                    ETPIFLAG                              
028307,000214: 35,2474           03636                                    TTPI                                  
028308,000215: 35,2475           17442                           STODL    TIG                                   
028309,000216: 35,2476           02257                                    ELEV                                  
028310,000217: 35,2477           43054                           BZE      SET                                   
028311,000218: 35,2500           72502                                    P34/P74B                              
028312,000219: 35,2501           01070                                    ETPIFLAG                              
028313,000220: 35,2502           77624        P34/P74B           CALL                                           
028314,000221: 35,2503           20000                                    SELECTMU                              
028315,000222: 35,2504                        DELELO             EQUALS   26D                                   
028316,000223: 35,2504           43145        P34/P74C           DLOAD    SET                                   
028317,000224: 35,2505           06524                                    ZEROVECS                              
028318,000225: 35,2506           03460                                    ITSWICH                               
028319,000226: 35,2507           43014                           BON      CLEAR                                 
028320,000227: 35,2510           01310                                    ETPIFLAG                              

Page 662

028322,000229: 35,2511           72513                                    SWCHSET                               
028323,000230: 35,2512           03660                                    ITSWICH                               
028324,000231: 35,2513           02317        SWCHSET            STORE    NOMTPI                                
028325,000232: 35,2514           43345        INTLOOP            DLOAD    DAD                                   
028326,000233: 35,2515           03636                                    TTPI                                  
028327,000234: 35,2516           02317                                    NOMTPI                                
028328,000235: 35,2517           34041                           STCALL   TDEC1                                 
028329,000236: 35,2520           46403                                    PRECSET                               
028330,000237: 35,2521           77624                           CALL                                           
028331,000238: 35,2522           72674                                    S33/34.1                              
028332,000239: 35,2523           77454                           BZE      EXIT                                  
028333,000240: 35,2524           72535                                    SWCHCLR                               
028334,000241: 35,2525           05567                           TC       ALARM                                 
028335,000242: 35,2526           00611                           OCT      611                                   
028336,000243: 35,2527           35006                           CAF      V05N09                                
028337,000244: 35,2530           04616                           TC       BANKCALL                              
028338,000245: 35,2531           20477                           CADR     GOFLASH                               
028339,000246: 35,2532           06001                           TC       GOTOPOOH                              
028340,000247: 35,2533           02460                           TC       P34/P74A                              #  PROCEED
028341,000248: 35,2534           02525                           TC       -7                                    #  V32
028342,000249: 
028343,000250: 35,2535           43014        SWCHCLR            BONCLR   BON                                   
028344,000251: 35,2536           03600                                    ITSWICH                               
028345,000252: 35,2537           72514                                    INTLOOP                               
028346,000253: 35,2540           01310                                    ETPIFLAG                              
028347,000254: 35,2541           72545                                    P34/P74D                              #  DISPLAY TTPI
028348,000255: 35,2542           77776                           EXIT                                           
028349,000256: 35,2543           03603                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
028350,000257: 35,2544           02550                           TC       P34/P74E                              
028351,000258: 35,2545           77776        P34/P74D           EXIT                                           
028352,000259: 35,2546           33632                           CAF      V06N37                                #  TTPI
028353,000260: 35,2547           03621                           TC       VNPOOH                                
028354,000261: 35,2550           06042        P34/P74E           TC       INTPRET                               
028355,000262: 35,2551           71201                           SETPD    DLOAD                                 
028356,000263: 35,2552           00001                                    0D                                    
028357,000264: 35,2553           02777                                    RTX1                                  
028358,000265: 35,2554           14047                           STODL    X1                                    
028359,000266: 35,2555           03621                                    CENTANG                               
028360,000267: 35,2556           71406                           PUSH     COS                                   
028361,000268: 35,2557           16732                           STODL    CSTH                                  
028362,000269: 35,2560           77756                           SIN                                            
028363,000270: 35,2561           26730                           STOVL    SNTH                                  
028364,000271: 35,2562           03552                                    RPASS3                                
028365,000272: 35,2563           77657                           VSR*                                           
028366,000273: 35,2564           57176                                    0,2                                   
028367,000274: 35,2565           26655                           STOVL    RVEC                                  
028368,000275: 35,2566           03560                                    VPASS3                                
028369,000276: 35,2567           43057                           VSR*     SET                                   
028370,000277: 35,2570           57176                                    0,2                                   
028371,000278: 35,2571           03466                                    RVSW                                  

Page 663

028373,000280: 35,2572           36744                           STCALL   VVEC                                  
028374,000281: 35,2573           24732                                    TIMETHET                              
028375,000282: 35,2574           77745                           DLOAD                                          
028376,000283: 35,2575           03636                                    TTPI                                  
028377,000284: 35,2576           03610                           STORE    INTIME                                #  FOR INITVEL
028378,000285: 35,2577           77615                           DAD                                            
028379,000286: 35,2600           00037                                    T                                     #  RENDEZVOUS TIME
028380,000287: 35,2601           37631                           STCALL   TPASS4                                #  FOR INITVEL
028381,000288: 35,2602           73216                                    S34/35.2                              
028382,000289: 35,2603           51575                           VLOAD    ABVAL                                 
028383,000290: 35,2604           02366                                    DELVEET3                              
028384,000291: 35,2605           27576                           STOVL    DELVTPI                               
028385,000292: 35,2606           03506                                    VPASS4                                
028386,000293: 35,2607           51451                           VSU      ABVAL                                 
028387,000294: 35,2610           03566                                    VTPRIME                               
028388,000295: 35,2611           26350                           STOVL    DELVTPF                               
028389,000296: 35,2612           03536                                    RACT3                                 
028390,000297: 35,2613           45115                           PDVL     CALL                                  
028391,000298: 35,2614           02337                                    VIPRIME                               
028392,000299: 35,2615           46341                                    PERIAPO1                              
028393,000300: 35,2616           77624                           CALL                                           
028394,000301: 35,2617           46451                                    SHIFTR1                               
028395,000302: 35,2620           17606                           STODL    POSTTPI                               
028396,000303: 35,2621           03636                                    TTPI                                  
028397,000304: 35,2622           03442                           STORE    TIG                                   
028398,000305: 35,2623           77776                           EXIT                                           
028399,000306: 35,2624           33634                           CAF      V06N58                                
028400,000307: 35,2625           03621                           TC       VNPOOH                                
028401,000308: 35,2626           06042                           TC       INTPRET                               
028402,000309: 35,2627           77624                           CALL                                           
028403,000310: 35,2630           73432                                    S34/35.5                              
028404,000311: 35,2631           77624                           CALL                                           
028405,000312: 35,2632           73515                                    VN1645                                
028406,000313: 35,2633           77650                           GOTO                                           
028407,000314: 35,2634           72504                                    P34/P74C                              

Page 664

028409,000316:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
028410,000317: 
028411,000318:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
028412,000319:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
028413,000320: 
028414,000321:                                                                                                  #  PURPOSE
028415,000322: 
028416,000323:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028417,000324:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
028418,000325:                                                                                                  #                MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
028419,000326:                                                                                                  #                VEHICLE RENDEZVOUS.
028420,000327: 
028421,000328:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028422,000329:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028423,000330:                                                                                                  #                ASTRONAUT/GROUND.
028424,000331: 
028425,000332:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
028426,000333:                                                                                                  #                THRUSTING PROGRAM.
028427,000334: 
028428,000335:                                                                                                  #  ASSUMPTIONS
028429,000336: 
028430,000337:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028431,000338: 
028432,000339:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028433,000340:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
028434,000341: 
028435,000342:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
028436,000343:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
028437,000344:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
028438,000345:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
028439,000346:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
028440,000347:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
028441,000348: 
028442,000349:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028443,000350: 
028444,000351:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028445,000352:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028446,000353:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028447,000354:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028448,000355: 
028449,000356:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028450,000357:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028451,000358: 
028452,000359:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028453,000360:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028454,000361:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028455,000362: 
028456,000363:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
028457,000364:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
028458,000365:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
028459,000366: 

Page 665

028461,000368:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
028462,000369:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028463,000370:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028464,000371:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028465,000372:                                                                                                  #                THROUGH THE USE OF V06N52.
028466,000373: 
028467,000374:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028468,000375:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
028469,000376:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
028470,000377:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028471,000378:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
028472,000379: 
028473,000380:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028474,000381: 
028475,000382:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
028476,000383: 
028477,000384:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
028478,000385: 
028479,000386:                                                                                                  #  INPUT
028480,000387: 
028481,000388:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT - SAVED FROM P34/P74
028482,000389: 
028483,000390:                                                                                                  #  OUTPUT
028484,000391: 
028485,000392:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
028486,000393:                                                                                                  #        (2)     TTOGO           TIME TO GO
028487,000394:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
028488,000395:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID - LINE OF SIGHT
028489,000396:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
028490,000397: 
028491,000398:                                                                                                  #  DOWNLINK
028492,000399: 
028493,000400:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
028494,000401:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM - REFERENCE COORDINATES
028495,000402:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028496,000403: 
028497,000404:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028498,000405: 
028499,000406:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
028500,000407:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
028501,000408:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028502,000409:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028503,000410: 
028504,000411:                                                                                                  #  SUBROUTINES USED
028505,000412: 
028506,000413:                                                                                                  #        AVFLAGA
028507,000414:                                                                                                  #        AVFLAGP
028508,000415:                                                                                                  #        LOADTIME
028509,000416:                                                                                                  #        SELECTMU
028510,000417:                                                                                                  #        PRECSET
028511,000418:                                                                                                  #        S34/35.1
028512,000419:                                                                                                  #        S34/35.2

Page 666

028514,000421:                                                                                                  #        S34/35.5
028515,000422:                                                                                                  #        VN1645
028516,000423: 
028517,000424: 35,2635                                           COUNT*   $$/P3575                              
028518,000425: 35,2635  E7,1575                                  EBANK=   KT                                    
028519,000426: 
028520,000427: 35,2635           02354        P35                TC       AVFLAGA                               
028521,000428: 35,2636           00006                           EXTEND                                         
028522,000429: 35,2637           31401                           DCA      ATIGINC                               
028523,000430: 35,2640           02644                           TC       P35/P75A                              
028524,000431: 35,2641           02361        P75                TC       AVFLAGP                               
028525,000432: 35,2642           00006                           EXTEND                                         
028526,000433: 35,2643           31403                           DCA      PTIGINC                               
028527,000434: 35,2644           53576        P35/P75A           DXCH     KT                                    
028528,000435: 35,2645           02366                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
028529,000436: 35,2646           06042                           TC       INTPRET                               
028530,000437: 35,2647           77624                           CALL                                           
028531,000438: 35,2650           20000                                    SELECTMU                              
028532,000439: 35,2651           77634        P35/P75B           RTB                                            
028533,000440: 35,2652           21574                                    LOADTIME                              
028534,000441: 35,2653           03612                           STORE    TSTRT                                 
028535,000442: 35,2654           77615                           DAD                                            
028536,000443: 35,2655           03576                                    KT                                    
028537,000444: 35,2656           03442                           STORE    TIG                                   
028538,000445: 35,2657           03610                           STORE    INTIME                                #  FOR INITVEL
028539,000446: 35,2660           34041                           STCALL   TDEC1                                 
028540,000447: 35,2661           46403                                    PRECSET                               #  ADVANCE BOTH VEHICLES
028541,000448: 35,2662           77624                           CALL                                           
028542,000449: 35,2663           73204                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
028543,000450: 35,2664           77624                           CALL                                           
028544,000451: 35,2665           73216                                    S34/35.2                              #  GET DELTA V(LV)
028545,000452: 35,2666           77624                           CALL                                           
028546,000453: 35,2667           73432                                    S34/35.5                              
028547,000454: 35,2670           77624                           CALL                                           
028548,000455: 35,2671           73515                                    VN1645                                
028549,000456: 35,2672           77650                           GOTO                                           
028550,000457: 35,2673           72651                                    P35/P75B                              

Page 667

028552,000459:                                                                                                  #  ..... S33/34.1 .....
028553,000460: 
028554,000461: 35,2674           66220        S33/34.1           STQ      SSP                                   
028555,000462: 35,2675           03463                                    NORMEX                                
028556,000463: 35,2676           03614                                    TITER                                 
028557,000464: 35,2677           40000                           OCT      40000                                 
028558,000465: 35,2700           40345                           DLOAD    SETPD                                 
028559,000466: 35,2701           33643                                    MAX250                                
028560,000467: 35,2702           00001                                    0D                                    
028561,000468: 35,2703           27574                           STOVL    SECMAX                                
028562,000469: 35,2704           03536                                    RACT3                                 
028563,000470: 35,2705           27500                           STOVL    RAPREC                                
028564,000471: 35,2706           03544                                    VACT3                                 
028565,000472: 35,2707           27506                           STOVL    VAPREC                                
028566,000473: 35,2710           03552                                    RPASS3                                
028567,000474: 35,2711           27522                           STOVL    RPPREC                                
028568,000475: 35,2712           03560                                    VPASS3                                
028569,000476: 35,2713           03530                           STORE    VPPREC                                
028570,000477: 35,2714           77624        ELCALC             CALL                                           
028571,000478: 35,2715           73204                                    S34/35.1                              #  NORMAL AND LOS
028572,000479: 35,2716           63235                           VXV      PDVL                                  
028573,000480: 35,2717           03536                                    RACT3                                 #  (RA*VA)*RA 0D
028574,000481: 35,2720           53515                           PDVL     UNIT                                  #  ULOS AT 6D
028575,000482: 35,2721           03536                                    RACT3                                 
028576,000483: 35,2722           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
028577,000484: 35,2723           51352                           VSL2     BVSU                                  
028578,000485: 35,2724           02311                                    ULOS                                  
028579,000486: 35,2725           63256                           UNIT     PDVL                                  #  UP AT 0D
028580,000487: 35,2726           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
028581,000488: 35,2727           00001                                    0D                                    #  UP IN MPAC
028582,000489: 35,2730           75241                           DOT      SIGN                                  
028583,000490: 35,2731           02311                                    ULOS                                  
028584,000491: 35,2732           65552                           SL1      ACOS                                  
028585,000492: 35,2733           50315                           PDVL     DOT                                   #  EA AT 0D
028586,000493: 35,2734           02311                                    ULOS                                  
028587,000494: 35,2735           03536                                    RACT3                                 
028588,000495: 35,2736           71244                           BPL      DLOAD                                 
028589,000496: 35,2737           72742                                    TESTY                                 
028590,000497: 35,2740           06532                                    DPPOSMAX                              
028591,000498: 35,2741           41425                           DSU      PUSH                                  
028592,000499: 35,2742           71214        TESTY              BOFF     DLOAD                                 
028593,000500: 35,2743           03740                                    ITSWICH                               
028594,000501: 35,2744           73171                                    ELEX                                  
028595,000502: 35,2745           03576                                    DELEL                                 
028596,000503: 35,2746           14033                           STODL    DELELO                                
028597,000504: 35,2747           77625                           DSU                                            
028598,000505: 35,2750           02257                                    ELEV                                  
028599,000506: 35,2751           03576                           STORE    DELEL                                 
028600,000507: 35,2752           45246                           ABS      DSU                                   
028601,000508: 35,2753           33647                                    ELEPS                                 

Page 668

028603,000510: 35,2754           77640                           BMN                                            
028604,000511: 35,2755           73201                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
028605,000512: 35,2756           70535        FIGTIME            SLOAD    SR1                                   
028606,000513: 35,2757           03614                                    TITER                                 
028607,000514: 35,2760           72030                           BHIZ     LXA,1                                 
028608,000515: 35,2761           03463                                    NORMEX                                #  TOO MANY ITERATIONS
028609,000516: 35,2762           00154                                    MPAC                                  
028610,000517: 35,2763           77330                           SXA,1    VLOAD                                 
028611,000518: 35,2764           03613                                    TITER                                 
028612,000519: 35,2765           03552                                    RPASS3                                
028613,000520: 35,2766           65256                           UNIT     PDDL                                  
028614,000521: 35,2767           00045                                    36D                                   
028615,000522: 35,2770           53515                           PDVL     UNIT                                  
028616,000523: 35,2771           03536                                    RACT3                                 
028617,000524: 35,2772           77725                           PDDL                                           
028618,000525: 35,2773           41525                           PDDL     PUSH                                  
028619,000526: 35,2774           00045                                    36D                                   
028620,000527: 35,2775           77621                           BDSU                                           
028621,000528: 35,2776           00015                                    12D                                   
028622,000529: 35,2777           14037                           STODL    30D                                   #  RP - RA MAGNITUDES
028623,000530: 35,3000           06522                                    DPHALF                                
028624,000531: 35,3001           41425                           DSU      PUSH                                  
028625,000532: 35,3002           02257                                    ELEV                                  
028626,000533: 35,3003           50165                           SIGN     BMN                                   
028627,000534: 35,3004           00037                                    30D                                   
028628,000535: 35,3005           03463                                    NORMEX                                
028629,000536: 35,3006           71545                           DLOAD    COS                                   
028630,000537: 35,3007           56205                           DMP      DDV                                   
028631,000538: 35,3010           00017                                    14D                                   
028632,000539: 35,3011           00015                                    12D                                   
028633,000540: 35,3012           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
028634,000541: 35,3013           00035                           STORE    28D                                   
028635,000542: 35,3014           44246                           ABS      BDSU                                  
028636,000543: 35,3015           06522                                    DPHALF                                
028637,000544: 35,3016           77240                           BMN      VLOAD                                 
028638,000545: 35,3017           03463                                    NORMEX                                
028639,000546: 35,3020           02261                                    UNRM                                  
028640,000547: 35,3021           53435                           VXV      UNIT                                  
028641,000548: 35,3022           00007                                    6D                                    #  UN*RA
028642,000549: 35,3023           41241                           DOT      DMP                                   
028643,000550: 35,3024           03544                                    VACT3                                 
028644,000551: 35,3025           00015                                    12D                                   
028645,000552: 35,3026           47315                           PDVL     VXV                                   
028646,000553: 35,3027           00001                                    0D                                    
028647,000554: 35,3030           03560                                    VPASS3                                
028648,000555: 35,3031           53435                           VXV      UNIT                                  
028649,000556: 35,3032           00001                                    0D                                    #  (RP*VP)*RP
028650,000557: 35,3033           41241                           DOT      DMP                                   
028651,000558: 35,3034           03560                                    VPASS3                                
028652,000559: 35,3035           00017                                    14D                                   

Page 669

028654,000561: 35,3036           77621                           BDSU                                           
028655,000562: 35,3037           63301                           NORM     PDVL                                  #  NORMALIZED WA - WP 12D
028656,000563: 35,3040           00047                                    X1                                    
028657,000564: 35,3041           00007                                    6D                                    
028658,000565: 35,3042           50235                           VXV      DOT                                   
028659,000566: 35,3043           00001                                    0D                                    
028660,000567: 35,3044           02261                                    UNRM                                  #  RA*RP.UN 14D
028661,000568: 35,3045           50315                           PDVL     DOT                                   
028662,000569: 35,3046           00001                                    0D                                    
028663,000570: 35,3047           00007                                    6D                                    
028664,000571: 35,3050           65552                           SL1      ACOS                                  
028665,000572: 35,3051           77765                           SIGN                                           
028666,000573: 35,3052           43225                           DSU      DAD                                   #  ALPHA PI
028667,000574: 35,3053           06522                                    DPHALF                                
028668,000575: 35,3054           02257                                    ELEV                                  
028669,000576: 35,3055           65525                           PDDL     ACOS                                  
028670,000577: 35,3056           00035                                    28D                                   
028671,000578: 35,3057           75221                           BDSU     SIGN                                  
028672,000579: 35,3060           06522                                    DPHALF                                
028673,000580: 35,3061           00037                                    30D                                   #  CONTAINS RP-RA
028674,000581: 35,3062           77615                           DAD                                            
028675,000582: 35,3063           56205                           DMP      DDV                                   
028676,000583: 35,3064           33641                                    TWOPI                                 
028677,000584: 35,3065           77605                           DMP                                            
028678,000585: 35,3066           41257                           SL*      DMP                                   
028679,000586: 35,3067           20176                                    0          -3,1                       
028680,000587: 35,3070           51406                           PUSH     ABS                                   
028681,000588: 35,3071           50025                           DSU      BMN                                   
028682,000589: 35,3072           03574                                    SECMAX                                
028683,000590: 35,3073           73077                                    OKMAX                                 
028684,000591: 35,3074           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
028685,000592: 35,3075           03574                                    SECMAX                                
028686,000593: 35,3076           77606                           PUSH                                           
028687,000594: 35,3077           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
028688,000595: 35,3100           03614                                    TITER                                 
028689,000596: 35,3101           73107                                    REPETE                                
028690,000597: 35,3102           71331                           SSP      DLOAD                                 
028691,000598: 35,3103           03614                                    TITER                                 
028692,000599: 35,3104           37777                           OCT      37777                                 
028693,000600: 35,3105           77650                           GOTO                                           
028694,000601: 35,3106           73145                                    STORDELT                              
028695,000602: 35,3107           41345        REPETE             DLOAD    DMP                                   
028696,000603: 35,3110           03576                                    DELEL                                 
028697,000604: 35,3111           00033                                    DELELO                                
028698,000605: 35,3112           71244                           BPL      DLOAD                                 
028699,000606: 35,3113           73123                                    NEXTES                                
028700,000607: 35,3114           03574                                    SECMAX                                
028701,000608: 35,3115           77605                           DMP                                            
028702,000609: 35,3116           33645                                    THIRD                                 
028703,000610: 35,3117           17574                           STODL    SECMAX                                

Page 670

028705,000612: 35,3120           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
028706,000613: 35,3121           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
028707,000614: 35,3122           73133                                    RESIGN                                
028708,000615: 35,3123           51545        NEXTES             DLOAD    ABS                                   
028709,000616: 35,3124           03576                                    DELEL                                 
028710,000617: 35,3125           51525                           PDDL     ABS                                   
028711,000618: 35,3126           00033                                    DELELO                                
028712,000619: 35,3127           77625                           DSU                                            
028713,000620: 35,3130           71240                           BMN      DLOAD                                 
028714,000621: 35,3131           73136                                    REVERS                                #  WRONG DIRECTION
028715,000622: 35,3132           77646                           ABS                                            
028716,000623: 35,3133           52165        RESIGN             SIGN     GOTO                                  
028717,000624: 35,3134           03606                                    DELTEEO                               
028718,000625: 35,3135           73145                                    STORDELT                              
028719,000626: 35,3136           57545        REVERS             DLOAD    DCOMP                                 
028720,000627: 35,3137           03606                                    DELTEEO                               
028721,000628: 35,3140           70406                           PUSH     SR1                                   
028722,000629: 35,3141           03606                           STORE    DELTEEO                               
028723,000630: 35,3142           77615                           DAD                                            
028724,000631: 35,3143           77650                           GOTO                                           
028725,000632: 35,3144           73146                                    ADTIME                                
028726,000633: 35,3145           03606        STORDELT           STORE    DELTEEO                               
028727,000634: 35,3146           77615        ADTIME             DAD                                            
028728,000635: 35,3147           02317                                    NOMTPI                                #  SUM OF DELTA T:S
028729,000636: 35,3150           02317                           STORE    NOMTPI                                
028730,000637: 35,3151           63375                           VLOAD    PDVL                                  
028731,000638: 35,3152           03506                                    VAPREC                                
028732,000639: 35,3153           03500                                    RAPREC                                
028733,000640: 35,3154           77624                           CALL                                           
028734,000641: 35,3155           73372                                    GOINT                                 
028735,000642: 35,3156           77624                           CALL                                           
028736,000643: 35,3157           46425                                    ACTIVE                                #  STORE NEW RACT3 VACT3
028737,000644: 35,3160           63375                           VLOAD    PDVL                                  
028738,000645: 35,3161           03530                                    VPPREC                                
028739,000646: 35,3162           03522                                    RPPREC                                
028740,000647: 35,3163           77624                           CALL                                           
028741,000648: 35,3164           73372                                    GOINT                                 
028742,000649: 35,3165           77624                           CALL                                           
028743,000650: 35,3166           46435                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
028744,000651: 35,3167           77650                           GOTO                                           
028745,000652: 35,3170           72714                                    ELCALC                                
028746,000653: 35,3171           43345        ELEX               DLOAD    DAD                                   
028747,000654: 35,3172           03636                                    TTPI                                  
028748,000655: 35,3173           02317                                    NOMTPI                                
028749,000656: 35,3174           17636                           STODL    TTPI                                  
028750,000657: 35,3175           77614                           BON                                            
028751,000658: 35,3176           01310                                    ETPIFLAG                              
028752,000659: 35,3177           73201                                    TIMEX                                 
028753,000660: 35,3200           02257                           STORE    ELEV                                  
028754,000661: 35,3201           52145        TIMEX              DLOAD    GOTO                                  

Page 671

028756,000663: 35,3202           06524                                    ZEROVECS                              
028757,000664: 35,3203           03463                                    NORMEX                                
028758,000665: 

Page 672

028760,000667:                                                                                                  #  ..... S34/35.1 .....
028761,000668: 
028762,000669:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
028763,000670:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
028764,000671: 
028765,000672: 35,3204           52375        S34/35.1           VLOAD    VSU                                   
028766,000673: 35,3205           03552                                    RPASS3                                
028767,000674: 35,3206           03536                                    RACT3                                 
028768,000675: 35,3207           41456                           UNIT     PUSH                                  
028769,000676: 35,3210           26311                           STOVL    ULOS                                  
028770,000677: 35,3211           03536                                    RACT3                                 
028771,000678: 35,3212           53435                           VXV      UNIT                                  
028772,000679: 35,3213           03544                                    VACT3                                 
028773,000680: 35,3214           02261                           STORE    UNRM                                  
028774,000681: 35,3215           77616                           RVQ                                            
028775,000682: 

Page 673

028777,000684:                                                                                                  #  ..... S34/35.2 .....
028778,000685: 
028779,000686:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
028780,000687: 
028781,000688: 35,3216           77220        S34/35.2           STQ      VLOAD                                 
028782,000689: 35,3217           03470                                    SUBEXIT                               
028783,000690: 35,3220           03560                                    VPASS3                                
028784,000691: 35,3221           65315                           PDVL     PDDL                                  
028785,000692: 35,3222           03552                                    RPASS3                                
028786,000693: 35,3223           03610                                    INTIME                                
028787,000694: 35,3224           65325                           PDDL     PDDL                                  
028788,000695: 35,3225           03631                                    TPASS4                                
028789,000696: 35,3226           33641                                    TWOPI                                 #  CONIC
028790,000697: 35,3227           46125                           PDDL     BHIZ                                  
028791,000698: 35,3230           03467                                    NN                                    
028792,000699: 35,3231           73235                                    S3435.23                              
028793,000700: 35,3232           77745                           DLOAD                                          
028794,000701: 35,3233           41545                           DLOAD    PUSH                                  
028795,000702: 35,3234           06524                                    ZEROVECS                              #  PRECISION
028796,000703: 35,3235           77624        S3435.23           CALL                                           
028797,000704: 35,3236           73376                                    INTINT                                #  GET TARGET VECTOR
028798,000705: 35,3237           27444        S3435.25           STOVL    RTARG                                 
028799,000706: 35,3240           00007                                    VATT                                  
028800,000707: 35,3241           27506                           STOVL    VPASS4                                
028801,000708: 35,3242           03444                                    RTARG                                 
028802,000709:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U)
028803,000710: 35,3243           63256                           UNIT     PDVL                                  #  UNIT RP
028804,000711: 35,3244           03536                                    RACT3                                 
028805,000712: 35,3245           41456                           UNIT     PUSH                                  #  UNIT RA
028806,000713: 35,3246           50235                           VXV      DOT                                   
028807,000714: 35,3247           00001                                    0D                                    
028808,000715: 35,3250           02261                                    UNRM                                  #  RA*RP.U
028809,000716: 35,3251           77715                           PDVL                                           
028810,000717: 35,3252           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
028811,000718: 35,3253           00001                                    0D                                    
028812,000719: 35,3254           75326                           ACOS     SIGN                                  
028813,000720: 35,3255           43244                           BPL      DAD                                   
028814,000721: 35,3256           73260                                    NOPIE                                 
028815,000722: 35,3257           06532                                    DPPOSMAX                              #  REASONABLE TWO PI
028816,000723: 35,3260           15756        NOPIE              STODL    ACTCENT                               
028817,000724: 35,3261           03631                                    TPASS4                                
028818,000725: 35,3262           77625                           DSU                                            
028819,000726: 35,3263           03610                                    INTIME                                
028820,000727: 35,3264           03452                           STORE    DELLT4                                
028821,000728: 35,3265           40335                           SLOAD    SETPD                                 
028822,000729: 35,3266           03467                                    NN                                    #  NUMBER OF OFFSETS
028823,000730: 35,3267           00001                                    0D                                    
028824,000731: 35,3270           63325                           PDDL     PDVL                                  
028825,000732: 35,3271           33653                                    EPSFOUR                               
028826,000733: 35,3272           03536                                    RACT3                                 
028827,000734: 35,3273           26323                           STOVL    RINIT                                 

Page 674

028829,000736: 35,3274           03544                                    VACT3                                 
028830,000737: 35,3275           36331                           STCALL   VINIT                                 
028831,000738: 35,3276           22000                                    INITVEL                               
028832,000739: 35,3277           77624                           CALL                                           
028833,000740: 35,3300           73357                                    LOMAT                                 
028834,000741: 35,3301           64375                           VLOAD    MXV                                   
028835,000742: 35,3302           02366                                    DELVEET3                              
028836,000743: 35,3303           00001                                    0D                                    
028837,000744: 35,3304           77772                           VSL1                                           
028838,000745: 35,3305           37434                           STCALL   DELVLVC                               
028839,000746: 35,3306           03470                                    SUBEXIT                               
028840,000747: 

Page 675

028842,000749:                                                                                                  #  ..... S34/35.3 .....
028843,000750: 
028844,000751: 35,3307           45020        S34/35.3           STQ      CALL                                  
028845,000752: 35,3310           03463                                    NORMEX                                
028846,000753: 35,3311           73357                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
028847,000754: 35,3312           61375                           VLOAD    VXM                                   
028848,000755: 35,3313           03434                                    DELVLVC                               #  NEW DEL V TPI
028849,000756: 35,3314           00001                                    0D                                    
028850,000757: 35,3315           77772                           VSL1                                           
028851,000758: 35,3316           02366                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
028852,000759: 35,3317           63255                           VAD      PDVL                                  
028853,000760: 35,3320           03544                                    VACT3                                 #  NEW V REQ
028854,000761: 35,3321           03536                                    RACT3                                 
028855,000762: 35,3322           65325                           PDDL     PDDL                                  
028856,000763: 35,3323           03442                                    TIG                                   
028857,000764: 35,3324           03631                                    TPASS4                                
028858,000765: 35,3325           41525                           PDDL     PUSH                                  
028859,000766: 35,3326           06532                                    DPPOSMAX                              
028860,000767: 35,3327           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
028861,000768: 35,3330           73376                                    INTINT                                
028862,000769: 35,3331           77775                           VLOAD                                          
028863,000770: 35,3332           00001                                    RATT                                  
028864,000771: 35,3333           03444                           STORE    RTARG                                 
028865,000772: 35,3334           41575        NOVRWRT            VLOAD    PUSH                                  
028866,000773: 35,3335           02311                                    ULOS                                  
028867,000774: 35,3336           57435                           VXV      VCOMP                                 
028868,000775: 35,3337           02261                                    UNRM                                  
028869,000776: 35,3340           41456                           UNIT     PUSH                                  
028870,000777: 35,3341           76435                           VXV      VSL1                                  
028871,000778: 35,3342           02311                                    ULOS                                  
028872,000779: 35,3343           77715                           PDVL                                           
028873,000780: 35,3344           64315                           PDVL     MXV                                   
028874,000781: 35,3345           02366                                    DELVEET3                              
028875,000782: 35,3346           00001                                    0D                                    
028876,000783: 35,3347           77772                           VSL1                                           
028877,000784: 35,3350           36303                           STCALL   DVLOS                                 
028878,000785: 35,3351           03463                                    NORMEX                                
028879,000786: 

Page 676

028881,000788:                                                                                                  #  ..... S34/35.4 .....
028882,000789: 
028883,000790: 35,3352           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
028884,000791: 35,3353           03463                                    NORMEX                                
028885,000792: 35,3354           00001                                    0D                                    
028886,000793: 35,3355           77650                           GOTO                                           
028887,000794: 35,3356           73334                                    NOVRWRT                               
028888,000795: 

Page 677

028890,000797:                                                                                                  #  ..... LOMAT .....
028891,000798: 
028892,000799: 35,3357           57575        LOMAT              VLOAD    VCOMP                                 
028893,000800: 35,3360           02261                                    UNRM                                  
028894,000801: 35,3361           24007                           STOVL    6D                                    #  Y
028895,000802: 35,3362           03536                                    RACT3                                 
028896,000803: 35,3363           57456                           UNIT     VCOMP                                 
028897,000804: 35,3364           00015                           STORE    12D                                   
028898,000805: 35,3365           76435                           VXV      VSL1                                  
028899,000806: 35,3366           02261                                    UNRM                                  #  Z*-Y
028900,000807: 35,3367           00001                           STORE    0D                                    
028901,000808: 35,3370           43401                           SETPD    RVQ                                   
028902,000809: 35,3371           00023                                    18D                                   
028903,000810: 35,3372           65325        GOINT              PDDL     PDDL                                  #  DO
028904,000811: 35,3373           06524                                    ZEROVECS                              #        NOT
028905,000812: 35,3374           02317                                    NOMTPI                                
028906,000813: 35,3375           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
028907,000814: 35,3376           45020        INTINT             STQ      CALL                                  
028908,000815: 35,3377           03465                                    RTRN                                  
028909,000816: 35,3400           27412                                    INTSTALL                              
028910,000817: 35,3401           71214                           CLEAR    DLOAD                                 
028911,000818: 35,3402           01673                                    INTYPFLG                              
028912,000819: 35,3403           43054                           BZE      SET                                   
028913,000820: 35,3404           73406                                    +2                                    
028914,000821: 35,3405           01473                                    INTYPFLG                              
028915,000822: 35,3406           45545                           DLOAD    STADR                                 
028916,000823: 35,3407           63736                           STODL    TDEC1                                 
028917,000824: 35,3410           73014                           SET      LXA,2                                 
028918,000825: 35,3411           00063                                    MOONFLAG                              
028919,000826: 35,3412           02777                                    RTX2                                  
028920,000827: 35,3413           43014                           BON      CLEAR                                 
028921,000828: 35,3414           04303                                    CMOONFLG                              
028922,000829: 35,3415           73417                                    ALLSET                                
028923,000830: 35,3416           00263                                    MOONFLAG                              
028924,000831: 35,3417           25517        ALLSET             STOVL    TET                                   
028925,000832: 35,3420           77657                           VSR*                                           
028926,000833: 35,3421           57176                                    0,2                                   
028927,000834: 35,3422           25535                           STOVL    RCV                                   
028928,000835: 35,3423           77657                           VSR*                                           
028929,000836: 35,3424           57176                                    0,2                                   
028930,000837: 35,3425           35543                           STCALL   VCV                                   
028931,000838: 35,3426           27110                                    INTEGRVS                              
028932,000839: 35,3427           52175                           VLOAD    GOTO                                  
028933,000840: 35,3430           00001                                    RATT                                  
028934,000841: 35,3431           03465                                    RTRN                                  
028935,000842: 

Page 678

028937,000844:                                                                                                  #  ..... S34/35.5 .....
028938,000845:                                                                                                  #  SUBROUTINES USED
028939,000846:                                                                                                  #        BANKCALL
028940,000847:                                                                                                  #        GOFLASH
028941,000848:                                                                                                  #        GOTOPOOH
028942,000849:                                                                                                  #        S34/35.3
028943,000850:                                                                                                  #        S34/35.4
028944,000851:                                                                                                  #        VNPOOH
028945,000852: 
028946,000853: 35,3432           43020        S34/35.5           STQ      BON                                   
028947,000854: 35,3433           03470                                    SUBEXIT                               
028948,000855: 35,3434           01311                                    FINALFLG                              
028949,000856: 35,3435           73441                                    FLAGON                                
028950,000857: 35,3436           52014                           SET      GOTO                                  
028951,000858: 35,3437           00470                                    UPDATFLG                              
028952,000859: 35,3440           73505                                    FLAGOFF                               
028953,000860: 35,3441           77214        FLAGON             CLEAR    VLOAD                                 
028954,000861: 35,3442           03274                                    NTARGFLG                              
028955,000862: 35,3443           03434                                    DELVLVC                               
028956,000863: 35,3444           01236                           STORE    GDT/2                                 
028957,000864: 35,3445           77776                           EXIT                                           
028958,000865: 35,3446           33636                 +5        CAF      V06N81                                
028959,000866: 35,3447           04616                           TC       BANKCALL                              
028960,000867: 35,3450           20477                           CADR     GOFLASH                               
028961,000868: 35,3451           06001                           TC       GOTOPOOH                              
028962,000869: 35,3452           03454                           TC       +2                                    #  PRO
028963,000870: 35,3453           03446                           TC       FLAGON     +5                         #  LOAD
028964,000871: 35,3454           35016                 +2        CA       EBANK7                                
028965,000872: 35,3455           54003                           TS       EBANK                                 #  TO BE SURE
028966,000873: 
028967,000874: 35,3456           22007                           ZL                                             
028968,000875: 35,3457           34756                           CA       FIVE                                  
028969,000876: 35,3460           54002        NTARGCHK           TS       Q                                     
028970,000877: 35,3461           50002                           INDEX    Q                                     
028971,000878: 35,3462           41433                           CS       DELVLVC                               
028972,000879: 35,3463           50002                           INDEX    Q                                     
028973,000880: 35,3464           61235                           AD       GDT/2                                 
028974,000881: 35,3465           26001                           ADS      L                                     
028975,000882: 35,3466           10002                           CCS      Q                                     
028976,000883: 35,3467           13460                           TCF      NTARGCHK                              
028977,000884: 35,3470           22000                           LXCH     A                                     
028978,000885: 35,3471           00006                           EXTEND                                         
028979,000886: 35,3472           13475                           BZF      +3                                    
028980,000887: 35,3473           05504                           TC       UPFLAG                                
028981,000888: 35,3474           00146                           ADRES    NTARGFLG                              
028982,000889: 
028983,000890: 35,3475           06042                           TC       INTPRET                               
028984,000891: 35,3476           45014                           BOFF     CALL                                  
028985,000892: 35,3477           03354                                    NTARGFLG                              

Page 679

028987,000894: 35,3500           73502                                    NOCHG                                 
028988,000895: 35,3501           73307                                    S34/35.3                              
028989,000896: 35,3502           77775        NOCHG              VLOAD                                          
028990,000897: 35,3503           02366                                    DELVEET3                              
028991,000898: 35,3504           03656                           STORE    DELVSIN                               
028992,000899: 35,3505           77624        FLAGOFF            CALL                                           
028993,000900: 35,3506           73352                                    S34/35.4                              
028994,000901: 35,3507           77776                           EXIT                                           
028995,000902: 35,3510           33635                           CAF      V06N59                                
028996,000903: 35,3511           03621                           TC       VNPOOH                                
028997,000904: 35,3512           06042                           TC       INTPRET                               
028998,000905: 35,3513           77650                           GOTO                                           
028999,000906: 35,3514           03470                                    SUBEXIT                               
029000,000907: 

Page 680

029002,000909:                                                                                                  #  ..... VN1645 .....
029003,000910: 
029004,000911:                                                                                                  #  SUBROUTINES USED
029005,000912:                                                                                                  #        P3XORP7X
029006,000913:                                                                                                  #        GET+MGA
029007,000914:                                                                                                  #        BANKCALL
029008,000915:                                                                                                  #        DELAYJOB
029009,000916:                                                                                                  #        COMPTGO
029010,000917:                                                                                                  #        GOFLASHR
029011,000918:                                                                                                  #        GOTOPOOH
029012,000919:                                                                                                  #        FLAGUP
029013,000920: 
029014,000921: 35,3515           71220        VN1645             STQ      DLOAD                                 
029015,000922: 35,3516           03470                                    SUBEXIT                               
029016,000923: 35,3517           33651                                    DP-.01                                
029017,000924: 35,3520           02253                           STORE    +MGA                                  #  MGA = -.01
029018,000925: 35,3521           71214                           BOFF     DLOAD                                 
029019,000926: 35,3522           01351                                    FINALFLG                              
029020,000927: 35,3523           73543                                    GET45                                 
029021,000928: 35,3524           33651                                    DP-.01                                
029022,000929: 35,3525           77615                           DAD                                            
029023,000930: 35,3526           33651                                    DP-.01                                
029024,000931: 35,3527           02253                           STORE    +MGA                                  #  MGA = -.02
029025,000932: 35,3530           77414                           BOFF     EXIT                                  
029026,000933: 35,3531           01742                                    REFSMFLG                              
029027,000934: 35,3532           73543                                    GET45                                 
029028,000935: 35,3533           03613                           TC       P3XORP7X                              
029029,000936: 35,3534           03536                           TC       +2                                    #  P3X
029030,000937: 35,3535           03544                           TC       GET45      +1                         #  P7X
029031,000938: 35,3536           06042                           TC       INTPRET                               
029032,000939: 35,3537           41575                           VLOAD    PUSH                                  
029033,000940: 35,3540           03656                                    DELVSIN                               
029034,000941: 35,3541           77624                           CALL                                           #  COMPUTE MGA
029035,000942: 35,3542           15725                                    GET+MGA                               
029036,000943: 35,3543           77776        GET45              EXIT                                           
029037,000944: 35,3544           02437                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
029038,000945: 35,3545           31470                           CA       SUBEXIT                               
029039,000946: 35,3546           55464                           TS       QSAVED                                
029040,000947: 35,3547           34777                           CAF      1SEC                                  
029041,000948: 35,3550           04616                           TC       BANKCALL                              
029042,000949: 35,3551           01736                           CADR     DELAYJOB                              
029043,000950: 35,3552           33637                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
029044,000951: 35,3553           04616                           TC       BANKCALL                              
029045,000952: 35,3554           20477                           CADR     GOFLASH                               
029046,000953: 35,3555           03560                           TC       KILCLOCK                              #  TERMINATE
029047,000954: 35,3556           03563                           TC       N45PROC                               #  PROCEED
029048,000955: 35,3557           03573                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
029049,000956: 35,3560           30005        KILCLOCK           CA       Z                                     
029050,000957: 35,3561           55162                           TS       DISPDEX                               

Page 681

029052,000959: 35,3562           06001                           TC       GOTOPOOH                              
029053,000960: 35,3563           40076        N45PROC            CS       FLAGWRD2                              
029054,000961: 35,3564           74746                           MASK     BIT6                                  
029055,000962: 35,3565           00006                           EXTEND                                         
029056,000963: 35,3566           13560                           BZF      KILCLOCK                              #  FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
029057,000964: 35,3567           05353                           TC       PHASCHNG                              
029058,000965: 35,3570           04024                           OCT      04024                                 
029059,000966: 35,3571           05504                           TC       UPFLAG                                #  SET
029060,000967: 35,3572           00047                           ADRES    FINALFLG                              #  FINALFLG
029061,000968: 35,3573           30005        CLUPDATE           CA       Z                                     
029062,000969: 35,3574           55162                           TS       DISPDEX                               
029063,000970: 35,3575           05353                           TC       PHASCHNG                              
029064,000971: 35,3576           04024                           OCT      04024                                 
029065,000972: 35,3577           06042                           TC       INTPRET                               
029066,000973: 35,3600           52014                           CLEAR    GOTO                                  
029067,000974: 35,3601           00670                                    UPDATFLG                              
029068,000975: 35,3602           03464                                    QSAVED                                
029069,000976: 

Page 682

029071,000978:                                                                                                  #  ..... DISPLAYE .....
029072,000979: 
029073,000980:                                                                                                  #  SUBROUTINES USED
029074,000981:                                                                                                  #        BANKCALL
029075,000982:                                                                                                  #        GOFLASHR
029076,000983:                                                                                                  #        GOTOPOOH
029077,000984:                                                                                                  #        BLANKET
029078,000985:                                                                                                  #        ENDOFJOB
029079,000986: 
029080,000987: 35,3603           00006        DISPLAYE           EXTEND                                         
029081,000988: 35,3604           23463                           QXCH     NORMEX                                
029082,000989: 35,3605           33633                           CAF      V06N55                                
029083,000990: 35,3606           04616                           TCR      BANKCALL                              
029084,000991: 35,3607           20477                           CADR     GOFLASH                               
029085,000992: 35,3610           16001                           TCF      GOTOPOOH                              
029086,000993: 35,3611           01463                           TC       NORMEX                                
029087,000994: 35,3612           13605                           TCF      -5                                    
029088,000995: 

Page 683

029090,000997:                                                                                                  #  ..... P3XORP7X .....
029091,000998: 
029092,000999: 35,3613           37747        P3XORP7X           CAF      HIGH9                                 
029093,001000: 35,3614           71010                           MASK     MODREG                                
029094,001001: 35,3615           00006                           EXTEND                                         
029095,001002: 35,3616           13620                           BZF      +2                                    
029096,001003: 35,3617           24002                           INCR     Q                                     
029097,001004: 35,3620           00002                           RETURN                                         
029098,001005: 
029099,001006:                                                                                                  #  ..... VNPOOH .....
029100,001007: 
029101,001008:                                                                                                  #  SUBROUTINES USED
029102,001009:                                                                                                  #        BANKCALL
029103,001010:                                                                                                  #        GOFLASH
029104,001011:                                                                                                  #        GOTOPOOH
029105,001012: 
029106,001013: 35,3621           00006        VNPOOH             EXTEND                                         
029107,001014: 35,3622           23465                           QXCH     RTRN                                  
029108,001015: 35,3623           55615                           TS       VERBNOUN                              
029109,001016: 35,3624           31615                           CA       VERBNOUN                              
029110,001017: 35,3625           04616                           TCR      BANKCALL                              
029111,001018: 35,3626           20477                           CADR     GOFLASH                               
029112,001019: 35,3627           16001                           TCF      GOTOPOOH                              
029113,001020: 35,3630           01465                           TC       RTRN                                  
029114,001021: 35,3631           13624                           TCF      -5                                    
029115,001022: 

Page 684

029117,001024:                                                                                                  #  ..... CONSTANTS .....
029118,001025: 
029119,001026: 35,3632           01445        V06N37             VN       0637                                  
029120,001027: 35,3633           01467        V06N55             VN       0655                                  
029121,001028: 35,3634           01472        V06N58             VN       0658                                  
029122,001029: 35,3635           01473        V06N59             VN       0659                                  
029123,001030: 35,3636           01521        V06N81             VN       0681                                  
029124,001031: 35,3637           04055        V16N45             VN       1645                                  
029125,001032: 35,3640           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
029126,001033: 
029127,001034: 35,3642           00001 20650  MAX250             2DEC     25         E3                         
029128,001035: 
029129,001036: 35,3644           12525 12525  THIRD              2DEC     .333333333                            
029130,001037: 
029131,001038: 35,3646           00004 21505  ELEPS              2DEC     .27777777  E-3                        
029132,001039: 
029133,001040: 35,3650           77777        DP-.01             OCT      77777                                 #  CONSTANTS
029134,001041: 35,3651           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
029135,001042: 35,3652           01252 25253  EPSFOUR            2DEC     .0416666666                            
029136,001043: 
029137,001044: 35,3654           13434 16162  130DEG             2DEC     .3611111111                            
029138,001045: 

Page 685

029140,001047:                                                                                                  #  ..... INITVEL .....
029141,001048: 
029142,001049:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
029143,001050:                                                                                                  #  MOD BY WHITE.P                DATE  21NOV67
029144,001051: 
029145,001052:                                                                                                  #  FUNCTIONAL DESCRIPTION
029146,001053: 
029147,001054:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
029148,001055:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
029149,001056:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
029150,001057:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
029151,001058:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
029152,001059:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
029153,001060:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
029154,001061:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
029155,001062:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
029156,001063:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
029157,001064: 
029158,001065:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
029159,001066:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
029160,001067:                                                                                                  #        SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
029161,001068:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
029162,001069:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
029163,001070:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
029164,001071:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
029165,001072:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
029166,001073: 
029167,001074:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
029168,001075:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
029169,001076:                                                                                                  #        TRAJECTORY COMPUTATIONS.
029170,001077: 
029171,001078:                                                                                                  #  CALLING SEQUENCE
029172,001079: 
029173,001080:                                                                                                  #        L       CALL
029174,001081:                                                                                                  #        L+1             INITVEL
029175,001082:                                                                                                  #        L+2     (RETURN - ALWAYS)
029176,001083: 
029177,001084:                                                                                                  #  INPUT
029178,001085: 
029179,001086:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
029180,001087:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
029181,001088:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
029182,001089:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
029183,001090:                                                                                                  #        (5)     INTIME          TIME OF RINIT
029184,001091:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
029185,001092:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
029186,001093:                                                                                                  #        (8)     RTX1            -2 FOR EARTH, -10D FOR LUNAR
029187,001094:                                                                                                  #        (9)     RTX2            COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
029188,001095:                                                                                                  #        PUSHLOC SET AT 4D
029189,001096: 

Page 686

029191,001098:                                                                                                  #  OUTPUT
029192,001099: 
029193,001100:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
029194,001101:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
029195,001102:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
029196,001103:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
029197,001104: 
029198,001105:                                                                                                  #  SUBROUTINES USED
029199,001106: 
029200,001107:                                                                                                  #        LAMBERT
029201,001108:                                                                                                  #        INTSTALL
029202,001109:                                                                                                  #        INTEGRVS
029203,001110: 
029204,001111: 11,2000                                           SETLOC   INTVEL                                
029205,001112: 11,2000                                           BANK                                           
029206,001113: 
029207,001114: 11,2000                                           COUNT*   $$/INITV                              
029208,001115: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
029209,001116: 11,2001           00475                                    GUESSW                                
029210,001117: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
029211,001118: 11,2003           03444                                    RTARG                                 
029212,001119: 11,2004           03463                                    NORMEX                                
029213,001120: 11,2005           03472                           STORE    RTARG1                                
029214,001121: 11,2006           77646                           ABVAL                                          
029215,001122: 11,2007           03723                           STORE    RTMAG                                 
029216,001123: 11,2010           46135                           SLOAD    BHIZ                                  
029217,001124: 11,2011           03000                                    RTX2                                  
029218,001125: 11,2012           22026                                    INITVEL1                              
029219,001126: 11,2013           72575                           VLOAD    VSL2                                  
029220,001127: 11,2014           02323                                    RINIT                                 #  B29
029221,001128: 11,2015           26323                           STOVL    RINIT                                 #  B27
029222,001129: 11,2016           02331                                    VINIT                                 #  B7
029223,001130: 11,2017           77752                           VSL2                                           
029224,001131: 11,2020           26331                           STOVL    VINIT                                 #  B5
029225,001132: 11,2021           03472                                    RTARG1                                
029226,001133: 11,2022           77752                           VSL2                                           
029227,001134: 11,2023           03472                           STORE    RTARG1                                
029228,001135: 11,2024           77646                           ABVAL                                          
029229,001136: 11,2025           03723                           STORE    RTMAG                                 
029230,001137: 
029231,001138:                                                                                                  #  INITIALIZATION
029232,001139: 
029233,001140: 11,2026           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
029234,001141: 11,2027           03617                                    ITCTR                                 
029235,001142: 11,2030           77776                                    0          -1                         
029236,001143: 11,2031           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
029237,001144: 11,2032           17667                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4)          (PL 0D)
029238,001145: 11,2033           67154                           LXA,2    SXA,2                                 
029239,001146: 11,2034           00154                                    MPAC                                  
029240,001147: 11,2035           02701                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
029241,001148: 11,2036           77775                           VLOAD                                          

Page 687

029243,001150: 11,2037           02323                                    RINIT                                 
029244,001151: 11,2040           26655                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
029245,001152: 11,2041           03472                                    RTARG1                                
029246,001153: 11,2042           16663                           STODL    R2VEC                                 #  R2VEC EQ RTARG
029247,001154: 11,2043           03452                                    DELLT4                                
029248,001155: 11,2044           02671                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
029249,001156: 11,2045           77201                           SETPD    VLOAD                                 
029250,001157: 11,2046           00001                                    0D                                    #  INITIALIZE PL TO 0D
029251,001158: 11,2047           02323                                    RINIT                                 #  MPAC EQ RINIT (+29)
029252,001159: 11,2050           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)                     (PL 6D)
029253,001160: 11,2051           53435                           VXV      UNIT                                  
029254,001161: 11,2052           02331                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI (+8)
029255,001162: 11,2053           26674                           STOVL    UN                                    
029256,001163: 11,2054           03472                                    RTARG1                                
029257,001164: 11,2055           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)                 (PL 0D)
029258,001165: 11,2056           43015                           DAD      CLEAR                                 
029259,001166: 11,2057           03667                                    COZY4                                 
029260,001167: 11,2060           03665                                    NORMSW                                
029261,001168: 11,2061           03667                           STORE    COZY4                                 
029262,001169: 11,2062           43044        INITVEL2           BPL      SET                                   
029263,001170: 11,2063           22105                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
029264,001171: 11,2064           03465                                    NORMSW                                
029265,001172: 
029266,001173:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
029267,001174: 
029268,001175: 11,2065           41575                           VLOAD    PUSH                                  #                                    (PL 6D)
029269,001176: 11,2066           02663                                    R2VEC                                 #  RC TO 6D (+29)
029270,001177: 11,2067           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D)
029271,001178: 11,2070           46206                           PUSH     VPROJ                                 #                                    (PL 8D)
029272,001179: 11,2071           02674                                    UN                                    
029273,001180: 11,2072           51352                           VSL2     BVSU                                  
029274,001181: 11,2073           74256                           UNIT     VXSC                                  #                                    (PL 0D)
029275,001182: 11,2074           77772                           VSL1                                           
029276,001183: 11,2075           02663                           STORE    R2VEC                                 
029277,001184: 11,2076           67351                           TLOAD    SLOAD                                 
029278,001185: 11,2077           24007                                    ZEROVEC                               
029279,001186: 11,2100           03617                                    ITCTR                                 
029280,001187: 11,2101           77244                           BPL      VLOAD                                 
029281,001188: 11,2102           22105                                    INITVEL3                              
029282,001189: 11,2103           02663                                    R2VEC                                 
029283,001190: 11,2104           03472                           STORE    RTARG1                                
029284,001191: 11,2105           63345        INITVEL3           DLOAD    PDVL                                  #                                    (PL 2D)
029285,001192: 11,2106           26007                                    MUEARTH                               #  POSITIVE VALUE
029286,001193: 11,2107           02663                                    R2VEC                                 
029287,001194: 11,2110           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)                  (PL 8D)
029288,001195: 11,2111           02655                                    R1VEC                                 
029289,001196: 11,2112           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)                 (PL 14D)
029290,001197: 11,2113           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
029291,001198: 11,2114           00003                                    2D                                    
029292,001199: 11,2115           77606                           PUSH                                           #                                   (PL 20D)
029293,001200: 11,2116           71350                           LXA,1    DLOAD                                 

Page 688

029295,001202: 11,2117           02776                                    RTX1                                  
029296,001203: 11,2120           00023                                    18D                                   
029297,001204: 11,2121           62040                           BMN      INCR,1                                
029298,001205: 11,2122           22124                                    +2                                    
029299,001206: 11,2123           77767                           DEC      -8         B-14                       
029300,001207: 11,2124           67310                           INCR,1   SLOAD                                 
029301,001208: 11,2125           00012                                    10D                                   
029302,001209: 11,2126           00047                                    X1                                    
029303,001210: 11,2127           77230                           BHIZ     VLOAD                                 #                                   (PL 14D)
029304,001211: 11,2130           22132                                    +2                                    
029305,001212: 11,2131           41476                           VCOMP    PUSH                                  #                                   (PL 20D)
029306,001213: 11,2132           77775                           VLOAD                                          #                                   (PL 14D)
029307,001214: 11,2133           50235                           VXV      DOT                                   #                                    (PL 2D)
029308,001215: 11,2134           71244                           BPL      DLOAD                                 #                                    (PL 0D)
029309,001216: 11,2135           22137                                    INITVEL4                              
029310,001217: 11,2136           41476                           DCOMP    PUSH                                  #                                    (PL 2D)
029311,001218: 11,2137           67154        INITVEL4           LXA,2    SXA,2                                 
029312,001219: 11,2140           00000                                    0D                                    
029313,001220: 11,2141           02672                                    GEOMSGN                               
029314,001221: 
029315,001222:                                                                                                  #  SET INPUTS UP FOR LAMBERT
029316,001223: 
029317,001224: 11,2142           66350                           LXA,1    SSP                                   
029318,001225: 11,2143           02776                                    RTX1                                  
029319,001226: 11,2144           00027                                    ITERCTR                               
029320,001227: 11,2145           00024                                    20D                                   
029321,001228: 
029322,001229:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
029323,001230: 
029324,001231: 11,2146           77624                           CALL                                           
029325,001232: 11,2147           25212                                    LAMBERT                               
029326,001233: 
029327,001234:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
029328,001235: 
029329,001236: 11,2150           77214                           CLEAR    VLOAD                                 
029330,001237: 11,2151           00675                                    GUESSW                                
029331,001238: 11,2152           02744                                    VVEC                                  
029332,001239: 
029333,001240:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
029334,001241: 
029335,001242: 11,2153           16337                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
029336,001243: 
029337,001244:                                                                                                  #  IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
029338,001245:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
029339,001246: 
029340,001247: 11,2154           02702                                    VTARGTAG                              
029341,001248: 11,2155           45030                           BHIZ     CALL                                  
029342,001249: 11,2156           22233                                    INITVEL7                              
029343,001250: 11,2157           27412                                    INTSTALL                              
029344,001251: 11,2160           43135                           SLOAD    CLEAR                                 
029345,001252: 11,2161           03000                                    RTX2                                  
029346,001253: 11,2162           00263                                    MOONFLAG                              
029347,001254: 11,2163           43030                           BHIZ     SET                                   

Page 689

029349,001256: 11,2164           22166                                    INITVEL5                              
029350,001257: 11,2165           00063                                    MOONFLAG                              
029351,001258: 11,2166           77775        INITVEL5           VLOAD                                          
029352,001259: 11,2167           02323                                    RINIT                                 
029353,001260: 11,2170           02655                           STORE    R1VEC                                 
029354,001261: 11,2171           25535                           STOVL    RCV                                   
029355,001262: 11,2172           02337                                    VIPRIME                               
029356,001263: 11,2173           15543                           STODL    VCV                                   
029357,001264: 11,2174           03610                                    INTIME                                
029358,001265: 11,2175           01517                           STORE    TET                                   
029359,001266: 11,2176           43015                           DAD      CLEAR                                 
029360,001267: 11,2177           03452                                    DELLT4                                
029361,001268: 11,2200           01673                                    INTYPFLG                              
029362,001269: 11,2201           34041                           STCALL   TDEC1                                 
029363,001270: 11,2202           27110                                    INTEGRVS                              
029364,001271: 11,2203           77775                           VLOAD                                          
029365,001272: 11,2204           00025                                    VATT1                                 
029366,001273: 11,2205           02703                           STORE    VTARGET                               
029367,001274: 
029368,001275:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
029369,001276:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
029370,001277: 
029371,001278: 11,2206           63154                           LXA,2    INCR,2                                
029372,001279: 11,2207           03616                                    ITCTR                                 
029373,001280: 11,2210           00001                                    1D                                    #  INCREMENT ITCTR
029374,001281: 11,2211           55134                           SXA,2    XSU,2                                 
029375,001282: 11,2212           03616                                    ITCTR                                 
029376,001283: 11,2213           02701                                    VTARGTAG                              
029377,001284: 11,2214           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
029378,001285: 11,2215           00050                                    X2                                    
029379,001286: 11,2216           22230                                    INITVEL6                              
029380,001287: 
029381,001288:                                                                                                  #  OFFSET CONIC TARGET VECTOR
029382,001289: 
029383,001290: 11,2217           52375                           VLOAD    VSU                                   
029384,001291: 11,2220           03472                                    RTARG1                                
029385,001292: 11,2221           00017                                    RATT1                                 
029386,001293: 11,2222           77655                           VAD                                            
029387,001294: 11,2223           02663                                    R2VEC                                 
029388,001295: 11,2224           16663                           STODL    R2VEC                                 
029389,001296: 11,2225           03667                                    COZY4                                 
029390,001297: 11,2226           77650                           GOTO                                           
029391,001298: 11,2227           22062                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
029392,001299: 
029393,001300:                                                                                                  #  COMPUTE THE DELTA VELOCITY
029394,001301: 
029395,001302: 11,2230           77775        INITVEL6           VLOAD                                          
029396,001303: 11,2231           02663                                    R2VEC                                 
029397,001304: 11,2232           03472                           STORE    RTARG1                                
029398,001305: 11,2233           52375        INITVEL7           VLOAD    VSU                                   
029399,001306: 11,2234           02337                                    VIPRIME                               
029400,001307: 11,2235           02331                                    VINIT                                 

Page 690

029402,001309: 11,2236           26366                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)
029403,001310: 11,2237           02703                                    VTARGET                               
029404,001311: 11,2240           03566                           STORE    VTPRIME                               
029405,001312: 11,2241           46135                           SLOAD    BHIZ                                  
029406,001313: 11,2242           03000                                    RTX2                                  
029407,001314: 11,2243           22260                                    INITVELX                              
029408,001315: 11,2244           70575                           VLOAD    VSR2                                  
029409,001316: 11,2245           03566                                    VTPRIME                               
029410,001317: 11,2246           27566                           STOVL    VTPRIME                               
029411,001318: 11,2247           02337                                    VIPRIME                               
029412,001319: 11,2250           77742                           VSR2                                           
029413,001320: 11,2251           26337                           STOVL    VIPRIME                               
029414,001321: 11,2252           03472                                    RTARG1                                
029415,001322: 11,2253           77742                           VSR2                                           
029416,001323: 11,2254           27472                           STOVL    RTARG1                                
029417,001324: 11,2255           02366                                    DELVEET3                              
029418,001325: 11,2256           77742                           VSR2                                           
029419,001326: 11,2257           02366                           STORE    DELVEET3                              
029420,001327: 11,2260           70750        INITVELX           LXA,1    DLOAD*                                
029421,001328: 11,2261           02776                                    RTX1                                  
029422,001329: 11,2262           10003                                    MUTABLE    -2,1                       
029423,001330: 11,2263           41206                           PUSH     DMP                                   
029424,001331: 11,2264           02742                                    R1A                                   
029425,001332: 11,2265           56342                           SR1      DDV                                   
029426,001333: 11,2266           00041                                    R1                                    
029427,001334: 11,2267           17721                           STODL    MU/A                                  
029428,001335: 11,2270           77661                           SR                                             
029429,001336: 11,2271           20607                                    6                                     
029430,001337: 11,2272           03717                           STORE    MUASTEER                              
029431,001338: 11,2273           77201                           SETPD    VLOAD                                 
029432,001339: 11,2274           00001                                    0D                                    
029433,001340: 11,2275           03472                                    RTARG1                                
029434,001341: 11,2276           03444                           STORE    RTARG                                 
029435,001342: 11,2277           52014                           CLEAR    GOTO                                  
029436,001343: 11,2300           01267                                    XDELVFLG                              
029437,001344: 11,2301           03463                                    NORMEX                                
029438,001345: 
029439,001346:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
029440,001347: 

Page 691

029442,001349:                                                                                                  #  ..... MIDGIM .....
029443,001350: 
029444,001351:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
029445,001352:                                                                                                  #  REVISION 03, 17 FEB 67
029446,001353: 
029447,001354:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
029448,001355:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
029449,001356:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
029450,001357:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
029451,001358:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
029452,001359: 
029453,001360:                                                                                                  #  .. INPUTS ..
029454,001361: 
029455,001362:                                                                                                  #        NAME    MEANING                                         UNITS/SCALING/MODE
029456,001363: 
029457,001364:                                                                                                  #        AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE                     BIT
029458,001365:                                                                                                  #        RINIT   ACTIVE VEHICLE RADIUS VECTOR                    METERS/CSEC (+7) VT
029459,001366:                                                                                                  #        VINIT   ACTIVE VEHICLE VELOCITY VECTOR                  METERS/CSEC (+7) VT
029460,001367:                                                                                                  #        0D(PL)  ACTIVE VEHICLE DELTA VELOCITY VECTOR            METERS/CSEC (+7) VT
029461,001368: 
029462,001369:                                                                                                  #  .. OUTPUTS ..
029463,001370: 
029464,001371:                                                                                                  #     NAME       MEANING                                         UNITS/SCALING/MODE
029465,001372: 
029466,001373:                                                                                                  #     +MGA       + MIDDLE GIMBAL ANGLE                           REVOLUTIONS (+0) DP
029467,001374:                                                                                                  #     DELVLVC    DELTA VELOCITY VECTOR IN LV COORD.              METERS/CSEC (+7) VT
029468,001375:                                                                                                  #     MGLVFLAG   INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.       -       BIT
029469,001376: 
029470,001377:                                                                                                  #  .. CALLING SEQUENCE ..
029471,001378: 
029472,001379:                                                                                                  #        L       CALL
029473,001380:                                                                                                  #        L+1             MIDGIM
029474,001381:                                                                                                  #        L+2     (RETURN - ALWAYS)
029475,001382: 
029476,001383:                                                                                                  #  .. NO SUBROUTINES CALLED ..
029477,001384: 
029478,001385:                                                                                                  #  .. DEBRIS - ERASEABLE TEMPORARY USAGE
029479,001386: 
029480,001387:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
029481,001388: 
029482,001389:                                                                                                  #  .. ALARMS - NONE ..
029483,001390: 

Page 692

029485,001392:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
029486,001393: 
029487,001394: 06,2000                                           SETLOC   MIDDGIM                               
029488,001395: 06,2000                                           BANK                                           
029489,001396: 
029490,001397: 06,3723                                           COUNT*   $$/MIDG                               
029491,001398: 
029492,001399: 06,3723           20000 00000  HALFREV            2DEC     1          B-1                        
029493,001400: 
029494,001401: 06,3725           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
029495,001402: 06,3726           77656                           UNIT                                           
029496,001403: 06,3727           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
029497,001404: 06,3730           01742                                    REFSMMAT   +6                         #  FROM +2 TO +1 FOR ASIN ROUTINE
029498,001405: 06,3731           51136                           ARCSIN   BPL                                   
029499,001406: 06,3732           15736                                    SETMGA                                
029500,001407: 06,3733           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
029501,001408: 06,3734           15724                                    HALFREV                               #  ADDING ONE REVOLUTION
029502,001409: 06,3735           15724                                    HALFREV                               
029503,001410: 06,3736           02253        SETMGA             STORE    +MGA                                  
029504,001411: 06,3737           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
029505,001412: 06,3740           02675                                    MGLVFLAG                              #  AND EXIT
029506,001413: 06,3741           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC, UNITIZE UR
029507,001414: 06,3742           02323                                    RINIT                                 
029508,001415: 06,3743           77676                           VCOMP                                          #  U(-R)
029509,001416: 06,3744           00023                           STORE    18D                                   #  U(-R) TO 18D
029510,001417: 06,3745           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
029511,001418: 06,3746           02331                                    VINIT                                 
029512,001419: 06,3747           00015                           STORE    12D                                   #  U(V*R) TO 12D
029513,001420: 06,3750           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
029514,001421: 06,3751           00023                                    18D                                   
029515,001422: 06,3752           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
029516,001423: 06,3753           00001                                    0D                                    #  DELTA V (+7) IN 0D
029517,001424: 06,3754           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
029518,001425: 06,3755           00007                                    6D                                    #  AND SCALE +7 IN MPAC
029519,001426: 06,3756           03434                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
029520,001427: 06,3757           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
029521,001428: 06,3760           02475                                    MGLVFLAG                              #  AND EXIT
029522,001429: 
029523,001430:                                                                                                  #  ..... END OF MIDGIM ROUTINE .....
029524,001431: 

Page 693

029526,001433: 10,2000                                           BANK     10                                    
029527,001434: 10,2000                                           SETLOC   SLCTMU                                
029528,001435: 10,2000                                           BANK                                           
029529,001436: 10,2000                                           COUNT*   $$/MIDG                               
029530,001437: 
029531,001438: 10,2000           77160        SELECTMU           AXC,1    AXT,2                                 
029532,001439: 10,2001           00002                                    2D                                    
029533,001440: 10,2002           00000                                    0D                                    
029534,001441: 10,2003           77614                           BOFF                                           
029535,001442: 10,2004           04343                                    CMOONFLG                              
029536,001443: 10,2005           20011                                    SETMUER                               
029537,001444: 10,2006           77160                           AXC,1    AXT,2                                 
029538,001445: 10,2007           00012                                    10D                                   
029539,001446: 10,2010           00002                                    2D                                    
029540,001447: 10,2011           66143        SETMUER            DLOAD*   SXA,1                                 
029541,001448: 10,2012           10011                                    MUTABLE    +4,1                       
029542,001449: 10,2013           02776                                    RTX1                                  
029543,001450: 10,2014           22317                           STODL*   RTSR1/MU                              
029544,001451: 10,2015           10003                                    MUTABLE    -2,1                       
029545,001452: 10,2016           54214                           BOFF     SR                                    
029546,001453: 10,2017           04343                                    CMOONFLG                              
029547,001454: 10,2020           20022                                    RTRNMU                                
029548,001455: 10,2021           20607                                    6D                                    
029549,001456: 10,2022           02321        RTRNMU             STORE    RTMU                                  
029550,001457: 10,2023           43134                           SXA,2    CLEAR                                 
029551,001458: 10,2024           02777                                    RTX2                                  
029552,001459: 10,2025           01271                                    FINALFLG                              
029553,001460: 10,2026           77650                           GOTO                                           
029554,001461: 10,2027           73515                                    VN1645                                
029555,001462: 

Page 694

029557,001464:                                                                                                  #  ..... PERIAPO .....
029558,001465: 
029559,001466:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
029560,001467:                                                                                                  #  MOD BY WHITE.P                DATE 18JAN68
029561,001468: 
029562,001469:                                                                                                  #  FUNCTIONAL DESCRIPTION
029563,001470: 
029564,001471:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
029565,001472:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
029566,001473:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
029567,001474: 
029568,001475:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
029569,001476: 
029570,001477:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
029571,001478:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
029572,001479: 
029573,001480:                                                                                                  #  CALLING SEQUENCE
029574,001481: 
029575,001482:                                                                                                  #        L       CALL
029576,001483:                                                                                                  #        L+1             PERIAPO
029577,001484:                                                                                                  #        L+2     (RETURN - ALWAYS)
029578,001485: 
029579,001486:                                                                                                  #  INPUT
029580,001487: 
029581,001488:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
029582,001489:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029583,001490:                                                                                                  #        (2)     VVEC    VELOCITY VECTOR IN METERS/CENTISECOND
029584,001491:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
029585,001492:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
029586,001493:                                                                                                  #                        EARTH -2, MOON -10
029587,001494: 
029588,001495:                                                                                                  #  OUTPUT
029589,001496: 
029590,001497:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
029591,001498:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029592,001499:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
029593,001500:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
029594,001501:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
029595,001502:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029596,001503:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
029597,001504:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029598,001505:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
029599,001506:                                                                                                  #                        SCALE FACTOR - +3
029600,001507:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
029601,001508:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029602,001509:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
029603,001510: 
029604,001511:                                                                                                  #  SUBROUTINES USED
029605,001512: 
029606,001513:                                                                                                  #        SETRAD

Page 695

029608,001515:                                                                                                  #        APSIDES
029609,001516: 
029610,001517: 23,2000                                           SETLOC   APOPERI                               
029611,001518: 23,2000                                           BANK                                           
029612,001519: 
029613,001520: 23,2337                                           COUNT*   $$/PERAP                              
029614,001521: 
029615,001522: 23,2337           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
029616,001523:                                                                                                  #  = 20 909 901.57 FT
029617,001524: 
029618,001525: 23,2341           53754        PERIAPO1           LXA,2    VSR*                                  
029619,001526: 23,2342           02777                                    RTX2                                  
029620,001527: 23,2343           57176                                    0,2                                   
029621,001528: 23,2344           26744                           STOVL    VVEC                                  
029622,001529: 23,2345           53750                           LXA,1    VSR*                                  
029623,001530: 23,2346           02776                                    RTX1                                  
029624,001531: 23,2347           57176                                    0,2                                   
029625,001532: 23,2350           02655                           STORE    RVEC                                  
029626,001533: 23,2351           45020        PERIAPO            STQ      CALL                                  
029627,001534: 23,2352           03463                                    NORMEX                                
029628,001535: 23,2353           46367                                    SETRAD                                
029629,001536: 23,2354           37671                           STCALL   XXXALT                                
029630,001537: 23,2355           25704                                    APSIDES                               
029631,001538: 23,2356           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
029632,001539: 23,2357           00003                                    2D                                    
029633,001540: 23,2360           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
029634,001541: 23,2361           03671                                    XXXALT                                
029635,001542: 23,2362           00001                                    0D                                    
029636,001543: 23,2363           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
029637,001544: 23,2364           03671                                    XXXALT                                
029638,001545: 23,2365           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
029639,001546: 23,2366           03463                                    NORMEX                                
029640,001547: 

Page 696

029642,001549:                                                                                                  #  SETRAD
029643,001550: 
029644,001551: 23,2367           41545        SETRAD             DLOAD    PUSH                                  
029645,001552: 23,2370           06340                                    RPAD                                  
029646,001553: 23,2371           63130                           SXA,1    INCR,2                                
029647,001554: 23,2372           00047                                    X2                                    
029648,001555: 23,2373           00002                                    2D                                    
029649,001556: 23,2374           46135                           SLOAD    BHIZ                                  
029650,001557: 23,2375           00050                                    X2                                    
029651,001558: 23,2376           46402                                    SETRADX                               
029652,001559: 23,2377           51575                           VLOAD    ABVAL                                 
029653,001560: 23,2400           02023                                    RLS                                   
029654,001561: 23,2401           77725                           PDDL                                           
029655,001562: 23,2402           43545        SETRADX            DLOAD    RVQ                                   
029656,001563: 

Page 697

029658,001565:                                                                                                  #  PRECSET
029659,001566: 
029660,001567: 23,2403           77620        PRECSET            STQ                                            
029661,001568: 23,2404           03463                                    NORMEX                                
029662,001569: 23,2405           37574                           STCALL   TDEC2                                 
029663,001570: 23,2406           27060                                    LEMPREC                               
029664,001571: 23,2407           77624                           CALL                                           
029665,001572: 23,2410           46421                                    LEMSTORE                              
029666,001573: 23,2411           77745                           DLOAD                                          
029667,001574: 23,2412           03574                                    TDEC2                                 
029668,001575: 23,2413           34041                           STCALL   TDEC1                                 
029669,001576: 23,2414           27044                                    CSMPREC                               
029670,001577: 23,2415           77624                           CALL                                           
029671,001578: 23,2416           46431                                    CSMSTORE                              
029672,001579: 23,2417           77650                           GOTO                                           
029673,001580: 23,2420           03463                                    NORMEX                                
029674,001581: 23,2421           43175        LEMSTORE           VLOAD    BOFF                                  
029675,001582: 23,2422           00001                                    RATT                                  
029676,001583: 23,2423           01352                                    AVFLAG                                
029677,001584: 23,2424           46435                                    PASSIVE                               
029678,001585: 23,2425           27536        ACTIVE             STOVL    RACT3                                 
029679,001586: 23,2426           00007                                    VATT                                  
029680,001587: 23,2427           03544                           STORE    VACT3                                 
029681,001588: 23,2430           77616                           RVQ                                            
029682,001589: 23,2431           43175        CSMSTORE           VLOAD    BOFF                                  
029683,001590: 23,2432           00001                                    RATT                                  
029684,001591: 23,2433           01352                                    AVFLAG                                
029685,001592: 23,2434           46425                                    ACTIVE                                
029686,001593: 23,2435           27552        PASSIVE            STOVL    RPASS3                                
029687,001594: 23,2436           00007                                    VATT                                  
029688,001595: 23,2437           03560                           STORE    VPASS3                                
029689,001596: 23,2440           77616                           RVQ                                            
029690,001597: 

Page 698

029692,001599:                                                                                                  #  VECSHIFT
029693,001600: 
029694,001601: 23,2441           53754        VECSHIFT           LXA,2    VSR*                                  
029695,001602: 23,2442           02777                                    RTX2                                  
029696,001603: 23,2443           57176                                    0,2                                   
029697,001604: 23,2444           63350                           LXA,1    PDVL                                  
029698,001605: 23,2445           02776                                    RTX1                                  
029699,001606: 23,2446           63257                           VSR*     PDVL                                  
029700,001607: 23,2447           57176                                    0,2                                   
029701,001608: 23,2450           77616                           RVQ                                            
029702,001609: 

Page 699

029704,001611:                                                                                                  #  SHIFTR1
029705,001612: 
029706,001613: 23,2451           53754        SHIFTR1            LXA,2    SL*                                   
029707,001614: 23,2452           02777                                    RTX2                                  
029708,001615: 23,2453           57576                                    0,2                                   
029709,001616: 23,2454           77616                           RVQ                                            
029710,001617: 

Page 700

029712,001619:                                                                                                  #  PROGRAM DESCRIPTION
029713,001620:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
029714,001621:                                                                                                  #  MOD NO. 0             DATE    22 DECEMBER 67
029715,001622:                                                                                                  #  MOD BY N.M.NEVILLE    LOG SECTION EXTENDED VERBS
029716,001623:                                                                                                  #  FUNCTIONAL DESCRIPTION
029717,001624: 
029718,001625:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
029719,001626:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI).  (REQUESTED BY DSKY).
029720,001627: 
029721,001628:                                                                                                  #  CALLING SEQUENCE
029722,001629: 
029723,001630:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V 90 E
029724,001631: 
029725,001632:                                                                                                  #  SUBROUTINES CALLED
029726,001633: 
029727,001634:                                                                                                  #        EXDSPRET
029728,001635:                                                                                                  #        GOMARKF
029729,001636:                                                                                                  #        CSMPREC
029730,001637:                                                                                                  #        LEMPREC
029731,001638:                                                                                                  #        SGNAGREE
029732,001639:                                                                                                  #        LOADTIME
029733,001640: 
029734,001641:                                                                                                  #  NORMAL EXIT MODES
029735,001642: 
029736,001643:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
029737,001644: 
029738,001645:                                                                                                  #  ALARM OR ABORT EXIT MODES
029739,001646: 
029740,001647:                                                                                                  #        NONE
029741,001648: 
029742,001649:                                                                                                  #  OUTPUT
029743,001650: 
029744,001651:                                                                                                  #        DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
029745,001652: 
029746,001653:                                                                                                  #        DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
029747,001654:                                                                                                  #        REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
029748,001655: 
029749,001656:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029750,001657: 
029751,001658:                                                                                                  #        CSM AND LEM STATE VECTORS
029752,001659: 
029753,001660:                                                                                                  #  DEBRIS
029754,001661: 
029755,001662:                                                                                                  #        CENTRALS A,Q,L
029756,001663:                                                                                                  #        OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
029757,001664: 
029758,001665: 20,2115                                           BANK     20                                    
029759,001666: 04,2000                                           SETLOC   R36LM                                 
029760,001667: 04,2000                                           BANK                                           

Page 701

029762,001669: 04,2640  E4,1606                                  EBANK=   RPASS36                               
029763,001670: 
029764,001671: 04,2640                                           COUNT*   $$/R36                                
029765,001672: 
029766,001673: 04,2640           22007        R36                ZL                                             
029767,001674: 04,2641           34755                           CAF      ZERO                                  #  SET TIME OF EVENT TO ZERO FOR FIRST
029768,001675: 04,2642           53051                           DXCH     DSPTEMX                               #  DISPLAY
029769,001676: 04,2643           32773                           CAF      V06N16N                               
029770,001677: 04,2644           04616                           TC       BANKCALL                              
029771,001678: 04,2645           20334                           CADR     GOMARKF                               
029772,001679: 04,2646           15472                           TCF      ENDEXT                                #  TERMINATE
029773,001680: 04,2647           12651                           TCF      +2                                    #  PROCEED
029774,001681: 04,2650           12643                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
029775,001682: 04,2651           53051                           DXCH     DSPTEMX                               
029776,001683: 04,2652           00006                           EXTEND                                         
029777,001684: 04,2653           12762                           BZF      LREGCHK                               #  A-REG ZERO GOTO CHECK L-REG FOR ZERO
029778,001685: 04,2654           52155        ASTROTIM           DXCH     MPAC                                  #  A-REG NON-ZERO, TIME = ASTRO INPUT TIME
029779,001686: 04,2655           06042                           TC       INTPRET                               
029780,001687: 04,2656           77634                           RTB                                            
029781,001688: 04,2657           21717                                    DPMODE                                
029782,001689: 04,2660           34041        R36INT             STCALL   TDEC1                                 
029783,001690: 04,2661           27044                                    OTHPREC                               
029784,001691: 04,2662           63375                           VLOAD    PDVL                                  
029785,001692: 04,2663           00007                                    VATT                                  
029786,001693: 04,2664           00001                                    RATT                                  #  -
029787,001694: 04,2665           02207                           STORE    RPASS36                               #  R
029788,001695: 04,2666           63256                           UNIT     PDVL                                  #   P
029789,001696: 04,2667           53435                           VXV      UNIT                                  
029790,001697: 04,2670           77626                           STADR                                          #  -
029791,001698: 04,2671           61562                           STODL    UNP36                                 #  U
029792,001699: 04,2672           00015                                    TAT                                   
029793,001700: 04,2673           34041                           STCALL   TDEC1                                 
029794,001701: 04,2674           27060                                    THISPREC                              
029795,001702: 04,2675           63375                           VLOAD    PDVL                                  #                  -
029796,001703: 04,2676           00007                                    VATT                                  #  VELOCITY VECTOR V             00D
029797,001704: 04,2677           00001                                    RATT                                  #                   A
029798,001705: 04,2700           77725                           PDDL                                           
029799,001706: 04,2701           00015                                    TAT                                   #  SAVE TIME IN LOCATION 30D FOR REDISPLAY
029800,001707: 04,2702           24037                           STOVL    30D                                   #                  -
029801,001708: 04,2703           41406                           PUSH     PUSH                                  #  POSITION VECTOR R  IN 06D AND 12D
029802,001709: 04,2704           63245                           BVSU     PDVL                                  #                   A   -   -
029803,001710: 04,2705           02207                                    RPASS36                               #  LINE OF SIGHT VECTOR R - R    12D
029804,001711: 04,2706           72441                           DOT      SL1                                   #                        P   A
029805,001712: 04,2707           02215                                    UNP36                                 #      -   -
029806,001713: 04,2710           26201                           STOVL    RANGE                                 #  Y = U . R
029807,001714: 04,2711           00001                                    00D                                   #           A
029808,001715: 04,2712           72441                           DOT      SL1                                   
029809,001716: 04,2713           02215                                    UNP36                                 #  .   -   -
029810,001717: 04,2714           26203                           STOVL    RRATE                                 #  Y = U . V
029811,001718: 04,2715           00007                                    06D                                   #  -        A  -

Page 702

029813,001720: 04,2716           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
029814,001721: 04,2717           47235                           VXV      VXV                                   #   RA          A
029815,001722: 04,2720           00001                                    00D                                   #   -    -     -     -
029816,001723: 04,2721           00023                                    18D                                   #  (U  X V ) X U   = U
029817,001724: 04,2722           53552                           VSL2     UNIT                                  #    RA   A     RA    A
029818,001725: 04,2723           77656                           UNIT                                           
029819,001726: 04,2724           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D
029820,001727: 04,2725           00023                                    18D                                   
029821,001728: 04,2726           74241                           DOT      VXSC                                  #  -
029822,001729: 04,2727           00015                                    12D                                   #  U
029823,001730: 04,2730           77752                           VSL2                                           #   L
029824,001731: 04,2731           53445                           BVSU     UNIT                                  
029825,001732: 04,2732           77656                           UNIT                                           
029826,001733: 04,2733           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
029827,001734: 04,2734           00001                                    00D                                   #  PLANE
029828,001735: 04,2735           65552                           SL1      ARCCOS                                #               -   -
029829,001736: 04,2736           26205                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
029830,001737: 04,2737           50235                           VXV      DOT                                   #                A   L
029831,001738: 04,2740           00001                                    00D                                   
029832,001739: 04,2741           71244                           BPL      DLOAD                                 
029833,001740: 04,2742           10747                                    R36TAG2                               
029834,001741: 04,2743           24020                                    LODPMAX                               
029835,001742: 04,2744           77625                           DSU                                            
029836,001743: 04,2745           02205                                    RTHETA                                
029837,001744: 04,2746           02205                           STORE    RTHETA                                
029838,001745: 04,2747           47145        R36TAG2            DLOAD    RTB                                   
029839,001746: 04,2750           00037                                    30D                                   
029840,001747: 04,2751           21613                                    SGNAGREE                              
029841,001748: 04,2752           01051                           STORE    DSPTEMX                               
029842,001749: 04,2753           77776                           EXIT                                           
029843,001750: 04,2754           32774                           CAF      V06N90N                               #  DISPLAY Y, YDOT, AND PSI
029844,001751: 04,2755           04616                           TC       BANKCALL                              
029845,001752: 04,2756           20334                           CADR     GOMARKF                               
029846,001753: 04,2757           15472                           TCF      ENDEXT                                #  TERMINATE
029847,001754: 04,2760           15472                           TCF      ENDEXT                                #  PROCEED, END OF PROGRAM
029848,001755: 04,2761           12643                           TCF      R36        +3                         #  REDISPLAY OUTPUT
029849,001756: 04,2762           56001        LREGCHK            XCH      L                                     
029850,001757: 04,2763           00006                           EXTEND                                         
029851,001758: 04,2764           12767                           BZF      ENTTIM2                               #  L-REG ZERO, SET TIME = PRESENT TIME
029852,001759: 04,2765           56001                           XCH      L                                     #  L-REG NON ZERO, TIME = ASTRO INPUT TIME
029853,001760: 04,2766           12654                           TCF      ASTROTIM                              
029854,001761: 04,2767           06042        ENTTIM2            TC       INTPRET                               
029855,001762: 04,2770           52034                           RTB      GOTO                                  
029856,001763: 04,2771           21574                                    LOADTIME                              
029857,001764: 04,2772           10660                                    R36INT                                
029858,001765: 04,2773           01420        V06N16N            VN       00616                                 
029859,001766: 04,2774           01532        V06N90N            VN       00690                                 

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