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.

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

Page 667

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

Page 668

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

Page 669

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

Page 670

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

Page 671

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

Page 672

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

Page 673

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

Page 674

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

Page 675

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

Page 676

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

Page 677

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

Page 678

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

Page 679

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

Page 680

029887,000668: 35,3234           06424                                    ZEROVECS                              
029888,000669: 35,3235           03461                                    NORMEX                                
029889,000670: 

Page 681

029891,000672:                                                                                                  #  ..... S34/35.1 .....
029892,000673: 
029893,000674:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
029894,000675:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
029895,000676: 
029896,000677: 35,3236           52375        S34/35.1           VLOAD    VSU                                   
029897,000678: 35,3237           03550                                    RPASS3                                
029898,000679: 35,3240           03534                                    RACT3                                 
029899,000680: 35,3241           41456                           UNIT     PUSH                                  
029900,000681: 35,3242           26315                           STOVL    ULOS                                  
029901,000682: 35,3243           03534                                    RACT3                                 
029902,000683: 35,3244           53435                           VXV      UNIT                                  
029903,000684: 35,3245           03542                                    VACT3                                 
029904,000685: 35,3246           02265                           STORE    UNRM                                  
029905,000686: 35,3247           77616                           RVQ                                            
029906,000687: 

Page 682

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

Page 683

029960,000741: 35,3326           03366                                    DELVEET3                              
029961,000742: 35,3327           00001                                    0D                                    
029962,000743: 35,3330           77772                           VSL1                                           
029963,000744: 35,3331           37432                           STCALL   DELVLVC                               
029964,000745: 35,3332           03466                                    SUBEXIT                               
029965,000746: 

Page 684

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

Page 685

030006,000787:                                                                                                  #  ..... S34/35.4 .....
030007,000788: 
030008,000789: 35,3376           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
030009,000790: 35,3377           03461                                    NORMEX                                
030010,000791: 35,3400           00001                                    0D                                    
030011,000792: 35,3401           77650                           GOTO                                           
030012,000793: 35,3402           73360                                    NOVRWRT                               
030013,000794: 

Page 686

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

Page 687

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

Page 688

030112,000893: 35,3524           73526                                    NOCHG                                 
030113,000894: 35,3525           73333                                    S34/35.3                              
030114,000895: 35,3526           77214        NOCHG              CLEAR    VLOAD                                 
030115,000896: 35,3527           01267                                    XDELVFLG                              
030116,000897: 35,3530           03366                                    DELVEET3                              
030117,000898: 35,3531           03654                           STORE    DELVSIN                               
030118,000899: 35,3532           77624        FLAGOFF            CALL                                           
030119,000900: 35,3533           73376                                    S34/35.4                              
030120,000901: 35,3534           77776                           EXIT                                           
030121,000902: 35,3535           33665                           CAF      V06N59                                
030122,000903: 35,3536           03651                           TC       VNPOOH                                
030123,000904: 35,3537           06036                           TC       INTPRET                               
030124,000905: 35,3540           77650                           GOTO                                           
030125,000906: 35,3541           03466                                    SUBEXIT                               
030126,000907: 

Page 689

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

Page 690

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

Page 691

030197,000978:                                                                                                  #  ..... DISPLAYE  .....
030198,000979: 
030199,000980:                                                                                                  #  SUBROUTINES USED
030200,000981:                                                                                                  #        BANKCALL
030201,000982:                                                                                                  #        GOFLASHR
030202,000983:                                                                                                  #        GOTOPOOH
030203,000984:                                                                                                  #        BLANKET
030204,000985:                                                                                                  #        ENDOFJOB
030205,000986: 
030206,000987: 35,3630           00006        DISPLAYE           EXTEND                                         
030207,000988: 35,3631           23461                           QXCH     NORMEX                                
030208,000989: 35,3632           33663                           CAF      V06N55                                
030209,000990: 35,3633           04616                           TCR      BANKCALL                              
030210,000991: 35,3634           20510                           CADR     GOFLASHR                              
030211,000992: 35,3635           16001                           TCF      GOTOPOOH                              
030212,000993: 35,3636           01461                           TC       NORMEX                                
030213,000994: 35,3637           13632                           TCF      -5                                    
030214,000995: 35,3640           34753                           CAF      BIT1                                  #  BLANK R1
030215,000996: 35,3641           05464                           TCR      BLANKET                               
030216,000997: 35,3642           15155                           TCF      ENDOFJOB                              
030217,000998: 

Page 692

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

Page 693

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

Page 694

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

Page 695

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

Page 0696

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

Page 697

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

Page 698

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

Page 699

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

Page 700

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

Page 701

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

Page 702

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

Page 703

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

Page 704

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

Page 705

030756,001537:                                                                                                  #  SETRAD
030757,001538: 
030758,001539: 23,2325           41545        SETRAD             DLOAD    PUSH                                  
030759,001540: 23,2326           06276                                    RPAD                                  
030760,001541: 23,2327           63130                           SXA,1    INCR,2                                
030761,001542: 23,2330           00047                                    X2                                    
030762,001543: 23,2331           00002                                    2D                                    
030763,001544: 23,2332           46135                           SLOAD    BHIZ                                  
030764,001545: 23,2333           00050                                    X2                                    
030765,001546: 23,2334           46340                                    SETRADX                               
030766,001547: 23,2335           51575                           VLOAD    ABVAL                                 
030767,001548: 23,2336           02023                                    RLS                                   
030768,001549: 23,2337           77725                           PDDL                                           
030769,001550: 23,2340           43545        SETRADX            DLOAD    RVQ                                   
030770,001551: 

Page 706

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

Page 707

030806,001587:                                                                                                  #  VECSHIFT 
030807,001588: 23,2377           53754        VECSHIFT           LXA,2    VSR*                                  
030808,001589: 23,2400           03376                                    RTX2                                  
030809,001590: 23,2401           57176                                    0,2                                   
030810,001591: 23,2402           63350                           LXA,1    PDVL                                  
030811,001592: 23,2403           03375                                    RTX1                                  
030812,001593: 23,2404           63257                           VSR*     PDVL                                  
030813,001594: 23,2405           57176                                    0,2                                   
030814,001595: 23,2406           77616                           RVQ                                            
030815,001596: 

Page 708

030817,001598:                                                                                                  #  SHIFTR1
030818,001599: 
030819,001600: 23,2407           53754        SHIFTR1            LXA,2    SL*                                   
030820,001601: 23,2410           03376                                    RTX2                                  
030821,001602: 23,2411           57576                                    0,2                                   
030822,001603: 23,2412           77616                           RVQ                                            
030823,001604: 

Page 709

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

Page 710

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

Page 711

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

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