Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

029210,000002:                                                                                                  ## Copyright:   Public domain.
029211,000003:                                                                                                  ## Filename:    P34-P35,_P74-P75.agc
029212,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
029213,000005:                                                                                                  ##              It is part of the source code for the original release
029214,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
029215,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
029216,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
029217,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
029218,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
029219,000011:                                                                                                  ##              that the code format has been changed to conform to the
029220,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
029221,000013:                                                                                                  ##              original YUL assembler.
029222,000014:                                                                                                  ## Reference:   pp. 667-711
029223,000015:                                                                                                  ## Assembler:   yaYUL
029224,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
029225,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029226,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
029227,000019:                                                                                                  ##              2016-12-14 MAS  Updated from comment-proofed Luminary 99 version.
029228,000020:                                                                                                  ##              2016-12-18 RRB  Updated for Luminary 69.
029229,000021:                                                                                                  ##              2016-12-28 HG   Fix operand MXV\ -> MXV
029230,000022:                                                                                                  ##              2017-01-20 HG   Add missing DECTWO
029231,000023:                                                                                                  ##                              Remove ABVAL
029232,000024:                                                                                                  ##                                     STORE RTMAG
029233,000025:                                                                                                  ##              2017-01-22 HG   Remove CAF P30ZERO
029234,000026:                                                                                                  ##              2017-01-23 HG   Add interpretive operation PUSH
029235,000027:                                                                                                  ##                              Fix operand GOFLASH -> GOFLASHR
029236,000028:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
029237,000029:                                                                                                  ##                              and fixed errors found.
029238,000030:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116. 
029239,000031:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
029240,000032:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
029241,000033: 

Page 667

029243,000035:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
029244,000036: 
029245,000037:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
029246,000038:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
029247,000039: 
029248,000040:                                                                                                  #  PURPOSE
029249,000041: 
029250,000042:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
029251,000043:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
029252,000044:                                                                                                  #                PHASE INITIATION (TPI) MANEUVER, GIVEN -
029253,000045: 
029254,000046:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
029255,000047:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
029256,000048: 
029257,000049:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
029258,000050:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
029259,000051: 
029260,000052:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
029261,000053: 
029262,000054:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029263,000055:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029264,000056: 
029265,000057:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
029266,000058:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
029267,000059:                                                                                                  #                ASTRONAUT/GROUND.
029268,000060: 
029269,000061:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
029270,000062:                                                                                                  #                THRUSTING PROGRAM.
029271,000063: 
029272,000064:                                                                                                  #  ASSUMPTIONS
029273,000065: 
029274,000066:                                                                                                  #        (1)     LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
029275,000067:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
029276,000068:                                                                                                  #                THEREFORE -
029277,000069: 
029278,000070:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029279,000071:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029280,000072:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029281,000073:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029282,000074: 
029283,000075:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029284,000076:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
029285,000077: 
029286,000078:                                                                                                  #                (C)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029287,000079:                                                                                                  #                        ORBITS WAS MINIMIZED.
029288,000080: 
029289,000081:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
029290,000082:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 668

029292,000084:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
029293,000085: 
029294,000086:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029295,000087:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
029296,000088:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029297,000089:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
029298,000090: 
029299,000091:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
029300,000092:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
029301,000093: 
029302,000094:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
029303,000095:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
029304,000096:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
029305,000097:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
029306,000098:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
029307,000099:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
029308,000100: 
029309,000101:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029310,000102:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029311,000103:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029312,000104:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029313,000105:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029314,000106:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029315,000107:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029316,000108:                                                                                                  #                THRUSTING MANEUVER.
029317,000109: 
029318,000110:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029319,000111: 
029320,000112:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029321,000113: 
029322,000114:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029323,000115:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029324,000116:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029325,000117:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029326,000118: 
029327,000119:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029328,000120:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029329,000121: 
029330,000122:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029331,000123:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029332,000124:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029333,000125: 
029334,000126:                                                                                                  #        (7)     ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
029335,000127:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029336,000128:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029337,000129:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029338,000130:                                                                                                  #                THROUGH THE USE OF V06N52.
029339,000131: 
029340,000132:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029341,000133:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 669

029343,000135:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
029344,000136:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029345,000137:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
029346,000138: 
029347,000139:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029348,000140: 
029349,000141:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
029350,000142: 
029351,000143:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
029352,000144: 
029353,000145:                                                                                                  #  INPUT
029354,000146: 
029355,000147:                                                                                                  #        (1)     TTPI    TIME OF THE TPI MANEUVER
029356,000148:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
029357,000149:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029358,000150:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
029359,000151: 
029360,000152:                                                                                                  #  OUTPUT
029361,000153: 
029362,000154:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
029363,000155:                                                                                                  #        (2)     TTOGO           TIME TO GO
029364,000156:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
029365,000157:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
029366,000158:                                                                                                  #                 OR
029367,000159:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
029368,000160:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
029369,000161:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
029370,000162:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
029371,000163:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI - LINE OF SIGHT
029372,000164:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
029373,000165: 
029374,000166:                                                                                                  #  DOWNLINK
029375,000167: 
029376,000168:                                                                                                  #        (1)     TTPI            TIME OF THE TPI MANEUVER
029377,000169:                                                                                                  #        (2)     TIG             TIME OF THE TPI MANEUVER
029378,000170:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
029379,000171:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029380,000172:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
029381,000173:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI - REFERENCE COORDINATES
029382,000174:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
029383,000175: 
029384,000176:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029385,000177: 
029386,000178:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
029387,000179:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
029388,000180:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
029389,000181:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029390,000182: 
029391,000183:                                                                                                  #  SUBROUTINES USED
029392,000184: 
029393,000185:                                                                                                  #        AVFLAGA

Page 670

029395,000187:                                                                                                  #        AVFLAGP
029396,000188:                                                                                                  #        VNPOOH
029397,000189:                                                                                                  #        DISPLAYE
029398,000190:                                                                                                  #        SELECTMU
029399,000191:                                                                                                  #        PRECSET
029400,000192:                                                                                                  #        S33/34.1
029401,000193:                                                                                                  #        ALARM
029402,000194:                                                                                                  #        BANKCALL
029403,000195:                                                                                                  #        GOFLASH
029404,000196:                                                                                                  #        GOTOPOOH
029405,000197:                                                                                                  #        TIMETHET
029406,000198:                                                                                                  #        S34/35.2
029407,000199:                                                                                                  #        PERIAPO1
029408,000200:                                                                                                  #        SHIFTR1
029409,000201:                                                                                                  #        S34/35.5
029410,000202:                                                                                                  #        VN1645
029411,000203: 
029412,000204: 35,2000                                           SETLOC   CSI/CDH                               
029413,000205: 35,2000                                           BANK                                           
029414,000206: 35,2511  E7,1466                                  EBANK=   SUBEXIT                               
029415,000207: 35,2511                                           COUNT*   $$/P3474                              
029416,000208: 35,2511           02313        P34                TC       AVFLAGA                               
029417,000209: 35,2512           02514                           TC       P34/P74A                              
029418,000210: 35,2513           02320        P74                TC       AVFLAGP                               
029419,000211: 35,2514           02325        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
029420,000212: 35,2515           33662                           CAF      V06N37                                #  TTPI
029421,000213: 35,2516           03651                           TC       VNPOOH                                
029422,000214: 35,2517           00006                           EXTEND                                         
029423,000215: 35,2520           33706                           DCA      130DEG                                
029424,000216: 35,2521           53617                           DXCH     CENTANG                               
029425,000217: 35,2522           03630                           TC       DISPLAYE                              #  ELEV AND CENTANG
029426,000218: 35,2523           06036                           TC       INTPRET                               
029427,000219: 35,2524           71214                           CLEAR    DLOAD                                 
029428,000220: 35,2525           01270                                    ETPIFLAG                              
029429,000221: 35,2526           03634                                    TTPI                                  
029430,000222: 35,2527           17440                           STODL    TIG                                   
029431,000223: 35,2530           02263                                    ELEV                                  
029432,000224: 35,2531           43054                           BZE      SET                                   
029433,000225: 35,2532           72534                                    P34/P74B                              
029434,000226: 35,2533           01070                                    ETPIFLAG                              
029435,000227: 35,2534           77624        P34/P74B           CALL                                           
029436,000228: 35,2535           20041                                    SELECTMU                              
029437,000229: 35,2536                        DELELO             EQUALS   26D                                   
029438,000230: 35,2536           43145        P34/P74C           DLOAD    SET                                   
029439,000231: 35,2537           06424                                    ZEROVECS                              
029440,000232: 35,2540           03460                                    ITSWICH                               
029441,000233: 35,2541           43014                           BON      CLEAR                                 
029442,000234: 35,2542           01310                                    ETPIFLAG                              
029443,000235: 35,2543           72545                                    SWCHSET                               
029444,000236: 35,2544           03660                                    ITSWICH                               

Page 671

029446,000238: 35,2545           02323        SWCHSET            STORE    NOMTPI                                
029447,000239: 35,2546           43345        INTLOOP            DLOAD    DAD                                   
029448,000240: 35,2547           03634                                    TTPI                                  
029449,000241: 35,2550           02323                                    NOMTPI                                
029450,000242: 35,2551           34041                           STCALL   TDEC1                                 
029451,000243: 35,2552           46341                                    PRECSET                               
029452,000244: 35,2553           77624                           CALL                                           
029453,000245: 35,2554           72726                                    S33/34.1                              
029454,000246: 35,2555           77454                           BZE      EXIT                                  
029455,000247: 35,2556           72567                                    SWCHCLR                               
029456,000248: 35,2557           05567                           TC       ALARM                                 
029457,000249: 35,2560           00611                           OCT      611                                   
029458,000250: 35,2561           35006                           CAF      V05N09                                
029459,000251: 35,2562           04616                           TC       BANKCALL                              
029460,000252: 35,2563           20351                           CADR     GOFLASH                               
029461,000253: 35,2564           06001                           TC       GOTOPOOH                              
029462,000254: 35,2565           02514                           TC       P34/P74A                              #  PROCEED
029463,000255: 35,2566           02557                           TC       -7                                    #  V32
029464,000256: 
029465,000257: 35,2567           43014        SWCHCLR            BONCLR   BON                                   
029466,000258: 35,2570           03600                                    ITSWICH                               
029467,000259: 35,2571           72546                                    INTLOOP                               
029468,000260: 35,2572           01310                                    ETPIFLAG                              
029469,000261: 35,2573           72577                                    P34/P74D                              #  DISPLAY TTPI
029470,000262: 35,2574           77776                           EXIT                                           
029471,000263: 35,2575           03630                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
029472,000264: 35,2576           02602                           TC       P34/P74E                              
029473,000265: 35,2577           77776        P34/P74D           EXIT                                           
029474,000266: 35,2600           33662                           CAF      V06N37                                #  TTPI
029475,000267: 35,2601           03651                           TC       VNPOOH                                
029476,000268: 35,2602           06036        P34/P74E           TC       INTPRET                               
029477,000269: 35,2603           71201                           SETPD    DLOAD                                 
029478,000270: 35,2604           00001                                    0D                                    
029479,000271: 35,2605           03376                                    RTX1                                  
029480,000272: 35,2606           14047                           STODL    X1                                    
029481,000273: 35,2607           03617                                    CENTANG                               
029482,000274: 35,2610           71406                           PUSH     COS                                   
029483,000275: 35,2611           16732                           STODL    CSTH                                  
029484,000276: 35,2612           77756                           SIN                                            
029485,000277: 35,2613           26730                           STOVL    SNTH                                  
029486,000278: 35,2614           03550                                    RPASS3                                
029487,000279: 35,2615           77657                           VSR*                                           
029488,000280: 35,2616           57176                                    0,2                                   
029489,000281: 35,2617           26655                           STOVL    RVEC                                  
029490,000282: 35,2620           03556                                    VPASS3                                
029491,000283: 35,2621           43057                           VSR*     SET                                   
029492,000284: 35,2622           57176                                    0,2                                   
029493,000285: 35,2623           03466                                    RVSW                                  
029494,000286: 35,2624           36744                           STCALL   VVEC                                  
029495,000287: 35,2625           24745                                    TIMETHET                              

Page 672

029497,000289: 35,2626           77745                           DLOAD                                          
029498,000290: 35,2627           03634                                    TTPI                                  
029499,000291: 35,2630           03606                           STORE    INTIME                                #  FOR INITVEL
029500,000292: 35,2631           77615                           DAD                                            
029501,000293: 35,2632           00037                                    T                                     #  RENDEZVOUS TIME
029502,000294: 35,2633           37627                           STCALL   TPASS4                                #  FOR INITVEL
029503,000295: 35,2634           73250                                    S34/35.2                              
029504,000296: 35,2635           51575                           VLOAD    ABVAL                                 
029505,000297: 35,2636           03366                                    DELVEET3                              
029506,000298: 35,2637           27574                           STOVL    DELVTPI                               
029507,000299: 35,2640           03504                                    VPASS4                                
029508,000300: 35,2641           51451                           VSU      ABVAL                                 
029509,000301: 35,2642           03564                                    VTPRIME                               
029510,000302: 35,2643           26354                           STOVL    DELVTPF                               
029511,000303: 35,2644           03534                                    RACT3                                 
029512,000304: 35,2645           45115                           PDVL     CALL                                  
029513,000305: 35,2646           02343                                    VIPRIME                               
029514,000306: 35,2647           46277                                    PERIAPO1                              
029515,000307: 35,2650           77624                           CALL                                           
029516,000308: 35,2651           46407                                    SHIFTR1                               
029517,000309: 35,2652           17604                           STODL    POSTTPI                               
029518,000310: 35,2653           03634                                    TTPI                                  
029519,000311: 35,2654           03440                           STORE    TIG                                   
029520,000312: 35,2655           77776                           EXIT                                           
029521,000313: 35,2656           33664                           CAF      V06N58                                
029522,000314: 35,2657           03651                           TC       VNPOOH                                
029523,000315: 35,2660           06036                           TC       INTPRET                               
029524,000316: 35,2661           77624                           CALL                                           
029525,000317: 35,2662           73456                                    S34/35.5                              
029526,000318: 35,2663           77624                           CALL                                           
029527,000319: 35,2664           73542                                    VN1645                                
029528,000320: 35,2665           77650                           GOTO                                           
029529,000321: 35,2666           72536                                    P34/P74C                              

Page 673

029531,000323:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
029532,000324: 
029533,000325:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
029534,000326:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
029535,000327: 
029536,000328:                                                                                                  #  PURPOSE
029537,000329: 
029538,000330:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
029539,000331:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
029540,000332:                                                                                                  #                MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
029541,000333:                                                                                                  #                VEHICLE RENDEZVOUS.
029542,000334: 
029543,000335:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
029544,000336:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
029545,000337:                                                                                                  #                ASTRONAUT/GROUND.
029546,000338: 
029547,000339:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
029548,000340:                                                                                                  #                THRUSTING PROGRAM.
029549,000341: 
029550,000342:                                                                                                  #  ASSUMPTIONS
029551,000343: 
029552,000344:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029553,000345: 
029554,000346:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029555,000347:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
029556,000348: 
029557,000349:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
029558,000350:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
029559,000351:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
029560,000352:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
029561,000353:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
029562,000354:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
029563,000355: 
029564,000356:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029565,000357: 
029566,000358:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029567,000359:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029568,000360:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029569,000361:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029570,000362: 
029571,000363:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029572,000364:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029573,000365: 
029574,000366:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029575,000367:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029576,000368:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029577,000369: 
029578,000370:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
029579,000371:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
029580,000372:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
029581,000373: 

Page 674

029583,000375:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
029584,000376:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029585,000377:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029586,000378:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029587,000379:                                                                                                  #                THROUGH THE USE OF V06N52.
029588,000380: 
029589,000381:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029590,000382:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
029591,000383:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
029592,000384:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029593,000385:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
029594,000386: 
029595,000387:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029596,000388: 
029597,000389:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
029598,000390: 
029599,000391:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
029600,000392: 
029601,000393:                                                                                                  #  INPUT
029602,000394: 
029603,000395:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT - SAVED FROM P34/P74
029604,000396:                                                                                                  #  OUTPUT
029605,000397: 
029606,000398:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
029607,000399:                                                                                                  #        (2)     TTOGO           TIME TO GO
029608,000400:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
029609,000401:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID - LINE OF SIGHT
029610,000402:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
029611,000403: 
029612,000404:                                                                                                  #  DOWNLINK
029613,000405: 
029614,000406:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
029615,000407:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM - REFERENCE COORDINATES
029616,000408:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
029617,000409:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029618,000410: 
029619,000411:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
029620,000412:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
029621,000413:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
029622,000414:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029623,000415: 
029624,000416:                                                                                                  #  SUBROUTINES USED
029625,000417: 
029626,000418:                                                                                                  #        AVFLAGA
029627,000419:                                                                                                  #        AVFLAGP
029628,000420:                                                                                                  #        LOADTIME
029629,000421:                                                                                                  #        SELECTMU
029630,000422:                                                                                                  #        PRECSET
029631,000423:                                                                                                  #        S34/35.1
029632,000424:                                                                                                  #        S34/35.2

Page 675

029634,000426:                                                                                                  #        S34/35.5
029635,000427:                                                                                                  #        VN1645
029636,000428: 
029637,000429: 35,2667                                           COUNT*   $$/P3575                              
029638,000430: 35,2667  E7,1573                                  EBANK=   KT                                    
029639,000431: 
029640,000432: 35,2667           02313        P35                TC       AVFLAGA                               
029641,000433: 35,2670           00006                           EXTEND                                         
029642,000434: 35,2671           31401                           DCA      ATIGINC                               
029643,000435: 35,2672           02676                           TC       P35/P75A                              
029644,000436: 35,2673           02320        P75                TC       AVFLAGP                               
029645,000437: 35,2674           00006                           EXTEND                                         
029646,000438: 35,2675           31403                           DCA      PTIGINC                               
029647,000439: 35,2676           53574        P35/P75A           DXCH     KT                                    
029648,000440: 35,2677           02325                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
029649,000441: 35,2700           06036                           TC       INTPRET                               
029650,000442: 35,2701           77624                           CALL                                           
029651,000443: 35,2702           20041                                    SELECTMU                              
029652,000444: 35,2703           77634        P35/P75B           RTB                                            
029653,000445: 35,2704           21462                                    LOADTIME                              
029654,000446: 35,2705           03610                           STORE    TSTRT                                 
029655,000447: 35,2706           77615                           DAD                                            
029656,000448: 35,2707           03574                                    KT                                    
029657,000449: 35,2710           03440                           STORE    TIG                                   
029658,000450: 35,2711           03606                           STORE    INTIME                                #  FOR INITVEL
029659,000451: 35,2712           34041                           STCALL   TDEC1                                 
029660,000452: 35,2713           46341                                    PRECSET                               #  ADVANCE BOTH VEHICLES
029661,000453: 35,2714           77624                           CALL                                           
029662,000454: 35,2715           73236                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
029663,000455: 35,2716           77624                           CALL                                           
029664,000456: 35,2717           73250                                    S34/35.2                              #  GET DELTA V(LV)
029665,000457: 35,2720           77624                           CALL                                           
029666,000458: 35,2721           73456                                    S34/35.5                              
029667,000459: 35,2722           77624                           CALL                                           
029668,000460: 35,2723           73542                                    VN1645                                
029669,000461: 35,2724           77650                           GOTO                                           
029670,000462: 35,2725           72703                                    P35/P75B                              

Page 676

029672,000464:                                                                                                  #  ..... S33/34.1 .....
029673,000465: 
029674,000466: 35,2726           66220        S33/34.1           STQ      SSP                                   
029675,000467: 35,2727           03461                                    NORMEX                                
029676,000468: 35,2730           03612                                    TITER                                 
029677,000469: 35,2731           40000                           OCT      40000                                 
029678,000470: 35,2732           40345                           DLOAD    SETPD                                 
029679,000471: 35,2733           33673                                    MAX250                                
029680,000472: 35,2734           00001                                    0D                                    
029681,000473: 35,2735           27572                           STOVL    SECMAX                                
029682,000474: 35,2736           03534                                    RACT3                                 
029683,000475: 35,2737           27476                           STOVL    RAPREC                                
029684,000476: 35,2740           03542                                    VACT3                                 
029685,000477: 35,2741           27504                           STOVL    VAPREC                                
029686,000478: 35,2742           03550                                    RPASS3                                
029687,000479: 35,2743           27520                           STOVL    RPPREC                                
029688,000480: 35,2744           03556                                    VPASS3                                
029689,000481: 35,2745           03526                           STORE    VPPREC                                
029690,000482: 35,2746           77624        ELCALC             CALL                                           
029691,000483: 35,2747           73236                                    S34/35.1                              #  NORMAL AND LOS
029692,000484: 35,2750           63235                           VXV      PDVL                                  
029693,000485: 35,2751           03534                                    RACT3                                 #  (RA*VA)*RA 0D
029694,000486: 35,2752           53515                           PDVL     UNIT                                  #  ULOS AT 6D
029695,000487: 35,2753           03534                                    RACT3                                 
029696,000488: 35,2754           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
029697,000489: 35,2755           51352                           VSL2     BVSU                                  
029698,000490: 35,2756           02315                                    ULOS                                  
029699,000491: 35,2757           63256                           UNIT     PDVL                                  #  UP AT 0D
029700,000492: 35,2760           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
029701,000493: 35,2761           00001                                    0D                                    #  UP IN MPAC
029702,000494: 35,2762           75241                           DOT      SIGN                                  
029703,000495: 35,2763           02315                                    ULOS                                  
029704,000496: 35,2764           65552                           SL1      ACOS                                  
029705,000497: 35,2765           50315                           PDVL     DOT                                   #  EA AT 0D
029706,000498: 35,2766           02315                                    ULOS                                  
029707,000499: 35,2767           03534                                    RACT3                                 
029708,000500: 35,2770           71244                           BPL      DLOAD                                 
029709,000501: 35,2771           72774                                    TESTY                                 
029710,000502: 35,2772           06432                                    DPPOSMAX                              
029711,000503: 35,2773           41425                           DSU      PUSH                                  
029712,000504: 35,2774           71214        TESTY              BOFF     DLOAD                                 
029713,000505: 35,2775           03740                                    ITSWICH                               
029714,000506: 35,2776           73223                                    ELEX                                  
029715,000507: 35,2777           03574                                    DELEL                                 
029716,000508: 35,3000           14033                           STODL    DELELO                                
029717,000509: 35,3001           77625                           DSU                                            
029718,000510: 35,3002           02263                                    ELEV                                  
029719,000511: 35,3003           03574                           STORE    DELEL                                 
029720,000512: 35,3004           45246                           ABS      DSU                                   
029721,000513: 35,3005           33677                                    ELEPS                                 

Page 677

029723,000515: 35,3006           77640                           BMN                                            
029724,000516: 35,3007           73233                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
029725,000517: 35,3010           70535        FIGTIME            SLOAD    SR1                                   
029726,000518: 35,3011           03612                                    TITER                                 
029727,000519: 35,3012           72030                           BHIZ     LXA,1                                 
029728,000520: 35,3013           03461                                    NORMEX                                #  TOO MANY ITERATIONS
029729,000521: 35,3014           00154                                    MPAC                                  
029730,000522: 35,3015           77330                           SXA,1    VLOAD                                 
029731,000523: 35,3016           03611                                    TITER                                 
029732,000524: 35,3017           03550                                    RPASS3                                
029733,000525: 35,3020           65256                           UNIT     PDDL                                  
029734,000526: 35,3021           00045                                    36D                                   
029735,000527: 35,3022           53515                           PDVL     UNIT                                  
029736,000528: 35,3023           03534                                    RACT3                                 
029737,000529: 35,3024           77725                           PDDL                                           
029738,000530: 35,3025           41525                           PDDL     PUSH                                  
029739,000531: 35,3026           00045                                    36D                                   
029740,000532: 35,3027           77621                           BDSU                                           
029741,000533: 35,3030           00015                                    12D                                   
029742,000534: 35,3031           14037                           STODL    30D                                   #  RP - RA MAGNITUDES
029743,000535: 35,3032           06422                                    DPHALF                                
029744,000536: 35,3033           41425                           DSU      PUSH                                  
029745,000537: 35,3034           02263                                    ELEV                                  
029746,000538: 35,3035           50165                           SIGN     BMN                                   
029747,000539: 35,3036           00037                                    30D                                   
029748,000540: 35,3037           03461                                    NORMEX                                
029749,000541: 35,3040           71545                           DLOAD    COS                                   
029750,000542: 35,3041           56205                           DMP      DDV                                   
029751,000543: 35,3042           00017                                    14D                                   
029752,000544: 35,3043           00015                                    12D                                   
029753,000545: 35,3044           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
029754,000546: 35,3045           00035                           STORE    28D                                   
029755,000547: 35,3046           44246                           ABS      BDSU                                  
029756,000548: 35,3047           06422                                    DPHALF                                
029757,000549: 35,3050           77240                           BMN      VLOAD                                 
029758,000550: 35,3051           03461                                    NORMEX                                
029759,000551: 35,3052           02265                                    UNRM                                  
029760,000552: 35,3053           53435                           VXV      UNIT                                  
029761,000553: 35,3054           00007                                    6D                                    #  UN*RA
029762,000554: 35,3055           41241                           DOT      DMP                                   
029763,000555: 35,3056           03542                                    VACT3                                 
029764,000556: 35,3057           00015                                    12D                                   
029765,000557: 35,3060           47315                           PDVL     VXV                                   
029766,000558: 35,3061           00001                                    0D                                    
029767,000559: 35,3062           03556                                    VPASS3                                
029768,000560: 35,3063           53435                           VXV      UNIT                                  
029769,000561: 35,3064           00001                                    0D                                    #  (RP*VP)*RP
029770,000562: 35,3065           41241                           DOT      DMP                                   
029771,000563: 35,3066           03556                                    VPASS3                                
029772,000564: 35,3067           00017                                    14D                                   

Page 678

029774,000566: 35,3070           77621                           BDSU                                           
029775,000567: 35,3071           63301                           NORM     PDVL                                  #  NORMALIZED WA - WP 12D
029776,000568: 35,3072           00047                                    X1                                    
029777,000569: 35,3073           00007                                    6D                                    
029778,000570: 35,3074           50235                           VXV      DOT                                   
029779,000571: 35,3075           00001                                    0D                                    
029780,000572: 35,3076           02265                                    UNRM                                  #  RA*RP.UN 14D
029781,000573: 35,3077           50315                           PDVL     DOT                                   
029782,000574: 35,3100           00001                                    0D                                    
029783,000575: 35,3101           00007                                    6D                                    
029784,000576: 35,3102           65552                           SL1      ACOS                                  
029785,000577: 35,3103           77765                           SIGN                                           
029786,000578: 35,3104           43225                           DSU      DAD                                   #  ALPHA PI
029787,000579: 35,3105           06422                                    DPHALF                                
029788,000580: 35,3106           02263                                    ELEV                                  
029789,000581: 35,3107           65525                           PDDL     ACOS                                  
029790,000582: 35,3110           00035                                    28D                                   
029791,000583: 35,3111           75221                           BDSU     SIGN                                  
029792,000584: 35,3112           06422                                    DPHALF                                
029793,000585: 35,3113           00037                                    30D                                   #  CONTAINS RP-RA
029794,000586: 35,3114           77615                           DAD                                            
029795,000587: 35,3115           56205                           DMP      DDV                                   
029796,000588: 35,3116           33671                                    TWOPI                                 
029797,000589: 35,3117           77605                           DMP                                            
029798,000590: 35,3120           41257                           SL*      DMP                                   
029799,000591: 35,3121           20176                                    0          -3,1                       
029800,000592: 35,3122           51406                           PUSH     ABS                                   
029801,000593: 35,3123           50025                           DSU      BMN                                   
029802,000594: 35,3124           03572                                    SECMAX                                
029803,000595: 35,3125           73131                                    OKMAX                                 
029804,000596: 35,3126           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
029805,000597: 35,3127           03572                                    SECMAX                                
029806,000598: 35,3130           77606                           PUSH                                           
029807,000599: 35,3131           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
029808,000600: 35,3132           03612                                    TITER                                 
029809,000601: 35,3133           73141                                    REPETE                                
029810,000602: 35,3134           71331                           SSP      DLOAD                                 
029811,000603: 35,3135           03612                                    TITER                                 
029812,000604: 35,3136           37777                           OCT      37777                                 
029813,000605: 35,3137           77650                           GOTO                                           
029814,000606: 35,3140           73177                                    STORDELT                              
029815,000607: 35,3141           41345        REPETE             DLOAD    DMP                                   
029816,000608: 35,3142           03574                                    DELEL                                 
029817,000609: 35,3143           00033                                    DELELO                                
029818,000610: 35,3144           71244                           BPL      DLOAD                                 
029819,000611: 35,3145           73155                                    NEXTES                                
029820,000612: 35,3146           03572                                    SECMAX                                
029821,000613: 35,3147           77605                           DMP                                            
029822,000614: 35,3150           33675                                    THIRD                                 
029823,000615: 35,3151           17572                           STODL    SECMAX                                

Page 679

029825,000617: 35,3152           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
029826,000618: 35,3153           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
029827,000619: 35,3154           73165                                    RESIGN                                
029828,000620: 35,3155           51545        NEXTES             DLOAD    ABS                                   
029829,000621: 35,3156           03574                                    DELEL                                 
029830,000622: 35,3157           51525                           PDDL     ABS                                   
029831,000623: 35,3160           00033                                    DELELO                                
029832,000624: 35,3161           77625                           DSU                                            
029833,000625: 35,3162           71240                           BMN      DLOAD                                 
029834,000626: 35,3163           73170                                    REVERS                                #  WRONG DIRECTION
029835,000627: 35,3164           77646                           ABS                                            
029836,000628: 35,3165           52165        RESIGN             SIGN     GOTO                                  
029837,000629: 35,3166           03604                                    DELTEEO                               
029838,000630: 35,3167           73177                                    STORDELT                              
029839,000631: 35,3170           57545        REVERS             DLOAD    DCOMP                                 
029840,000632: 35,3171           03604                                    DELTEEO                               
029841,000633: 35,3172           70406                           PUSH     SR1                                   
029842,000634: 35,3173           03604                           STORE    DELTEEO                               
029843,000635: 35,3174           77615                           DAD                                            
029844,000636: 35,3175           77650                           GOTO                                           
029845,000637: 35,3176           73200                                    ADTIME                                
029846,000638: 35,3177           03604        STORDELT           STORE    DELTEEO                               
029847,000639: 35,3200           77615        ADTIME             DAD                                            
029848,000640: 35,3201           02323                                    NOMTPI                                #  SUM OF DELTA T:S
029849,000641: 35,3202           02323                           STORE    NOMTPI                                
029850,000642: 35,3203           63375                           VLOAD    PDVL                                  
029851,000643: 35,3204           03504                                    VAPREC                                
029852,000644: 35,3205           03476                                    RAPREC                                
029853,000645: 35,3206           77624                           CALL                                           
029854,000646: 35,3207           73416                                    GOINT                                 
029855,000647: 35,3210           77624                           CALL                                           
029856,000648: 35,3211           46363                                    ACTIVE                                #  STORE NEW RACT3 VACT3
029857,000649: 35,3212           63375                           VLOAD    PDVL                                  
029858,000650: 35,3213           03526                                    VPPREC                                
029859,000651: 35,3214           03520                                    RPPREC                                
029860,000652: 35,3215           77624                           CALL                                           
029861,000653: 35,3216           73416                                    GOINT                                 
029862,000654: 35,3217           77624                           CALL                                           
029863,000655: 35,3220           46373                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
029864,000656: 35,3221           77650                           GOTO                                           
029865,000657: 35,3222           72746                                    ELCALC                                
029866,000658: 35,3223           43345        ELEX               DLOAD    DAD                                   
029867,000659: 35,3224           03634                                    TTPI                                  
029868,000660: 35,3225           02323                                    NOMTPI                                
029869,000661: 35,3226           17634                           STODL    TTPI                                  
029870,000662: 35,3227           77614                           BON                                            
029871,000663: 35,3230           01310                                    ETPIFLAG                              
029872,000664: 35,3231           73233                                    TIMEX                                 
029873,000665: 35,3232           02263                           STORE    ELEV                                  
029874,000666: 35,3233           52145        TIMEX              DLOAD    GOTO                                  

Page 680

029876,000668: 35,3234           06424                                    ZEROVECS                              
029877,000669: 35,3235           03461                                    NORMEX                                
029878,000670: 

Page 681

029880,000672:                                                                                                  #  ..... S34/35.1 .....
029881,000673: 
029882,000674:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
029883,000675:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
029884,000676: 
029885,000677: 35,3236           52375        S34/35.1           VLOAD    VSU                                   
029886,000678: 35,3237           03550                                    RPASS3                                
029887,000679: 35,3240           03534                                    RACT3                                 
029888,000680: 35,3241           41456                           UNIT     PUSH                                  
029889,000681: 35,3242           26315                           STOVL    ULOS                                  
029890,000682: 35,3243           03534                                    RACT3                                 
029891,000683: 35,3244           53435                           VXV      UNIT                                  
029892,000684: 35,3245           03542                                    VACT3                                 
029893,000685: 35,3246           02265                           STORE    UNRM                                  
029894,000686: 35,3247           77616                           RVQ                                            
029895,000687: 

Page 682

029897,000689:                                                                                                  #  ..... S34/35.2 .....
029898,000690: 
029899,000691:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
029900,000692: 
029901,000693: 35,3250           77220        S34/35.2           STQ      VLOAD                                 
029902,000694: 35,3251           03466                                    SUBEXIT                               
029903,000695: 35,3252           03556                                    VPASS3                                
029904,000696: 35,3253           65315                           PDVL     PDDL                                  
029905,000697: 35,3254           03550                                    RPASS3                                
029906,000698: 35,3255           03606                                    INTIME                                
029907,000699: 35,3256           65325                           PDDL     PDDL                                  
029908,000700: 35,3257           03627                                    TPASS4                                
029909,000701: 35,3260           06424                                    ZEROVECS                              
029910,000702: 35,3261           45006                           PUSH     CALL                                  
029911,000703: 35,3262           73422                                    INTINT                                #  GET TARGET VECTOR
029912,000704: 35,3263           27442        S3435.25           STOVL    RTARG                                 
029913,000705: 35,3264           00007                                    VATT                                  
029914,000706: 35,3265           27504                           STOVL    VPASS4                                
029915,000707: 35,3266           03442                                    RTARG                                 
029916,000708:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U)
029917,000709: 35,3267           63256                           UNIT     PDVL                                  #  UNIT RP
029918,000710: 35,3270           03534                                    RACT3                                 
029919,000711: 35,3271           41456                           UNIT     PUSH                                  #  UNIT RA
029920,000712: 35,3272           50235                           VXV      DOT                                   
029921,000713: 35,3273           00001                                    0D                                    
029922,000714: 35,3274           02265                                    UNRM                                  #  RA*RP.U
029923,000715: 35,3275           77715                           PDVL                                           
029924,000716: 35,3276           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
029925,000717: 35,3277           00001                                    0D                                    
029926,000718: 35,3300           75326                           ACOS     SIGN                                  
029927,000719: 35,3301           43244                           BPL      DAD                                   
029928,000720: 35,3302           73304                                    NOPIE                                 
029929,000721: 35,3303           06432                                    DPPOSMAX                              #  REASONABLE TWO PI
029930,000722: 35,3304           15756        NOPIE              STODL    ACTCENT                               
029931,000723: 35,3305           03627                                    TPASS4                                
029932,000724: 35,3306           77625                           DSU                                            
029933,000725: 35,3307           03606                                    INTIME                                
029934,000726: 35,3310           03450                           STORE    DELLT4                                
029935,000727: 35,3311           40335                           SLOAD    SETPD                                 
029936,000728: 35,3312           33701                                    DECTWO                                
029937,000729: 35,3313           00001                                    0D                                    
029938,000730: 35,3314           63325                           PDDL     PDVL                                  
029939,000731: 35,3315           33704                                    EPSFOUR                               
029940,000732: 35,3316           03534                                    RACT3                                 
029941,000733: 35,3317           26327                           STOVL    RINIT                                 
029942,000734: 35,3320           03542                                    VACT3                                 
029943,000735: 35,3321           36335                           STCALL   VINIT                                 
029944,000736: 35,3322           22000                                    INITVEL                               
029945,000737: 35,3323           77624                           CALL                                           
029946,000738: 35,3324           73403                                    LOMAT                                 
029947,000739: 35,3325           64375                           VLOAD    MXV                                   

Page 683

029949,000741: 35,3326           03366                                    DELVEET3                              
029950,000742: 35,3327           00001                                    0D                                    
029951,000743: 35,3330           77772                           VSL1                                           
029952,000744: 35,3331           37432                           STCALL   DELVLVC                               
029953,000745: 35,3332           03466                                    SUBEXIT                               
029954,000746: 

Page 684

029956,000748:                                                                                                  #  ..... S34/35.3 .....
029957,000749: 
029958,000750: 35,3333           45020        S34/35.3           STQ      CALL                                  
029959,000751: 35,3334           03461                                    NORMEX                                
029960,000752: 35,3335           73403                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
029961,000753: 35,3336           61375                           VLOAD    VXM                                   
029962,000754: 35,3337           03432                                    DELVLVC                               #  NEW DEL V TPI
029963,000755: 35,3340           00001                                    0D                                    
029964,000756: 35,3341           77772                           VSL1                                           
029965,000757: 35,3342           03366                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
029966,000758: 35,3343           63255                           VAD      PDVL                                  
029967,000759: 35,3344           03542                                    VACT3                                 #  NEW V REQ
029968,000760: 35,3345           03534                                    RACT3                                 
029969,000761: 35,3346           65325                           PDDL     PDDL                                  
029970,000762: 35,3347           03440                                    TIG                                   
029971,000763: 35,3350           03627                                    TPASS4                                
029972,000764: 35,3351           41525                           PDDL     PUSH                                  
029973,000765: 35,3352           06432                                    DPPOSMAX                              
029974,000766: 35,3353           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
029975,000767: 35,3354           73422                                    INTINT                                
029976,000768: 35,3355           77775                           VLOAD                                          
029977,000769: 35,3356           00001                                    RATT                                  
029978,000770: 35,3357           03442                           STORE    RTARG                                 
029979,000771: 35,3360           41575        NOVRWRT            VLOAD    PUSH                                  
029980,000772: 35,3361           02315                                    ULOS                                  
029981,000773: 35,3362           57435                           VXV      VCOMP                                 
029982,000774: 35,3363           02265                                    UNRM                                  
029983,000775: 35,3364           41456                           UNIT     PUSH                                  
029984,000776: 35,3365           76435                           VXV      VSL1                                  
029985,000777: 35,3366           02315                                    ULOS                                  
029986,000778: 35,3367           77715                           PDVL                                           
029987,000779: 35,3370           64315                           PDVL     MXV                                   
029988,000780: 35,3371           03366                                    DELVEET3                              
029989,000781: 35,3372           00001                                    0D                                    
029990,000782: 35,3373           77772                           VSL1                                           
029991,000783: 35,3374           36307                           STCALL   DVLOS                                 
029992,000784: 35,3375           03461                                    NORMEX                                
029993,000785: 

Page 685

029995,000787:                                                                                                  #  ..... S34/35.4 .....
029996,000788: 
029997,000789: 35,3376           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
029998,000790: 35,3377           03461                                    NORMEX                                
029999,000791: 35,3400           00001                                    0D                                    
030000,000792: 35,3401           77650                           GOTO                                           
030001,000793: 35,3402           73360                                    NOVRWRT                               
030002,000794: 

Page 686

030004,000796:                                                                                                  #  ..... LOMAT     .....
030005,000797: 
030006,000798: 35,3403           57575        LOMAT              VLOAD    VCOMP                                 
030007,000799: 35,3404           02265                                    UNRM                                  
030008,000800: 35,3405           24007                           STOVL    6D                                    #  Y
030009,000801: 35,3406           03534                                    RACT3                                 
030010,000802: 35,3407           57456                           UNIT     VCOMP                                 
030011,000803: 35,3410           00015                           STORE    12D                                   
030012,000804: 35,3411           76435                           VXV      VSL1                                  
030013,000805: 35,3412           02265                                    UNRM                                  #  Z*-Y
030014,000806: 35,3413           00001                           STORE    0D                                    
030015,000807: 35,3414           43401                           SETPD    RVQ                                   
030016,000808: 35,3415           00023                                    18D                                   
030017,000809: 35,3416           65325        GOINT              PDDL     PDDL                                  #  DO
030018,000810: 35,3417           06424                                    ZEROVECS                              #        NOT
030019,000811: 35,3420           02323                                    NOMTPI                                
030020,000812: 35,3421           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
030021,000813: 35,3422           45020        INTINT             STQ      CALL                                  
030022,000814: 35,3423           03463                                    RTRN                                  
030023,000815: 35,3424           27412                                    INTSTALL                              
030024,000816: 35,3425           71214                           CLEAR    DLOAD                                 
030025,000817: 35,3426           01673                                    INTYPFLG                              
030026,000818: 35,3427           43054                           BZE      SET                                   
030027,000819: 35,3430           73432                                    +2                                    
030028,000820: 35,3431           01473                                    INTYPFLG                              
030029,000821: 35,3432           45545                           DLOAD    STADR                                 
030030,000822: 35,3433           63736                           STODL    TDEC1                                 
030031,000823: 35,3434           73014                           SET      LXA,2                                 
030032,000824: 35,3435           00063                                    MOONFLAG                              
030033,000825: 35,3436           03376                                    RTX2                                  
030034,000826: 35,3437           43014                           BON      CLEAR                                 
030035,000827: 35,3440           04303                                    CMOONFLG                              
030036,000828: 35,3441           73443                                    ALLSET                                
030037,000829: 35,3442           00263                                    MOONFLAG                              
030038,000830: 35,3443           25517        ALLSET             STOVL    TET                                   
030039,000831: 35,3444           77657                           VSR*                                           
030040,000832: 35,3445           57176                                    0,2                                   
030041,000833: 35,3446           25535                           STOVL    RCV                                   
030042,000834: 35,3447           77657                           VSR*                                           
030043,000835: 35,3450           57176                                    0,2                                   
030044,000836: 35,3451           35543                           STCALL   VCV                                   
030045,000837: 35,3452           27107                                    INTEGRVS                              
030046,000838: 35,3453           52175                           VLOAD    GOTO                                  
030047,000839: 35,3454           00001                                    RATT                                  
030048,000840: 35,3455           03463                                    RTRN                                  
030049,000841: 

Page 687

030051,000843:                                                                                                  #  ..... S34/35.5 .....
030052,000844:                                                                                                  #  SUBROUTINES USED
030053,000845:                                                                                                  #        BANKCALL
030054,000846:                                                                                                  #        GOFLASH
030055,000847:                                                                                                  #        GOTOPOOH
030056,000848:                                                                                                  #        S34/35.3
030057,000849:                                                                                                  #        S34/35.4
030058,000850:                                                                                                  #        VNPOOH
030059,000851: 
030060,000852: 35,3456           43020        S34/35.5           STQ      BON                                   
030061,000853: 35,3457           03466                                    SUBEXIT                               
030062,000854: 35,3460           01311                                    FINALFLG                              
030063,000855: 35,3461           73465                                    FLAGON                                
030064,000856: 35,3462           52014                           SET      GOTO                                  
030065,000857: 35,3463           00470                                    UPDATFLG                              
030066,000858: 35,3464           73532                                    FLAGOFF                               
030067,000859: 35,3465           77214        FLAGON             CLEAR    VLOAD                                 
030068,000860: 35,3466           03274                                    NTARGFLG                              
030069,000861: 35,3467           03432                                    DELVLVC                               
030070,000862: 35,3470           01237                           STORE    GDT/2                                 
030071,000863: 35,3471           77776                           EXIT                                           
030072,000864: 35,3472           33666                 +5        CAF      V06N81                                
030073,000865: 35,3473           04616                           TC       BANKCALL                              
030074,000866: 35,3474           20351                           CADR     GOFLASH                               
030075,000867: 35,3475           06001                           TC       GOTOPOOH                              
030076,000868: 35,3476           03500                           TC       +2                                    #  PRO
030077,000869: 35,3477           03472                           TC       FLAGON     +5                         #  LOAD
030078,000870: 35,3500           35016                 +2        CA       EBANK7                                
030079,000871: 35,3501           54003                           TS       EBANK                                 #  TO BE SURE
030080,000872: 
030081,000873: 35,3502           22007                           ZL                                             
030082,000874: 35,3503           34756                           CA       FIVE                                  
030083,000875: 35,3504           54002        NTARGCHK           TS       Q                                     
030084,000876: 35,3505           50002                           INDEX    Q                                     
030085,000877: 35,3506           41431                           CS       DELVLVC                               
030086,000878: 35,3507           50002                           INDEX    Q                                     
030087,000879: 35,3510           61236                           AD       GDT/2                                 
030088,000880: 35,3511           26001                           ADS      L                                     
030089,000881: 35,3512           10002                           CCS      Q                                     
030090,000882: 35,3513           13504                           TCF      NTARGCHK                              
030091,000883: 35,3514           22000                           LXCH     A                                     
030092,000884: 35,3515           00006                           EXTEND                                         
030093,000885: 35,3516           13521                           BZF      +3                                    
030094,000886: 35,3517           05504                           TC       UPFLAG                                
030095,000887: 35,3520           00146                           ADRES    NTARGFLG                              
030096,000888: 
030097,000889: 35,3521           06036                           TC       INTPRET                               
030098,000890: 35,3522           45014                           BOFF     CALL                                  
030099,000891: 35,3523           03354                                    NTARGFLG                              

Page 688

030101,000893: 35,3524           73526                                    NOCHG                                 
030102,000894: 35,3525           73333                                    S34/35.3                              
030103,000895: 35,3526           77214        NOCHG              CLEAR    VLOAD                                 
030104,000896: 35,3527           01267                                    XDELVFLG                              
030105,000897: 35,3530           03366                                    DELVEET3                              
030106,000898: 35,3531           03654                           STORE    DELVSIN                               
030107,000899: 35,3532           77624        FLAGOFF            CALL                                           
030108,000900: 35,3533           73376                                    S34/35.4                              
030109,000901: 35,3534           77776                           EXIT                                           
030110,000902: 35,3535           33665                           CAF      V06N59                                
030111,000903: 35,3536           03651                           TC       VNPOOH                                
030112,000904: 35,3537           06036                           TC       INTPRET                               
030113,000905: 35,3540           77650                           GOTO                                           
030114,000906: 35,3541           03466                                    SUBEXIT                               
030115,000907: 

Page 689

030117,000909:                                                                                                  #  ..... VN1645    .....
030118,000910: 
030119,000911:                                                                                                  #  SUBROUTINES USED
030120,000912:                                                                                                  #        P3XORP7X
030121,000913:                                                                                                  #        GET+MGA
030122,000914:                                                                                                  #        BANKCALL
030123,000915:                                                                                                  #        DELAYJOB
030124,000916:                                                                                                  #        COMPTGO
030125,000917:                                                                                                  #        GOFLASHR
030126,000918:                                                                                                  #        GOTOPOOH
030127,000919:                                                                                                  #        FLAGUP
030128,000920: 
030129,000921: 35,3542           71220        VN1645             STQ      DLOAD                                 
030130,000922: 35,3543           03466                                    SUBEXIT                               
030131,000923: 35,3544           33702                                    DP-.01                                
030132,000924: 35,3545           02257                           STORE    +MGA                                  #  MGA = -.01
030133,000925: 35,3546           71214                           BOFF     DLOAD                                 
030134,000926: 35,3547           01351                                    FINALFLG                              
030135,000927: 35,3550           73570                                    GET45                                 
030136,000928: 35,3551           33702                                    DP-.01                                
030137,000929: 35,3552           77615                           DAD                                            
030138,000930: 35,3553           33702                                    DP-.01                                
030139,000931: 35,3554           02257                           STORE    +MGA                                  #  MGA = -.02
030140,000932: 35,3555           77414                           BOFF     EXIT                                  
030141,000933: 35,3556           01742                                    REFSMFLG                              
030142,000934: 35,3557           73570                                    GET45                                 
030143,000935: 35,3560           03643                           TC       P3XORP7X                              
030144,000936: 35,3561           03563                           TC       +2                                    #  P3X
030145,000937: 35,3562           03571                           TC       GET45      +1                         #  P7X
030146,000938: 35,3563           06036                           TC       INTPRET                               
030147,000939: 35,3564           41575                           VLOAD    PUSH                                  
030148,000940: 35,3565           03654                                    DELVSIN                               
030149,000941: 35,3566           77624                           CALL                                           #  COMPUTE MGA
030150,000942: 35,3567           20005                                    GET+MGA                               
030151,000943: 35,3570           77776        GET45              EXIT                                           
030152,000944: 35,3571           02376                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
030153,000945: 35,3572           31466                           CA       SUBEXIT                               
030154,000946: 35,3573           55462                           TS       QSAVED                                
030155,000947: 35,3574           34777                           CAF      1SEC                                  
030156,000948: 35,3575           04616                           TC       BANKCALL                              
030157,000949: 35,3576           01735                           CADR     DELAYJOB                              
030158,000950: 35,3577           33667                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
030159,000951: 35,3600           04616                           TC       BANKCALL                              
030160,000952: 35,3601           20351                           CADR     GOFLASH                               
030161,000953: 35,3602           03605                           TC       KILCLOCK                              #  TERMINATE
030162,000954: 35,3603           03610                           TC       N45PROC                               #  PROCEED
030163,000955: 35,3604           03620                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
030164,000956: 35,3605           30005        KILCLOCK           CA       Z                                     
030165,000957: 35,3606           55163                           TS       DISPDEX                               

Page 690

030167,000959: 35,3607           06001                           TC       GOTOPOOH                              
030168,000960: 35,3610           40076        N45PROC            CS       FLAGWRD2                              
030169,000961: 35,3611           74746                           MASK     BIT6                                  
030170,000962: 35,3612           00006                           EXTEND                                         
030171,000963: 35,3613           13605                           BZF      KILCLOCK                              #  FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
030172,000964: 35,3614           05353                           TC       PHASCHNG                              
030173,000965: 35,3615           04024                           OCT      04024                                 
030174,000966: 35,3616           05504                           TC       UPFLAG                                #  SET
030175,000967: 35,3617           00047                           ADRES    FINALFLG                              #  FINALFLG
030176,000968: 35,3620           30005        CLUPDATE           CA       Z                                     
030177,000969: 35,3621           55163                           TS       DISPDEX                               
030178,000970: 35,3622           05353                           TC       PHASCHNG                              
030179,000971: 35,3623           04024                           OCT      04024                                 
030180,000972: 35,3624           06036                           TC       INTPRET                               
030181,000973: 35,3625           52014                           CLEAR    GOTO                                  
030182,000974: 35,3626           00670                                    UPDATFLG                              
030183,000975: 35,3627           03462                                    QSAVED                                
030184,000976: 

Page 691

030186,000978:                                                                                                  #  ..... DISPLAYE  .....
030187,000979: 
030188,000980:                                                                                                  #  SUBROUTINES USED
030189,000981:                                                                                                  #        BANKCALL
030190,000982:                                                                                                  #        GOFLASHR
030191,000983:                                                                                                  #        GOTOPOOH
030192,000984:                                                                                                  #        BLANKET
030193,000985:                                                                                                  #        ENDOFJOB
030194,000986: 
030195,000987: 35,3630           00006        DISPLAYE           EXTEND                                         
030196,000988: 35,3631           23461                           QXCH     NORMEX                                
030197,000989: 35,3632           33663                           CAF      V06N55                                
030198,000990: 35,3633           04616                           TCR      BANKCALL                              
030199,000991: 35,3634           20510                           CADR     GOFLASHR                              
030200,000992: 35,3635           16001                           TCF      GOTOPOOH                              
030201,000993: 35,3636           01461                           TC       NORMEX                                
030202,000994: 35,3637           13632                           TCF      -5                                    
030203,000995: 35,3640           34753                           CAF      BIT1                                  #  BLANK R1
030204,000996: 35,3641           05464                           TCR      BLANKET                               
030205,000997: 35,3642           15155                           TCF      ENDOFJOB                              
030206,000998: 

Page 692

030208,001000:                                                                                                  #  ..... P3XORP7X  .....
030209,001001: 
030210,001002: 35,3643           37743        P3XORP7X           CAF      HIGH9                                 
030211,001003: 35,3644           71011                           MASK     MODREG                                
030212,001004: 35,3645           00006                           EXTEND                                         
030213,001005: 35,3646           13650                           BZF      +2                                    
030214,001006: 35,3647           24002                           INCR     Q                                     
030215,001007: 35,3650           00002                           RETURN                                         
030216,001008: 
030217,001009:                                                                                                  #  ..... VNPOOH   .....
030218,001010: 
030219,001011:                                                                                                  #  SUBROUTINES USED
030220,001012:                                                                                                  #        BANKCALL
030221,001013:                                                                                                  #        GOFLASH
030222,001014:                                                                                                  #        GOTOPOOH
030223,001015: 
030224,001016: 35,3651           00006        VNPOOH             EXTEND                                         
030225,001017: 35,3652           23463                           QXCH     RTRN                                  
030226,001018: 35,3653           55613                           TS       VERBNOUN                              
030227,001019: 35,3654           31613                           CA       VERBNOUN                              
030228,001020: 35,3655           04616                           TCR      BANKCALL                              
030229,001021: 35,3656           20351                           CADR     GOFLASH                               
030230,001022: 35,3657           16001                           TCF      GOTOPOOH                              
030231,001023: 35,3660           01463                           TC       RTRN                                  
030232,001024: 35,3661           13654                           TCF      -5                                    
030233,001025: 

Page 693

030235,001027:                                                                                                  #  ..... CONSTANTS .....
030236,001028: 
030237,001029: 35,3662           01445        V06N37             VN       0637                                  
030238,001030: 35,3663           01467        V06N55             VN       0655                                  
030239,001031: 35,3664           01472        V06N58             VN       0658                                  
030240,001032: 35,3665           01473        V06N59             VN       0659                                  
030241,001033: 35,3666           01521        V06N81             VN       0681                                  
030242,001034: 35,3667           04055        V16N45             VN       1645                                  
030243,001035: 35,3670           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
030244,001036: 
030245,001037: 35,3672           00001 20650  MAX250             2DEC     25         E3                         
030246,001038: 
030247,001039: 35,3674           12525 12525  THIRD              2DEC     .333333333                            
030248,001040: 
030249,001041: 35,3676           00004 21505  ELEPS              2DEC     .27777777  E-3                        
030250,001042: 35,3700           00002        DECTWO             OCT      2                                     
030251,001043: 35,3701           77777        DP-.01             OCT      77777                                 #  CONSTANTS
030252,001044: 35,3702           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
030253,001045: 35,3703           01252 25253  EPSFOUR            2DEC     .0416666666                            
030254,001046: 
030255,001047: 35,3705           13434 16162  130DEG             2DEC     .3611111111                            
030256,001048: 

Page 694

030258,001050:                                                                                                  #  ..... INITVEL .....
030259,001051: 
030260,001052:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
030261,001053:                                                                                                  #  MOD BY WHITE.P                DATE  21NOV67
030262,001054: 
030263,001055:                                                                                                  #  FUNCTIONAL DESCRIPTION
030264,001056: 
030265,001057:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
030266,001058:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
030267,001059:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
030268,001060:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
030269,001061:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
030270,001062:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
030271,001063:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
030272,001064:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
030273,001065:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
030274,001066:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
030275,001067: 
030276,001068:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
030277,001069:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
030278,001070:                                                                                                  #        SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
030279,001071:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
030280,001072:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
030281,001073:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
030282,001074:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
030283,001075:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
030284,001076: 
030285,001077:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
030286,001078:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
030287,001079:                                                                                                  #        TRAJECTORY COMPUTATIONS.
030288,001080: 
030289,001081:                                                                                                  #  CALLING SEQUENCE
030290,001082: 
030291,001083:                                                                                                  #        L       CALL
030292,001084:                                                                                                  #        L+1             INITVEL
030293,001085:                                                                                                  #        L+2     (RETURN - ALWAYS)
030294,001086: 
030295,001087:                                                                                                  #  INPUT
030296,001088: 
030297,001089:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
030298,001090:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
030299,001091:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
030300,001092:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
030301,001093:                                                                                                  #        (5)     INTIME          TIME OF RINIT
030302,001094:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
030303,001095:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
030304,001096:                                                                                                  #        (8)     RTX1            -2 FOR EARTH, -10D FOR LUNAR
030305,001097:                                                                                                  #        (9)     RTX2            COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
030306,001098:                                                                                                  #        PUSHLOC SET AT 4D
030307,001099: 

Page 695

030309,001101:                                                                                                  #  OUTPUT
030310,001102: 
030311,001103:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
030312,001104:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
030313,001105:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
030314,001106:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
030315,001107: 
030316,001108:                                                                                                  #  SUBROUTINES USED
030317,001109: 
030318,001110:                                                                                                  #        LAMBERT
030319,001111:                                                                                                  #        INTSTALL
030320,001112:                                                                                                  #        INTEGRVS
030321,001113: 
030322,001114: 11,2000                                           SETLOC   INTVEL                                
030323,001115: 11,2000                                           BANK                                           
030324,001116: 
030325,001117: 11,2000                                           COUNT*   $$/INITV                              
030326,001118: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
030327,001119: 11,2001           00475                                    GUESSW                                
030328,001120: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
030329,001121: 11,2003           03442                                    RTARG                                 
030330,001122: 11,2004           03461                                    NORMEX                                
030331,001123: 11,2005           03470                           STORE    RTARG1                                
030332,001124: 11,2006           46135                           SLOAD    BHIZ                                  
030333,001125: 11,2007           03377                                    RTX2                                  
030334,001126: 11,2010           22022                                    INITVEL1                              
030335,001127: 11,2011           72575                           VLOAD    VSL2                                  
030336,001128: 11,2012           02327                                    RINIT                                 #  B29
030337,001129: 11,2013           26327                           STOVL    RINIT                                 #  B27
030338,001130: 11,2014           02335                                    VINIT                                 #  B7
030339,001131: 11,2015           77752                           VSL2                                           
030340,001132: 11,2016           26335                           STOVL    VINIT                                 #  B5
030341,001133: 11,2017           03470                                    RTARG1                                
030342,001134: 11,2020           77752                           VSL2                                           
030343,001135: 11,2021           03470                           STORE    RTARG1                                
030344,001136:                                                                                                  #  INITIALIZATION
030345,001137: 
030346,001138: 11,2022           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
030347,001139: 11,2023           03615                                    ITCTR                                 
030348,001140: 11,2024           77776                                    0          -1                         
030349,001141: 11,2025           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4)   (+2)
030350,001142: 11,2026           17665                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4)          (PL 0D)
030351,001143: 11,2027           67154                           LXA,2    SXA,2                                 
030352,001144: 11,2030           00154                                    MPAC                                  
030353,001145: 11,2031           02701                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
030354,001146: 11,2032           77775                           VLOAD                                          
030355,001147: 11,2033           02327                                    RINIT                                 
030356,001148: 11,2034           26655                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
030357,001149: 11,2035           03470                                    RTARG1                                
030358,001150: 11,2036           16663                           STODL    R2VEC                                 #  R2VEC EQ RTARG

Page 0696

030360,001152: 11,2037           03450                                    DELLT4                                
030361,001153: 11,2040           02671                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
030362,001154: 11,2041           77201                           SETPD    VLOAD                                 
030363,001155: 11,2042           00001                                    0D                                    #  INITIALIZE PL TO 0D
030364,001156: 11,2043           02327                                    RINIT                                 #  MPAC EQ RINIT (+29)
030365,001157: 11,2044           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)                     (PL 6D)
030366,001158: 11,2045           53435                           VXV      UNIT                                  
030367,001159: 11,2046           02335                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI   (+8)
030368,001160: 11,2047           26674                           STOVL    UN                                    
030369,001161: 11,2050           03470                                    RTARG1                                
030370,001162: 11,2051           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)                 (PL 0D)
030371,001163: 11,2052           43015                           DAD      CLEAR                                 
030372,001164: 11,2053           03665                                    COZY4                                 
030373,001165: 11,2054           03665                                    NORMSW                                
030374,001166: 11,2055           03665                           STORE    COZY4                                 
030375,001167: 11,2056           43044        INITVEL2           BPL      SET                                   
030376,001168: 11,2057           22101                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
030377,001169: 11,2060           03465                                    NORMSW                                
030378,001170: 
030379,001171:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
030380,001172: 
030381,001173: 11,2061           41575                           VLOAD    PUSH                                  #                                    (PL 6D)
030382,001174: 11,2062           02663                                    R2VEC                                 #  RC TO 6D (+29)
030383,001175: 11,2063           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D)
030384,001176: 11,2064           46206                           PUSH     VPROJ                                 #                                    (PL 8D)
030385,001177: 11,2065           02674                                    UN                                    
030386,001178: 11,2066           51352                           VSL2     BVSU                                  
030387,001179: 11,2067           74256                           UNIT     VXSC                                  #                                    (PL 0D)
030388,001180: 11,2070           77772                           VSL1                                           
030389,001181: 11,2071           02663                           STORE    R2VEC                                 
030390,001182: 11,2072           67351                           TLOAD    SLOAD                                 
030391,001183: 11,2073           22275                                    ZEROVEC                               
030392,001184: 11,2074           03615                                    ITCTR                                 
030393,001185: 11,2075           77244                           BPL      VLOAD                                 
030394,001186: 11,2076           22101                                    INITVEL3                              
030395,001187: 11,2077           02663                                    R2VEC                                 
030396,001188: 11,2100           03470                           STORE    RTARG1                                
030397,001189: 11,2101           63345        INITVEL3           DLOAD    PDVL                                  #                                    (PL 2D)
030398,001190: 11,2102           26007                                    MUEARTH                               #  POSITIVE VALUE
030399,001191: 11,2103           02663                                    R2VEC                                 
030400,001192: 11,2104           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)                  (PL 8D)
030401,001193: 11,2105           02655                                    R1VEC                                 
030402,001194: 11,2106           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)                 (PL 14D)
030403,001195: 11,2107           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
030404,001196: 11,2110           00003                                    2D                                    
030405,001197: 11,2111           77606                           PUSH                                           #                                   (PL 20D)
030406,001198: 11,2112           71350                           LXA,1    DLOAD                                 
030407,001199: 11,2113           03375                                    RTX1                                  
030408,001200: 11,2114           00023                                    18D                                   
030409,001201: 11,2115           62040                           BMN      INCR,1                                
030410,001202: 11,2116           22120                                    +2                                    

Page 697

030412,001204: 11,2117           77767                           DEC      -8         B-14                       
030413,001205: 11,2120           67310                           INCR,1   SLOAD                                 
030414,001206: 11,2121           00012                                    10D                                   
030415,001207: 11,2122           00047                                    X1                                    
030416,001208: 11,2123           77230                           BHIZ     VLOAD                                 #                                   (PL 14D)
030417,001209: 11,2124           22126                                    +2                                    
030418,001210: 11,2125           41476                           VCOMP    PUSH                                  #                                   (PL 20D)
030419,001211: 11,2126           77775                           VLOAD                                          #                                   (PL 14D)
030420,001212: 11,2127           50235                           VXV      DOT                                   #                                    (PL 2D)
030421,001213: 11,2130           71244                           BPL      DLOAD                                 #                                    (PL 0D)
030422,001214: 11,2131           22133                                    INITVEL4                              
030423,001215: 11,2132           41476                           DCOMP    PUSH                                  #                                    (PL 2D)
030424,001216: 11,2133           67154        INITVEL4           LXA,2    SXA,2                                 
030425,001217: 11,2134           00000                                    0D                                    
030426,001218: 11,2135           02672                                    GEOMSGN                               
030427,001219:                                                                                                  #  SET INPUTS UP FOR LAMBERT
030428,001220: 
030429,001221: 11,2136           43131                           SSP      BOFF                                  
030430,001222: 11,2137           00027                                    ITERCTR                               
030431,001223: 11,2140           00024                                    20D                                   
030432,001224: 11,2141           03752                                    AVEGFLAG                              
030433,001225: 11,2142           22146                                    +4                                    
030434,001226: 11,2143           77731                           SSP                                            
030435,001227: 11,2144           00027                                    ITERCTR                               
030436,001228: 11,2145           00005                                    5                                     
030437,001229: 11,2146           45150                           LXA,1    CALL                                  
030438,001230: 11,2147           03375                                    RTX1                                  
030439,001231:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
030440,001232: 
030441,001233: 11,2150           25223                                    LAMBERT                               
030442,001234: 
030443,001235:                                                                                                  #        DELETE THRU 4521
030444,001236:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
030445,001237: 
030446,001238: 11,2151           77214                           CLEAR    VLOAD                                 
030447,001239: 11,2152           00675                                    GUESSW                                
030448,001240: 11,2153           02744                                    VVEC                                  
030449,001241: 
030450,001242:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
030451,001243: 
030452,001244: 11,2154           16343                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
030453,001245: 
030454,001246:                                                                                                  #     IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
030455,001247:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
030456,001248: 
030457,001249: 11,2155           02702                                    VTARGTAG                              
030458,001250: 11,2156           45030                           BHIZ     CALL                                  
030459,001251: 11,2157           22234                                    INITVEL7                              
030460,001252: 11,2160           27412                                    INTSTALL                              
030461,001253: 11,2161           43135                           SLOAD    CLEAR                                 
030462,001254: 11,2162           03377                                    RTX2                                  

Page 698

030464,001256: 11,2163           00263                                    MOONFLAG                              
030465,001257: 11,2164           43030                           BHIZ     SET                                   
030466,001258: 11,2165           22167                                    INITVEL5                              
030467,001259: 11,2166           00063                                    MOONFLAG                              
030468,001260: 11,2167           77775        INITVEL5           VLOAD                                          
030469,001261: 11,2170           02327                                    RINIT                                 
030470,001262: 11,2171           02655                           STORE    R1VEC                                 
030471,001263: 11,2172           25535                           STOVL    RCV                                   
030472,001264: 11,2173           02343                                    VIPRIME                               
030473,001265: 11,2174           15543                           STODL    VCV                                   
030474,001266: 11,2175           03606                                    INTIME                                
030475,001267: 11,2176           01517                           STORE    TET                                   
030476,001268: 11,2177           43015                           DAD      CLEAR                                 
030477,001269: 11,2200           03450                                    DELLT4                                
030478,001270: 11,2201           01673                                    INTYPFLG                              
030479,001271: 11,2202           34041                           STCALL   TDEC1                                 
030480,001272: 11,2203           27107                                    INTEGRVS                              
030481,001273: 11,2204           77775                           VLOAD                                          
030482,001274: 11,2205           00025                                    VATT1                                 
030483,001275: 11,2206           02703                           STORE    VTARGET                               
030484,001276:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
030485,001277:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
030486,001278: 
030487,001279: 11,2207           63154                           LXA,2    INCR,2                                
030488,001280: 11,2210           03614                                    ITCTR                                 
030489,001281: 11,2211           00001                                    1D                                    #  INCREMENT ITCTR
030490,001282: 11,2212           55134                           SXA,2    XSU,2                                 
030491,001283: 11,2213           03614                                    ITCTR                                 
030492,001284: 11,2214           02701                                    VTARGTAG                              
030493,001285: 11,2215           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
030494,001286: 11,2216           00050                                    X2                                    
030495,001287: 11,2217           22231                                    INITVEL6                              
030496,001288: 
030497,001289:                                                                                                  #  OFFSET CONIC TARGET VECTOR
030498,001290: 
030499,001291: 11,2220           52375                           VLOAD    VSU                                   
030500,001292: 11,2221           03470                                    RTARG1                                
030501,001293: 11,2222           00017                                    RATT1                                 
030502,001294: 11,2223           77655                           VAD                                            
030503,001295: 11,2224           02663                                    R2VEC                                 
030504,001296: 11,2225           16663                           STODL    R2VEC                                 
030505,001297: 11,2226           03665                                    COZY4                                 
030506,001298: 11,2227           77650                           GOTO                                           
030507,001299: 11,2230           22056                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
030508,001300:                                                                                                  #  COMPUTE THE DELTA VELOCITY
030509,001301: 
030510,001302: 11,2231           77775        INITVEL6           VLOAD                                          
030511,001303: 11,2232           02663                                    R2VEC                                 
030512,001304: 11,2233           03470                           STORE    RTARG1                                
030513,001305: 11,2234           52375        INITVEL7           VLOAD    VSU                                   

Page 699

030515,001307: 11,2235           02343                                    VIPRIME                               
030516,001308: 11,2236           02335                                    VINIT                                 
030517,001309: 11,2237           27366                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)
030518,001310: 11,2240           02703                                    VTARGET                               
030519,001311: 11,2241           03564                           STORE    VTPRIME                               
030520,001312: 11,2242           46135                           SLOAD    BHIZ                                  
030521,001313: 11,2243           03377                                    RTX2                                  
030522,001314: 11,2244           22261                                    INITVELX                              
030523,001315: 11,2245           70575                           VLOAD    VSR2                                  
030524,001316: 11,2246           03564                                    VTPRIME                               
030525,001317: 11,2247           27564                           STOVL    VTPRIME                               
030526,001318: 11,2250           02343                                    VIPRIME                               
030527,001319: 11,2251           77742                           VSR2                                           
030528,001320: 11,2252           26343                           STOVL    VIPRIME                               
030529,001321: 11,2253           03470                                    RTARG1                                
030530,001322: 11,2254           77742                           VSR2                                           
030531,001323: 11,2255           27470                           STOVL    RTARG1                                
030532,001324: 11,2256           03366                                    DELVEET3                              
030533,001325: 11,2257           77742                           VSR2                                           
030534,001326: 11,2260           03366                           STORE    DELVEET3                              
030535,001327: 11,2261           77201        INITVELX           SETPD    VLOAD                                 
030536,001328: 11,2262           00001                                    0D                                    
030537,001329: 11,2263           03470                                    RTARG1                                
030538,001330: 11,2264           37442                           STCALL   RTARG                                 
030539,001331: 11,2265           03461                                    NORMEX                                
030540,001332: 
030541,001333:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
030542,001334: 

Page 700

030544,001336:                                                                                                  #  ..... MIDGIM .....
030545,001337: 
030546,001338:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
030547,001339:                                                                                                  #   REVISION 03, 17 FEB 67
030548,001340: 
030549,001341:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
030550,001342:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
030551,001343:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
030552,001344:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
030553,001345:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
030554,001346: 
030555,001347:                                                                                                  #  .. INPUTS ..
030556,001348: 
030557,001349:                                                                                                  #        NAME    MEANING                                         UNITS/SCALING/MODE
030558,001350: 
030559,001351:                                                                                                  #        AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE                     BIT
030560,001352:                                                                                                  #        RINIT   ACTIVE VEHICLE RADIUS VECTOR                    METERS/CSEC (+7) VT
030561,001353:                                                                                                  #        VINIT   ACTIVE VEHICLE VELOCITY VECTOR                  METERS/CSEC (+7) VT
030562,001354:                                                                                                  #        0D(PL)  ACTIVE VEHICLE DELTA VELOCITY VECTOR            METERS/CSEC (+7) VT
030563,001355: 
030564,001356:                                                                                                  #  .. OUTPUTS ..
030565,001357: 
030566,001358:                                                                                                  #     NAME       MEANING                                         UNITS/SCALING/MODE
030567,001359: 
030568,001360:                                                                                                  #     +MGA       + MIDDLE GIMBAL ANGLE                           REVOLUTIONS (+0) DP
030569,001361:                                                                                                  #     DELVLVC    DELTA VELOCITY VECTOR IN LV COORD.              METERS/CSEC (+7) VT
030570,001362:                                                                                                  #     MGLVFLAG   INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.       -       BIT
030571,001363: 
030572,001364:                                                                                                  #  .. CALLING SEQUENCE ..
030573,001365: 
030574,001366:                                                                                                  #        L       CALL
030575,001367:                                                                                                  #        L+1             MIDGIM
030576,001368:                                                                                                  #        L+2     (RETURN - ALWAYS)
030577,001369: 
030578,001370:                                                                                                  #  .. NO SUBROUTINES CALLED ..
030579,001371: 
030580,001372:                                                                                                  #  .. DEBRIS - ERASEABLE TEMPORARY USAGE
030581,001373: 
030582,001374:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
030583,001375: 
030584,001376:                                                                                                  #  .. ALARMS - NONE ..
030585,001377: 

Page 701

030587,001379:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
030588,001380: 
030589,001381: 10,2000                                           SETLOC   MIDDGIM                               
030590,001382: 10,2000                                           BANK                                           
030591,001383: 
030592,001384: 10,2000                                           COUNT*   $$/MIDG                               
030593,001385: 
030594,001386: 10,2000           20000 00000  HALFREV            2DEC     1          B-1                        
030595,001387: 
030596,001388: 10,2002           77614        MIDGIM             BOFF                                           
030597,001389: 10,2003           01352                                    AVFLAG                                
030598,001390: 10,2004           20021                                    GET.LVC                               
030599,001391: 10,2005  10,2005               MIDGIM1            =        GET+MGA                               
030600,001392: 
030601,001393: 10,2005           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
030602,001394: 10,2006           77656                           UNIT                                           
030603,001395: 10,2007           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
030604,001396: 10,2010           01742                                    REFSMMAT   +6                         #  FROM +2 TO +1 FOR ASIN ROUTINE
030605,001397: 10,2011           51136                           ARCSIN   BPL                                   
030606,001398: 10,2012           20016                                    SETMGA                                
030607,001399: 10,2013           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
030608,001400: 10,2014           20001                                    HALFREV                               #  ADDING ONE REVOLUTION
030609,001401: 10,2015           20001                                    HALFREV                               
030610,001402: 10,2016           02257        SETMGA             STORE    +MGA                                  
030611,001403: 10,2017           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
030612,001404: 10,2020           02675                                    MGLVFLAG                              #  AND EXIT
030613,001405: 10,2021           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC, UNITIZE UR
030614,001406: 10,2022           02327                                    RINIT                                 
030615,001407: 10,2023           77676                           VCOMP                                          #  U(-R)
030616,001408: 10,2024           00023                           STORE    18D                                   #  U(-R) TO 18D
030617,001409: 10,2025           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
030618,001410: 10,2026           02335                                    VINIT                                 
030619,001411: 10,2027           00015                           STORE    12D                                   #  U(V*R) TO 12D
030620,001412: 10,2030           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
030621,001413: 10,2031           00023                                    18D                                   
030622,001414: 10,2032           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
030623,001415: 10,2033           00001                                    0D                                    #  DELTA V (+7) IN 0D
030624,001416: 10,2034           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
030625,001417: 10,2035           00007                                    6D                                    #  AND SCALE +7 IN MPAC
030626,001418: 10,2036           03432                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
030627,001419: 10,2037           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
030628,001420: 10,2040           02475                                    MGLVFLAG                              #  AND EXIT
030629,001421: 
030630,001422:                                                                                                  #  ..... END OF MIDGIM ROUTINE .....
030631,001423: 

Page 702

030633,001425: 
030634,001426: 10,2041           77160        SELECTMU           AXC,1    AXT,2                                 
030635,001427: 10,2042           00002                                    2D                                    
030636,001428: 10,2043           00000                                    0D                                    
030637,001429: 10,2044           77614                           BOFF                                           
030638,001430: 10,2045           04343                                    CMOONFLG                              
030639,001431: 10,2046           20052                                    SETMUER                               
030640,001432: 10,2047           77160                           AXC,1    AXT,2                                 
030641,001433: 10,2050           00012                                    10D                                   
030642,001434: 10,2051           00002                                    2D                                    
030643,001435: 10,2052           66143        SETMUER            DLOAD*   SXA,1                                 
030644,001436: 10,2053           10011                                    MUTABLE    +4,1                       
030645,001437: 10,2054           03375                                    RTX1                                  
030646,001438: 10,2055           22323                           STODL*   RTSR1/MU                              
030647,001439: 10,2056           10003                                    MUTABLE    -2,1                       
030648,001440: 10,2057           54214                           BOFF     SR                                    
030649,001441: 10,2060           04343                                    CMOONFLG                              
030650,001442: 10,2061           20063                                    RTRNMU                                
030651,001443: 10,2062           20607                                    6D                                    
030652,001444: 10,2063           02325        RTRNMU             STORE    RTMU                                  
030653,001445: 10,2064           43134                           SXA,2    CLEAR                                 
030654,001446: 10,2065           03376                                    RTX2                                  
030655,001447: 10,2066           01271                                    FINALFLG                              
030656,001448: 10,2067           77650                           GOTO                                           
030657,001449: 10,2070           73542                                    VN1645                                
030658,001450: 

Page 703

030660,001452:                                                                                                  #  ..... PERIAPO .....
030661,001453: 
030662,001454:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
030663,001455:                                                                                                  #  MOD BY WHITE.P                DATE 18JAN68
030664,001456: 
030665,001457:                                                                                                  #  FUNCTIONAL DESCRIPTION
030666,001458: 
030667,001459:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
030668,001460:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
030669,001461:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
030670,001462: 
030671,001463:                                                                                                  #        SETRAD IS CALLED TO  DETERMINE THE RADIUS OF THE PRIMARY BODY.
030672,001464: 
030673,001465:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
030674,001466:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
030675,001467: 
030676,001468:                                                                                                  #  CALLING SEQUENCE
030677,001469: 
030678,001470:                                                                                                  #        L       CALL
030679,001471:                                                                                                  #        L+1             PERIAPO
030680,001472:                                                                                                  #        L+2     (RETURN - ALWAYS)
030681,001473: 
030682,001474:                                                                                                  #  INPUT
030683,001475: 
030684,001476:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
030685,001477:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
030686,001478:                                                                                                  #        (2)     VVEC    VELOCITY VECTOR IN METERS/CENTISECOND
030687,001479:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
030688,001480:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
030689,001481:                                                                                                  #                        EARTH -2, MOON -10
030690,001482: 
030691,001483:                                                                                                  #  OUTPUT
030692,001484: 
030693,001485:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
030694,001486:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
030695,001487:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
030696,001488:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
030697,001489:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
030698,001490:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
030699,001491:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
030700,001492:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
030701,001493:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
030702,001494:                                                                                                  #                        SCALE FACTOR - +3
030703,001495:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
030704,001496:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
030705,001497:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
030706,001498: 
030707,001499:                                                                                                  #  SUBROUTINES USED
030708,001500: 
030709,001501:                                                                                                  #        SETRAD

Page 704

030711,001503:                                                                                                  #        APSIDES
030712,001504: 
030713,001505: 23,2000                                           SETLOC   APOPERI                               
030714,001506: 23,2000                                           BANK                                           
030715,001507: 
030716,001508: 23,2275                                           COUNT*   $$/PERAP                              
030717,001509: 
030718,001510: 23,2275           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
030719,001511:                                                                                                  #  = 20 909 901.57 FT
030720,001512: 
030721,001513: 23,2277           53754        PERIAPO1           LXA,2    VSR*                                  
030722,001514: 23,2300           03376                                    RTX2                                  
030723,001515: 23,2301           57176                                    0,2                                   
030724,001516: 23,2302           26744                           STOVL    VVEC                                  
030725,001517: 23,2303           53750                           LXA,1    VSR*                                  
030726,001518: 23,2304           03375                                    RTX1                                  
030727,001519: 23,2305           57176                                    0,2                                   
030728,001520: 23,2306           02655                           STORE    RVEC                                  
030729,001521: 23,2307           45020        PERIAPO            STQ      CALL                                  
030730,001522: 23,2310           03461                                    NORMEX                                
030731,001523: 23,2311           46325                                    SETRAD                                
030732,001524: 23,2312           37667                           STCALL   XXXALT                                
030733,001525: 23,2313           25675                                    APSIDES                               
030734,001526: 23,2314           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
030735,001527: 23,2315           00003                                    2D                                    
030736,001528: 23,2316           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
030737,001529: 23,2317           03667                                    XXXALT                                
030738,001530: 23,2320           00001                                    0D                                    
030739,001531: 23,2321           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
030740,001532: 23,2322           03667                                    XXXALT                                
030741,001533: 23,2323           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
030742,001534: 23,2324           03461                                    NORMEX                                
030743,001535: 

Page 705

030745,001537:                                                                                                  #  SETRAD
030746,001538: 
030747,001539: 23,2325           41545        SETRAD             DLOAD    PUSH                                  
030748,001540: 23,2326           06276                                    RPAD                                  
030749,001541: 23,2327           63130                           SXA,1    INCR,2                                
030750,001542: 23,2330           00047                                    X2                                    
030751,001543: 23,2331           00002                                    2D                                    
030752,001544: 23,2332           46135                           SLOAD    BHIZ                                  
030753,001545: 23,2333           00050                                    X2                                    
030754,001546: 23,2334           46340                                    SETRADX                               
030755,001547: 23,2335           51575                           VLOAD    ABVAL                                 
030756,001548: 23,2336           02023                                    RLS                                   
030757,001549: 23,2337           77725                           PDDL                                           
030758,001550: 23,2340           43545        SETRADX            DLOAD    RVQ                                   
030759,001551: 

Page 706

030761,001553:                                                                                                  #  PRECSET
030762,001554: 
030763,001555: 23,2341           77620        PRECSET            STQ                                            
030764,001556: 23,2342           03461                                    NORMEX                                
030765,001557: 23,2343           37572                           STCALL   TDEC2                                 
030766,001558: 23,2344           27057                                    LEMPREC                               
030767,001559: 23,2345           77624                           CALL                                           
030768,001560: 23,2346           46357                                    LEMSTORE                              
030769,001561: 23,2347           77745                           DLOAD                                          
030770,001562: 23,2350           03572                                    TDEC2                                 
030771,001563: 23,2351           34041                           STCALL   TDEC1                                 
030772,001564: 23,2352           27043                                    CSMPREC                               
030773,001565: 23,2353           77624                           CALL                                           
030774,001566: 23,2354           46367                                    CSMSTORE                              
030775,001567: 23,2355           77650                           GOTO                                           
030776,001568: 23,2356           03461                                    NORMEX                                
030777,001569: 23,2357           43175        LEMSTORE           VLOAD    BOFF                                  
030778,001570: 23,2360           00001                                    RATT                                  
030779,001571: 23,2361           01352                                    AVFLAG                                
030780,001572: 23,2362           46373                                    PASSIVE                               
030781,001573: 23,2363           27534        ACTIVE             STOVL    RACT3                                 
030782,001574: 23,2364           00007                                    VATT                                  
030783,001575: 23,2365           03542                           STORE    VACT3                                 
030784,001576: 23,2366           77616                           RVQ                                            
030785,001577: 23,2367           43175        CSMSTORE           VLOAD    BOFF                                  
030786,001578: 23,2370           00001                                    RATT                                  
030787,001579: 23,2371           01352                                    AVFLAG                                
030788,001580: 23,2372           46363                                    ACTIVE                                
030789,001581: 23,2373           27550        PASSIVE            STOVL    RPASS3                                
030790,001582: 23,2374           00007                                    VATT                                  
030791,001583: 23,2375           03556                           STORE    VPASS3                                
030792,001584: 23,2376           77616                           RVQ                                            
030793,001585: 

Page 707

030795,001587:                                                                                                  #  VECSHIFT 
030796,001588: 23,2377           53754        VECSHIFT           LXA,2    VSR*                                  
030797,001589: 23,2400           03376                                    RTX2                                  
030798,001590: 23,2401           57176                                    0,2                                   
030799,001591: 23,2402           63350                           LXA,1    PDVL                                  
030800,001592: 23,2403           03375                                    RTX1                                  
030801,001593: 23,2404           63257                           VSR*     PDVL                                  
030802,001594: 23,2405           57176                                    0,2                                   
030803,001595: 23,2406           77616                           RVQ                                            
030804,001596: 

Page 708

030806,001598:                                                                                                  #  SHIFTR1
030807,001599: 
030808,001600: 23,2407           53754        SHIFTR1            LXA,2    SL*                                   
030809,001601: 23,2410           03376                                    RTX2                                  
030810,001602: 23,2411           57576                                    0,2                                   
030811,001603: 23,2412           77616                           RVQ                                            
030812,001604: 

Page 709

030814,001606:                                                                                                  #  PROGRAM DESCRIPTION
030815,001607:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
030816,001608:                                                                                                  #  MOD NO. 0             DATE    22 DECEMBER 67
030817,001609:                                                                                                  #  MOD BY N.M.NEVILLE    LOG SECTION EXTENDED VERBS
030818,001610:                                                                                                  #  FUNCTIONAL DESCRIPTION
030819,001611: 
030820,001612:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
030821,001613:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y , YDOT , PSI). (REQUESTED BY DSKY).
030822,001614: 
030823,001615:                                                                                                  #  CALLING SEQUENCE
030824,001616: 
030825,001617:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY V 90 E
030826,001618: 
030827,001619:                                                                                                  #  SUBROUTINES CALLED
030828,001620: 
030829,001621:                                                                                                  #  EXDSPRET
030830,001622:                                                                                                  #  GOMARKF
030831,001623:                                                                                                  #  CSMPREC
030832,001624:                                                                                                  #  LEMPREC
030833,001625:                                                                                                  #  SGNAGREE
030834,001626:                                                                                                  #  LOADTIME
030835,001627: 
030836,001628:                                                                                                  #  NORMAL EXIT MODES
030837,001629: 
030838,001630:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
030839,001631: 
030840,001632:                                                                                                  #  ALARM OR ABORT EXIT MODES
030841,001633: 
030842,001634:                                                                                                  #  NONE
030843,001635: 
030844,001636:                                                                                                  #  OUTPUT
030845,001637: 
030846,001638:                                                                                                  #  DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI
030847,001639: 
030848,001640:                                                                                                  #  DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE
030849,001641:                                                                                                  #  REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY.
030850,001642: 
030851,001643:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030852,001644: 
030853,001645:                                                                                                  #  CSM AND LEM STATE VECTORS
030854,001646: 
030855,001647:                                                                                                  #  DEBRIS
030856,001648: 
030857,001649:                                                                                                  #  CENTRALS A,Q,L
030858,001650:                                                                                                  #  OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
030859,001651: 
030860,001652: 20,2115                                           BANK     20                                    
030861,001653: 04,2000                                           SETLOC   R36LM                                 
030862,001654: 04,2000                                           BANK                                           

Page 710

030864,001656: 04,2613  E4,1612                                  EBANK=   RPASS36                               
030865,001657: 
030866,001658: 04,2613                                           COUNT*   $$/R36                                
030867,001659: 
030868,001660: 04,2613           22007        R36                ZL                                             
030869,001661: 04,2614           34755                           CAF      ZERO                                  #  SET TIME OF EVENT TO ZERO FOR FIRST
030870,001662: 04,2615           53052                           DXCH     DSPTEMX                               #  DISPLAY
030871,001663: 04,2616           32746                           CAF      V06N16N                               
030872,001664: 04,2617           04616                           TC       BANKCALL                              
030873,001665: 04,2620           20212                           CADR     GOMARKF                               
030874,001666: 04,2621           15472                           TCF      ENDEXT                                #  TERMINATE
030875,001667: 04,2622           12624                           TCF      +2                                    #  PROCEED
030876,001668: 04,2623           12616                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
030877,001669: 04,2624           53052                           DXCH     DSPTEMX                               
030878,001670: 04,2625           00006                           EXTEND                                         
030879,001671: 04,2626           12735                           BZF      LREGCHK                               #  A-REG ZERO GOTO CHECK L-REG FOR ZERO
030880,001672: 04,2627           52155        ASTROTIM           DXCH     MPAC                                  #  A-REG NON-ZERO, TIME = ASTRO INPUT TIME
030881,001673: 04,2630           06036                           TC       INTPRET                               
030882,001674: 04,2631           77634                           RTB                                            
030883,001675: 04,2632           21670                                    DPMODE                                
030884,001676: 04,2633           34041        R36INT             STCALL   TDEC1                                 
030885,001677: 04,2634           27043                                    OTHPREC                               
030886,001678: 04,2635           63375                           VLOAD    PDVL                                  
030887,001679: 04,2636           00007                                    VATT                                  
030888,001680: 04,2637           00001                                    RATT                                  #  -
030889,001681: 04,2640           02213                           STORE    RPASS36                               #  R
030890,001682: 04,2641           63256                           UNIT     PDVL                                  #   P
030891,001683: 04,2642           53435                           VXV      UNIT                                  #  -
030892,001684: 04,2643           77626                           STADR                                          
030893,001685: 04,2644           61556                           STODL    UNP36                                 #  U
030894,001686: 04,2645           00015                                    TAT                                   
030895,001687: 04,2646           34041                           STCALL   TDEC1                                 
030896,001688: 04,2647           27057                                    THISPREC                              
030897,001689: 04,2650           63375                           VLOAD    PDVL                                  #                  -
030898,001690: 04,2651           00007                                    VATT                                  #  VELOCITY VECTOR V             00D
030899,001691: 04,2652           00001                                    RATT                                  #                   A
030900,001692: 04,2653           77725                           PDDL                                           
030901,001693: 04,2654           00015                                    TAT                                   #  SAVE TIME IN LOCATION 30D FOR REDISPLAY
030902,001694: 04,2655           24037                           STOVL    30D                                   #                  -
030903,001695: 04,2656           41406                           PUSH     PUSH                                  #  POSITION VECTOR R  IN 06D AND 12D
030904,001696: 04,2657           63245                           BVSU     PDVL                                  #                   A   -   -
030905,001697: 04,2660           02213                                    RPASS36                               #  LINE OF SIGHT VECTOR R - R    12D
030906,001698: 04,2661           72441                           DOT      SL1                                   #                        P   A
030907,001699: 04,2662           02221                                    UNP36                                 #      -   -
030908,001700: 04,2663           26205                           STOVL    RANGE                                 #  Y = U . R
030909,001701: 04,2664           00001                                    00D                                   #           A
030910,001702: 04,2665           72441                           DOT      SL1                                   
030911,001703: 04,2666           02221                                    UNP36                                 #  .   -   -
030912,001704: 04,2667           26207                           STOVL    RRATE                                 #  Y = U . V
030913,001705: 04,2670           00007                                    06D                                   #  -        A  -

Page 711

030915,001707: 04,2671           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
030916,001708: 04,2672           47235                           VXV      VXV                                   #   RA          A
030917,001709: 04,2673           00001                                    00D                                   #   -    -     -     -
030918,001710: 04,2674           00023                                    18D                                   #  (U  X V ) X U   = U
030919,001711: 04,2675           53552                           VSL2     UNIT                                  #    RA   A     RA    A
030920,001712: 04,2676           77656                           UNIT                                           
030921,001713: 04,2677           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D
030922,001714: 04,2700           00023                                    18D                                   
030923,001715: 04,2701           74241                           DOT      VXSC                                  #  -
030924,001716: 04,2702           00015                                    12D                                   #  U
030925,001717: 04,2703           77752                           VSL2                                           #   L
030926,001718: 04,2704           53445                           BVSU     UNIT                                  
030927,001719: 04,2705           77656                           UNIT                                           
030928,001720: 04,2706           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
030929,001721: 04,2707           00001                                    00D                                   #  PLANE
030930,001722: 04,2710           65552                           SL1      ARCCOS                                #               -   -
030931,001723: 04,2711           26211                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
030932,001724: 04,2712           50235                           VXV      DOT                                   #                A   L
030933,001725: 04,2713           00001                                    00D                                   
030934,001726: 04,2714           71244                           BPL      DLOAD                                 
030935,001727: 04,2715           10722                                    R36TAG2                               
030936,001728: 04,2716           22306                                    LODPMAX                               
030937,001729: 04,2717           77625                           DSU                                            
030938,001730: 04,2720           02211                                    RTHETA                                
030939,001731: 04,2721           02211                           STORE    RTHETA                                
030940,001732: 04,2722           47145        R36TAG2            DLOAD    RTB                                   
030941,001733: 04,2723           00037                                    30D                                   
030942,001734: 04,2724           21516                                    SGNAGREE                              
030943,001735: 04,2725           01052                           STORE    DSPTEMX                               
030944,001736: 04,2726           77776                           EXIT                                           
030945,001737: 04,2727           32747                           CAF      V06N90N                               #   DISPLAY Y , YDOT , AND PSI
030946,001738: 04,2730           04616                           TC       BANKCALL                              
030947,001739: 04,2731           20212                           CADR     GOMARKF                               
030948,001740: 04,2732           15472                           TCF      ENDEXT                                #  TERMINATE
030949,001741: 04,2733           15472                           TCF      ENDEXT                                #  PROCEED , END OF PROGRAM
030950,001742: 04,2734           12616                           TCF      R36        +3                         #  REDISPLAY OUTPUT
030951,001743: 04,2735           56001        LREGCHK            XCH      L                                     
030952,001744: 04,2736           00006                           EXTEND                                         
030953,001745: 04,2737           12742                           BZF      ENTTIM2                               #  L-REG ZERO, SET TIME = PRESENT TIME
030954,001746: 04,2740           56001                           XCH      L                                     #  L-REG NON ZERO, TIME = ASTRO INPUT TIME
030955,001747: 04,2741           12627                           TCF      ASTROTIM                              
030956,001748: 04,2742           06036        ENTTIM2            TC       INTPRET                               
030957,001749: 04,2743           52034                           RTB      GOTO                                  
030958,001750: 04,2744           21462                                    LOADTIME                              
030959,001751: 04,2745           10633                                    R36INT                                
030960,001752: 04,2746           01420        V06N16N            VN       00616                                 
030961,001753: 04,2747           01532        V06N90N            VN       00690                                 

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