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.

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

Page 658

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

Page 659

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

Page 660

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

Page 661

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

Page 662

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

Page 663

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

Page 664

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

Page 665

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

Page 666

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

Page 667

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

Page 668

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

Page 669

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

Page 670

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

Page 671

028754,000663: 35,3202           06524                                    ZEROVECS                              
028755,000664: 35,3203           03463                                    NORMEX                                
028756,000665: 

Page 672

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

Page 673

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

Page 674

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

Page 675

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

Page 676

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

Page 677

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

Page 678

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

Page 679

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

Page 680

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

Page 681

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

Page 682

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

Page 683

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

Page 684

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

Page 685

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

Page 686

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

Page 687

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

Page 688

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

Page 689

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

Page 690

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

Page 691

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

Page 692

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

Page 693

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

Page 694

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

Page 695

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

Page 696

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

Page 697

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

Page 698

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

Page 699

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

Page 700

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

Page 701

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

Page 702

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

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