Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

028371,000002:                                                                                                  ## Copyright:   Public domain.
028372,000003:                                                                                                  ## Filename:    P34-35_P74-75.agc
028373,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
028374,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
028375,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
028376,000007:                                                                                                  ## Assembler:   yaYUL
028377,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028378,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
028379,000010:                                                                                                  ## Pages:       658-702
028380,000011:                                                                                                  ## Mod history: 2009-05-19 RSB  Adapted from the corresponding 
028381,000012:                                                                                                  ##                              Luminary131 file, using page 
028382,000013:                                                                                                  ##                              images from Luminary 1A.
028383,000014:                                                                                                  ##              2009-06-05 RSB  Corrected a typo.
028384,000015:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
028385,000016:                                                                                                  ##              2011-01-06 JL   Added missing comment characters.
028386,000017:                                                                                                  ##              2011-05-07 JL   Removed workaround.
028387,000018:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
028388,000019:                                                                                                  ##              2016-12-14 RSB  VNP00H -> VNPOOH.
028389,000020:                                                                                                  ##              2016-12-14 RSB  Proofed text comments with octopus/ProoferComments
028390,000021:                                                                                                  ##                              and corrected the errors found.
028391,000022:                                                                                                  ##              2017-01-28 RSB  Back-ported some comment fixes I noticed while
028392,000023:                                                                                                  ##                              proofing Luminary 69.
028393,000024:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116. 
028394,000025:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
028395,000026:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
028396,000027: 
028397,000028:                                                                                                  ## This source code has been transcribed or otherwise adapted from
028398,000029:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
028399,000030:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
028400,000031:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
028401,000032:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
028402,000033:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
028403,000034:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
028404,000035:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
028405,000036:                                                                                                  ## actually created.
028406,000037:                                                                                                  ##
028407,000038:                                                                                                  ## Notations on the hardcopy document read, in part:
028408,000039:                                                                                                  ##
028409,000040:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
028410,000041:                                                                                                  ##      16:27 JULY 14, 1969 
028411,000042: 

Page 658

028413,000044:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
028414,000045: 
028415,000046:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
028416,000047:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
028417,000048: 
028418,000049:                                                                                                  #  PURPOSE
028419,000050: 
028420,000051:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028421,000052:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
028422,000053:                                                                                                  #                PHASE INITIATION (TPI) MANEUVER, GIVEN -
028423,000054: 
028424,000055:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
028425,000056:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
028426,000057: 
028427,000058:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
028428,000059:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
028429,000060: 
028430,000061:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
028431,000062: 
028432,000063:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028433,000064:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028434,000065: 
028435,000066:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028436,000067:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028437,000068:                                                                                                  #                ASTRONAUT/GROUND.
028438,000069: 
028439,000070:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
028440,000071:                                                                                                  #                THRUSTING PROGRAM.
028441,000072: 
028442,000073:                                                                                                  #  ASSUMPTIONS
028443,000074: 
028444,000075:                                                                                                  #        (1)     LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
028445,000076:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
028446,000077:                                                                                                  #                THEREFORE -
028447,000078: 
028448,000079:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028449,000080:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028450,000081:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028451,000082:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028452,000083: 
028453,000084:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028454,000085:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
028455,000086: 
028456,000087:                                                                                                  #                (C)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028457,000088:                                                                                                  #                        ORBITS WAS MINIMIZED.
028458,000089: 
028459,000090:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
028460,000091:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 659

028462,000093:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
028463,000094: 
028464,000095:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
028465,000096:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
028466,000097:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
028467,000098:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
028468,000099: 
028469,000100:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
028470,000101:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
028471,000102: 
028472,000103:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
028473,000104:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
028474,000105:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
028475,000106:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
028476,000107:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
028477,000108:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
028478,000109: 
028479,000110:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028480,000111:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
028481,000112:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028482,000113:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
028483,000114:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028484,000115:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
028485,000116:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028486,000117:                                                                                                  #                THRUSTING MANEUVER.
028487,000118: 
028488,000119:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028489,000120: 
028490,000121:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028491,000122: 
028492,000123:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028493,000124:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028494,000125:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028495,000126:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028496,000127: 
028497,000128:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028498,000129:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028499,000130: 
028500,000131:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028501,000132:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028502,000133:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028503,000134: 
028504,000135:                                                                                                  #        (7)     ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
028505,000136:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028506,000137:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028507,000138:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028508,000139:                                                                                                  #                THROUGH THE USE OF V06N52.
028509,000140: 
028510,000141:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028511,000142:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 660

028513,000144:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
028514,000145:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028515,000146:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
028516,000147: 
028517,000148:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028518,000149: 
028519,000150:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
028520,000151: 
028521,000152:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
028522,000153: 
028523,000154:                                                                                                  #  INPUT
028524,000155: 
028525,000156:                                                                                                  #        (1)     TTPI    TIME OF THE TPI MANEUVER
028526,000157:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
028527,000158:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028528,000159:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
028529,000160: 
028530,000161:                                                                                                  #  OUTPUT
028531,000162: 
028532,000163:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
028533,000164:                                                                                                  #        (2)     TTOGO           TIME TO GO
028534,000165:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
028535,000166:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
028536,000167:                                                                                                  #                 OR
028537,000168:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
028538,000169:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
028539,000170:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
028540,000171:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
028541,000172:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI - LINE OF SIGHT
028542,000173:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
028543,000174: 
028544,000175:                                                                                                  #  DOWNLINK
028545,000176: 
028546,000177:                                                                                                  #        (1)     TTPI            TIME OF THE TPI MANEUVER
028547,000178:                                                                                                  #        (2)     TIG             TIME OF THE TPI MANEUVER
028548,000179:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
028549,000180:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028550,000181:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
028551,000182:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI - REFERENCE COORDINATES
028552,000183:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
028553,000184: 
028554,000185:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028555,000186: 
028556,000187:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
028557,000188:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
028558,000189:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028559,000190:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028560,000191: 
028561,000192:                                                                                                  #  SUBROUTINES USED
028562,000193: 
028563,000194:                                                                                                  #        AVFLAGA

Page 661

028565,000196:                                                                                                  #        AVFLAGP
028566,000197:                                                                                                  #        VNPOOH
028567,000198:                                                                                                  #        DISPLAYE
028568,000199:                                                                                                  #        SELECTMU
028569,000200:                                                                                                  #        PRECSET
028570,000201:                                                                                                  #        S33/34.1
028571,000202:                                                                                                  #        ALARM
028572,000203:                                                                                                  #        BANKCALL
028573,000204:                                                                                                  #        GOFLASH
028574,000205:                                                                                                  #        GOTOPOOH
028575,000206:                                                                                                  #        TIMETHET
028576,000207:                                                                                                  #        S34/35.2
028577,000208:                                                                                                  #        PERIAPO1
028578,000209:                                                                                                  #        SHIFTR1
028579,000210:                                                                                                  #        S34/35.5
028580,000211:                                                                                                  #        VN1645
028581,000212: 
028582,000213: 35,2000                                           SETLOC   CSI/CDH                               
028583,000214: 35,2000                                           BANK                                           
028584,000215: 35,2545  E7,1470                                  EBANK=   SUBEXIT                               
028585,000216: 35,2545                                           COUNT*   $$/P3474                              
028586,000217: 35,2545           02347        P34                TC       AVFLAGA                               
028587,000218: 35,2546           02550                           TC       P34/P74A                              
028588,000219: 35,2547           02354        P74                TC       AVFLAGP                               
028589,000220: 35,2550           02361        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
028590,000221: 35,2551           33723                           CAF      V06N37                                #  TTPI
028591,000222: 35,2552           03712                           TC       VNPOOH                                
028592,000223: 35,2553           00006                           EXTEND                                         
028593,000224: 35,2554           33746                           DCA      130DEG                                
028594,000225: 35,2555           53621                           DXCH     CENTANG                               
028595,000226: 35,2556           32417                           CAF      P30ZERO                               
028596,000227: 35,2557           55466                           TS       NN                                    
028597,000228: 35,2560           03674                           TC       DISPLAYE                              #  ELEV AND CENTANG
028598,000229: 35,2561           06037                           TC       INTPRET                               
028599,000230: 35,2562           71214                           CLEAR    DLOAD                                 
028600,000231: 35,2563           01270                                    ETPIFLAG                              
028601,000232: 35,2564           03636                                    TTPI                                  
028602,000233: 35,2565           17442                           STODL    TIG                                   
028603,000234: 35,2566           02257                                    ELEV                                  
028604,000235: 35,2567           43054                           BZE      SET                                   
028605,000236: 35,2570           72572                                    P34/P74B                              
028606,000237: 35,2571           01070                                    ETPIFLAG                              
028607,000238: 35,2572           77624        P34/P74B           CALL                                           
028608,000239: 35,2573           20000                                    SELECTMU                              
028609,000240: 35,2574                        DELELO             EQUALS   26D                                   
028610,000241: 35,2574           43145        P34/P74C           DLOAD    SET                                   
028611,000242: 35,2575           06522                                    ZEROVECS                              
028612,000243: 35,2576           03460                                    ITSWICH                               
028613,000244: 35,2577           43014                           BON      CLEAR                                 
028614,000245: 35,2600           01310                                    ETPIFLAG                              

Page 662

028616,000247: 35,2601           72603                                    SWCHSET                               
028617,000248: 35,2602           03660                                    ITSWICH                               
028618,000249: 35,2603           02317        SWCHSET            STORE    NOMTPI                                
028619,000250: 35,2604           43345        INTLOOP            DLOAD    DAD                                   
028620,000251: 35,2605           03636                                    TTPI                                  
028621,000252: 35,2606           02317                                    NOMTPI                                
028622,000253: 35,2607           34041                           STCALL   TDEC1                                 
028623,000254: 35,2610           46360                                    PRECSET                               
028624,000255: 35,2611           77624                           CALL                                           
028625,000256: 35,2612           72764                                    S33/34.1                              
028626,000257: 35,2613           77454                           BZE      EXIT                                  
028627,000258: 35,2614           72625                                    SWCHCLR                               
028628,000259: 35,2615           05567                           TC       ALARM                                 
028629,000260: 35,2616           00611                           OCT      611                                   
028630,000261: 35,2617           35006                           CAF      V05N09                                
028631,000262: 35,2620           04616                           TC       BANKCALL                              
028632,000263: 35,2621           20476                           CADR     GOFLASH                               
028633,000264: 35,2622           06001                           TC       GOTOPOOH                              
028634,000265: 35,2623           02550                           TC       P34/P74A                              #  PROCEED
028635,000266: 35,2624           02615                           TC       -7                                    #  V32
028636,000267: 
028637,000268: 35,2625           43014        SWCHCLR            BONCLR   BON                                   
028638,000269: 35,2626           03600                                    ITSWICH                               
028639,000270: 35,2627           72604                                    INTLOOP                               
028640,000271: 35,2630           01310                                    ETPIFLAG                              
028641,000272: 35,2631           72635                                    P34/P74D                              #  DISPLAY TTPI
028642,000273: 35,2632           77776                           EXIT                                           
028643,000274: 35,2633           03674                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
028644,000275: 35,2634           02640                           TC       P34/P74E                              
028645,000276: 35,2635           77776        P34/P74D           EXIT                                           
028646,000277: 35,2636           33723                           CAF      V06N37                                #  TTPI
028647,000278: 35,2637           03712                           TC       VNPOOH                                
028648,000279: 35,2640           06037        P34/P74E           TC       INTPRET                               
028649,000280: 35,2641           71201                           SETPD    DLOAD                                 
028650,000281: 35,2642           00001                                    0D                                    
028651,000282: 35,2643           02777                                    RTX1                                  
028652,000283: 35,2644           14047                           STODL    X1                                    
028653,000284: 35,2645           03621                                    CENTANG                               
028654,000285: 35,2646           71406                           PUSH     COS                                   
028655,000286: 35,2647           16732                           STODL    CSTH                                  
028656,000287: 35,2650           77756                           SIN                                            
028657,000288: 35,2651           26730                           STOVL    SNTH                                  
028658,000289: 35,2652           03552                                    RPASS3                                
028659,000290: 35,2653           77657                           VSR*                                           
028660,000291: 35,2654           57176                                    0,2                                   
028661,000292: 35,2655           26655                           STOVL    RVEC                                  
028662,000293: 35,2656           03560                                    VPASS3                                
028663,000294: 35,2657           43057                           VSR*     SET                                   
028664,000295: 35,2660           57176                                    0,2                                   
028665,000296: 35,2661           03466                                    RVSW                                  

Page 663

028667,000298: 35,2662           36744                           STCALL   VVEC                                  
028668,000299: 35,2663           24732                                    TIMETHET                              
028669,000300: 35,2664           77745                           DLOAD                                          
028670,000301: 35,2665           03636                                    TTPI                                  
028671,000302: 35,2666           03610                           STORE    INTIME                                #  FOR INITVEL
028672,000303: 35,2667           77615                           DAD                                            
028673,000304: 35,2670           00037                                    T                                     #  RENDEZVOUS TIME
028674,000305: 35,2671           37631                           STCALL   TPASS4                                #  FOR INITVEL
028675,000306: 35,2672           73306                                    S34/35.2                              
028676,000307: 35,2673           51575                           VLOAD    ABVAL                                 
028677,000308: 35,2674           02366                                    DELVEET3                              
028678,000309: 35,2675           27576                           STOVL    DELVTPI                               
028679,000310: 35,2676           03506                                    VPASS4                                
028680,000311: 35,2677           51451                           VSU      ABVAL                                 
028681,000312: 35,2700           03566                                    VTPRIME                               
028682,000313: 35,2701           26350                           STOVL    DELVTPF                               
028683,000314: 35,2702           03536                                    RACT3                                 
028684,000315: 35,2703           45115                           PDVL     CALL                                  
028685,000316: 35,2704           02337                                    VIPRIME                               
028686,000317: 35,2705           46316                                    PERIAPO1                              
028687,000318: 35,2706           77624                           CALL                                           
028688,000319: 35,2707           46426                                    SHIFTR1                               
028689,000320: 35,2710           17606                           STODL    POSTTPI                               
028690,000321: 35,2711           03636                                    TTPI                                  
028691,000322: 35,2712           03442                           STORE    TIG                                   
028692,000323: 35,2713           77776                           EXIT                                           
028693,000324: 35,2714           33725                           CAF      V06N58                                
028694,000325: 35,2715           03712                           TC       VNPOOH                                
028695,000326: 35,2716           06037                           TC       INTPRET                               
028696,000327: 35,2717           77624                           CALL                                           
028697,000328: 35,2720           73522                                    S34/35.5                              
028698,000329: 35,2721           77624                           CALL                                           
028699,000330: 35,2722           73606                                    VN1645                                
028700,000331: 35,2723           77650                           GOTO                                           
028701,000332: 35,2724           72574                                    P34/P74C                              

Page 664

028703,000334:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
028704,000335: 
028705,000336:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
028706,000337:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
028707,000338: 
028708,000339:                                                                                                  #  PURPOSE
028709,000340: 
028710,000341:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028711,000342:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
028712,000343:                                                                                                  #                MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
028713,000344:                                                                                                  #                VEHICLE RENDEZVOUS.
028714,000345: 
028715,000346:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028716,000347:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028717,000348:                                                                                                  #                ASTRONAUT/GROUND.
028718,000349: 
028719,000350:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
028720,000351:                                                                                                  #                THRUSTING PROGRAM.
028721,000352: 
028722,000353:                                                                                                  #  ASSUMPTIONS
028723,000354: 
028724,000355:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028725,000356: 
028726,000357:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028727,000358:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
028728,000359: 
028729,000360:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
028730,000361:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
028731,000362:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
028732,000363:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
028733,000364:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
028734,000365:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
028735,000366: 
028736,000367:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028737,000368: 
028738,000369:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028739,000370:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028740,000371:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028741,000372:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028742,000373: 
028743,000374:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028744,000375:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028745,000376: 
028746,000377:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028747,000378:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028748,000379:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028749,000380: 
028750,000381:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
028751,000382:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
028752,000383:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
028753,000384: 

Page 665

028755,000386:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
028756,000387:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028757,000388:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028758,000389:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028759,000390:                                                                                                  #                THROUGH THE USE OF V06N52.
028760,000391: 
028761,000392:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028762,000393:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
028763,000394:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
028764,000395:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028765,000396:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
028766,000397: 
028767,000398:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028768,000399: 
028769,000400:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
028770,000401: 
028771,000402:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
028772,000403: 
028773,000404:                                                                                                  #  INPUT
028774,000405: 
028775,000406:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT - SAVED FROM P34/P74
028776,000407: 
028777,000408:                                                                                                  #  OUTPUT
028778,000409: 
028779,000410:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
028780,000411:                                                                                                  #        (2)     TTOGO           TIME TO GO
028781,000412:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
028782,000413:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID - LINE OF SIGHT
028783,000414:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
028784,000415: 
028785,000416:                                                                                                  #  DOWNLINK
028786,000417: 
028787,000418:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
028788,000419:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM - REFERENCE COORDINATES
028789,000420:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028790,000421: 
028791,000422:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028792,000423: 
028793,000424:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
028794,000425:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
028795,000426:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
028796,000427:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028797,000428: 
028798,000429:                                                                                                  #  SUBROUTINES USED
028799,000430: 
028800,000431:                                                                                                  #        AVFLAGA
028801,000432:                                                                                                  #        AVFLAGP
028802,000433:                                                                                                  #        LOADTIME
028803,000434:                                                                                                  #        SELECTMU
028804,000435:                                                                                                  #        PRECSET
028805,000436:                                                                                                  #        S34/35.1
028806,000437:                                                                                                  #        S34/35.2

Page 666

028808,000439:                                                                                                  #        S34/35.5
028809,000440:                                                                                                  #        VN1645
028810,000441: 
028811,000442: 35,2725                                           COUNT*   $$/P3575                              
028812,000443: 35,2725  E7,1575                                  EBANK=   KT                                    
028813,000444: 
028814,000445: 35,2725           02347        P35                TC       AVFLAGA                               
028815,000446: 35,2726           00006                           EXTEND                                         
028816,000447: 35,2727           31401                           DCA      ATIGINC                               
028817,000448: 35,2730           02734                           TC       P35/P75A                              
028818,000449: 35,2731           02354        P75                TC       AVFLAGP                               
028819,000450: 35,2732           00006                           EXTEND                                         
028820,000451: 35,2733           31403                           DCA      PTIGINC                               
028821,000452: 35,2734           53576        P35/P75A           DXCH     KT                                    
028822,000453: 35,2735           02361                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
028823,000454: 35,2736           06037                           TC       INTPRET                               
028824,000455: 35,2737           77624                           CALL                                           
028825,000456: 35,2740           20000                                    SELECTMU                              
028826,000457: 35,2741           77634        P35/P75B           RTB                                            
028827,000458: 35,2742           21573                                    LOADTIME                              
028828,000459: 35,2743           03612                           STORE    TSTRT                                 
028829,000460: 35,2744           77615                           DAD                                            
028830,000461: 35,2745           03576                                    KT                                    
028831,000462: 35,2746           03442                           STORE    TIG                                   
028832,000463: 35,2747           03610                           STORE    INTIME                                #  FOR INITVEL
028833,000464: 35,2750           34041                           STCALL   TDEC1                                 
028834,000465: 35,2751           46360                                    PRECSET                               #  ADVANCE BOTH VEHICLES
028835,000466: 35,2752           77624                           CALL                                           
028836,000467: 35,2753           73274                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
028837,000468: 35,2754           77624                           CALL                                           
028838,000469: 35,2755           73306                                    S34/35.2                              #  GET DELTA V(LV)
028839,000470: 35,2756           77624                           CALL                                           
028840,000471: 35,2757           73522                                    S34/35.5                              
028841,000472: 35,2760           77624                           CALL                                           
028842,000473: 35,2761           73606                                    VN1645                                
028843,000474: 35,2762           77650                           GOTO                                           
028844,000475: 35,2763           72741                                    P35/P75B                              

Page 667

028846,000477:                                                                                                  #  ..... S33/34.1 .....
028847,000478: 
028848,000479: 35,2764           66220        S33/34.1           STQ      SSP                                   
028849,000480: 35,2765           03463                                    NORMEX                                
028850,000481: 35,2766           03614                                    TITER                                 
028851,000482: 35,2767           40000                           OCT      40000                                 
028852,000483: 35,2770           40345                           DLOAD    SETPD                                 
028853,000484: 35,2771           33734                                    MAX250                                
028854,000485: 35,2772           00001                                    0D                                    
028855,000486: 35,2773           27574                           STOVL    SECMAX                                
028856,000487: 35,2774           03536                                    RACT3                                 
028857,000488: 35,2775           27500                           STOVL    RAPREC                                
028858,000489: 35,2776           03544                                    VACT3                                 
028859,000490: 35,2777           27506                           STOVL    VAPREC                                
028860,000491: 35,3000           03552                                    RPASS3                                
028861,000492: 35,3001           27522                           STOVL    RPPREC                                
028862,000493: 35,3002           03560                                    VPASS3                                
028863,000494: 35,3003           03530                           STORE    VPPREC                                
028864,000495: 35,3004           77624        ELCALC             CALL                                           
028865,000496: 35,3005           73274                                    S34/35.1                              #  NORMAL AND LOS
028866,000497: 35,3006           63235                           VXV      PDVL                                  
028867,000498: 35,3007           03536                                    RACT3                                 #  (RA*VA)*RA 0D
028868,000499: 35,3010           53515                           PDVL     UNIT                                  #  ULOS AT 6D
028869,000500: 35,3011           03536                                    RACT3                                 
028870,000501: 35,3012           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
028871,000502: 35,3013           51352                           VSL2     BVSU                                  
028872,000503: 35,3014           02311                                    ULOS                                  
028873,000504: 35,3015           63256                           UNIT     PDVL                                  #  UP AT 0D
028874,000505: 35,3016           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
028875,000506: 35,3017           00001                                    0D                                    #  UP IN MPAC
028876,000507: 35,3020           75241                           DOT      SIGN                                  
028877,000508: 35,3021           02311                                    ULOS                                  
028878,000509: 35,3022           65552                           SL1      ACOS                                  
028879,000510: 35,3023           50315                           PDVL     DOT                                   #  EA AT 0D
028880,000511: 35,3024           02311                                    ULOS                                  
028881,000512: 35,3025           03536                                    RACT3                                 
028882,000513: 35,3026           71244                           BPL      DLOAD                                 
028883,000514: 35,3027           73032                                    TESTY                                 
028884,000515: 35,3030           06530                                    DPPOSMAX                              
028885,000516: 35,3031           41425                           DSU      PUSH                                  
028886,000517: 35,3032           71214        TESTY              BOFF     DLOAD                                 
028887,000518: 35,3033           03740                                    ITSWICH                               
028888,000519: 35,3034           73261                                    ELEX                                  
028889,000520: 35,3035           03576                                    DELEL                                 
028890,000521: 35,3036           14033                           STODL    DELELO                                
028891,000522: 35,3037           77625                           DSU                                            
028892,000523: 35,3040           02257                                    ELEV                                  
028893,000524: 35,3041           03576                           STORE    DELEL                                 
028894,000525: 35,3042           45246                           ABS      DSU                                   
028895,000526: 35,3043           33740                                    ELEPS                                 

Page 668

028897,000528: 35,3044           77640                           BMN                                            
028898,000529: 35,3045           73271                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
028899,000530: 35,3046           70535        FIGTIME            SLOAD    SR1                                   
028900,000531: 35,3047           03614                                    TITER                                 
028901,000532: 35,3050           72030                           BHIZ     LXA,1                                 
028902,000533: 35,3051           03463                                    NORMEX                                #  TOO MANY ITERATIONS
028903,000534: 35,3052           00154                                    MPAC                                  
028904,000535: 35,3053           77330                           SXA,1    VLOAD                                 
028905,000536: 35,3054           03613                                    TITER                                 
028906,000537: 35,3055           03552                                    RPASS3                                
028907,000538: 35,3056           65256                           UNIT     PDDL                                  
028908,000539: 35,3057           00045                                    36D                                   
028909,000540: 35,3060           53515                           PDVL     UNIT                                  
028910,000541: 35,3061           03536                                    RACT3                                 
028911,000542: 35,3062           77725                           PDDL                                           
028912,000543: 35,3063           41525                           PDDL     PUSH                                  
028913,000544: 35,3064           00045                                    36D                                   
028914,000545: 35,3065           77621                           BDSU                                           
028915,000546: 35,3066           00015                                    12D                                   
028916,000547: 35,3067           14037                           STODL    30D                                   #  RP - RA MAGNITUDES
028917,000548: 35,3070           06520                                    DPHALF                                
028918,000549: 35,3071           41425                           DSU      PUSH                                  
028919,000550: 35,3072           02257                                    ELEV                                  
028920,000551: 35,3073           50165                           SIGN     BMN                                   
028921,000552: 35,3074           00037                                    30D                                   
028922,000553: 35,3075           03463                                    NORMEX                                
028923,000554: 35,3076           71545                           DLOAD    COS                                   
028924,000555: 35,3077           56205                           DMP      DDV                                   
028925,000556: 35,3100           00017                                    14D                                   
028926,000557: 35,3101           00015                                    12D                                   
028927,000558: 35,3102           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
028928,000559: 35,3103           00035                           STORE    28D                                   
028929,000560: 35,3104           44246                           ABS      BDSU                                  
028930,000561: 35,3105           06520                                    DPHALF                                
028931,000562: 35,3106           77240                           BMN      VLOAD                                 
028932,000563: 35,3107           03463                                    NORMEX                                
028933,000564: 35,3110           02261                                    UNRM                                  
028934,000565: 35,3111           53435                           VXV      UNIT                                  
028935,000566: 35,3112           00007                                    6D                                    #  UN*RA
028936,000567: 35,3113           41241                           DOT      DMP                                   
028937,000568: 35,3114           03544                                    VACT3                                 
028938,000569: 35,3115           00015                                    12D                                   
028939,000570: 35,3116           47315                           PDVL     VXV                                   
028940,000571: 35,3117           00001                                    0D                                    
028941,000572: 35,3120           03560                                    VPASS3                                
028942,000573: 35,3121           53435                           VXV      UNIT                                  
028943,000574: 35,3122           00001                                    0D                                    #  (RP*VP)*RP
028944,000575: 35,3123           41241                           DOT      DMP                                   
028945,000576: 35,3124           03560                                    VPASS3                                
028946,000577: 35,3125           00017                                    14D                                   

Page 669

028948,000579: 35,3126           77621                           BDSU                                           
028949,000580: 35,3127           63301                           NORM     PDVL                                  #  NORMALIZED WA - WP 12D
028950,000581: 35,3130           00047                                    X1                                    
028951,000582: 35,3131           00007                                    6D                                    
028952,000583: 35,3132           50235                           VXV      DOT                                   
028953,000584: 35,3133           00001                                    0D                                    
028954,000585: 35,3134           02261                                    UNRM                                  #  RA*RP.UN 14D
028955,000586: 35,3135           50315                           PDVL     DOT                                   
028956,000587: 35,3136           00001                                    0D                                    
028957,000588: 35,3137           00007                                    6D                                    
028958,000589: 35,3140           65552                           SL1      ACOS                                  
028959,000590: 35,3141           77765                           SIGN                                           
028960,000591: 35,3142           43225                           DSU      DAD                                   #  ALPHA PI
028961,000592: 35,3143           06520                                    DPHALF                                
028962,000593: 35,3144           02257                                    ELEV                                  
028963,000594: 35,3145           65525                           PDDL     ACOS                                  
028964,000595: 35,3146           00035                                    28D                                   
028965,000596: 35,3147           75221                           BDSU     SIGN                                  
028966,000597: 35,3150           06520                                    DPHALF                                
028967,000598: 35,3151           00037                                    30D                                   #  CONTAINS RP-RA
028968,000599: 35,3152           77615                           DAD                                            
028969,000600: 35,3153           56205                           DMP      DDV                                   
028970,000601: 35,3154           33732                                    TWOPI                                 
028971,000602: 35,3155           77605                           DMP                                            
028972,000603: 35,3156           41257                           SL*      DMP                                   
028973,000604: 35,3157           20176                                    0          -3,1                       
028974,000605: 35,3160           51406                           PUSH     ABS                                   
028975,000606: 35,3161           50025                           DSU      BMN                                   
028976,000607: 35,3162           03574                                    SECMAX                                
028977,000608: 35,3163           73167                                    OKMAX                                 
028978,000609: 35,3164           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
028979,000610: 35,3165           03574                                    SECMAX                                
028980,000611: 35,3166           77606                           PUSH                                           
028981,000612: 35,3167           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
028982,000613: 35,3170           03614                                    TITER                                 
028983,000614: 35,3171           73177                                    REPETE                                
028984,000615: 35,3172           71331                           SSP      DLOAD                                 
028985,000616: 35,3173           03614                                    TITER                                 
028986,000617: 35,3174           37777                           OCT      37777                                 
028987,000618: 35,3175           77650                           GOTO                                           
028988,000619: 35,3176           73235                                    STORDELT                              
028989,000620: 35,3177           41345        REPETE             DLOAD    DMP                                   
028990,000621: 35,3200           03576                                    DELEL                                 
028991,000622: 35,3201           00033                                    DELELO                                
028992,000623: 35,3202           71244                           BPL      DLOAD                                 
028993,000624: 35,3203           73213                                    NEXTES                                
028994,000625: 35,3204           03574                                    SECMAX                                
028995,000626: 35,3205           77605                           DMP                                            
028996,000627: 35,3206           33736                                    THIRD                                 
028997,000628: 35,3207           17574                           STODL    SECMAX                                

Page 670

028999,000630: 35,3210           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
029000,000631: 35,3211           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
029001,000632: 35,3212           73223                                    RESIGN                                
029002,000633: 35,3213           51545        NEXTES             DLOAD    ABS                                   
029003,000634: 35,3214           03576                                    DELEL                                 
029004,000635: 35,3215           51525                           PDDL     ABS                                   
029005,000636: 35,3216           00033                                    DELELO                                
029006,000637: 35,3217           77625                           DSU                                            
029007,000638: 35,3220           71240                           BMN      DLOAD                                 
029008,000639: 35,3221           73226                                    REVERS                                #  WRONG DIRECTION
029009,000640: 35,3222           77646                           ABS                                            
029010,000641: 35,3223           52165        RESIGN             SIGN     GOTO                                  
029011,000642: 35,3224           03606                                    DELTEEO                               
029012,000643: 35,3225           73235                                    STORDELT                              
029013,000644: 35,3226           57545        REVERS             DLOAD    DCOMP                                 
029014,000645: 35,3227           03606                                    DELTEEO                               
029015,000646: 35,3230           70406                           PUSH     SR1                                   
029016,000647: 35,3231           03606                           STORE    DELTEEO                               
029017,000648: 35,3232           77615                           DAD                                            
029018,000649: 35,3233           77650                           GOTO                                           
029019,000650: 35,3234           73236                                    ADTIME                                
029020,000651: 35,3235           03606        STORDELT           STORE    DELTEEO                               
029021,000652: 35,3236           77615        ADTIME             DAD                                            
029022,000653: 35,3237           02317                                    NOMTPI                                #  SUM OF DELTA T:S
029023,000654: 35,3240           02317                           STORE    NOMTPI                                
029024,000655: 35,3241           63375                           VLOAD    PDVL                                  
029025,000656: 35,3242           03506                                    VAPREC                                
029026,000657: 35,3243           03500                                    RAPREC                                
029027,000658: 35,3244           77624                           CALL                                           
029028,000659: 35,3245           73462                                    GOINT                                 
029029,000660: 35,3246           77624                           CALL                                           
029030,000661: 35,3247           46402                                    ACTIVE                                #  STORE NEW RACT3 VACT3
029031,000662: 35,3250           63375                           VLOAD    PDVL                                  
029032,000663: 35,3251           03530                                    VPPREC                                
029033,000664: 35,3252           03522                                    RPPREC                                
029034,000665: 35,3253           77624                           CALL                                           
029035,000666: 35,3254           73462                                    GOINT                                 
029036,000667: 35,3255           77624                           CALL                                           
029037,000668: 35,3256           46412                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
029038,000669: 35,3257           77650                           GOTO                                           
029039,000670: 35,3260           73004                                    ELCALC                                
029040,000671: 35,3261           43345        ELEX               DLOAD    DAD                                   
029041,000672: 35,3262           03636                                    TTPI                                  
029042,000673: 35,3263           02317                                    NOMTPI                                
029043,000674: 35,3264           17636                           STODL    TTPI                                  
029044,000675: 35,3265           77614                           BON                                            
029045,000676: 35,3266           01310                                    ETPIFLAG                              
029046,000677: 35,3267           73271                                    TIMEX                                 
029047,000678: 35,3270           02257                           STORE    ELEV                                  
029048,000679: 35,3271           52145        TIMEX              DLOAD    GOTO                                  

Page 671

029050,000681: 35,3272           06522                                    ZEROVECS                              
029051,000682: 35,3273           03463                                    NORMEX                                
029052,000683: 

Page 672

029054,000685:                                                                                                  #  ..... S34/35.1 .....
029055,000686: 
029056,000687:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
029057,000688:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
029058,000689: 
029059,000690: 35,3274           52375        S34/35.1           VLOAD    VSU                                   
029060,000691: 35,3275           03552                                    RPASS3                                
029061,000692: 35,3276           03536                                    RACT3                                 
029062,000693: 35,3277           41456                           UNIT     PUSH                                  
029063,000694: 35,3300           26311                           STOVL    ULOS                                  
029064,000695: 35,3301           03536                                    RACT3                                 
029065,000696: 35,3302           53435                           VXV      UNIT                                  
029066,000697: 35,3303           03544                                    VACT3                                 
029067,000698: 35,3304           02261                           STORE    UNRM                                  
029068,000699: 35,3305           77616                           RVQ                                            
029069,000700: 

Page 673

029071,000702:                                                                                                  #  ..... S34/35.2 .....
029072,000703: 
029073,000704:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
029074,000705: 
029075,000706: 35,3306           77220        S34/35.2           STQ      VLOAD                                 
029076,000707: 35,3307           03470                                    SUBEXIT                               
029077,000708: 35,3310           03560                                    VPASS3                                
029078,000709: 35,3311           65315                           PDVL     PDDL                                  
029079,000710: 35,3312           03552                                    RPASS3                                
029080,000711: 35,3313           03610                                    INTIME                                
029081,000712: 35,3314           65325                           PDDL     PDDL                                  
029082,000713: 35,3315           03631                                    TPASS4                                
029083,000714: 35,3316           33732                                    TWOPI                                 #  CONIC
029084,000715: 35,3317           46125                           PDDL     BHIZ                                  
029085,000716: 35,3320           03467                                    NN                                    
029086,000717: 35,3321           73325                                    S3435.23                              
029087,000718: 35,3322           77745                           DLOAD                                          
029088,000719: 35,3323           41545                           DLOAD    PUSH                                  
029089,000720: 35,3324           06522                                    ZEROVECS                              #  PRECISION
029090,000721: 35,3325           77624        S3435.23           CALL                                           
029091,000722: 35,3326           73466                                    INTINT                                #  GET TARGET VECTOR
029092,000723: 35,3327           27444        S3435.25           STOVL    RTARG                                 
029093,000724: 35,3330           00007                                    VATT                                  
029094,000725: 35,3331           27506                           STOVL    VPASS4                                
029095,000726: 35,3332           03444                                    RTARG                                 
029096,000727:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U)
029097,000728: 35,3333           63256                           UNIT     PDVL                                  #  UNIT RP
029098,000729: 35,3334           03536                                    RACT3                                 
029099,000730: 35,3335           41456                           UNIT     PUSH                                  #  UNIT RA
029100,000731: 35,3336           50235                           VXV      DOT                                   
029101,000732: 35,3337           00001                                    0D                                    
029102,000733: 35,3340           02261                                    UNRM                                  #  RA*RP.U
029103,000734: 35,3341           77715                           PDVL                                           
029104,000735: 35,3342           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
029105,000736: 35,3343           00001                                    0D                                    
029106,000737: 35,3344           75326                           ACOS     SIGN                                  
029107,000738: 35,3345           43244                           BPL      DAD                                   
029108,000739: 35,3346           73350                                    NOPIE                                 
029109,000740: 35,3347           06530                                    DPPOSMAX                              #  REASONABLE TWO PI
029110,000741: 35,3350           15756        NOPIE              STODL    ACTCENT                               
029111,000742: 35,3351           03631                                    TPASS4                                
029112,000743: 35,3352           77625                           DSU                                            
029113,000744: 35,3353           03610                                    INTIME                                
029114,000745: 35,3354           03452                           STORE    DELLT4                                
029115,000746: 35,3355           40335                           SLOAD    SETPD                                 
029116,000747: 35,3356           03467                                    NN                                    #  NUMBER OF OFFSETS
029117,000748: 35,3357           00001                                    0D                                    
029118,000749: 35,3360           63325                           PDDL     PDVL                                  
029119,000750: 35,3361           33744                                    EPSFOUR                               
029120,000751: 35,3362           03536                                    RACT3                                 
029121,000752: 35,3363           26323                           STOVL    RINIT                                 

Page 674

029123,000754: 35,3364           03544                                    VACT3                                 
029124,000755: 35,3365           36331                           STCALL   VINIT                                 
029125,000756: 35,3366           22000                                    INITVEL                               
029126,000757: 35,3367           77624                           CALL                                           
029127,000758: 35,3370           73447                                    LOMAT                                 
029128,000759: 35,3371           64375                           VLOAD    MXV                                   
029129,000760: 35,3372           02366                                    DELVEET3                              
029130,000761: 35,3373           00001                                    0D                                    
029131,000762: 35,3374           77772                           VSL1                                           
029132,000763: 35,3375           37434                           STCALL   DELVLVC                               
029133,000764: 35,3376           03470                                    SUBEXIT                               
029134,000765: 

Page 675

029136,000767:                                                                                                  #  ..... S34/35.3 .....
029137,000768: 
029138,000769: 35,3377           45020        S34/35.3           STQ      CALL                                  
029139,000770: 35,3400           03463                                    NORMEX                                
029140,000771: 35,3401           73447                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
029141,000772: 35,3402           61375                           VLOAD    VXM                                   
029142,000773: 35,3403           03434                                    DELVLVC                               #  NEW DEL V TPI
029143,000774: 35,3404           00001                                    0D                                    
029144,000775: 35,3405           77772                           VSL1                                           
029145,000776: 35,3406           02366                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
029146,000777: 35,3407           63255                           VAD      PDVL                                  
029147,000778: 35,3410           03544                                    VACT3                                 #  NEW V REQ
029148,000779: 35,3411           03536                                    RACT3                                 
029149,000780: 35,3412           65325                           PDDL     PDDL                                  
029150,000781: 35,3413           03442                                    TIG                                   
029151,000782: 35,3414           03631                                    TPASS4                                
029152,000783: 35,3415           41525                           PDDL     PUSH                                  
029153,000784: 35,3416           06530                                    DPPOSMAX                              
029154,000785: 35,3417           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
029155,000786: 35,3420           73466                                    INTINT                                
029156,000787: 35,3421           77775                           VLOAD                                          
029157,000788: 35,3422           00001                                    RATT                                  
029158,000789: 35,3423           03444                           STORE    RTARG                                 
029159,000790: 35,3424           41575        NOVRWRT            VLOAD    PUSH                                  
029160,000791: 35,3425           02311                                    ULOS                                  
029161,000792: 35,3426           57435                           VXV      VCOMP                                 
029162,000793: 35,3427           02261                                    UNRM                                  
029163,000794: 35,3430           41456                           UNIT     PUSH                                  
029164,000795: 35,3431           76435                           VXV      VSL1                                  
029165,000796: 35,3432           02311                                    ULOS                                  
029166,000797: 35,3433           77715                           PDVL                                           
029167,000798: 35,3434           64315                           PDVL     MXV                                   
029168,000799: 35,3435           02366                                    DELVEET3                              
029169,000800: 35,3436           00001                                    0D                                    
029170,000801: 35,3437           77772                           VSL1                                           
029171,000802: 35,3440           36303                           STCALL   DVLOS                                 
029172,000803: 35,3441           03463                                    NORMEX                                
029173,000804: 

Page 676

029175,000806:                                                                                                  #  ..... S34/35.4 .....
029176,000807: 
029177,000808: 35,3442           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
029178,000809: 35,3443           03463                                    NORMEX                                
029179,000810: 35,3444           00001                                    0D                                    
029180,000811: 35,3445           77650                           GOTO                                           
029181,000812: 35,3446           73424                                    NOVRWRT                               
029182,000813: 

Page 677

029184,000815:                                                                                                  #  ..... LOMAT .....
029185,000816: 
029186,000817: 35,3447           57575        LOMAT              VLOAD    VCOMP                                 
029187,000818: 35,3450           02261                                    UNRM                                  
029188,000819: 35,3451           24007                           STOVL    6D                                    #  Y
029189,000820: 35,3452           03536                                    RACT3                                 
029190,000821: 35,3453           57456                           UNIT     VCOMP                                 
029191,000822: 35,3454           00015                           STORE    12D                                   
029192,000823: 35,3455           76435                           VXV      VSL1                                  
029193,000824: 35,3456           02261                                    UNRM                                  #  Z*-Y
029194,000825: 35,3457           00001                           STORE    0D                                    
029195,000826: 35,3460           43401                           SETPD    RVQ                                   
029196,000827: 35,3461           00023                                    18D                                   
029197,000828: 35,3462           65325        GOINT              PDDL     PDDL                                  #  DO
029198,000829: 35,3463           06522                                    ZEROVECS                              #        NOT
029199,000830: 35,3464           02317                                    NOMTPI                                
029200,000831: 35,3465           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
029201,000832: 35,3466           45020        INTINT             STQ      CALL                                  
029202,000833: 35,3467           03465                                    RTRN                                  
029203,000834: 35,3470           27414                                    INTSTALL                              
029204,000835: 35,3471           71214                           CLEAR    DLOAD                                 
029205,000836: 35,3472           01673                                    INTYPFLG                              
029206,000837: 35,3473           43054                           BZE      SET                                   
029207,000838: 35,3474           73476                                    +2                                    
029208,000839: 35,3475           01473                                    INTYPFLG                              
029209,000840: 35,3476           45545                           DLOAD    STADR                                 
029210,000841: 35,3477           63736                           STODL    TDEC1                                 
029211,000842: 35,3500           73014                           SET      LXA,2                                 
029212,000843: 35,3501           00063                                    MOONFLAG                              
029213,000844: 35,3502           02777                                    RTX2                                  
029214,000845: 35,3503           43014                           BON      CLEAR                                 
029215,000846: 35,3504           04303                                    CMOONFLG                              
029216,000847: 35,3505           73507                                    ALLSET                                
029217,000848: 35,3506           00263                                    MOONFLAG                              
029218,000849: 35,3507           25517        ALLSET             STOVL    TET                                   
029219,000850: 35,3510           77657                           VSR*                                           
029220,000851: 35,3511           57176                                    0,2                                   
029221,000852: 35,3512           25535                           STOVL    RCV                                   
029222,000853: 35,3513           77657                           VSR*                                           
029223,000854: 35,3514           57176                                    0,2                                   
029224,000855: 35,3515           35543                           STCALL   VCV                                   
029225,000856: 35,3516           27107                                    INTEGRVS                              
029226,000857: 35,3517           52175                           VLOAD    GOTO                                  
029227,000858: 35,3520           00001                                    RATT                                  
029228,000859: 35,3521           03465                                    RTRN                                  
029229,000860: 

Page 678

029231,000862:                                                                                                  #  ..... S34/35.5 .....
029232,000863:                                                                                                  #  SUBROUTINES USED
029233,000864:                                                                                                  #        BANKCALL
029234,000865:                                                                                                  #        GOFLASH
029235,000866:                                                                                                  #        GOTOPOOH
029236,000867:                                                                                                  #        S34/35.3
029237,000868:                                                                                                  #        S34/35.4
029238,000869:                                                                                                  #        VNPOOH
029239,000870: 
029240,000871: 35,3522           43020        S34/35.5           STQ      BON                                   
029241,000872: 35,3523           03470                                    SUBEXIT                               
029242,000873: 35,3524           01311                                    FINALFLG                              
029243,000874: 35,3525           73531                                    FLAGON                                
029244,000875: 35,3526           52014                           SET      GOTO                                  
029245,000876: 35,3527           00470                                    UPDATFLG                              
029246,000877: 35,3530           73576                                    FLAGOFF                               
029247,000878: 35,3531           77214        FLAGON             CLEAR    VLOAD                                 
029248,000879: 35,3532           03274                                    NTARGFLG                              
029249,000880: 35,3533           03434                                    DELVLVC                               
029250,000881: 35,3534           01237                           STORE    GDT/2                                 
029251,000882: 35,3535           77776                           EXIT                                           
029252,000883: 35,3536           33727                 +5        CAF      V06N81                                
029253,000884: 35,3537           04616                           TC       BANKCALL                              
029254,000885: 35,3540           20476                           CADR     GOFLASH                               
029255,000886: 35,3541           06001                           TC       GOTOPOOH                              
029256,000887: 35,3542           03544                           TC       +2                                    #  PRO
029257,000888: 35,3543           03536                           TC       FLAGON     +5                         #  LOAD
029258,000889: 35,3544           35016                 +2        CA       EBANK7                                
029259,000890: 35,3545           54003                           TS       EBANK                                 #  TO BE SURE
029260,000891: 
029261,000892: 35,3546           22007                           ZL                                             
029262,000893: 35,3547           34756                           CA       FIVE                                  
029263,000894: 35,3550           54002        NTARGCHK           TS       Q                                     
029264,000895: 35,3551           50002                           INDEX    Q                                     
029265,000896: 35,3552           41433                           CS       DELVLVC                               
029266,000897: 35,3553           50002                           INDEX    Q                                     
029267,000898: 35,3554           61236                           AD       GDT/2                                 
029268,000899: 35,3555           26001                           ADS      L                                     
029269,000900: 35,3556           10002                           CCS      Q                                     
029270,000901: 35,3557           13550                           TCF      NTARGCHK                              
029271,000902: 35,3560           22000                           LXCH     A                                     
029272,000903: 35,3561           00006                           EXTEND                                         
029273,000904: 35,3562           13565                           BZF      +3                                    
029274,000905: 35,3563           05504                           TC       UPFLAG                                
029275,000906: 35,3564           00146                           ADRES    NTARGFLG                              
029276,000907: 
029277,000908: 35,3565           06037                           TC       INTPRET                               
029278,000909: 35,3566           45014                           BOFF     CALL                                  
029279,000910: 35,3567           03354                                    NTARGFLG                              

Page 679

029281,000912: 35,3570           73572                                    NOCHG                                 
029282,000913: 35,3571           73377                                    S34/35.3                              
029283,000914: 35,3572           77214        NOCHG              CLEAR    VLOAD                                 
029284,000915: 35,3573           01267                                    XDELVFLG                              
029285,000916: 35,3574           02366                                    DELVEET3                              
029286,000917: 35,3575           03656                           STORE    DELVSIN                               
029287,000918: 35,3576           77624        FLAGOFF            CALL                                           
029288,000919: 35,3577           73442                                    S34/35.4                              
029289,000920: 35,3600           77776                           EXIT                                           
029290,000921: 35,3601           33726                           CAF      V06N59                                
029291,000922: 35,3602           03712                           TC       VNPOOH                                
029292,000923: 35,3603           06037                           TC       INTPRET                               
029293,000924: 35,3604           77650                           GOTO                                           
029294,000925: 35,3605           03470                                    SUBEXIT                               
029295,000926: 

Page 680

029297,000928:                                                                                                  #  ..... VN1645 .....
029298,000929: 
029299,000930:                                                                                                  #  SUBROUTINES USED
029300,000931:                                                                                                  #        P3XORP7X
029301,000932:                                                                                                  #        GET+MGA
029302,000933:                                                                                                  #        BANKCALL
029303,000934:                                                                                                  #        DELAYJOB
029304,000935:                                                                                                  #        COMPTGO
029305,000936:                                                                                                  #        GOFLASHR
029306,000937:                                                                                                  #        GOTOPOOH
029307,000938:                                                                                                  #        FLAGUP
029308,000939: 
029309,000940: 35,3606           71220        VN1645             STQ      DLOAD                                 
029310,000941: 35,3607           03470                                    SUBEXIT                               
029311,000942: 35,3610           33742                                    DP-.01                                
029312,000943: 35,3611           02253                           STORE    +MGA                                  #  MGA = -.01
029313,000944: 35,3612           71214                           BOFF     DLOAD                                 
029314,000945: 35,3613           01351                                    FINALFLG                              
029315,000946: 35,3614           73634                                    GET45                                 
029316,000947: 35,3615           33742                                    DP-.01                                
029317,000948: 35,3616           77615                           DAD                                            
029318,000949: 35,3617           33742                                    DP-.01                                
029319,000950: 35,3620           02253                           STORE    +MGA                                  #  MGA = -.02
029320,000951: 35,3621           77414                           BOFF     EXIT                                  
029321,000952: 35,3622           01742                                    REFSMFLG                              
029322,000953: 35,3623           73634                                    GET45                                 
029323,000954: 35,3624           03704                           TC       P3XORP7X                              
029324,000955: 35,3625           03627                           TC       +2                                    #  P3X
029325,000956: 35,3626           03635                           TC       GET45      +1                         #  P7X
029326,000957: 35,3627           06037                           TC       INTPRET                               
029327,000958: 35,3630           41575                           VLOAD    PUSH                                  
029328,000959: 35,3631           03656                                    DELVSIN                               
029329,000960: 35,3632           77624                           CALL                                           #  COMPUTE MGA
029330,000961: 35,3633           15717                                    GET+MGA                               
029331,000962: 35,3634           77776        GET45              EXIT                                           
029332,000963: 35,3635           02432                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
029333,000964: 35,3636           31470                           CA       SUBEXIT                               
029334,000965: 35,3637           55464                           TS       QSAVED                                
029335,000966: 35,3640           34777                           CAF      1SEC                                  
029336,000967: 35,3641           04616                           TC       BANKCALL                              
029337,000968: 35,3642           01735                           CADR     DELAYJOB                              
029338,000969: 35,3643           33730                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
029339,000970: 35,3644           04616                           TC       BANKCALL                              
029340,000971: 35,3645           20476                           CADR     GOFLASH                               
029341,000972: 35,3646           03651                           TC       KILCLOCK                              #  TERMINATE
029342,000973: 35,3647           03654                           TC       N45PROC                               #  PROCEED
029343,000974: 35,3650           03664                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
029344,000975: 35,3651           30005        KILCLOCK           CA       Z                                     
029345,000976: 35,3652           55163                           TS       DISPDEX                               

Page 681

029347,000978: 35,3653           06001                           TC       GOTOPOOH                              
029348,000979: 35,3654           40076        N45PROC            CS       FLAGWRD2                              
029349,000980: 35,3655           74746                           MASK     BIT6                                  
029350,000981: 35,3656           00006                           EXTEND                                         
029351,000982: 35,3657           13651                           BZF      KILCLOCK                              #  FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
029352,000983: 35,3660           05353                           TC       PHASCHNG                              
029353,000984: 35,3661           04024                           OCT      04024                                 
029354,000985: 35,3662           05504                           TC       UPFLAG                                #  SET
029355,000986: 35,3663           00047                           ADRES    FINALFLG                              #  FINALFLG
029356,000987: 35,3664           30005        CLUPDATE           CA       Z                                     
029357,000988: 35,3665           55163                           TS       DISPDEX                               
029358,000989: 35,3666           05353                           TC       PHASCHNG                              
029359,000990: 35,3667           04024                           OCT      04024                                 
029360,000991: 35,3670           06037                           TC       INTPRET                               
029361,000992: 35,3671           52014                           CLEAR    GOTO                                  
029362,000993: 35,3672           00670                                    UPDATFLG                              
029363,000994: 35,3673           03464                                    QSAVED                                
029364,000995: 

Page 682

029366,000997:                                                                                                  #  ..... DISPLAYE .....
029367,000998: 
029368,000999:                                                                                                  #  SUBROUTINES USED
029369,001000:                                                                                                  #        BANKCALL
029370,001001:                                                                                                  #        GOFLASHR
029371,001002:                                                                                                  #        GOTOPOOH
029372,001003:                                                                                                  #        BLANKET
029373,001004:                                                                                                  #        ENDOFJOB
029374,001005: 
029375,001006: 35,3674           00006        DISPLAYE           EXTEND                                         
029376,001007: 35,3675           23463                           QXCH     NORMEX                                
029377,001008: 35,3676           33724                           CAF      V06N55                                
029378,001009: 35,3677           04616                           TCR      BANKCALL                              
029379,001010: 35,3700           20476                           CADR     GOFLASH                               
029380,001011: 35,3701           16001                           TCF      GOTOPOOH                              
029381,001012: 35,3702           01463                           TC       NORMEX                                
029382,001013: 35,3703           13676                           TCF      -5                                    
029383,001014: 

Page 683

029385,001016:                                                                                                  #  ..... P3XORP7X .....
029386,001017: 
029387,001018: 35,3704           37744        P3XORP7X           CAF      HIGH9                                 
029388,001019: 35,3705           71011                           MASK     MODREG                                
029389,001020: 35,3706           00006                           EXTEND                                         
029390,001021: 35,3707           13711                           BZF      +2                                    
029391,001022: 35,3710           24002                           INCR     Q                                     
029392,001023: 35,3711           00002                           RETURN                                         
029393,001024: 
029394,001025:                                                                                                  #  ..... VNPOOH .....
029395,001026: 
029396,001027:                                                                                                  #  SUBROUTINES USED
029397,001028:                                                                                                  #        BANKCALL
029398,001029:                                                                                                  #        GOFLASH
029399,001030:                                                                                                  #        GOTOPOOH
029400,001031: 
029401,001032: 35,3712           00006        VNPOOH             EXTEND                                         
029402,001033: 35,3713           23465                           QXCH     RTRN                                  
029403,001034: 35,3714           55615                           TS       VERBNOUN                              
029404,001035: 35,3715           31615                           CA       VERBNOUN                              
029405,001036: 35,3716           04616                           TCR      BANKCALL                              
029406,001037: 35,3717           20476                           CADR     GOFLASH                               
029407,001038: 35,3720           16001                           TCF      GOTOPOOH                              
029408,001039: 35,3721           01465                           TC       RTRN                                  
029409,001040: 35,3722           13715                           TCF      -5                                    
029410,001041: 

Page 684

029412,001043:                                                                                                  #  ..... CONSTANTS .....
029413,001044: 
029414,001045: 35,3723           01445        V06N37             VN       0637                                  
029415,001046: 35,3724           01467        V06N55             VN       0655                                  
029416,001047: 35,3725           01472        V06N58             VN       0658                                  
029417,001048: 35,3726           01473        V06N59             VN       0659                                  
029418,001049: 35,3727           01521        V06N81             VN       0681                                  
029419,001050: 35,3730           04055        V16N45             VN       1645                                  
029420,001051: 35,3731           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
029421,001052: 
029422,001053: 35,3733           00001 20650  MAX250             2DEC     25         E3                         
029423,001054: 
029424,001055: 35,3735           12525 12525  THIRD              2DEC     .333333333                            
029425,001056: 
029426,001057: 35,3737           00004 21505  ELEPS              2DEC     .27777777  E-3                        
029427,001058: 
029428,001059: 35,3741           77777        DP-.01             OCT      77777                                 #  CONSTANTS
029429,001060: 35,3742           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
029430,001061: 35,3743           01252 25253  EPSFOUR            2DEC     .0416666666                            
029431,001062: 
029432,001063: 35,3745           13434 16162  130DEG             2DEC     .3611111111                            
029433,001064: 

Page 685

029435,001066:                                                                                                  #  ..... INITVEL .....
029436,001067: 
029437,001068:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
029438,001069:                                                                                                  #  MOD BY WHITE.P                DATE  21NOV67
029439,001070: 
029440,001071:                                                                                                  #  FUNCTIONAL DESCRIPTION
029441,001072: 
029442,001073:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
029443,001074:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
029444,001075:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
029445,001076:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
029446,001077:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
029447,001078:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
029448,001079:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
029449,001080:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
029450,001081:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
029451,001082:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
029452,001083: 
029453,001084:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
029454,001085:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
029455,001086:                                                                                                  #        SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
029456,001087:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
029457,001088:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
029458,001089:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
029459,001090:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
029460,001091:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
029461,001092: 
029462,001093:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
029463,001094:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
029464,001095:                                                                                                  #        TRAJECTORY COMPUTATIONS.
029465,001096: 
029466,001097:                                                                                                  #  CALLING SEQUENCE
029467,001098: 
029468,001099:                                                                                                  #        L       CALL
029469,001100:                                                                                                  #        L+1             INITVEL
029470,001101:                                                                                                  #        L+2     (RETURN - ALWAYS)
029471,001102: 
029472,001103:                                                                                                  #  INPUT
029473,001104: 
029474,001105:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
029475,001106:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
029476,001107:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
029477,001108:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
029478,001109:                                                                                                  #        (5)     INTIME          TIME OF RINIT
029479,001110:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
029480,001111:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
029481,001112:                                                                                                  #        (8)     RTX1            -2 FOR EARTH, -10D FOR LUNAR
029482,001113:                                                                                                  #        (9)     RTX2            COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
029483,001114:                                                                                                  #        PUSHLOC SET AT 4D
029484,001115: 

Page 686

029486,001117:                                                                                                  #  OUTPUT
029487,001118: 
029488,001119:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
029489,001120:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
029490,001121:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
029491,001122:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
029492,001123: 
029493,001124:                                                                                                  #  SUBROUTINES USED
029494,001125: 
029495,001126:                                                                                                  #        LAMBERT
029496,001127:                                                                                                  #        INTSTALL
029497,001128:                                                                                                  #        INTEGRVS
029498,001129: 
029499,001130: 11,2000                                           SETLOC   INTVEL                                
029500,001131: 11,2000                                           BANK                                           
029501,001132: 
029502,001133: 11,2000                                           COUNT*   $$/INITV                              
029503,001134: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
029504,001135: 11,2001           00475                                    GUESSW                                
029505,001136: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
029506,001137: 11,2003           03444                                    RTARG                                 
029507,001138: 11,2004           03463                                    NORMEX                                
029508,001139: 11,2005           03472                           STORE    RTARG1                                
029509,001140: 11,2006           77646                           ABVAL                                          
029510,001141: 11,2007           03723                           STORE    RTMAG                                 
029511,001142: 11,2010           46135                           SLOAD    BHIZ                                  
029512,001143: 11,2011           03000                                    RTX2                                  
029513,001144: 11,2012           22026                                    INITVEL1                              
029514,001145: 11,2013           72575                           VLOAD    VSL2                                  
029515,001146: 11,2014           02323                                    RINIT                                 #  B29
029516,001147: 11,2015           26323                           STOVL    RINIT                                 #  B27
029517,001148: 11,2016           02331                                    VINIT                                 #  B7
029518,001149: 11,2017           77752                           VSL2                                           
029519,001150: 11,2020           26331                           STOVL    VINIT                                 #  B5
029520,001151: 11,2021           03472                                    RTARG1                                
029521,001152: 11,2022           77752                           VSL2                                           
029522,001153: 11,2023           03472                           STORE    RTARG1                                
029523,001154: 11,2024           77646                           ABVAL                                          
029524,001155: 11,2025           03723                           STORE    RTMAG                                 
029525,001156: 
029526,001157:                                                                                                  #  INITIALIZATION
029527,001158: 
029528,001159: 11,2026           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
029529,001160: 11,2027           03617                                    ITCTR                                 
029530,001161: 11,2030           77776                                    0          -1                         
029531,001162: 11,2031           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
029532,001163: 11,2032           17667                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4)          (PL 0D)
029533,001164: 11,2033           67154                           LXA,2    SXA,2                                 
029534,001165: 11,2034           00154                                    MPAC                                  
029535,001166: 11,2035           02701                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
029536,001167: 11,2036           77775                           VLOAD                                          

Page 687

029538,001169: 11,2037           02323                                    RINIT                                 
029539,001170: 11,2040           26655                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
029540,001171: 11,2041           03472                                    RTARG1                                
029541,001172: 11,2042           16663                           STODL    R2VEC                                 #  R2VEC EQ RTARG
029542,001173: 11,2043           03452                                    DELLT4                                
029543,001174: 11,2044           02671                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
029544,001175: 11,2045           77201                           SETPD    VLOAD                                 
029545,001176: 11,2046           00001                                    0D                                    #  INITIALIZE PL TO 0D
029546,001177: 11,2047           02323                                    RINIT                                 #  MPAC EQ RINIT (+29)
029547,001178: 11,2050           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)                     (PL 6D)
029548,001179: 11,2051           53435                           VXV      UNIT                                  
029549,001180: 11,2052           02331                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI (+8)
029550,001181: 11,2053           26674                           STOVL    UN                                    
029551,001182: 11,2054           03472                                    RTARG1                                
029552,001183: 11,2055           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)                 (PL 0D)
029553,001184: 11,2056           43015                           DAD      CLEAR                                 
029554,001185: 11,2057           03667                                    COZY4                                 
029555,001186: 11,2060           03665                                    NORMSW                                
029556,001187: 11,2061           03667                           STORE    COZY4                                 
029557,001188: 11,2062           43044        INITVEL2           BPL      SET                                   
029558,001189: 11,2063           22105                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
029559,001190: 11,2064           03465                                    NORMSW                                
029560,001191: 
029561,001192:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
029562,001193: 
029563,001194: 11,2065           41575                           VLOAD    PUSH                                  #                                    (PL 6D)
029564,001195: 11,2066           02663                                    R2VEC                                 #  RC TO 6D (+29)
029565,001196: 11,2067           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D)
029566,001197: 11,2070           46206                           PUSH     VPROJ                                 #                                    (PL 8D)
029567,001198: 11,2071           02674                                    UN                                    
029568,001199: 11,2072           51352                           VSL2     BVSU                                  
029569,001200: 11,2073           74256                           UNIT     VXSC                                  #                                    (PL 0D)
029570,001201: 11,2074           77772                           VSL1                                           
029571,001202: 11,2075           02663                           STORE    R2VEC                                 
029572,001203: 11,2076           67351                           TLOAD    SLOAD                                 
029573,001204: 11,2077           24007                                    ZEROVEC                               
029574,001205: 11,2100           03617                                    ITCTR                                 
029575,001206: 11,2101           77244                           BPL      VLOAD                                 
029576,001207: 11,2102           22105                                    INITVEL3                              
029577,001208: 11,2103           02663                                    R2VEC                                 
029578,001209: 11,2104           03472                           STORE    RTARG1                                
029579,001210: 11,2105           63345        INITVEL3           DLOAD    PDVL                                  #                                    (PL 2D)
029580,001211: 11,2106           26007                                    MUEARTH                               #  POSITIVE VALUE
029581,001212: 11,2107           02663                                    R2VEC                                 
029582,001213: 11,2110           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)                  (PL 8D)
029583,001214: 11,2111           02655                                    R1VEC                                 
029584,001215: 11,2112           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)                 (PL 14D)
029585,001216: 11,2113           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
029586,001217: 11,2114           00003                                    2D                                    
029587,001218: 11,2115           77606                           PUSH                                           #                                   (PL 20D)
029588,001219: 11,2116           71350                           LXA,1    DLOAD                                 

Page 688

029590,001221: 11,2117           02776                                    RTX1                                  
029591,001222: 11,2120           00023                                    18D                                   
029592,001223: 11,2121           62040                           BMN      INCR,1                                
029593,001224: 11,2122           22124                                    +2                                    
029594,001225: 11,2123           77767                           DEC      -8         B-14                       
029595,001226: 11,2124           67310                           INCR,1   SLOAD                                 
029596,001227: 11,2125           00012                                    10D                                   
029597,001228: 11,2126           00047                                    X1                                    
029598,001229: 11,2127           77230                           BHIZ     VLOAD                                 #                                   (PL 14D)
029599,001230: 11,2130           22132                                    +2                                    
029600,001231: 11,2131           41476                           VCOMP    PUSH                                  #                                   (PL 20D)
029601,001232: 11,2132           77775                           VLOAD                                          #                                   (PL 14D)
029602,001233: 11,2133           50235                           VXV      DOT                                   #                                    (PL 2D)
029603,001234: 11,2134           71244                           BPL      DLOAD                                 #                                    (PL 0D)
029604,001235: 11,2135           22137                                    INITVEL4                              
029605,001236: 11,2136           41476                           DCOMP    PUSH                                  #                                    (PL 2D)
029606,001237: 11,2137           67154        INITVEL4           LXA,2    SXA,2                                 
029607,001238: 11,2140           00000                                    0D                                    
029608,001239: 11,2141           02672                                    GEOMSGN                               
029609,001240: 
029610,001241:                                                                                                  #  SET INPUTS UP FOR LAMBERT
029611,001242: 
029612,001243: 11,2142           45150                           LXA,1    CALL                                  
029613,001244: 11,2143           02776                                    RTX1                                  
029614,001245: 
029615,001246:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
029616,001247: 
029617,001248: 11,2144           23765                                    SETITCTR                              #  GO TO END OF BANK TO SET ITERCTR BEFORE
029618,001249:                                                                                                  #  CALLING LAMBERT (FOR REMANUFACTURE ONLY)
029619,001250: 
029620,001251:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
029621,001252: 
029622,001253: 11,2145           77214                           CLEAR    VLOAD                                 
029623,001254: 11,2146           00675                                    GUESSW                                
029624,001255: 11,2147           02744                                    VVEC                                  
029625,001256: 
029626,001257:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
029627,001258: 
029628,001259: 11,2150           16337                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
029629,001260: 
029630,001261:                                                                                                  #  IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
029631,001262:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
029632,001263: 
029633,001264: 11,2151           02702                                    VTARGTAG                              
029634,001265: 11,2152           45030                           BHIZ     CALL                                  
029635,001266: 11,2153           22230                                    INITVEL7                              
029636,001267: 11,2154           27414                                    INTSTALL                              
029637,001268: 11,2155           43135                           SLOAD    CLEAR                                 
029638,001269: 11,2156           03000                                    RTX2                                  
029639,001270: 11,2157           00263                                    MOONFLAG                              
029640,001271: 11,2160           43030                           BHIZ     SET                                   
029641,001272: 11,2161           22163                                    INITVEL5                              

Page 689

029643,001274: 11,2162           00063                                    MOONFLAG                              
029644,001275: 11,2163           77775        INITVEL5           VLOAD                                          
029645,001276: 11,2164           02323                                    RINIT                                 
029646,001277: 11,2165           02655                           STORE    R1VEC                                 
029647,001278: 11,2166           25535                           STOVL    RCV                                   
029648,001279: 11,2167           02337                                    VIPRIME                               
029649,001280: 11,2170           15543                           STODL    VCV                                   
029650,001281: 11,2171           03610                                    INTIME                                
029651,001282: 11,2172           01517                           STORE    TET                                   
029652,001283: 11,2173           43015                           DAD      CLEAR                                 
029653,001284: 11,2174           03452                                    DELLT4                                
029654,001285: 11,2175           01673                                    INTYPFLG                              
029655,001286: 11,2176           34041                           STCALL   TDEC1                                 
029656,001287: 11,2177           27107                                    INTEGRVS                              
029657,001288: 11,2200           77775                           VLOAD                                          
029658,001289: 11,2201           00025                                    VATT1                                 
029659,001290: 11,2202           02703                           STORE    VTARGET                               
029660,001291: 
029661,001292:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
029662,001293:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
029663,001294: 
029664,001295: 11,2203           63154                           LXA,2    INCR,2                                
029665,001296: 11,2204           03616                                    ITCTR                                 
029666,001297: 11,2205           00001                                    1D                                    #  INCREMENT ITCTR
029667,001298: 11,2206           55134                           SXA,2    XSU,2                                 
029668,001299: 11,2207           03616                                    ITCTR                                 
029669,001300: 11,2210           02701                                    VTARGTAG                              
029670,001301: 11,2211           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
029671,001302: 11,2212           00050                                    X2                                    
029672,001303: 11,2213           22225                                    INITVEL6                              
029673,001304: 
029674,001305:                                                                                                  #  OFFSET CONIC TARGET VECTOR
029675,001306: 
029676,001307: 11,2214           52375                           VLOAD    VSU                                   
029677,001308: 11,2215           03472                                    RTARG1                                
029678,001309: 11,2216           00017                                    RATT1                                 
029679,001310: 11,2217           77655                           VAD                                            
029680,001311: 11,2220           02663                                    R2VEC                                 
029681,001312: 11,2221           16663                           STODL    R2VEC                                 
029682,001313: 11,2222           03667                                    COZY4                                 
029683,001314: 11,2223           77650                           GOTO                                           
029684,001315: 11,2224           22062                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
029685,001316: 
029686,001317:                                                                                                  #  COMPUTE THE DELTA VELOCITY
029687,001318: 
029688,001319: 11,2225           77775        INITVEL6           VLOAD                                          
029689,001320: 11,2226           02663                                    R2VEC                                 
029690,001321: 11,2227           03472                           STORE    RTARG1                                
029691,001322: 11,2230           52375        INITVEL7           VLOAD    VSU                                   
029692,001323: 11,2231           02337                                    VIPRIME                               
029693,001324: 11,2232           02331                                    VINIT                                 
029694,001325: 11,2233           26366                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)

Page 690

029696,001327: 11,2234           02703                                    VTARGET                               
029697,001328: 11,2235           03566                           STORE    VTPRIME                               
029698,001329: 11,2236           46135                           SLOAD    BHIZ                                  
029699,001330: 11,2237           03000                                    RTX2                                  
029700,001331: 11,2240           22255                                    INITVELX                              
029701,001332: 11,2241           70575                           VLOAD    VSR2                                  
029702,001333: 11,2242           03566                                    VTPRIME                               
029703,001334: 11,2243           27566                           STOVL    VTPRIME                               
029704,001335: 11,2244           02337                                    VIPRIME                               
029705,001336: 11,2245           77742                           VSR2                                           
029706,001337: 11,2246           26337                           STOVL    VIPRIME                               
029707,001338: 11,2247           03472                                    RTARG1                                
029708,001339: 11,2250           77742                           VSR2                                           
029709,001340: 11,2251           27472                           STOVL    RTARG1                                
029710,001341: 11,2252           02366                                    DELVEET3                              
029711,001342: 11,2253           77742                           VSR2                                           
029712,001343: 11,2254           02366                           STORE    DELVEET3                              
029713,001344: 11,2255           70750        INITVELX           LXA,1    DLOAD*                                
029714,001345: 11,2256           02776                                    RTX1                                  
029715,001346: 11,2257           10003                                    MUTABLE    -2,1                       
029716,001347: 11,2260           41206                           PUSH     DMP                                   
029717,001348: 11,2261           02742                                    R1A                                   
029718,001349: 11,2262           56342                           SR1      DDV                                   
029719,001350: 11,2263           00041                                    R1                                    
029720,001351: 11,2264           17721                           STODL    MU/A                                  
029721,001352: 11,2265           77661                           SR                                             
029722,001353: 11,2266           20607                                    6                                     
029723,001354: 11,2267           03717                           STORE    MUASTEER                              
029724,001355: 11,2270           77201                           SETPD    VLOAD                                 
029725,001356: 11,2271           00001                                    0D                                    
029726,001357: 11,2272           03472                                    RTARG1                                
029727,001358: 11,2273           37444                           STCALL   RTARG                                 
029728,001359: 11,2274           03463                                    NORMEX                                
029729,001360: 
029730,001361:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
029731,001362: 

Page 691

029733,001364:                                                                                                  #  ..... MIDGIM .....
029734,001365: 
029735,001366:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
029736,001367:                                                                                                  #  REVISION 03, 17 FEB 67
029737,001368: 
029738,001369:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
029739,001370:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
029740,001371:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
029741,001372:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
029742,001373:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
029743,001374: 
029744,001375:                                                                                                  #  .. INPUTS ..
029745,001376: 
029746,001377:                                                                                                  #        NAME    MEANING                                         UNITS/SCALING/MODE
029747,001378: 
029748,001379:                                                                                                  #        AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE                     BIT
029749,001380:                                                                                                  #        RINIT   ACTIVE VEHICLE RADIUS VECTOR                    METERS/CSEC (+7) VT
029750,001381:                                                                                                  #        VINIT   ACTIVE VEHICLE VELOCITY VECTOR                  METERS/CSEC (+7) VT
029751,001382:                                                                                                  #        0D(PL)  ACTIVE VEHICLE DELTA VELOCITY VECTOR            METERS/CSEC (+7) VT
029752,001383: 
029753,001384:                                                                                                  #  .. OUTPUTS ..
029754,001385: 
029755,001386:                                                                                                  #     NAME       MEANING                                         UNITS/SCALING/MODE
029756,001387: 
029757,001388:                                                                                                  #     +MGA       + MIDDLE GIMBAL ANGLE                           REVOLUTIONS (+0) DP
029758,001389:                                                                                                  #     DELVLVC    DELTA VELOCITY VECTOR IN LV COORD.              METERS/CSEC (+7) VT
029759,001390:                                                                                                  #     MGLVFLAG   INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.       -       BIT
029760,001391: 
029761,001392:                                                                                                  #  .. CALLING SEQUENCE ..
029762,001393: 
029763,001394:                                                                                                  #        L       CALL
029764,001395:                                                                                                  #        L+1             MIDGIM
029765,001396:                                                                                                  #        L+2     (RETURN - ALWAYS)
029766,001397: 
029767,001398:                                                                                                  #  .. NO SUBROUTINES CALLED ..
029768,001399: 
029769,001400:                                                                                                  #  .. DEBRIS - ERASEABLE TEMPORARY USAGE
029770,001401: 
029771,001402:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
029772,001403: 
029773,001404:                                                                                                  #  .. ALARMS - NONE ..
029774,001405: 

Page 692

029776,001407:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
029777,001408: 
029778,001409: 06,2000                                           SETLOC   MIDDGIM                               
029779,001410: 06,2000                                           BANK                                           
029780,001411: 
029781,001412: 06,3715                                           COUNT*   $$/MIDG                               
029782,001413: 
029783,001414: 06,3715           20000 00000  HALFREV            2DEC     1          B-1                        
029784,001415: 
029785,001416: 06,3717           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
029786,001417: 06,3720           77656                           UNIT                                           
029787,001418: 06,3721           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
029788,001419: 06,3722           01742                                    REFSMMAT   +6                         #  FROM +2 TO +1 FOR ASIN ROUTINE
029789,001420: 06,3723           51136                           ARCSIN   BPL                                   
029790,001421: 06,3724           15730                                    SETMGA                                
029791,001422: 06,3725           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
029792,001423: 06,3726           15716                                    HALFREV                               #  ADDING ONE REVOLUTION
029793,001424: 06,3727           15716                                    HALFREV                               
029794,001425: 06,3730           02253        SETMGA             STORE    +MGA                                  
029795,001426: 06,3731           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
029796,001427: 06,3732           02675                                    MGLVFLAG                              #  AND EXIT
029797,001428: 06,3733           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC, UNITIZE UR
029798,001429: 06,3734           02323                                    RINIT                                 
029799,001430: 06,3735           77676                           VCOMP                                          #  U(-R)
029800,001431: 06,3736           00023                           STORE    18D                                   #  U(-R) TO 18D
029801,001432: 06,3737           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
029802,001433: 06,3740           02331                                    VINIT                                 
029803,001434: 06,3741           00015                           STORE    12D                                   #  U(V*R) TO 12D
029804,001435: 06,3742           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
029805,001436: 06,3743           00023                                    18D                                   
029806,001437: 06,3744           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
029807,001438: 06,3745           00001                                    0D                                    #  DELTA V (+7) IN 0D
029808,001439: 06,3746           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
029809,001440: 06,3747           00007                                    6D                                    #  AND SCALE +7 IN MPAC
029810,001441: 06,3750           03434                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
029811,001442: 06,3751           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
029812,001443: 06,3752           02475                                    MGLVFLAG                              #  AND EXIT
029813,001444: 
029814,001445:                                                                                                  #  ..... END OF MIDGIM ROUTINE .....
029815,001446: 

Page 693

029817,001448: 10,2000                                           BANK     10                                    
029818,001449: 10,2000                                           SETLOC   SLCTMU                                
029819,001450: 10,2000                                           BANK                                           
029820,001451: 10,2000                                           COUNT*   $$/MIDG                               
029821,001452: 
029822,001453: 10,2000           77160        SELECTMU           AXC,1    AXT,2                                 
029823,001454: 10,2001           00002                                    2D                                    
029824,001455: 10,2002           00000                                    0D                                    
029825,001456: 10,2003           77614                           BOFF                                           
029826,001457: 10,2004           04343                                    CMOONFLG                              
029827,001458: 10,2005           20011                                    SETMUER                               
029828,001459: 10,2006           77160                           AXC,1    AXT,2                                 
029829,001460: 10,2007           00012                                    10D                                   
029830,001461: 10,2010           00002                                    2D                                    
029831,001462: 10,2011           66143        SETMUER            DLOAD*   SXA,1                                 
029832,001463: 10,2012           10011                                    MUTABLE    +4,1                       
029833,001464: 10,2013           02776                                    RTX1                                  
029834,001465: 10,2014           22317                           STODL*   RTSR1/MU                              
029835,001466: 10,2015           10003                                    MUTABLE    -2,1                       
029836,001467: 10,2016           54214                           BOFF     SR                                    
029837,001468: 10,2017           04343                                    CMOONFLG                              
029838,001469: 10,2020           20022                                    RTRNMU                                
029839,001470: 10,2021           20607                                    6D                                    
029840,001471: 10,2022           02321        RTRNMU             STORE    RTMU                                  
029841,001472: 10,2023           43134                           SXA,2    CLEAR                                 
029842,001473: 10,2024           02777                                    RTX2                                  
029843,001474: 10,2025           01271                                    FINALFLG                              
029844,001475: 10,2026           77650                           GOTO                                           
029845,001476: 10,2027           73606                                    VN1645                                
029846,001477: 

Page 694

029848,001479:                                                                                                  #  ..... PERIAPO .....
029849,001480: 
029850,001481:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
029851,001482:                                                                                                  #  MOD BY WHITE.P                DATE 18JAN68
029852,001483: 
029853,001484:                                                                                                  #  FUNCTIONAL DESCRIPTION
029854,001485: 
029855,001486:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
029856,001487:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
029857,001488:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
029858,001489: 
029859,001490:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
029860,001491: 
029861,001492:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
029862,001493:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
029863,001494: 
029864,001495:                                                                                                  #  CALLING SEQUENCE
029865,001496: 
029866,001497:                                                                                                  #        L       CALL
029867,001498:                                                                                                  #        L+1             PERIAPO
029868,001499:                                                                                                  #        L+2     (RETURN - ALWAYS)
029869,001500: 
029870,001501:                                                                                                  #  INPUT
029871,001502: 
029872,001503:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
029873,001504:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029874,001505:                                                                                                  #        (2)     VVEC    VELOCITY VECTOR IN METERS/CENTISECOND
029875,001506:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
029876,001507:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
029877,001508:                                                                                                  #                        EARTH -2, MOON -10
029878,001509: 
029879,001510:                                                                                                  #  OUTPUT
029880,001511: 
029881,001512:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
029882,001513:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029883,001514:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
029884,001515:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
029885,001516:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
029886,001517:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029887,001518:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
029888,001519:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029889,001520:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
029890,001521:                                                                                                  #                        SCALE FACTOR - +3
029891,001522:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
029892,001523:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
029893,001524:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
029894,001525: 
029895,001526:                                                                                                  #  SUBROUTINES USED
029896,001527: 
029897,001528:                                                                                                  #        SETRAD

Page 695

029899,001530:                                                                                                  #        APSIDES
029900,001531: 
029901,001532: 23,2000                                           SETLOC   APOPERI                               
029902,001533: 23,2000                                           BANK                                           
029903,001534: 
029904,001535: 23,2314                                           COUNT*   $$/PERAP                              
029905,001536: 
029906,001537: 23,2314           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
029907,001538:                                                                                                  #  = 20 909 901.57 FT
029908,001539: 
029909,001540: 23,2316           53754        PERIAPO1           LXA,2    VSR*                                  
029910,001541: 23,2317           02777                                    RTX2                                  
029911,001542: 23,2320           57176                                    0,2                                   
029912,001543: 23,2321           26744                           STOVL    VVEC                                  
029913,001544: 23,2322           53750                           LXA,1    VSR*                                  
029914,001545: 23,2323           02776                                    RTX1                                  
029915,001546: 23,2324           57176                                    0,2                                   
029916,001547: 23,2325           02655                           STORE    RVEC                                  
029917,001548: 23,2326           45020        PERIAPO            STQ      CALL                                  
029918,001549: 23,2327           03463                                    NORMEX                                
029919,001550: 23,2330           46344                                    SETRAD                                
029920,001551: 23,2331           37671                           STCALL   XXXALT                                
029921,001552: 23,2332           25674                                    APSIDES                               
029922,001553: 23,2333           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
029923,001554: 23,2334           00003                                    2D                                    
029924,001555: 23,2335           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
029925,001556: 23,2336           03671                                    XXXALT                                
029926,001557: 23,2337           00001                                    0D                                    
029927,001558: 23,2340           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
029928,001559: 23,2341           03671                                    XXXALT                                
029929,001560: 23,2342           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
029930,001561: 23,2343           03463                                    NORMEX                                
029931,001562: 

Page 696

029933,001564:                                                                                                  #  SETRAD
029934,001565: 
029935,001566: 23,2344           41545        SETRAD             DLOAD    PUSH                                  
029936,001567: 23,2345           06315                                    RPAD                                  
029937,001568: 23,2346           63130                           SXA,1    INCR,2                                
029938,001569: 23,2347           00047                                    X2                                    
029939,001570: 23,2350           00002                                    2D                                    
029940,001571: 23,2351           46135                           SLOAD    BHIZ                                  
029941,001572: 23,2352           00050                                    X2                                    
029942,001573: 23,2353           46357                                    SETRADX                               
029943,001574: 23,2354           51575                           VLOAD    ABVAL                                 
029944,001575: 23,2355           02023                                    RLS                                   
029945,001576: 23,2356           77725                           PDDL                                           
029946,001577: 23,2357           43545        SETRADX            DLOAD    RVQ                                   
029947,001578: 

Page 697

029949,001580:                                                                                                  #  PRECSET
029950,001581: 
029951,001582: 23,2360           77620        PRECSET            STQ                                            
029952,001583: 23,2361           03463                                    NORMEX                                
029953,001584: 23,2362           37574                           STCALL   TDEC2                                 
029954,001585: 23,2363           27057                                    LEMPREC                               
029955,001586: 23,2364           77624                           CALL                                           
029956,001587: 23,2365           46376                                    LEMSTORE                              
029957,001588: 23,2366           77745                           DLOAD                                          
029958,001589: 23,2367           03574                                    TDEC2                                 
029959,001590: 23,2370           34041                           STCALL   TDEC1                                 
029960,001591: 23,2371           27043                                    CSMPREC                               
029961,001592: 23,2372           77624                           CALL                                           
029962,001593: 23,2373           46406                                    CSMSTORE                              
029963,001594: 23,2374           77650                           GOTO                                           
029964,001595: 23,2375           03463                                    NORMEX                                
029965,001596: 23,2376           43175        LEMSTORE           VLOAD    BOFF                                  
029966,001597: 23,2377           00001                                    RATT                                  
029967,001598: 23,2400           01352                                    AVFLAG                                
029968,001599: 23,2401           46412                                    PASSIVE                               
029969,001600: 23,2402           27536        ACTIVE             STOVL    RACT3                                 
029970,001601: 23,2403           00007                                    VATT                                  
029971,001602: 23,2404           03544                           STORE    VACT3                                 
029972,001603: 23,2405           77616                           RVQ                                            
029973,001604: 23,2406           43175        CSMSTORE           VLOAD    BOFF                                  
029974,001605: 23,2407           00001                                    RATT                                  
029975,001606: 23,2410           01352                                    AVFLAG                                
029976,001607: 23,2411           46402                                    ACTIVE                                
029977,001608: 23,2412           27552        PASSIVE            STOVL    RPASS3                                
029978,001609: 23,2413           00007                                    VATT                                  
029979,001610: 23,2414           03560                           STORE    VPASS3                                
029980,001611: 23,2415           77616                           RVQ                                            
029981,001612: 

Page 698

029983,001614:                                                                                                  #  VECSHIFT
029984,001615: 
029985,001616: 23,2416           53754        VECSHIFT           LXA,2    VSR*                                  
029986,001617: 23,2417           02777                                    RTX2                                  
029987,001618: 23,2420           57176                                    0,2                                   
029988,001619: 23,2421           63350                           LXA,1    PDVL                                  
029989,001620: 23,2422           02776                                    RTX1                                  
029990,001621: 23,2423           63257                           VSR*     PDVL                                  
029991,001622: 23,2424           57176                                    0,2                                   
029992,001623: 23,2425           77616                           RVQ                                            
029993,001624: 

Page 699

029995,001626:                                                                                                  #  SHIFTR1 
029996,001627: 
029997,001628: 23,2426           53754        SHIFTR1            LXA,2    SL*                                   
029998,001629: 23,2427           02777                                    RTX2                                  
029999,001630: 23,2430           57576                                    0,2                                   
030000,001631: 23,2431           77616                           RVQ                                            
030001,001632: 

Page 700

030003,001634:                                                                                                  #  PROGRAM DESCRIPTION
030004,001635:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
030005,001636:                                                                                                  #  MOD NO. 0             DATE    22 DECEMBER 67
030006,001637:                                                                                                  #  MOD BY N.M.NEVILLE    LOG SECTION EXTENDED VERBS
030007,001638:                                                                                                  #  FUNCTIONAL DESCRIPTION
030008,001639: 
030009,001640:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
030010,001641:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI).  (REQUESTED BY DSKY).
030011,001642: 
030012,001643:                                                                                                  #  CALLING SEQUENCE
030013,001644: 
030014,001645:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V 90 E
030015,001646: 
030016,001647:                                                                                                  #  SUBROUTINES CALLED
030017,001648: 
030018,001649:                                                                                                  #        EXDSPRET
030019,001650:                                                                                                  #        GOMARKF
030020,001651:                                                                                                  #        CSMPREC
030021,001652:                                                                                                  #        LEMPREC
030022,001653:                                                                                                  #        SGNAGREE
030023,001654:                                                                                                  #        LOADTIME
030024,001655: 
030025,001656:                                                                                                  #  NORMAL EXIT MODES
030026,001657: 
030027,001658:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
030028,001659: 
030029,001660:                                                                                                  #  ALARM OR ABORT EXIT MODES
030030,001661: 
030031,001662:                                                                                                  #        NONE
030032,001663: 
030033,001664:                                                                                                  #  OUTPUT
030034,001665: 
030035,001666:                                                                                                  #        DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
030036,001667: 
030037,001668:                                                                                                  #        DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
030038,001669:                                                                                                  #        REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
030039,001670: 
030040,001671:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030041,001672: 
030042,001673:                                                                                                  #        CSM AND LEM STATE VECTORS
030043,001674: 
030044,001675:                                                                                                  #  DEBRIS
030045,001676: 
030046,001677:                                                                                                  #        CENTRALS A,Q,L
030047,001678:                                                                                                  #        OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
030048,001679: 
030049,001680: 20,2115                                           BANK     20                                    
030050,001681: 04,2000                                           SETLOC   R36LM                                 
030051,001682: 04,2000                                           BANK                                           

Page 701

030053,001684: 04,2656  E4,1606                                  EBANK=   RPASS36                               
030054,001685: 
030055,001686: 04,2656                                           COUNT*   $$/R36                                
030056,001687: 
030057,001688: 04,2656           22007        R36                ZL                                             
030058,001689: 04,2657           34755                           CAF      ZERO                                  #  SET TIME OF EVENT TO ZERO FOR FIRST
030059,001690: 04,2660           53052                           DXCH     DSPTEMX                               #  DISPLAY
030060,001691: 04,2661           33011                           CAF      V06N16N                               
030061,001692: 04,2662           04616                           TC       BANKCALL                              
030062,001693: 04,2663           20334                           CADR     GOMARKF                               
030063,001694: 04,2664           15472                           TCF      ENDEXT                                #  TERMINATE
030064,001695: 04,2665           12667                           TCF      +2                                    #  PROCEED
030065,001696: 04,2666           12661                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
030066,001697: 04,2667           53052                           DXCH     DSPTEMX                               
030067,001698: 04,2670           00006                           EXTEND                                         
030068,001699: 04,2671           13000                           BZF      LREGCHK                               #  A-REG ZERO GOTO CHECK L-REG FOR ZERO
030069,001700: 04,2672           52155        ASTROTIM           DXCH     MPAC                                  #  A-REG NON-ZERO, TIME = ASTRO INPUT TIME
030070,001701: 04,2673           06037                           TC       INTPRET                               
030071,001702: 04,2674           77634                           RTB                                            
030072,001703: 04,2675           21716                                    DPMODE                                
030073,001704: 04,2676           34041        R36INT             STCALL   TDEC1                                 
030074,001705: 04,2677           27043                                    OTHPREC                               
030075,001706: 04,2700           63375                           VLOAD    PDVL                                  
030076,001707: 04,2701           00007                                    VATT                                  
030077,001708: 04,2702           00001                                    RATT                                  #  -
030078,001709: 04,2703           02207                           STORE    RPASS36                               #  R
030079,001710: 04,2704           63256                           UNIT     PDVL                                  #   P
030080,001711: 04,2705           53435                           VXV      UNIT                                  
030081,001712: 04,2706           77626                           STADR                                          #  -
030082,001713: 04,2707           61562                           STODL    UNP36                                 #  U
030083,001714: 04,2710           00015                                    TAT                                   
030084,001715: 04,2711           34041                           STCALL   TDEC1                                 
030085,001716: 04,2712           27057                                    THISPREC                              
030086,001717: 04,2713           63375                           VLOAD    PDVL                                  #                  -
030087,001718: 04,2714           00007                                    VATT                                  #  VELOCITY VECTOR V             00D
030088,001719: 04,2715           00001                                    RATT                                  #                   A
030089,001720: 04,2716           77725                           PDDL                                           
030090,001721: 04,2717           00015                                    TAT                                   #  SAVE TIME IN LOCATION 30D FOR REDISPLAY
030091,001722: 04,2720           24037                           STOVL    30D                                   #                  -
030092,001723: 04,2721           41406                           PUSH     PUSH                                  #  POSITION VECTOR R  IN 06D AND 12D
030093,001724: 04,2722           63245                           BVSU     PDVL                                  #                   A   -   -
030094,001725: 04,2723           02207                                    RPASS36                               #  LINE OF SIGHT VECTOR R - R    12D
030095,001726: 04,2724           72441                           DOT      SL1                                   #                        P   A
030096,001727: 04,2725           02215                                    UNP36                                 #      -   -
030097,001728: 04,2726           26201                           STOVL    RANGE                                 #  Y = U . R
030098,001729: 04,2727           00001                                    00D                                   #           A
030099,001730: 04,2730           72441                           DOT      SL1                                   
030100,001731: 04,2731           02215                                    UNP36                                 #  .   -   -
030101,001732: 04,2732           26203                           STOVL    RRATE                                 #  Y = U . V
030102,001733: 04,2733           00007                                    06D                                   #  -        A  -

Page 702

030104,001735: 04,2734           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
030105,001736: 04,2735           47235                           VXV      VXV                                   #   RA          A
030106,001737: 04,2736           00001                                    00D                                   #   -    -     -     -
030107,001738: 04,2737           00023                                    18D                                   #  (U  X V ) X U   = U
030108,001739: 04,2740           53552                           VSL2     UNIT                                  #    RA   A     RA    A
030109,001740: 04,2741           77656                           UNIT                                           
030110,001741: 04,2742           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D
030111,001742: 04,2743           00023                                    18D                                   
030112,001743: 04,2744           74241                           DOT      VXSC                                  #  -
030113,001744: 04,2745           00015                                    12D                                   #  U
030114,001745: 04,2746           77752                           VSL2                                           #   L
030115,001746: 04,2747           53445                           BVSU     UNIT                                  
030116,001747: 04,2750           77656                           UNIT                                           
030117,001748: 04,2751           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
030118,001749: 04,2752           00001                                    00D                                   #  PLANE
030119,001750: 04,2753           65552                           SL1      ARCCOS                                #               -   -
030120,001751: 04,2754           26205                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
030121,001752: 04,2755           50235                           VXV      DOT                                   #                A   L
030122,001753: 04,2756           00001                                    00D                                   
030123,001754: 04,2757           71244                           BPL      DLOAD                                 
030124,001755: 04,2760           10765                                    R36TAG2                               
030125,001756: 04,2761           24020                                    LODPMAX                               
030126,001757: 04,2762           77625                           DSU                                            
030127,001758: 04,2763           02205                                    RTHETA                                
030128,001759: 04,2764           02205                           STORE    RTHETA                                
030129,001760: 04,2765           47145        R36TAG2            DLOAD    RTB                                   
030130,001761: 04,2766           00037                                    30D                                   
030131,001762: 04,2767           21612                                    SGNAGREE                              
030132,001763: 04,2770           01052                           STORE    DSPTEMX                               
030133,001764: 04,2771           77776                           EXIT                                           
030134,001765: 04,2772           33012                           CAF      V06N90N                               #  DISPLAY Y, YDOT, AND PSI
030135,001766: 04,2773           04616                           TC       BANKCALL                              
030136,001767: 04,2774           20334                           CADR     GOMARKF                               
030137,001768: 04,2775           15472                           TCF      ENDEXT                                #  TERMINATE
030138,001769: 04,2776           15472                           TCF      ENDEXT                                #  PROCEED, END OF PROGRAM
030139,001770: 04,2777           12661                           TCF      R36        +3                         #  REDISPLAY OUTPUT
030140,001771: 04,3000           56001        LREGCHK            XCH      L                                     
030141,001772: 04,3001           00006                           EXTEND                                         
030142,001773: 04,3002           13005                           BZF      ENTTIM2                               #  L-REG ZERO, SET TIME = PRESENT TIME
030143,001774: 04,3003           56001                           XCH      L                                     #  L-REG NON ZERO, TIME = ASTRO INPUT TIME
030144,001775: 04,3004           12672                           TCF      ASTROTIM                              
030145,001776: 04,3005           06037        ENTTIM2            TC       INTPRET                               
030146,001777: 04,3006           52034                           RTB      GOTO                                  
030147,001778: 04,3007           21573                                    LOADTIME                              
030148,001779: 04,3010           10676                                    R36INT                                
030149,001780: 04,3011           01420        V06N16N            VN       00616                                 
030150,001781: 04,3012           01532        V06N90N            VN       00690                                 

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