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.

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

Page 667

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

Page 668

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

Page 669

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

Page 670

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

Page 671

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

Page 672

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

Page 673

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

Page 674

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

Page 675

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

Page 676

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

Page 677

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

Page 678

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

Page 679

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

Page 680

029870,000668: 35,3234           06424                                    ZEROVECS                              
029871,000669: 35,3235           03461                                    NORMEX                                
029872,000670: 

Page 681

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

Page 682

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

Page 683

029943,000741: 35,3326           03366                                    DELVEET3                              
029944,000742: 35,3327           00001                                    0D                                    
029945,000743: 35,3330           77772                           VSL1                                           
029946,000744: 35,3331           37432                           STCALL   DELVLVC                               
029947,000745: 35,3332           03466                                    SUBEXIT                               
029948,000746: 

Page 684

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

Page 685

029989,000787:                                                                                                  #  ..... S34/35.4 .....
029990,000788: 
029991,000789: 35,3376           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
029992,000790: 35,3377           03461                                    NORMEX                                
029993,000791: 35,3400           00001                                    0D                                    
029994,000792: 35,3401           77650                           GOTO                                           
029995,000793: 35,3402           73360                                    NOVRWRT                               
029996,000794: 

Page 686

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

Page 687

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

Page 688

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

Page 689

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

Page 690

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

Page 691

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

Page 692

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

Page 693

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

Page 694

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

Page 695

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

Page 0696

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

Page 697

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

Page 698

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

Page 699

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

Page 700

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

Page 701

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

Page 702

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

Page 703

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

Page 704

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

Page 705

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

Page 706

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

Page 707

030789,001587:                                                                                                  #  VECSHIFT 
030790,001588: 23,2377           53754        VECSHIFT           LXA,2    VSR*                                  
030791,001589: 23,2400           03376                                    RTX2                                  
030792,001590: 23,2401           57176                                    0,2                                   
030793,001591: 23,2402           63350                           LXA,1    PDVL                                  
030794,001592: 23,2403           03375                                    RTX1                                  
030795,001593: 23,2404           63257                           VSR*     PDVL                                  
030796,001594: 23,2405           57176                                    0,2                                   
030797,001595: 23,2406           77616                           RVQ                                            
030798,001596: 

Page 708

030800,001598:                                                                                                  #  SHIFTR1
030801,001599: 
030802,001600: 23,2407           53754        SHIFTR1            LXA,2    SL*                                   
030803,001601: 23,2410           03376                                    RTX2                                  
030804,001602: 23,2411           57576                                    0,2                                   
030805,001603: 23,2412           77616                           RVQ                                            
030806,001604: 

Page 709

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

Page 710

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

Page 711

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

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