Source Code

These source-code files are part of a reconstructed copy of Luminary 163, the first (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with reconstructed source code for Luminary 173. Changes between revision 163 and 173 were backed out, as described by Luminary memos 157 and 158. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 163 listing would be different.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

028253,000002:                                                                                                  ## Copyright:   Public domain.
028254,000003:                                                                                                  ## Filename:    P34-P35,_P74-P75.agc
028255,000004:                                                                                                  ## Purpose:     A section of Luminary revision 163.
028256,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
028257,000006:                                                                                                  ##              (unflown) release of the flight software for the Lunar
028258,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
028259,000008:                                                                                                  ##              The code has been recreated from a reconstructed copy of
028260,000009:                                                                                                  ##              Luminary 173, as well as Luminary memos 157 amd 158.
028261,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
028262,000011:                                                                                                  ##              exactly match those specified for Luminary 163 in NASA
028263,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
028264,000013:                                                                                                  ##              that the reconstruction is correct.
028265,000014:                                                                                                  ## Reference:   pp. 653-697
028266,000015:                                                                                                  ## Assembler:   yaYUL
028267,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028268,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
028269,000018:                                                                                                  ## Mod history: 2019-08-21 MAS  Created from Luminary 173. Removed zeroing of
028270,000019:                                                                                                  ##                              ELEV from P34/P74A.
028271,000020: 

Page 653

028273,000022:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
028274,000023: 
028275,000024:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
028276,000025:                                                                                                  #  MOD BY WHITE.P  DATE 1JUNE67
028277,000026: 
028278,000027:                                                                                                  #  PURPOSE
028279,000028: 
028280,000029:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028281,000030:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
028282,000031:                                                                                                  #            PHASE INITIATION (TPI) MANEUVER, GIVEN -
028283,000032: 
028284,000033:                                                                                                  #            (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
028285,000034:                                                                                                  #                THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
028286,000035: 
028287,000036:                                                                                                  #            (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
028288,000037:                                                                                                  #                INTERCEPT TIME (TIG (TPF)).
028289,000038: 
028290,000039:                                                                                                  #        (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
028291,000040: 
028292,000041:                                                                                                  #        (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028293,000042:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028294,000043: 
028295,000044:                                                                                                  #        (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028296,000045:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028297,000046:                                                                                                  #            ASTRONAUT/GROUND.
028298,000047: 
028299,000048:                                                                                                  #        (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
028300,000049:                                                                                                  #            THRUSTING PROGRAM.
028301,000050: 
028302,000051:                                                                                                  #  ASSUMPTIONS
028303,000052: 
028304,000053:                                                                                                  #        (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
028305,000054:                                                                                                  #            THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
028306,000055:                                                                                                  #            THEREFORE -
028307,000056: 
028308,000057:                                                                                                  #            (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028309,000058:                                                                                                  #                BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028310,000059:                                                                                                  #                A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028311,000060:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028312,000061: 
028313,000062:                                                                                                  #            (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028314,000063:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
028315,000064: 
028316,000065:                                                                                                  #            (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028317,000066:                                                                                                  #                ORBITS WAS MINIMIZED.
028318,000067: 
028319,000068:                                                                                                  #            (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
028320,000069: 
028321,000070:                                                                                                  #                CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 654

028323,000072:                                                                                                  #                ORBIT OR 85 NM FOR EARTH ORBIT.
028324,000073: 
028325,000074:                                                                                                  #            (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
028326,000075:                                                                                                  #                THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
028327,000076:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
028328,000077:                                                                                                  #                IN AN OUT-OF-PLANE MANEUVER.
028329,000078: 
028330,000079:                                                                                                  #        (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
028331,000080:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
028332,000081: 
028333,000082:                                                                                                  #        (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
028334,000083:                                                                                                  #            TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
028335,000084:                                                                                                  #            VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
028336,000085:                                                                                                  #            THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
028337,000086:                                                                                                  #            FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
028338,000087:                                                                                                  #            FLIGHT PLAN MANEUVER SEQUENCES.
028339,000088: 
028340,000089:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028341,000090:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
028342,000091:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028343,000092:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
028344,000093:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028345,000094:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
028346,000095:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028347,000096:                                                                                                  #            THRUSTING MANEUVER.
028348,000097: 
028349,000098:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028350,000099: 
028351,000100:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028352,000101: 
028353,000102:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028354,000103:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028355,000104:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028356,000105:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028357,000106: 
028358,000107:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028359,000108:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028360,000109: 
028361,000110:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028362,000111:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028363,000112:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028364,000113: 
028365,000114:                                                                                                  #        (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
028366,000115:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028367,000116:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028368,000117:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028369,000118:                                                                                                  #            THROUGH THE USE OF V06N52.
028370,000119: 
028371,000120:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028372,000121:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 655

028374,000123:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
028375,000124:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028376,000125:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
028377,000126: 
028378,000127:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028379,000128: 
028380,000129:                                                                                                  #                P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
028381,000130: 
028382,000131:                                                                                                  #                P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
028383,000132: 
028384,000133:                                                                                                  #  INPUT
028385,000134: 
028386,000135:                                                                                                  #        (1) TTPI     TIME OF THE TPI MANEUVER
028387,000136:                                                                                                  #        (2) ELEV     DESIRED LOS ANGLE AT TPI
028388,000137:                                                                                                  #        (3) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028389,000138:                                                                                                  #                     TRANSFER FROM TPI TO TIME OF INTERCEPT
028390,000139: 
028391,000140:                                                                                                  #  OUTPUT
028392,000141: 
028393,000142:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
028394,000143:                                                                                                  #        (2) TTOGO    TIME TO GO
028395,000144:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
028396,000145:                                                                                                  #        (4) TTPI     COMPUTED TIME OF TPI MANEUVER
028397,000146:                                                                                                  #             OR
028398,000147:                                                                                                  #            ELEV     COMPUTED LOS ANGLE AT TPI
028399,000148:                                                                                                  #        (5) POSTTPI  PERIGEE ALTITUDE AFTER THE TPI MANEUVER
028400,000149:                                                                                                  #        (6) DELVTPI  MAGNITUDE OF DELTA V AT TPI
028401,000150:                                                                                                  #        (7) DELVTPF  MAGNITUDE OF DELTA V AT INTERCEPT
028402,000151:                                                                                                  #        (8) DVLOS    DELTA VELOCITY AT TPI - LINE OF SIGHT
028403,000152:                                                                                                  #        (9) DELVLVC  DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
028404,000153: 
028405,000154:                                                                                                  #  DOWNLINK
028406,000155: 
028407,000156:                                                                                                  #        (1) TTPI     TIME OF THE TPI MANEUVER
028408,000157:                                                                                                  #        (2) TIG      TIME OF THE TPI MANEUVER
028409,000158:                                                                                                  #        (3) ELEV     DESIRED LOS ANGLE AT TPI
028410,000159:                                                                                                  #        (4) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028411,000160:                                                                                                  #                     TRANSFER FROM TPI TO TIME OF INTERCEPT
028412,000161:                                                                                                  #        (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
028413,000162:                                                                                                  #        (6) TPASS4   TIME OF INTERCEPT
028414,000163:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028415,000164: 
028416,000165:                                                                                                  #        (1) TIG      TIME OF THE TPI MANEUVER
028417,000166:                                                                                                  #        (2) RTARG    OFFSET TARGET POSITION
028418,000167:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
028419,000168:                                                                                                  #        (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028420,000169: 
028421,000170:                                                                                                  #  SUBROUTINES USED
028422,000171: 
028423,000172:                                                                                                  #        AVFLAGA

Page 656

028425,000174:                                                                                                  #        AVFLAGP
028426,000175:                                                                                                  #        VNPOOH
028427,000176:                                                                                                  #        DISPLAYE
028428,000177:                                                                                                  #        SELECTMU
028429,000178:                                                                                                  #        PRECSET
028430,000179:                                                                                                  #        S33/34.1
028431,000180:                                                                                                  #        ALARM
028432,000181:                                                                                                  #        BANKCALL
028433,000182:                                                                                                  #        GOFLASH
028434,000183:                                                                                                  #        GOTOPOOH
028435,000184:                                                                                                  #        TIMETHET
028436,000185:                                                                                                  #        S34/35.2
028437,000186:                                                                                                  #        PERIAPO1
028438,000187:                                                                                                  #        SHIFTR1
028439,000188:                                                                                                  #        S34/35.5
028440,000189:                                                                                                  #        VN1645
028441,000190: 
028442,000191: 35,2000                                           SETLOC   CSI/CDH                               
028443,000192: 35,2000                                           BANK                                           
028444,000193: 35,2455  E7,1470                                  EBANK=   SUBEXIT                               
028445,000194: 35,2455                                           COUNT*   $$/P3474                              
028446,000195: 35,2455           02354        P34                TC       AVFLAGA                               
028447,000196: 35,2456           02460                           TC       P34/P74A                              
028448,000197: 35,2457           02361        P74                TC       AVFLAGP                               
028449,000198: 35,2460           02366        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
028450,000199: 35,2461           33632                           CAF      V06N37                                #  TTPI
028451,000200: 35,2462           03621                           TC       VNPOOH                                
028452,000201: 35,2463           00006                           EXTEND                                         
028453,000202: 35,2464           33655                           DCA      130DEG                                
028454,000203: 35,2465           53621                           DXCH     CENTANG                               
028455,000204: 35,2466           32424                           CAF      P30ZERO                               
028456,000205: 35,2467           55466                           TS       NN                                    
028457,000206: 35,2470           03603                           TC       DISPLAYE                              #  ELEV AND CENTANG
028458,000207: 35,2471           06042                           TC       INTPRET                               
028459,000208: 35,2472           71214                           CLEAR    DLOAD                                 
028460,000209: 35,2473           01270                                    ETPIFLAG                              
028461,000210: 35,2474           03636                                    TTPI                                  
028462,000211: 35,2475           17442                           STODL    TIG                                   
028463,000212: 35,2476           02257                                    ELEV                                  
028464,000213: 35,2477           43054                           BZE      SET                                   
028465,000214: 35,2500           72502                                    P34/P74B                              
028466,000215: 35,2501           01070                                    ETPIFLAG                              
028467,000216: 

Page 657

028469,000218: 35,2502           77624        P34/P74B           CALL                                           
028470,000219: 35,2503           20000                                    SELECTMU                              
028471,000220: 35,2504                        DELELO             EQUALS   26D                                   
028472,000221: 35,2504           43145        P34/P74C           DLOAD    SET                                   
028473,000222: 35,2505           06520                                    ZEROVECS                              
028474,000223: 35,2506           03460                                    ITSWICH                               
028475,000224: 35,2507           43014                           BON      CLEAR                                 
028476,000225: 35,2510           01310                                    ETPIFLAG                              
028477,000226: 35,2511           72513                                    SWCHSET                               
028478,000227: 35,2512           03660                                    ITSWICH                               
028479,000228: 35,2513           02317        SWCHSET            STORE    NOMTPI                                
028480,000229: 35,2514           43345        INTLOOP            DLOAD    DAD                                   
028481,000230: 35,2515           03636                                    TTPI                                  
028482,000231: 35,2516           02317                                    NOMTPI                                
028483,000232: 35,2517           34041                           STCALL   TDEC1                                 
028484,000233: 35,2520           46377                                    PRECSET                               
028485,000234: 35,2521           77624                           CALL                                           
028486,000235: 35,2522           72674                                    S33/34.1                              
028487,000236: 35,2523           77454                           BZE      EXIT                                  
028488,000237: 35,2524           72535                                    SWCHCLR                               
028489,000238: 35,2525           05600                           TC       ALARM                                 
028490,000239: 35,2526           00611                           OCT      611                                   
028491,000240: 35,2527           35006                           CAF      V05N09                                
028492,000241: 35,2530           04616                           TC       BANKCALL                              
028493,000242: 35,2531           20477                           CADR     GOFLASH                               
028494,000243: 35,2532           06001                           TC       GOTOPOOH                              
028495,000244: 35,2533           02460                           TC       P34/P74A                              #  PROCEED
028496,000245: 35,2534           02525                           TC       -7                                    #  V32
028497,000246: 
028498,000247: 35,2535           43014        SWCHCLR            BONCLR   BON                                   
028499,000248: 35,2536           03600                                    ITSWICH                               
028500,000249: 35,2537           72514                                    INTLOOP                               
028501,000250: 35,2540           01310                                    ETPIFLAG                              
028502,000251: 35,2541           72545                                    P34/P74D                              #  DISPLAY TTPI
028503,000252: 35,2542           77776                           EXIT                                           
028504,000253: 35,2543           03603                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
028505,000254: 35,2544           02550                           TC       P34/P74E                              
028506,000255: 35,2545           77776        P34/P74D           EXIT                                           
028507,000256: 35,2546           33632                           CAF      V06N37                                #  TTPI
028508,000257: 35,2547           03621                           TC       VNPOOH                                
028509,000258: 35,2550           06042        P34/P74E           TC       INTPRET                               
028510,000259: 35,2551           71201                           SETPD    DLOAD                                 
028511,000260: 35,2552           00001                                    0D                                    
028512,000261: 35,2553           02777                                    RTX1                                  
028513,000262: 35,2554           14047                           STODL    X1                                    
028514,000263: 35,2555           03621                                    CENTANG                               
028515,000264: 35,2556           71406                           PUSH     COS                                   
028516,000265: 35,2557           16732                           STODL    CSTH                                  
028517,000266: 35,2560           77756                           SIN                                            
028518,000267: 35,2561           26730                           STOVL    SNTH                                  

Page 658

028520,000269: 35,2562           03552                                    RPASS3                                
028521,000270: 35,2563           77657                           VSR*                                           
028522,000271: 35,2564           57176                                    0,2                                   
028523,000272: 35,2565           26655                           STOVL    RVEC                                  
028524,000273: 35,2566           03560                                    VPASS3                                
028525,000274: 35,2567           43057                           VSR*     SET                                   
028526,000275: 35,2570           57176                                    0,2                                   
028527,000276: 35,2571           03466                                    RVSW                                  
028528,000277: 35,2572           36744                           STCALL   VVEC                                  
028529,000278: 35,2573           24732                                    TIMETHET                              
028530,000279: 35,2574           77745                           DLOAD                                          
028531,000280: 35,2575           03636                                    TTPI                                  
028532,000281: 35,2576           03610                           STORE    INTIME                                #  FOR INITVEL
028533,000282: 35,2577           77615                           DAD                                            
028534,000283: 35,2600           00037                                    T                                     #  RENDEZVOUS TIME
028535,000284: 35,2601           37631                           STCALL   TPASS4                                #  FOR INITVEL
028536,000285: 35,2602           73216                                    S34/35.2                              
028537,000286: 35,2603           51575                           VLOAD    ABVAL                                 
028538,000287: 35,2604           02366                                    DELVEET3                              
028539,000288: 35,2605           27576                           STOVL    DELVTPI                               
028540,000289: 35,2606           03506                                    VPASS4                                
028541,000290: 35,2607           51451                           VSU      ABVAL                                 
028542,000291: 35,2610           03566                                    VTPRIME                               
028543,000292: 35,2611           26350                           STOVL    DELVTPF                               
028544,000293: 35,2612           03536                                    RACT3                                 
028545,000294: 35,2613           45115                           PDVL     CALL                                  
028546,000295: 35,2614           02337                                    VIPRIME                               
028547,000296: 35,2615           46335                                    PERIAPO1                              
028548,000297: 35,2616           77624                           CALL                                           
028549,000298: 35,2617           46445                                    SHIFTR1                               
028550,000299: 35,2620           17606                           STODL    POSTTPI                               
028551,000300: 35,2621           03636                                    TTPI                                  
028552,000301: 35,2622           03442                           STORE    TIG                                   
028553,000302: 35,2623           77776                           EXIT                                           
028554,000303: 35,2624           33634                           CAF      V06N58                                
028555,000304: 35,2625           03621                           TC       VNPOOH                                
028556,000305: 35,2626           06042                           TC       INTPRET                               
028557,000306: 35,2627           77624                           CALL                                           
028558,000307: 35,2630           73432                                    S34/35.5                              
028559,000308: 35,2631           77624                           CALL                                           
028560,000309: 35,2632           73515                                    VN1645                                
028561,000310: 35,2633           77650                           GOTO                                           
028562,000311: 35,2634           72504                                    P34/P74C                              
028563,000312: 

Page 659

028565,000314:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
028566,000315: 
028567,000316:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
028568,000317:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
028569,000318: 
028570,000319:                                                                                                  #  PURPOSE
028571,000320: 
028572,000321:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028573,000322:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
028574,000323:                                                                                                  #            MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
028575,000324:                                                                                                  #            VEHICLE RENDEZVOUS.
028576,000325: 
028577,000326:                                                                                                  #        (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028578,000327:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028579,000328:                                                                                                  #            ASTRONAUT/GROUND.
028580,000329: 
028581,000330:                                                                                                  #        (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
028582,000331:                                                                                                  #            THRUSTING PROGRAM.
028583,000332: 
028584,000333:                                                                                                  #  ASSUMPTIONS
028585,000334: 
028586,000335:                                                                                                  #        (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028587,000336: 
028588,000337:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028589,000338:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
028590,000339: 
028591,000340:                                                                                                  #        (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
028592,000341:                                                                                                  #            DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
028593,000342:                                                                                                  #            WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
028594,000343:                                                                                                  #            ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
028595,000344:                                                                                                  #            RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
028596,000345:                                                                                                  #            P20 AND AFTER EACH THRUSTING MANEUVER.
028597,000346: 
028598,000347:                                                                                                  #        (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028599,000348: 
028600,000349:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028601,000350:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028602,000351:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028603,000352:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028604,000353: 
028605,000354:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028606,000355:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028607,000356: 
028608,000357:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028609,000358:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028610,000359:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028611,000360: 
028612,000361:                                                                                                  #        (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
028613,000362:                                                                                                  #            COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
028614,000363:                                                                                                  #            (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
028615,000364: 

Page 660

028617,000366:                                                                                                  #        (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
028618,000367:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028619,000368:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028620,000369:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028621,000370:                                                                                                  #            THROUGH THE USE OF V06N52.
028622,000371: 
028623,000372:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028624,000373:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
028625,000374:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
028626,000375:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028627,000376:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
028628,000377: 
028629,000378:                                                                                                  #        (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028630,000379: 
028631,000380:                                                                                                  #                P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
028632,000381: 
028633,000382:                                                                                                  #                P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
028634,000383: 
028635,000384:                                                                                                  #  INPUT
028636,000385: 
028637,000386:                                                                                                  #        (1) TPASS4   TIME OF INTERCEPT - SAVED FROM P34/P74
028638,000387:                                                                                                  #  OUTPUT
028639,000388: 
028640,000389:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
028641,000390:                                                                                                  #        (2) TTOGO    TIME TO GO
028642,000391:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
028643,000392:                                                                                                  #        (4) DVLOS    DELTA VELOCITY AT MID - LINE OF SIGHT
028644,000393:                                                                                                  #        (5) DELVLVC  DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
028645,000394: 
028646,000395:                                                                                                  #  DOWNLINK
028647,000396: 
028648,000397:                                                                                                  #        (1) TIG      TIME OF THE TPM MANEUVER
028649,000398:                                                                                                  #        (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
028650,000399:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
028651,000400:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028652,000401: 
028653,000402:                                                                                                  #        (1) TIG      TIME OF THE TPM MANEUVER
028654,000403:                                                                                                  #        (2) RTARG    OFFSET TARGET POSITION
028655,000404:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
028656,000405:                                                                                                  #        (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028657,000406: 
028658,000407:                                                                                                  #  SUBROUTINES USED
028659,000408: 
028660,000409:                                                                                                  #        AVFLAGA
028661,000410:                                                                                                  #        AVFLAGP
028662,000411:                                                                                                  #        LOADTIME
028663,000412:                                                                                                  #        SELECTMU
028664,000413:                                                                                                  #        PRECSET
028665,000414:                                                                                                  #        S34/35.1
028666,000415:                                                                                                  #        S34/35.2

Page 661

028668,000417:                                                                                                  #        S34/35.5
028669,000418:                                                                                                  #        VN1645
028670,000419: 
028671,000420: 35,2635                                           COUNT*   $$/P3575                              
028672,000421: 35,2635  E7,1575                                  EBANK=   KT                                    
028673,000422: 
028674,000423: 35,2635           02354        P35                TC       AVFLAGA                               
028675,000424: 35,2636           00006                           EXTEND                                         
028676,000425: 35,2637           31401                           DCA      ATIGINC                               
028677,000426: 35,2640           02644                           TC       P35/P75A                              
028678,000427: 35,2641           02361        P75                TC       AVFLAGP                               
028679,000428: 35,2642           00006                           EXTEND                                         
028680,000429: 35,2643           31403                           DCA      PTIGINC                               
028681,000430: 35,2644           53576        P35/P75A           DXCH     KT                                    
028682,000431: 35,2645           02366                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
028683,000432: 35,2646           06042                           TC       INTPRET                               
028684,000433: 35,2647           77624                           CALL                                           
028685,000434: 35,2650           20000                                    SELECTMU                              
028686,000435: 35,2651           77634        P35/P75B           RTB                                            
028687,000436: 35,2652           21574                                    LOADTIME                              
028688,000437: 35,2653           03612                           STORE    TSTRT                                 
028689,000438: 35,2654           77615                           DAD                                            
028690,000439: 35,2655           03576                                    KT                                    
028691,000440: 35,2656           03442                           STORE    TIG                                   
028692,000441: 35,2657           03610                           STORE    INTIME                                #  FOR INITVEL
028693,000442: 35,2660           34041                           STCALL   TDEC1                                 
028694,000443: 35,2661           46377                                    PRECSET                               #  ADVANCE BOTH VEHICLES
028695,000444: 35,2662           77624                           CALL                                           
028696,000445: 35,2663           73204                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
028697,000446: 35,2664           77624                           CALL                                           
028698,000447: 35,2665           73216                                    S34/35.2                              #  GET DELTA V(LV)
028699,000448: 35,2666           77624                           CALL                                           
028700,000449: 35,2667           73432                                    S34/35.5                              
028701,000450: 35,2670           77624                           CALL                                           
028702,000451: 35,2671           73515                                    VN1645                                
028703,000452: 35,2672           77650                           GOTO                                           
028704,000453: 35,2673           72651                                    P35/P75B                              
028705,000454: 

Page 662

028707,000456:                                                                                                  #  ..... S33/34.1  .....
028708,000457: 
028709,000458: 35,2674           66220        S33/34.1           STQ      SSP                                   
028710,000459: 35,2675           03463                                    NORMEX                                
028711,000460: 35,2676           03614                                    TITER                                 
028712,000461: 35,2677           40000                           OCT      40000                                 
028713,000462: 35,2700           40345                           DLOAD    SETPD                                 
028714,000463: 35,2701           33643                                    MAX250                                
028715,000464: 35,2702           00001                                    0D                                    
028716,000465: 35,2703           27574                           STOVL    SECMAX                                
028717,000466: 35,2704           03536                                    RACT3                                 
028718,000467: 35,2705           27500                           STOVL    RAPREC                                
028719,000468: 35,2706           03544                                    VACT3                                 
028720,000469: 35,2707           27506                           STOVL    VAPREC                                
028721,000470: 35,2710           03552                                    RPASS3                                
028722,000471: 35,2711           27522                           STOVL    RPPREC                                
028723,000472: 35,2712           03560                                    VPASS3                                
028724,000473: 35,2713           03530                           STORE    VPPREC                                
028725,000474: 35,2714           77624        ELCALC             CALL                                           
028726,000475: 35,2715           73204                                    S34/35.1                              #  NORMAL AND LOS
028727,000476: 35,2716           63235                           VXV      PDVL                                  
028728,000477: 35,2717           03536                                    RACT3                                 #  (RA*VA)*RA 0D
028729,000478: 35,2720           53515                           PDVL     UNIT                                  #  ULOS AT 6D
028730,000479: 35,2721           03536                                    RACT3                                 
028731,000480: 35,2722           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
028732,000481: 35,2723           51352                           VSL2     BVSU                                  
028733,000482: 35,2724           02311                                    ULOS                                  
028734,000483: 35,2725           63256                           UNIT     PDVL                                  #  UP AT 0D
028735,000484: 35,2726           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
028736,000485: 35,2727           00001                                    0D                                    #  UP IN MPAC
028737,000486: 35,2730           75241                           DOT      SIGN                                  
028738,000487: 35,2731           02311                                    ULOS                                  
028739,000488: 35,2732           65552                           SL1      ACOS                                  
028740,000489: 35,2733           50315                           PDVL     DOT                                   #  EA AT 0D
028741,000490: 35,2734           02311                                    ULOS                                  
028742,000491: 35,2735           03536                                    RACT3                                 
028743,000492: 35,2736           71244                           BPL      DLOAD                                 
028744,000493: 35,2737           72742                                    TESTY                                 
028745,000494: 35,2740           06526                                    DPPOSMAX                              
028746,000495: 35,2741           41425                           DSU      PUSH                                  
028747,000496: 35,2742           71214        TESTY              BOFF     DLOAD                                 
028748,000497: 35,2743           03740                                    ITSWICH                               
028749,000498: 35,2744           73171                                    ELEX                                  
028750,000499: 35,2745           03576                                    DELEL                                 
028751,000500: 35,2746           14033                           STODL    DELELO                                
028752,000501: 35,2747           77625                           DSU                                            
028753,000502: 35,2750           02257                                    ELEV                                  
028754,000503: 35,2751           03576                           STORE    DELEL                                 
028755,000504: 35,2752           45246                           ABS      DSU                                   
028756,000505: 35,2753           33647                                    ELEPS                                 

Page 663

028758,000507: 35,2754           77640                           BMN                                            
028759,000508: 35,2755           73201                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
028760,000509: 35,2756           70535        FIGTIME            SLOAD    SR1                                   
028761,000510: 35,2757           03614                                    TITER                                 
028762,000511: 35,2760           72030                           BHIZ     LXA,1                                 
028763,000512: 35,2761           03463                                    NORMEX                                #  TOO MANY ITERATIONS
028764,000513: 35,2762           00154                                    MPAC                                  
028765,000514: 35,2763           77330                           SXA,1    VLOAD                                 
028766,000515: 35,2764           03613                                    TITER                                 
028767,000516: 35,2765           03552                                    RPASS3                                
028768,000517: 35,2766           65256                           UNIT     PDDL                                  
028769,000518: 35,2767           00045                                    36D                                   
028770,000519: 35,2770           53515                           PDVL     UNIT                                  
028771,000520: 35,2771           03536                                    RACT3                                 
028772,000521: 35,2772           77725                           PDDL                                           
028773,000522: 35,2773           41525                           PDDL     PUSH                                  
028774,000523: 35,2774           00045                                    36D                                   
028775,000524: 35,2775           77621                           BDSU                                           
028776,000525: 35,2776           00015                                    12D                                   
028777,000526: 35,2777           14037                           STODL    30D                                   #  RP - RA MAGNITUDES
028778,000527: 35,3000           06516                                    DPHALF                                
028779,000528: 35,3001           41425                           DSU      PUSH                                  
028780,000529: 35,3002           02257                                    ELEV                                  
028781,000530: 35,3003           50165                           SIGN     BMN                                   
028782,000531: 35,3004           00037                                    30D                                   
028783,000532: 35,3005           03463                                    NORMEX                                
028784,000533: 35,3006           71545                           DLOAD    COS                                   
028785,000534: 35,3007           56205                           DMP      DDV                                   
028786,000535: 35,3010           00017                                    14D                                   
028787,000536: 35,3011           00015                                    12D                                   
028788,000537: 35,3012           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
028789,000538: 35,3013           00035                           STORE    28D                                   
028790,000539: 35,3014           44246                           ABS      BDSU                                  
028791,000540: 35,3015           06516                                    DPHALF                                
028792,000541: 35,3016           77240                           BMN      VLOAD                                 
028793,000542: 35,3017           03463                                    NORMEX                                
028794,000543: 35,3020           02261                                    UNRM                                  
028795,000544: 35,3021           53435                           VXV      UNIT                                  
028796,000545: 35,3022           00007                                    6D                                    #  UN*RA
028797,000546: 35,3023           41241                           DOT      DMP                                   
028798,000547: 35,3024           03544                                    VACT3                                 
028799,000548: 35,3025           00015                                    12D                                   
028800,000549: 35,3026           47315                           PDVL     VXV                                   
028801,000550: 35,3027           00001                                    0D                                    
028802,000551: 35,3030           03560                                    VPASS3                                
028803,000552: 35,3031           53435                           VXV      UNIT                                  
028804,000553: 35,3032           00001                                    0D                                    #  (RP*VP)*RP
028805,000554: 35,3033           41241                           DOT      DMP                                   
028806,000555: 35,3034           03560                                    VPASS3                                
028807,000556: 35,3035           00017                                    14D                                   

Page 664

028809,000558: 35,3036           77621                           BDSU                                           
028810,000559: 35,3037           63301                           NORM     PDVL                                  #  NORMALIZED WA - WP 12D
028811,000560: 35,3040           00047                                    X1                                    
028812,000561: 35,3041           00007                                    6D                                    
028813,000562: 35,3042           50235                           VXV      DOT                                   
028814,000563: 35,3043           00001                                    0D                                    
028815,000564: 35,3044           02261                                    UNRM                                  #  RA*RP.UN 14D
028816,000565: 35,3045           50315                           PDVL     DOT                                   
028817,000566: 35,3046           00001                                    0D                                    
028818,000567: 35,3047           00007                                    6D                                    
028819,000568: 35,3050           65552                           SL1      ACOS                                  
028820,000569: 35,3051           77765                           SIGN                                           
028821,000570: 35,3052           43225                           DSU      DAD                                   #    ALPHA   PI
028822,000571: 35,3053           06516                                    DPHALF                                
028823,000572: 35,3054           02257                                    ELEV                                  
028824,000573: 35,3055           65525                           PDDL     ACOS                                  
028825,000574: 35,3056           00035                                    28D                                   
028826,000575: 35,3057           75221                           BDSU     SIGN                                  
028827,000576: 35,3060           06516                                    DPHALF                                
028828,000577: 35,3061           00037                                    30D                                   #  CONTAINS RP-RA
028829,000578: 35,3062           77615                           DAD                                            
028830,000579: 35,3063           56205                           DMP      DDV                                   
028831,000580: 35,3064           33641                                    TWOPI                                 
028832,000581: 35,3065           77605                           DMP                                            
028833,000582: 35,3066           41257                           SL*      DMP                                   
028834,000583: 35,3067           20176                                    0          -3,1                       
028835,000584: 35,3070           51406                           PUSH     ABS                                   
028836,000585: 35,3071           50025                           DSU      BMN                                   
028837,000586: 35,3072           03574                                    SECMAX                                
028838,000587: 35,3073           73077                                    OKMAX                                 
028839,000588: 35,3074           75345                           DLOAD    SIGN                                  #   REPLACE TIME WITH MAX TIME SIGNED
028840,000589: 35,3075           03574                                    SECMAX                                
028841,000590: 35,3076           77606                           PUSH                                           
028842,000591: 35,3077           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
028843,000592: 35,3100           03614                                    TITER                                 
028844,000593: 35,3101           73107                                    REPETE                                
028845,000594: 35,3102           71331                           SSP      DLOAD                                 
028846,000595: 35,3103           03614                                    TITER                                 
028847,000596: 35,3104           37777                           OCT      37777                                 
028848,000597: 35,3105           77650                           GOTO                                           
028849,000598: 35,3106           73145                                    STORDELT                              
028850,000599: 35,3107           41345        REPETE             DLOAD    DMP                                   
028851,000600: 35,3110           03576                                    DELEL                                 
028852,000601: 35,3111           00033                                    DELELO                                
028853,000602: 35,3112           71244                           BPL      DLOAD                                 
028854,000603: 35,3113           73123                                    NEXTES                                
028855,000604: 35,3114           03574                                    SECMAX                                
028856,000605: 35,3115           77605                           DMP                                            
028857,000606: 35,3116           33645                                    THIRD                                 
028858,000607: 35,3117           17574                           STODL    SECMAX                                

Page 665

028860,000609: 35,3120           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
028861,000610: 35,3121           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
028862,000611: 35,3122           73133                                    RESIGN                                
028863,000612: 35,3123           51545        NEXTES             DLOAD    ABS                                   
028864,000613: 35,3124           03576                                    DELEL                                 
028865,000614: 35,3125           51525                           PDDL     ABS                                   
028866,000615: 35,3126           00033                                    DELELO                                
028867,000616: 35,3127           77625                           DSU                                            
028868,000617: 35,3130           71240                           BMN      DLOAD                                 
028869,000618: 35,3131           73136                                    REVERS                                #  WRONG DIRECTION
028870,000619: 35,3132           77646                           ABS                                            
028871,000620: 35,3133           52165        RESIGN             SIGN     GOTO                                  
028872,000621: 35,3134           03606                                    DELTEEO                               
028873,000622: 35,3135           73145                                    STORDELT                              
028874,000623: 35,3136           57545        REVERS             DLOAD    DCOMP                                 
028875,000624: 35,3137           03606                                    DELTEEO                               
028876,000625: 35,3140           70406                           PUSH     SR1                                   
028877,000626: 35,3141           03606                           STORE    DELTEEO                               
028878,000627: 35,3142           77615                           DAD                                            
028879,000628: 35,3143           77650                           GOTO                                           
028880,000629: 35,3144           73146                                    ADTIME                                
028881,000630: 35,3145           03606        STORDELT           STORE    DELTEEO                               
028882,000631: 35,3146           77615        ADTIME             DAD                                            
028883,000632: 35,3147           02317                                    NOMTPI                                #  SUM OF DELTA T:S
028884,000633: 35,3150           02317                           STORE    NOMTPI                                
028885,000634: 35,3151           63375                           VLOAD    PDVL                                  
028886,000635: 35,3152           03506                                    VAPREC                                
028887,000636: 35,3153           03500                                    RAPREC                                
028888,000637: 35,3154           77624                           CALL                                           
028889,000638: 35,3155           73372                                    GOINT                                 
028890,000639: 35,3156           77624                           CALL                                           
028891,000640: 35,3157           46421                                    ACTIVE                                #  STORE NEW RACT3 VACT3
028892,000641: 35,3160           63375                           VLOAD    PDVL                                  
028893,000642: 35,3161           03530                                    VPPREC                                
028894,000643: 35,3162           03522                                    RPPREC                                
028895,000644: 35,3163           77624                           CALL                                           
028896,000645: 35,3164           73372                                    GOINT                                 
028897,000646: 35,3165           77624                           CALL                                           
028898,000647: 35,3166           46431                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
028899,000648: 35,3167           77650                           GOTO                                           
028900,000649: 35,3170           72714                                    ELCALC                                
028901,000650: 35,3171           43345        ELEX               DLOAD    DAD                                   
028902,000651: 35,3172           03636                                    TTPI                                  
028903,000652: 35,3173           02317                                    NOMTPI                                
028904,000653: 35,3174           17636                           STODL    TTPI                                  
028905,000654: 35,3175           77614                           BON                                            
028906,000655: 35,3176           01310                                    ETPIFLAG                              
028907,000656: 35,3177           73201                                    TIMEX                                 
028908,000657: 35,3200           02257                           STORE    ELEV                                  
028909,000658: 35,3201           52145        TIMEX              DLOAD    GOTO                                  

Page 666

028911,000660: 35,3202           06520                                    ZEROVECS                              
028912,000661: 35,3203           03463                                    NORMEX                                
028913,000662: 

Page 667

028915,000664:                                                                                                  #  ..... S34/35.1  .....
028916,000665: 
028917,000666:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
028918,000667:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
028919,000668: 35,3204           52375        S34/35.1           VLOAD    VSU                                   
028920,000669: 35,3205           03552                                    RPASS3                                
028921,000670: 35,3206           03536                                    RACT3                                 
028922,000671: 35,3207           41456                           UNIT     PUSH                                  
028923,000672: 35,3210           26311                           STOVL    ULOS                                  
028924,000673: 35,3211           03536                                    RACT3                                 
028925,000674: 35,3212           53435                           VXV      UNIT                                  
028926,000675: 35,3213           03544                                    VACT3                                 
028927,000676: 35,3214           02261                           STORE    UNRM                                  
028928,000677: 35,3215           77616                           RVQ                                            
028929,000678: 

Page 668

028931,000680:                                                                                                  #  ..... S34/35.2  .....
028932,000681: 
028933,000682:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
028934,000683: 35,3216           77220        S34/35.2           STQ      VLOAD                                 
028935,000684: 35,3217           03470                                    SUBEXIT                               
028936,000685: 35,3220           03560                                    VPASS3                                
028937,000686: 35,3221           65315                           PDVL     PDDL                                  
028938,000687: 35,3222           03552                                    RPASS3                                
028939,000688: 35,3223           03610                                    INTIME                                
028940,000689: 35,3224           65325                           PDDL     PDDL                                  
028941,000690: 35,3225           03631                                    TPASS4                                
028942,000691: 35,3226           33641                                    TWOPI                                 #  CONIC
028943,000692: 35,3227           46125                           PDDL     BHIZ                                  
028944,000693: 35,3230           03467                                    NN                                    
028945,000694: 35,3231           73235                                    S3435.23                              
028946,000695: 35,3232           77745                           DLOAD                                          
028947,000696: 35,3233           41545                           DLOAD    PUSH                                  
028948,000697: 35,3234           06520                                    ZEROVECS                              #  PRECISION
028949,000698: 35,3235           77624        S3435.23           CALL                                           
028950,000699: 35,3236           73376                                    INTINT                                #  GET TARGET VECTOR
028951,000700: 35,3237           27444        S3435.25           STOVL    RTARG                                 
028952,000701: 35,3240           00007                                    VATT                                  
028953,000702: 35,3241           27506                           STOVL    VPASS4                                
028954,000703: 35,3242           03444                                    RTARG                                 
028955,000704:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP)-PI)SIGN(RA*RP.U)
028956,000705: 35,3243           63256                           UNIT     PDVL                                  #  UNIT RP
028957,000706: 35,3244           03536                                    RACT3                                 
028958,000707: 35,3245           41456                           UNIT     PUSH                                  #  UNIT RA
028959,000708: 35,3246           50235                           VXV      DOT                                   
028960,000709: 35,3247           00001                                    0D                                    
028961,000710: 35,3250           02261                                    UNRM                                  #  RA*RP.U
028962,000711: 35,3251           77715                           PDVL                                           
028963,000712: 35,3252           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
028964,000713: 35,3253           00001                                    0D                                    
028965,000714: 35,3254           75326                           ACOS     SIGN                                  
028966,000715: 35,3255           43244                           BPL      DAD                                   
028967,000716: 35,3256           73260                                    NOPIE                                 
028968,000717: 35,3257           06526                                    DPPOSMAX                              #  REASONABLE TWO PI
028969,000718: 35,3260           15754        NOPIE              STODL    ACTCENT                               
028970,000719: 35,3261           03631                                    TPASS4                                
028971,000720: 35,3262           77625                           DSU                                            
028972,000721: 35,3263           03610                                    INTIME                                
028973,000722: 35,3264           03452                           STORE    DELLT4                                
028974,000723: 35,3265           40335                           SLOAD    SETPD                                 
028975,000724: 35,3266           03467                                    NN                                    #  NUMBER OF OFFSETS
028976,000725: 35,3267           00001                                    0D                                    
028977,000726: 35,3270           63325                           PDDL     PDVL                                  
028978,000727: 35,3271           33653                                    EPSFOUR                               
028979,000728: 35,3272           03536                                    RACT3                                 
028980,000729: 35,3273           26323                           STOVL    RINIT                                 

Page 669

028982,000731: 35,3274           03544                                    VACT3                                 
028983,000732: 35,3275           36331                           STCALL   VINIT                                 
028984,000733: 35,3276           22000                                    INITVEL                               
028985,000734: 35,3277           77624                           CALL                                           
028986,000735: 35,3300           73357                                    LOMAT                                 
028987,000736: 35,3301           64375                           VLOAD    MXV                                   
028988,000737: 35,3302           02366                                    DELVEET3                              
028989,000738: 35,3303           00001                                    0D                                    
028990,000739: 35,3304           77772                           VSL1                                           
028991,000740: 35,3305           37434                           STCALL   DELVLVC                               
028992,000741: 35,3306           03470                                    SUBEXIT                               
028993,000742: 

Page 670

028995,000744:                                                                                                  #  ..... S34/35.3  .....
028996,000745: 
028997,000746: 35,3307           45020        S34/35.3           STQ      CALL                                  
028998,000747: 35,3310           03463                                    NORMEX                                
028999,000748: 35,3311           73357                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
029000,000749: 35,3312           61375                           VLOAD    VXM                                   
029001,000750: 35,3313           03434                                    DELVLVC                               #  NEW DEL V TPI
029002,000751: 35,3314           00001                                    0D                                    
029003,000752: 35,3315           77772                           VSL1                                           
029004,000753: 35,3316           02366                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
029005,000754: 35,3317           63255                           VAD      PDVL                                  
029006,000755: 35,3320           03544                                    VACT3                                 #  NEW V REQ
029007,000756: 35,3321           03536                                    RACT3                                 
029008,000757: 35,3322           65325                           PDDL     PDDL                                  
029009,000758: 35,3323           03442                                    TIG                                   
029010,000759: 35,3324           03631                                    TPASS4                                
029011,000760: 35,3325           41525                           PDDL     PUSH                                  
029012,000761: 35,3326           06526                                    DPPOSMAX                              
029013,000762: 35,3327           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
029014,000763: 35,3330           73376                                    INTINT                                
029015,000764: 35,3331           77775                           VLOAD                                          
029016,000765: 35,3332           00001                                    RATT                                  
029017,000766: 35,3333           03444                           STORE    RTARG                                 
029018,000767: 35,3334           41575        NOVRWRT            VLOAD    PUSH                                  
029019,000768: 35,3335           02311                                    ULOS                                  
029020,000769: 35,3336           57435                           VXV      VCOMP                                 
029021,000770: 35,3337           02261                                    UNRM                                  
029022,000771: 35,3340           41456                           UNIT     PUSH                                  
029023,000772: 35,3341           76435                           VXV      VSL1                                  
029024,000773: 35,3342           02311                                    ULOS                                  
029025,000774: 35,3343           77715                           PDVL                                           
029026,000775: 35,3344           64315                           PDVL     MXV                                   
029027,000776: 35,3345           02366                                    DELVEET3                              
029028,000777: 35,3346           00001                                    0D                                    
029029,000778: 35,3347           77772                           VSL1                                           
029030,000779: 35,3350           36303                           STCALL   DVLOS                                 
029031,000780: 35,3351           03463                                    NORMEX                                
029032,000781: 

Page 671

029034,000783:                                                                                                  #  ..... S34/35.4  .....
029035,000784: 
029036,000785: 35,3352           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
029037,000786: 35,3353           03463                                    NORMEX                                
029038,000787: 35,3354           00001                                    0D                                    
029039,000788: 35,3355           77650                           GOTO                                           
029040,000789: 35,3356           73334                                    NOVRWRT                               
029041,000790: 

Page 672

029043,000792:                                                                                                  #  ..... LOMAT     .....
029044,000793: 
029045,000794: 35,3357           57575        LOMAT              VLOAD    VCOMP                                 
029046,000795: 35,3360           02261                                    UNRM                                  
029047,000796: 35,3361           24007                           STOVL    6D                                    #  Y
029048,000797: 35,3362           03536                                    RACT3                                 
029049,000798: 35,3363           57456                           UNIT     VCOMP                                 
029050,000799: 35,3364           00015                           STORE    12D                                   
029051,000800: 35,3365           76435                           VXV      VSL1                                  
029052,000801: 35,3366           02261                                    UNRM                                  #  Z*-Y
029053,000802: 35,3367           00001                           STORE    0D                                    
029054,000803: 35,3370           43401                           SETPD    RVQ                                   
029055,000804: 35,3371           00023                                    18D                                   
029056,000805: 35,3372           65325        GOINT              PDDL     PDDL                                  #  DO
029057,000806: 35,3373           06520                                    ZEROVECS                              #    NOT
029058,000807: 35,3374           02317                                    NOMTPI                                
029059,000808: 35,3375           41406                           PUSH     PUSH                                  #             ORDER OR INSERT BEFORE INTINT
029060,000809: 35,3376           45020        INTINT             STQ      CALL                                  
029061,000810: 35,3377           03465                                    RTRN                                  
029062,000811: 35,3400           27410                                    INTSTALL                              
029063,000812: 35,3401           71214                           CLEAR    DLOAD                                 
029064,000813: 35,3402           01673                                    INTYPFLG                              
029065,000814: 35,3403           43054                           BZE      SET                                   
029066,000815: 35,3404           73406                                    +2                                    
029067,000816: 35,3405           01473                                    INTYPFLG                              
029068,000817: 35,3406           45545                           DLOAD    STADR                                 
029069,000818: 35,3407           63736                           STODL    TDEC1                                 
029070,000819: 35,3410           73014                           SET      LXA,2                                 
029071,000820: 35,3411           00063                                    MOONFLAG                              
029072,000821: 35,3412           02777                                    RTX2                                  
029073,000822: 35,3413           43014                           BON      CLEAR                                 
029074,000823: 35,3414           04303                                    CMOONFLG                              
029075,000824: 35,3415           73417                                    ALLSET                                
029076,000825: 35,3416           00263                                    MOONFLAG                              
029077,000826: 35,3417           25517        ALLSET             STOVL    TET                                   
029078,000827: 35,3420           77657                           VSR*                                           
029079,000828: 35,3421           57176                                    0,2                                   
029080,000829: 35,3422           25535                           STOVL    RCV                                   
029081,000830: 35,3423           77657                           VSR*                                           
029082,000831: 35,3424           57176                                    0,2                                   
029083,000832: 35,3425           35543                           STCALL   VCV                                   
029084,000833: 35,3426           27106                                    INTEGRVS                              
029085,000834: 35,3427           52175                           VLOAD    GOTO                                  
029086,000835: 35,3430           00001                                    RATT                                  
029087,000836: 35,3431           03465                                    RTRN                                  
029088,000837: 

Page 673

029090,000839:                                                                                                  #  ..... S34/35.5  .....
029091,000840:                                                                                                  #  SUBROUTINES USED
029092,000841: 
029093,000842:                                                                                                  #        BANKCALL
029094,000843:                                                                                                  #        GOFLASH
029095,000844:                                                                                                  #        GOTOPOOH
029096,000845:                                                                                                  #        S34/35.3
029097,000846:                                                                                                  #        S34/35.4
029098,000847:                                                                                                  #        VNPOOH
029099,000848: 
029100,000849: 35,3432           43020        S34/35.5           STQ      BON                                   
029101,000850: 35,3433           03470                                    SUBEXIT                               
029102,000851: 35,3434           01311                                    FINALFLG                              
029103,000852: 35,3435           73441                                    FLAGON                                
029104,000853: 35,3436           52014                           SET      GOTO                                  
029105,000854: 35,3437           00470                                    UPDATFLG                              
029106,000855: 35,3440           73505                                    FLAGOFF                               
029107,000856: 35,3441           77214        FLAGON             CLEAR    VLOAD                                 
029108,000857: 35,3442           03274                                    NTARGFLG                              
029109,000858: 35,3443           03434                                    DELVLVC                               
029110,000859: 35,3444           01236                           STORE    GDT/2                                 #  SAVE DV BEFORE DISPLAY
029111,000860: 35,3445           77776                           EXIT                                           
029112,000861: 35,3446           33636                 +5        CAF      V06N81                                
029113,000862: 35,3447           04616                           TC       BANKCALL                              
029114,000863: 35,3450           20477                           CADR     GOFLASH                               
029115,000864: 35,3451           06001                           TC       GOTOPOOH                              
029116,000865: 35,3452           03454                           TC       +2                                    #  PRO
029117,000866: 35,3453           03446                           TC       FLAGON     +5                         #  LOAD
029118,000867: 35,3454           35016                 +2        CA       EBANK7                                
029119,000868: 35,3455           54003                           TS       EBANK                                 #  TO BE SURE
029120,000869: 
029121,000870: 35,3456           22007                           ZL                                             
029122,000871: 35,3457           34756                           CA       FIVE                                  
029123,000872: 35,3460           54002        NTARGCHK           TS       Q                                     
029124,000873: 35,3461           50002                           INDEX    Q                                     
029125,000874: 35,3462           41433                           CS       DELVLVC                               
029126,000875: 35,3463           50002                           INDEX    Q                                     
029127,000876: 35,3464           61235                           AD       GDT/2                                 
029128,000877: 35,3465           26001                           ADS      L                                     
029129,000878: 35,3466           10002                           CCS      Q                                     
029130,000879: 35,3467           13460                           TCF      NTARGCHK                              
029131,000880: 35,3470           22000                           LXCH     A                                     
029132,000881: 35,3471           00006                           EXTEND                                         
029133,000882: 35,3472           13475                           BZF      +3                                    
029134,000883: 35,3473           05515                           TC       UPFLAG                                
029135,000884: 35,3474           00146                           ADRES    NTARGFLG                              
029136,000885: 
029137,000886: 35,3475           06042                           TC       INTPRET                               
029138,000887: 35,3476           45014                           BOFF     CALL                                  
029139,000888: 35,3477           03354                                    NTARGFLG                              

Page 674

029141,000890: 35,3500           73502                                    NOCHG                                 
029142,000891: 35,3501           73307                                    S34/35.3                              
029143,000892: 35,3502           77775        NOCHG              VLOAD                                          
029144,000893: 35,3503           02366                                    DELVEET3                              
029145,000894: 35,3504           03656                           STORE    DELVSIN                               
029146,000895: 35,3505           77624        FLAGOFF            CALL                                           
029147,000896: 35,3506           73352                                    S34/35.4                              
029148,000897: 35,3507           77776                           EXIT                                           
029149,000898: 35,3510           33635                           CAF      V06N59                                
029150,000899: 35,3511           03621                           TC       VNPOOH                                
029151,000900: 35,3512           06042                           TC       INTPRET                               
029152,000901: 35,3513           77650                           GOTO                                           
029153,000902: 35,3514           03470                                    SUBEXIT                               
029154,000903: 

Page 675

029156,000905:                                                                                                  #  ..... VN1645    .....
029157,000906: 
029158,000907:                                                                                                  #  SUBROUTINES USED
029159,000908: 
029160,000909:                                                                                                  #        P3XORP7X
029161,000910:                                                                                                  #        GET+MGA
029162,000911:                                                                                                  #        BANKCALL
029163,000912:                                                                                                  #        DELAYJOB
029164,000913:                                                                                                  #        COMPTGO
029165,000914:                                                                                                  #        GOFLASHR
029166,000915:                                                                                                  #        GOTOPOOH
029167,000916:                                                                                                  #        FLAGUP
029168,000917: 
029169,000918: 35,3515           71220        VN1645             STQ      DLOAD                                 
029170,000919: 35,3516           03470                                    SUBEXIT                               
029171,000920: 35,3517           33651                                    DP-.01                                
029172,000921: 35,3520           02253                           STORE    +MGA                                  #  MGA = -.01
029173,000922: 35,3521           71214                           BOFF     DLOAD                                 
029174,000923: 35,3522           01351                                    FINALFLG                              
029175,000924: 35,3523           73543                                    GET45                                 
029176,000925: 35,3524           33651                                    DP-.01                                
029177,000926: 35,3525           77615                           DAD                                            
029178,000927: 35,3526           33651                                    DP-.01                                
029179,000928: 35,3527           02253                           STORE    +MGA                                  #  MGA = -.02
029180,000929: 35,3530           77414                           BOFF     EXIT                                  
029181,000930: 35,3531           01742                                    REFSMFLG                              
029182,000931: 35,3532           73543                                    GET45                                 
029183,000932: 35,3533           03613                           TC       P3XORP7X                              
029184,000933: 35,3534           03536                           TC       +2                                    #  P3X
029185,000934: 35,3535           03544                           TC       GET45      +1                         #  P7X
029186,000935: 35,3536           06042                           TC       INTPRET                               
029187,000936: 35,3537           41575                           VLOAD    PUSH                                  
029188,000937: 35,3540           03656                                    DELVSIN                               
029189,000938: 35,3541           77624                           CALL                                           #  COMPUTE MGA
029190,000939: 35,3542           15725                                    GET+MGA                               
029191,000940: 35,3543           77776        GET45              EXIT                                           
029192,000941: 35,3544           02437                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
029193,000942: 35,3545           31470                           CA       SUBEXIT                               
029194,000943: 35,3546           55464                           TS       QSAVED                                
029195,000944: 35,3547           34777                           CAF      1SEC                                  
029196,000945: 35,3550           04616                           TC       BANKCALL                              
029197,000946: 35,3551           01736                           CADR     DELAYJOB                              
029198,000947: 35,3552           33637                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
029199,000948: 35,3553           04616                           TC       BANKCALL                              
029200,000949: 35,3554           20477                           CADR     GOFLASH                               
029201,000950: 35,3555           03560                           TC       KILCLOCK                              #  TERMINATE
029202,000951: 35,3556           03563                           TC       N45PROC                               #  PROCEED
029203,000952: 35,3557           03573                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
029204,000953: 35,3560           30005        KILCLOCK           CA       Z                                     
029205,000954: 35,3561           55162                           TS       DISPDEX                               

Page 676

029207,000956: 35,3562           06001                           TC       GOTOPOOH                              
029208,000957: 35,3563           40076        N45PROC            CS       FLAGWRD2                              
029209,000958: 35,3564           74746                           MASK     BIT6                                  
029210,000959: 35,3565           00006                           EXTEND                                         
029211,000960: 35,3566           13560                           BZF      KILCLOCK                              #  FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
029212,000961: 35,3567           05364                           TC       PHASCHNG                              
029213,000962: 35,3570           04024                           OCT      04024                                 
029214,000963: 35,3571           05515                           TC       UPFLAG                                #  SET
029215,000964: 35,3572           00047                           ADRES    FINALFLG                              #  FINALFLG
029216,000965: 35,3573           30005        CLUPDATE           CA       Z                                     
029217,000966: 35,3574           55162                           TS       DISPDEX                               
029218,000967: 35,3575           05364                           TC       PHASCHNG                              
029219,000968: 35,3576           04024                           OCT      04024                                 
029220,000969: 35,3577           06042                           TC       INTPRET                               
029221,000970: 35,3600           52014                           CLEAR    GOTO                                  
029222,000971: 35,3601           00670                                    UPDATFLG                              
029223,000972: 35,3602           03464                                    QSAVED                                
029224,000973: 

Page 677

029226,000975:                                                                                                  #  ..... DISPLAYE  .....
029227,000976: 
029228,000977:                                                                                                  #  SUBROUTINES USED
029229,000978: 
029230,000979:                                                                                                  #        BANKCALL
029231,000980:                                                                                                  #        GOFLASHR
029232,000981:                                                                                                  #        GOTOPOOH
029233,000982:                                                                                                  #        BLANKET
029234,000983:                                                                                                  #        ENDOFJOB
029235,000984: 
029236,000985: 35,3603           00006        DISPLAYE           EXTEND                                         
029237,000986: 35,3604           23463                           QXCH     NORMEX                                
029238,000987: 35,3605           33633                           CAF      V06N55                                
029239,000988: 35,3606           04616                           TCR      BANKCALL                              
029240,000989: 35,3607           20477                           CADR     GOFLASH                               
029241,000990: 35,3610           16001                           TCF      GOTOPOOH                              
029242,000991: 35,3611           01463                           TC       NORMEX                                
029243,000992: 35,3612           13605                           TCF      -5                                    
029244,000993: 

Page 678

029246,000995:                                                                                                  #  ..... P3XORP7X  .....
029247,000996: 
029248,000997: 35,3613           37747        P3XORP7X           CAF      HIGH9                                 
029249,000998: 35,3614           71010                           MASK     MODREG                                
029250,000999: 35,3615           00006                           EXTEND                                         
029251,001000: 35,3616           13620                           BZF      +2                                    
029252,001001: 35,3617           24002                           INCR     Q                                     
029253,001002: 35,3620           00002                           RETURN                                         
029254,001003: 
029255,001004:                                                                                                  #  ..... VNPOOH    .....
029256,001005: 
029257,001006:                                                                                                  #  SUBROUTINES USED
029258,001007: 
029259,001008:                                                                                                  #        BANKCALL
029260,001009:                                                                                                  #        GOFLASH
029261,001010:                                                                                                  #        GOTOPOOH
029262,001011: 
029263,001012: 35,3621           00006        VNPOOH             EXTEND                                         
029264,001013: 35,3622           23465                           QXCH     RTRN                                  
029265,001014: 35,3623           55615                           TS       VERBNOUN                              
029266,001015: 35,3624           31615                           CA       VERBNOUN                              
029267,001016: 35,3625           04616                           TCR      BANKCALL                              
029268,001017: 35,3626           20477                           CADR     GOFLASH                               
029269,001018: 35,3627           16001                           TCF      GOTOPOOH                              
029270,001019: 35,3630           01465                           TC       RTRN                                  
029271,001020: 35,3631           13624                           TCF      -5                                    
029272,001021: 

Page 679

029274,001023:                                                                                                  #  ..... CONSTANTS .....
029275,001024: 
029276,001025: 35,3632           01445        V06N37             VN       0637                                  
029277,001026: 35,3633           01467        V06N55             VN       0655                                  
029278,001027: 35,3634           01472        V06N58             VN       0658                                  
029279,001028: 35,3635           01473        V06N59             VN       0659                                  
029280,001029: 35,3636           01521        V06N81             VN       0681                                  
029281,001030: 35,3637           04055        V16N45             VN       1645                                  
029282,001031: 35,3640           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
029283,001032: 
029284,001033: 35,3642           00001 20650  MAX250             2DEC     25         E3                         
029285,001034: 
029286,001035: 35,3644           12525 12525  THIRD              2DEC     .333333333                            
029287,001036: 
029288,001037: 35,3646           00004 21505  ELEPS              2DEC     .27777777  E-3                        
029289,001038: 
029290,001039: 35,3650           77777        DP-.01             OCT      77777                                 #  CONSTANTS
029291,001040: 35,3651           61337                           OCT      61337                                 #  ADJACENT       -.01 FOR MGA DSP
029292,001041: 35,3652           01252 25253  EPSFOUR            2DEC     .0416666666                            
029293,001042: 
029294,001043: 35,3654           13434 16162  130DEG             2DEC     .3611111111                            
029295,001044: 

Page 680

029297,001046:                                                                                                  #  ..... INITVEL .....
029298,001047:                                                                                                  #  MOD NO -1       LOG SECTION - P34-P35, P74-P75
029299,001048:                                                                                                  #  MOD BY WHITE.P  DATE  21NOV67
029300,001049: 
029301,001050:                                                                                                  #  FUNCTIONAL DESCRIPTION
029302,001051: 
029303,001052:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
029304,001053:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
029305,001054:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
029306,001055:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
029307,001056:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
029308,001057:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
029309,001058:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
029310,001059:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
029311,001060:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
029312,001061:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
029313,001062: 
029314,001063:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
029315,001064:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
029316,001065:                                                                                                  #        SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
029317,001066:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
029318,001067:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
029319,001068:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
029320,001069:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
029321,001070:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
029322,001071: 
029323,001072:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
029324,001073:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
029325,001074:                                                                                                  #        TRAJECTORY COMPUTATIONS.
029326,001075: 
029327,001076:                                                                                                  #  CALLING SEQUENCE
029328,001077: 
029329,001078:                                                                                                  #        L         CALL
029330,001079:                                                                                                  #        L+1               INITVEL
029331,001080:                                                                                                  #        L+2       (RETURN - ALWAYS)
029332,001081: 
029333,001082:                                                                                                  #  INPUT
029334,001083: 
029335,001084:                                                                                                  #        (1) RINIT    INITIAL POSITION RADIUS VECTOR
029336,001085:                                                                                                  #        (2) VINIT    INITIAL POSITION VELOCITY VECTOR
029337,001086:                                                                                                  #        (3) RTARG    TARGET POSITION RADIUS VECTOR
029338,001087:                                                                                                  #        (4) DELLT4   DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
029339,001088:                                                                                                  #        (5) INTIME   TIME OF RINIT
029340,001089:                                                                                                  #        (6) 0D       NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
029341,001090:                                                                                                  #        (7) 2D       ANGLE TO 180 DEGREES WHEN ROTATION STARTS
029342,001091:                                                                                                  #        (8) RTX1     -2 FOR EARTH, -10D FOR LUNAR
029343,001092:                                                                                                  #        (9) RTX2     COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
029344,001093:                                                                                                  #        PUSHLOC SET AT 4D
029345,001094: 

Page 681

029347,001096:                                                                                                  #  OUTPUT
029348,001097: 
029349,001098:                                                                                                  #        (1) RTARG    OFFSET TARGET POSITION VECTOR
029350,001099:                                                                                                  #        (2) VIPRIME  MANEUVER VELOCITY REQUIRED
029351,001100:                                                                                                  #        (3) VTPRIME  VELOCITY AT TARGET AFTER MANEUVER
029352,001101:                                                                                                  #        (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
029353,001102: 
029354,001103:                                                                                                  #  SUBROUTINES USED
029355,001104: 
029356,001105:                                                                                                  #        LAMBERT
029357,001106:                                                                                                  #        INTSTALL
029358,001107:                                                                                                  #        INTEGRVS
029359,001108: 
029360,001109: 11,2000                                           SETLOC   INTVEL                                
029361,001110: 11,2000                                           BANK                                           
029362,001111: 
029363,001112: 11,2000                                           COUNT*   $$/INITV                              
029364,001113: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
029365,001114: 11,2001           00475                                    GUESSW                                
029366,001115: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
029367,001116: 11,2003           03444                                    RTARG                                 
029368,001117: 11,2004           03463                                    NORMEX                                
029369,001118: 11,2005           03472                           STORE    RTARG1                                
029370,001119: 11,2006           77646                           ABVAL                                          
029371,001120: 11,2007           03723                           STORE    RTMAG                                 
029372,001121: 11,2010           46135                           SLOAD    BHIZ                                  
029373,001122: 11,2011           03000                                    RTX2                                  
029374,001123: 11,2012           22026                                    INITVEL1                              
029375,001124: 11,2013           72575                           VLOAD    VSL2                                  
029376,001125: 11,2014           02323                                    RINIT                                 #  B29
029377,001126: 11,2015           26323                           STOVL    RINIT                                 #  B27
029378,001127: 11,2016           02331                                    VINIT                                 #  B7
029379,001128: 11,2017           77752                           VSL2                                           
029380,001129: 11,2020           26331                           STOVL    VINIT                                 #  B5
029381,001130: 11,2021           03472                                    RTARG1                                
029382,001131: 11,2022           77752                           VSL2                                           
029383,001132: 11,2023           03472                           STORE    RTARG1                                
029384,001133: 11,2024           77646                           ABVAL                                          
029385,001134: 11,2025           03723                           STORE    RTMAG                                 
029386,001135:                                                                                                  #       INITIALIZATION
029387,001136: 
029388,001137: 11,2026           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4(PL 2D)
029389,001138: 11,2027           03617                                    ITCTR                                 
029390,001139: 11,2030           77776                                    0          -1                         
029391,001140: 11,2031           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4)  (+2)
029392,001141: 11,2032           17667                           STODL    COZY4                                 #  SET COZY4 TO COSINE(E4)          (PL 0D)
029393,001142: 11,2033           67154                           LXA,2    SXA,2                                 
029394,001143: 11,2034           00154                                    MPAC                                  
029395,001144: 11,2035           02701                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
029396,001145: 11,2036           77775                           VLOAD                                          

Page 682

029398,001147: 11,2037           02323                                    RINIT                                 
029399,001148: 11,2040           26655                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
029400,001149: 11,2041           03472                                    RTARG1                                
029401,001150: 11,2042           16663                           STODL    R2VEC                                 #  R2VEC EQ RTARG
029402,001151: 11,2043           03452                                    DELLT4                                
029403,001152: 11,2044           02671                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
029404,001153: 11,2045           77201                           SETPD    VLOAD                                 
029405,001154: 11,2046           00001                                    0D                                    #  INITIALIZE PL TO 0D
029406,001155: 11,2047           02323                                    RINIT                                 #  MPAC EQ RINIT (+29)
029407,001156: 11,2050           41456                           UNIT     PUSH                                  #  UNIT(RI)  (+1)                   (PL 6D)
029408,001157: 11,2051           53435                           VXV      UNIT                                  
029409,001158: 11,2052           02331                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI   (+8)
029410,001159: 11,2053           26674                           STOVL    UN                                    
029411,001160: 11,2054           03472                                    RTARG1                                
029412,001161: 11,2055           50256                           UNIT     DOT                                   #  TEMP=URT.URI  (+2)               (PL 0D)
029413,001162: 11,2056           43015                           DAD      CLEAR                                 
029414,001163: 11,2057           03667                                    COZY4                                 
029415,001164: 11,2060           03665                                    NORMSW                                
029416,001165: 11,2061           03667                           STORE    COZY4                                 
029417,001166: 11,2062           43044        INITVEL2           BPL      SET                                   
029418,001167: 11,2063           22105                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
029419,001168: 11,2064           03465                                    NORMSW                                
029420,001169:                                                                                                  #     ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
029421,001170: 
029422,001171: 11,2065           41575                           VLOAD    PUSH                                  #                                   (PL 6D)
029423,001172: 11,2066           02663                                    R2VEC                                 #  RC TO 6D  (+29)
029424,001173: 11,2067           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
029425,001174: 11,2070           46206                           PUSH     VPROJ                                 #                                   (PL 8D)
029426,001175: 11,2071           02674                                    UN                                    
029427,001176: 11,2072           51352                           VSL2     BVSU                                  
029428,001177: 11,2073           74256                           UNIT     VXSC                                  #                                   (PL 0D)
029429,001178: 11,2074           77772                           VSL1                                           
029430,001179: 11,2075           02663                           STORE    R2VEC                                 
029431,001180: 11,2076           67351                           TLOAD    SLOAD                                 
029432,001181: 11,2077           24007                                    ZEROVEC                               
029433,001182: 11,2100           03617                                    ITCTR                                 
029434,001183: 11,2101           77244                           BPL      VLOAD                                 
029435,001184: 11,2102           22105                                    INITVEL3                              
029436,001185: 11,2103           02663                                    R2VEC                                 
029437,001186: 11,2104           03472                           STORE    RTARG1                                
029438,001187: 11,2105           63345        INITVEL3           DLOAD    PDVL                                  #                                   (PL 2D)
029439,001188: 11,2106           26007                                    MUEARTH                               #  POSITIVE VALUE
029440,001189: 11,2107           02663                                    R2VEC                                 
029441,001190: 11,2110           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)                 (PL 8D)
029442,001191: 11,2111           02655                                    R1VEC                                 
029443,001192: 11,2112           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)                 (PL14D)
029444,001193: 11,2113           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
029445,001194: 11,2114           00003                                    2D                                    
029446,001195: 11,2115           77606                           PUSH                                           #                                   (PL20D)
029447,001196: 11,2116           71350                           LXA,1    DLOAD                                 

Page 683

029449,001198: 11,2117           02776                                    RTX1                                  
029450,001199: 11,2120           00023                                    18D                                   
029451,001200: 11,2121           62040                           BMN      INCR,1                                
029452,001201: 11,2122           22124                                    +2                                    
029453,001202: 11,2123           77767                           DEC      -8         B-14                       
029454,001203: 11,2124           67310                           INCR,1   SLOAD                                 
029455,001204: 11,2125           00012                                    10D                                   
029456,001205: 11,2126           00047                                    X1                                    
029457,001206: 11,2127           77230                           BHIZ     VLOAD                                 #                                   (PL14D)
029458,001207: 11,2130           22132                                    +2                                    
029459,001208: 11,2131           41476                           VCOMP    PUSH                                  #                                   (PL20D)
029460,001209: 11,2132           77775                           VLOAD                                          #                                   (PL14D)
029461,001210: 11,2133           50235                           VXV      DOT                                   #                                   (PL 2D)
029462,001211: 11,2134           71244                           BPL      DLOAD                                 #                                   (PL 0D)
029463,001212: 11,2135           22137                                    INITVEL4                              
029464,001213: 11,2136           41476                           DCOMP    PUSH                                  #                                   (PL 2D)
029465,001214: 11,2137           67154        INITVEL4           LXA,2    SXA,2                                 
029466,001215: 11,2140           00000                                    0D                                    
029467,001216: 11,2141           02672                                    GEOMSGN                               
029468,001217:                                                                                                  #    SET INPUTS UP FOR LAMBERT
029469,001218: 
029470,001219: 11,2142           66350                           LXA,1    SSP                                   
029471,001220: 11,2143           02776                                    RTX1                                  
029472,001221: 11,2144           00027                                    ITERCTR                               
029473,001222: 11,2145           00024                                    20D                                   
029474,001223:                                                                                                  #     OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
029475,001224: 
029476,001225: 11,2146           77624                           CALL                                           
029477,001226: 11,2147           25212                                    LAMBERT                               
029478,001227: 
029479,001228:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
029480,001229: 
029481,001230: 11,2150           77214                           CLEAR    VLOAD                                 
029482,001231: 11,2151           00675                                    GUESSW                                
029483,001232: 11,2152           02744                                    VVEC                                  
029484,001233:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
029485,001234: 
029486,001235: 11,2153           16337                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED  (+7)
029487,001236: 
029488,001237:                                                                                                  #     IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
029489,001238:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
029490,001239: 
029491,001240: 11,2154           02702                                    VTARGTAG                              
029492,001241: 11,2155           45030                           BHIZ     CALL                                  
029493,001242: 11,2156           22233                                    INITVEL7                              
029494,001243: 11,2157           27410                                    INTSTALL                              
029495,001244: 11,2160           43135                           SLOAD    CLEAR                                 
029496,001245: 11,2161           03000                                    RTX2                                  
029497,001246: 11,2162           00263                                    MOONFLAG                              
029498,001247: 11,2163           43030                           BHIZ     SET                                   

Page 684

029500,001249: 11,2164           22166                                    INITVEL5                              
029501,001250: 11,2165           00063                                    MOONFLAG                              
029502,001251: 11,2166           77775        INITVEL5           VLOAD                                          
029503,001252: 11,2167           02323                                    RINIT                                 
029504,001253: 11,2170           02655                           STORE    R1VEC                                 
029505,001254: 11,2171           25535                           STOVL    RCV                                   
029506,001255: 11,2172           02337                                    VIPRIME                               
029507,001256: 11,2173           15543                           STODL    VCV                                   
029508,001257: 11,2174           03610                                    INTIME                                
029509,001258: 11,2175           01517                           STORE    TET                                   
029510,001259: 11,2176           43015                           DAD      CLEAR                                 
029511,001260: 11,2177           03452                                    DELLT4                                
029512,001261: 11,2200           01673                                    INTYPFLG                              
029513,001262: 11,2201           34041                           STCALL   TDEC1                                 
029514,001263: 11,2202           27106                                    INTEGRVS                              
029515,001264: 11,2203           77775                           VLOAD                                          
029516,001265: 11,2204           00025                                    VATT1                                 
029517,001266: 11,2205           02703                           STORE    VTARGET                               
029518,001267: 
029519,001268:                                                                                                  #   IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
029520,001269:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
029521,001270: 
029522,001271: 11,2206           63154                           LXA,2    INCR,2                                
029523,001272: 11,2207           03616                                    ITCTR                                 
029524,001273: 11,2210           00001                                    1D                                    #  INCREMENT ITCTR
029525,001274: 11,2211           55134                           SXA,2    XSU,2                                 
029526,001275: 11,2212           03616                                    ITCTR                                 
029527,001276: 11,2213           02701                                    VTARGTAG                              
029528,001277: 11,2214           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
029529,001278: 11,2215           00050                                    X2                                    
029530,001279: 11,2216           22230                                    INITVEL6                              
029531,001280: 
029532,001281:                                                                                                  #    OFFSET CONIC TARGET VECTOR
029533,001282: 
029534,001283: 11,2217           52375                           VLOAD    VSU                                   
029535,001284: 11,2220           03472                                    RTARG1                                
029536,001285: 11,2221           00017                                    RATT1                                 
029537,001286: 11,2222           77655                           VAD                                            
029538,001287: 11,2223           02663                                    R2VEC                                 
029539,001288: 11,2224           16663                           STODL    R2VEC                                 
029540,001289: 11,2225           03667                                    COZY4                                 
029541,001290: 11,2226           77650                           GOTO                                           
029542,001291: 11,2227           22062                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
029543,001292:                                                                                                  #  COMPUTE THE DELTA VELOCITY
029544,001293: 
029545,001294: 11,2230           77775        INITVEL6           VLOAD                                          
029546,001295: 11,2231           02663                                    R2VEC                                 
029547,001296: 11,2232           03472                           STORE    RTARG1                                
029548,001297: 11,2233           52375        INITVEL7           VLOAD    VSU                                   
029549,001298: 11,2234           02337                                    VIPRIME                               
029550,001299: 11,2235           02331                                    VINIT                                 

Page 685

029552,001301: 11,2236           26366                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT  (+7)
029553,001302: 11,2237           02703                                    VTARGET                               
029554,001303: 11,2240           03566                           STORE    VTPRIME                               
029555,001304: 11,2241           46135                           SLOAD    BHIZ                                  
029556,001305: 11,2242           03000                                    RTX2                                  
029557,001306: 11,2243           22260                                    INITVELX                              
029558,001307: 11,2244           70575                           VLOAD    VSR2                                  
029559,001308: 11,2245           03566                                    VTPRIME                               
029560,001309: 11,2246           27566                           STOVL    VTPRIME                               
029561,001310: 11,2247           02337                                    VIPRIME                               
029562,001311: 11,2250           77742                           VSR2                                           
029563,001312: 11,2251           26337                           STOVL    VIPRIME                               
029564,001313: 11,2252           03472                                    RTARG1                                
029565,001314: 11,2253           77742                           VSR2                                           
029566,001315: 11,2254           27472                           STOVL    RTARG1                                
029567,001316: 11,2255           02366                                    DELVEET3                              
029568,001317: 11,2256           77742                           VSR2                                           
029569,001318: 11,2257           02366                           STORE    DELVEET3                              
029570,001319: 11,2260           70750        INITVELX           LXA,1    DLOAD*                                
029571,001320: 11,2261           02776                                    RTX1                                  
029572,001321: 11,2262           10003                                    MUTABLE    -2,1                       
029573,001322: 11,2263           41206                           PUSH     DMP                                   
029574,001323: 11,2264           02742                                    R1A                                   
029575,001324: 11,2265           56342                           SR1      DDV                                   
029576,001325: 11,2266           00041                                    R1                                    
029577,001326: 11,2267           17721                           STODL    MU/A                                  
029578,001327: 11,2270           77661                           SR                                             
029579,001328: 11,2271           20607                                    6                                     
029580,001329: 11,2272           03717                           STORE    MUASTEER                              
029581,001330: 11,2273           77201                           SETPD    VLOAD                                 
029582,001331: 11,2274           00001                                    0D                                    
029583,001332: 11,2275           03472                                    RTARG1                                
029584,001333: 11,2276           03444                           STORE    RTARG                                 
029585,001334: 11,2277           52014                           CLEAR    GOTO                                  
029586,001335: 11,2300           01267                                    XDELVFLG                              
029587,001336: 11,2301           03463                                    NORMEX                                
029588,001337: 
029589,001338:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
029590,001339: 

Page 686

029592,001341:                                                                                                  #  ..... MIDGIM .....
029593,001342: 
029594,001343:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
029595,001344:                                                                                                  #   REVISION 03, 17 FEB 67
029596,001345: 
029597,001346:                                                                                                  #           IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
029598,001347:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
029599,001348:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST),  OTHERWISE
029600,001349:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
029601,001350:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
029602,001351: 
029603,001352:                                                                                                  #    .. INPUTS ..
029604,001353: 
029605,001354:                                                                                                  #      NAME        MEANING                              UNITS/SCALING/MODE
029606,001355: 
029607,001356:                                                                                                  #     AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE             BIT
029608,001357:                                                                                                  #     RINIT   ACTIVE VEHICLE RADIUS VECTOR            METERS/CSEC (+7) VT
029609,001358:                                                                                                  #     VINIT   ACTIVE VEHICLE VELOCITY VECTOR          METERS/CSEC (+7) VT
029610,001359:                                                                                                  #     0D (PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR    METERS/CSEC (+7) VT
029611,001360: 
029612,001361:                                                                                                  #    .. OUTPUTS ..
029613,001362: 
029614,001363:                                                                                                  #      NAME        MEANING                              UNITS/SCALING/MODE
029615,001364: 
029616,001365:                                                                                                  #       +MGA  + MIDDLE GIMBAL ANGLE                  REVOLUTIONS (+0) DP
029617,001366:                                                                                                  #     DELVLVC DELTA VELOCITY VECTOR IN LV COORD.     METERS/CSEC (+7) VT
029618,001367:                                                                                                  #    MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.  -   BIT
029619,001368: 
029620,001369:                                                                                                  #   .. CALLING SEQUENCE ..
029621,001370: 
029622,001371:                                                                                                  #  L       CALL
029623,001372:                                                                                                  #  L+1            MIDGIM
029624,001373:                                                                                                  #  L+2     (RETURN - ALWAYS)
029625,001374: 
029626,001375:                                                                                                  #    .. NO SUBROUTINES CALLED ..
029627,001376: 
029628,001377:                                                                                                  #    .. DEBRIS - ERASEABLE TEMPORARY USAGE
029629,001378: 
029630,001379:                                                                                                  #         A,Q,L, PUSH LIST, MPAC.
029631,001380: 
029632,001381:                                                                                                  #    .. ALARMS - NONE ..
029633,001382: 

Page 687

029635,001384:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
029636,001385: 
029637,001386: 06,2000                                           SETLOC   MIDDGIM                               
029638,001387: 06,2000                                           BANK                                           
029639,001388: 
029640,001389: 06,3723                                           COUNT*   $$/MIDG                               
029641,001390: 
029642,001391: 06,3723           20000 00000  HALFREV            2DEC     1          B-1                        
029643,001392: 
029644,001393: 06,3725           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE  UV (+1)
029645,001394: 06,3726           77656                           UNIT                                           
029646,001395: 06,3727           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
029647,001396: 06,3730           01740                                    REFSMMAT   +6                         #   FROM +2 TO +1 FOR ASIN ROUTINE
029648,001397: 06,3731           51136                           ARCSIN   BPL                                   
029649,001398: 06,3732           15736                                    SETMGA                                
029650,001399: 06,3733           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
029651,001400: 06,3734           15724                                    HALFREV                               #  ADDING ONE REVOLUTION
029652,001401: 06,3735           15724                                    HALFREV                               
029653,001402: 06,3736           02253        SETMGA             STORE    +MGA                                  
029654,001403: 06,3737           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
029655,001404: 06,3740           02675                                    MGLVFLAG                              #      AND EXIT
029656,001405: 06,3741           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D)   R (+29) IN MPAC, UNITIZE UR
029657,001406: 06,3742           02323                                    RINIT                                 
029658,001407: 06,3743           77676                           VCOMP                                          #  U(-R)
029659,001408: 06,3744           00023                           STORE    18D                                   #  U(-R) TO 18D
029660,001409: 06,3745           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
029661,001410: 06,3746           02331                                    VINIT                                 
029662,001411: 06,3747           00015                           STORE    12D                                   #  U(V*R) TO 12D
029663,001412: 06,3750           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
029664,001413: 06,3751           00023                                    18D                                   
029665,001414: 06,3752           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
029666,001415: 06,3753           00001                                    0D                                    #  DELTA V (+7) IN 0D
029667,001416: 06,3754           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
029668,001417: 06,3755           00007                                    6D                                    #   AND SCALE +7 IN MPAC
029669,001418: 06,3756           03434                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
029670,001419: 06,3757           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
029671,001420: 06,3760           02475                                    MGLVFLAG                              #      AND EXIT
029672,001421:                                                                                                  #     ..... END OF MIDGIM ROUTINE .....
029673,001422: 

Page 688

029675,001424: 10,2000                                           BANK     10                                    
029676,001425: 10,2000                                           SETLOC   SLCTMU                                
029677,001426: 10,2000                                           BANK                                           
029678,001427: 10,2000                                           COUNT*   $$/MIDG                               
029679,001428: 
029680,001429: 10,2000           77160        SELECTMU           AXC,1    AXT,2                                 
029681,001430: 10,2001           00002                                    2D                                    
029682,001431: 10,2002           00000                                    0D                                    
029683,001432: 10,2003           77614                           BOFF                                           
029684,001433: 10,2004           04343                                    CMOONFLG                              
029685,001434: 10,2005           20011                                    SETMUER                               
029686,001435: 10,2006           77160                           AXC,1    AXT,2                                 
029687,001436: 10,2007           00012                                    10D                                   
029688,001437: 10,2010           00002                                    2D                                    
029689,001438: 10,2011           66143        SETMUER            DLOAD*   SXA,1                                 
029690,001439: 10,2012           10011                                    MUTABLE    +4,1                       
029691,001440: 10,2013           02776                                    RTX1                                  
029692,001441: 10,2014           22317                           STODL*   RTSR1/MU                              
029693,001442: 10,2015           10003                                    MUTABLE    -2,1                       
029694,001443: 10,2016           54214                           BOFF     SR                                    
029695,001444: 10,2017           04343                                    CMOONFLG                              
029696,001445: 10,2020           20022                                    RTRNMU                                
029697,001446: 10,2021           20607                                    6D                                    
029698,001447: 10,2022           02321        RTRNMU             STORE    RTMU                                  
029699,001448: 10,2023           43134                           SXA,2    CLEAR                                 
029700,001449: 10,2024           02777                                    RTX2                                  
029701,001450: 10,2025           01271                                    FINALFLG                              
029702,001451: 10,2026           77650                           GOTO                                           
029703,001452: 10,2027           73515                                    VN1645                                
029704,001453: 

Page 689

029706,001455:                                                                                                  #  ..... PERIAPO .....
029707,001456: 
029708,001457:                                                                                                  #  MOD NO -1       LOG SECTION - P34-P35, P74-P75
029709,001458:                                                                                                  #  MOD BY WHITE.P  DATE  18JAN68
029710,001459: 
029711,001460:                                                                                                  #  FUNCTIONAL DESCRIPTION
029712,001461: 
029713,001462:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
029714,001463:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
029715,001464:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
029716,001465: 
029717,001466:                                                                                                  #        SETRAD IS CALLED TO  DETERMINE THE RADIUS OF THE PRIMARY BODY.
029718,001467: 
029719,001468:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
029720,001469:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
029721,001470: 
029722,001471:                                                                                                  #  CALLING SEQUENCE
029723,001472: 
029724,001473:                                                                                                  #        L         CALL
029725,001474:                                                                                                  #        L+1               PERIAPO
029726,001475:                                                                                                  #        L+2       (RETURN - ALWAYS)
029727,001476: 
029728,001477:                                                                                                  #  INPUT
029729,001478: 
029730,001479:                                                                                                  #        (1) RVEC     POSITION VECTOR IN METERS
029731,001480:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
029732,001481:                                                                                                  #        (2) VVEC     VELOCITY VECTOR IN METERS/CENTISECOND
029733,001482:                                                                                                  #                     SCALE FACTOR - EARTH +7, MOON +5
029734,001483:                                                                                                  #        (3) X1       PRIMARY BODY INDICATOR
029735,001484:                                                                                                  #                     EARTH -2, MOON -10
029736,001485: 
029737,001486:                                                                                                  #  OUTPUT
029738,001487: 
029739,001488:                                                                                                  #        (1) 2D       APOCENTER RADIUS IN METERS
029740,001489:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
029741,001490:                                                                                                  #        (2) 4D       APOCENTER ALTITUDE IN METERS
029742,001491:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON P27
029743,001492:                                                                                                  #        (3) 6D       PERICENTER RADIUS IN METERS
029744,001493:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
029745,001494:                                                                                                  #        (4) 8D       PERICENTER ALTITUDE IN METERS
029746,001495:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
029747,001496:                                                                                                  #        (5) ECC      ECCENTRICITY OF CONIC TRAJECTORY
029748,001497:                                                                                                  #                     SCALE FACTOR - +3
029749,001498:                                                                                                  #        (6) XXXALT   RADIUS OF THE PRIMARY BODY IN METERS
029750,001499:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
029751,001500:                                                                                                  #        (7) PUSHLOC  EQUALS 10D
029752,001501: 
029753,001502:                                                                                                  #  SUBROUTINES USED
029754,001503: 
029755,001504:                                                                                                  #        SETRAD

Page 690

029757,001506:                                                                                                  #        APSIDES
029758,001507: 
029759,001508: 23,2000                                           SETLOC   APOPERI                               
029760,001509: 23,2000                                           BANK                                           
029761,001510: 
029762,001511: 23,2333                                           COUNT*   $$/PERAP                              
029763,001512: 
029764,001513: 23,2333           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS  OF PAD 37-B.
029765,001514: 
029766,001515:                                                                                                  #  = 20 909 901.57 FT
029767,001516: 
029768,001517: 23,2335           53754        PERIAPO1           LXA,2    VSR*                                  
029769,001518: 23,2336           02777                                    RTX2                                  
029770,001519: 23,2337           57176                                    0,2                                   
029771,001520: 23,2340           26744                           STOVL    VVEC                                  
029772,001521: 23,2341           53750                           LXA,1    VSR*                                  
029773,001522: 23,2342           02776                                    RTX1                                  
029774,001523: 23,2343           57176                                    0,2                                   
029775,001524: 23,2344           02655                           STORE    RVEC                                  
029776,001525: 23,2345           45020        PERIAPO            STQ      CALL                                  
029777,001526: 23,2346           03463                                    NORMEX                                
029778,001527: 23,2347           46363                                    SETRAD                                
029779,001528: 23,2350           37671                           STCALL   XXXALT                                
029780,001529: 23,2351           25704                                    APSIDES                               
029781,001530: 23,2352           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS   B29 OR B27
029782,001531: 23,2353           00003                                    2D                                    
029783,001532: 23,2354           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE    B29 OR B27
029784,001533: 23,2355           03671                                    XXXALT                                
029785,001534: 23,2356           00001                                    0D                                    
029786,001535: 23,2357           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS  B29 OR B27
029787,001536: 23,2360           03671                                    XXXALT                                
029788,001537: 23,2361           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE   B29 OR B27
029789,001538: 23,2362           03463                                    NORMEX                                
029790,001539: 

Page 691

029792,001541:                                                                                                  #  SETRAD
029793,001542: 23,2363           41545        SETRAD             DLOAD    PUSH                                  
029794,001543: 23,2364           06334                                    RPAD                                  
029795,001544: 23,2365           63130                           SXA,1    INCR,2                                
029796,001545: 23,2366           00047                                    X2                                    
029797,001546: 23,2367           00002                                    2D                                    
029798,001547: 23,2370           46135                           SLOAD    BHIZ                                  
029799,001548: 23,2371           00050                                    X2                                    
029800,001549: 23,2372           46376                                    SETRADX                               
029801,001550: 23,2373           51575                           VLOAD    ABVAL                                 
029802,001551: 23,2374           02021                                    RLS                                   
029803,001552: 23,2375           77725                           PDDL                                           
029804,001553: 23,2376           43545        SETRADX            DLOAD    RVQ                                   
029805,001554: 

Page 692

029807,001556:                                                                                                  #  PRECSET
029808,001557: 23,2377           77620        PRECSET            STQ                                            
029809,001558: 23,2400           03463                                    NORMEX                                
029810,001559: 23,2401           37574                           STCALL   TDEC2                                 
029811,001560: 23,2402           27056                                    LEMPREC                               
029812,001561: 23,2403           77624                           CALL                                           
029813,001562: 23,2404           46415                                    LEMSTORE                              
029814,001563: 23,2405           77745                           DLOAD                                          
029815,001564: 23,2406           03574                                    TDEC2                                 
029816,001565: 23,2407           34041                           STCALL   TDEC1                                 
029817,001566: 23,2410           27042                                    CSMPREC                               
029818,001567: 23,2411           77624                           CALL                                           
029819,001568: 23,2412           46425                                    CSMSTORE                              
029820,001569: 23,2413           77650                           GOTO                                           
029821,001570: 23,2414           03463                                    NORMEX                                
029822,001571: 23,2415           43175        LEMSTORE           VLOAD    BOFF                                  
029823,001572: 23,2416           00001                                    RATT                                  
029824,001573: 23,2417           01352                                    AVFLAG                                
029825,001574: 23,2420           46431                                    PASSIVE                               
029826,001575: 23,2421           27536        ACTIVE             STOVL    RACT3                                 
029827,001576: 23,2422           00007                                    VATT                                  
029828,001577: 23,2423           03544                           STORE    VACT3                                 
029829,001578: 23,2424           77616                           RVQ                                            
029830,001579: 23,2425           43175        CSMSTORE           VLOAD    BOFF                                  
029831,001580: 23,2426           00001                                    RATT                                  
029832,001581: 23,2427           01352                                    AVFLAG                                
029833,001582: 23,2430           46421                                    ACTIVE                                
029834,001583: 23,2431           27552        PASSIVE            STOVL    RPASS3                                
029835,001584: 23,2432           00007                                    VATT                                  
029836,001585: 23,2433           03560                           STORE    VPASS3                                
029837,001586: 23,2434           77616                           RVQ                                            
029838,001587: 

Page 693

029840,001589:                                                                                                  #  VECSHIFT
029841,001590: 23,2435           53754        VECSHIFT           LXA,2    VSR*                                  
029842,001591: 23,2436           02777                                    RTX2                                  
029843,001592: 23,2437           57176                                    0,2                                   
029844,001593: 23,2440           63350                           LXA,1    PDVL                                  
029845,001594: 23,2441           02776                                    RTX1                                  
029846,001595: 23,2442           63257                           VSR*     PDVL                                  
029847,001596: 23,2443           57176                                    0,2                                   
029848,001597: 23,2444           77616                           RVQ                                            
029849,001598: 

Page 694

029851,001600:                                                                                                  #  SHIFTR1
029852,001601: 23,2445           53754        SHIFTR1            LXA,2    SL*                                   
029853,001602: 23,2446           02777                                    RTX2                                  
029854,001603: 23,2447           57576                                    0,2                                   
029855,001604: 23,2450           77616                           RVQ                                            
029856,001605: 

Page 695

029858,001607:                                                                                                  #  PROGRAM DESCRIPTION
029859,001608:                                                                                                  #  SUBROUTINE NAME       R36  OUT-OF-PLANE RENDEZVOUS ROUTINE
029860,001609:                                                                                                  #  MOD NO.  0                      DATE      22 DECEMBER 67
029861,001610:                                                                                                  #  MOD BY   N.M.NEVILLE            LOG SECTION  EXTENDED VERBS
029862,001611:                                                                                                  #  FUNCTIONAL DESCRIPTION
029863,001612: 
029864,001613:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
029865,001614:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y , YDOT , PSI). (REQUESTED BY DSKY).
029866,001615: 
029867,001616:                                                                                                  #  CALLING SEQUENCE
029868,001617: 
029869,001618:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY  V 90 E
029870,001619: 
029871,001620:                                                                                                  #  SUBROUTINES CALLED
029872,001621: 
029873,001622:                                                                                                  #  EXDSPRET
029874,001623:                                                                                                  #  GOMARKF
029875,001624:                                                                                                  #  CSMPREC
029876,001625:                                                                                                  #  LEMPREC
029877,001626:                                                                                                  #  SGNAGREE
029878,001627:                                                                                                  #  LOADTIME
029879,001628: 
029880,001629:                                                                                                  #  NORMAL EXIT MODES
029881,001630: 
029882,001631:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
029883,001632: 
029884,001633:                                                                                                  #  ALARM OR ABORT EXIT MODES
029885,001634: 
029886,001635:                                                                                                  #  NONE
029887,001636: 
029888,001637:                                                                                                  #  OUTPUT
029889,001638: 
029890,001639:                                                                                                  #  DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI
029891,001640: 
029892,001641:                                                                                                  #  DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE
029893,001642:                                                                                                  #  REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY.
029894,001643: 
029895,001644:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029896,001645: 
029897,001646:                                                                                                  #  CSM AND LEM STATE VECTORS
029898,001647: 
029899,001648:                                                                                                  #  DEBRIS
029900,001649: 
029901,001650:                                                                                                  #  CENTRALS A,Q,L
029902,001651: 
029903,001652:                                                                                                  #  OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
029904,001653: 
029905,001654: 20,2115                                           BANK     20                                    
029906,001655: 04,2000                                           SETLOC   R36LM                                 
029907,001656: 04,2000                                           BANK                                           
029908,001657: 

Page 696

029910,001659: 04,2650  E7,1441                                  EBANK=   TIG                                   
029911,001660: 04,2650                                           COUNT*   $$/R36                                
029912,001661: 
029913,001662: 04,2650           00006        R36                EXTEND                                         
029914,001663: 04,2651           31442                           DCA      TIG                                   #  SET TIME-OF-EVENT TO TIG FOR NOMINAL
029915,001664: 04,2652           53051                           DXCH     DSPTEMX                               #  DISPLAY
029916,001665: 04,2653           32763                           CAF      V06N16N                               
029917,001666: 04,2654           04616                           TC       BANKCALL                              
029918,001667: 04,2655           20334                           CADR     GOMARKF                               
029919,001668: 04,2656           15503                           TCF      ENDEXT                                #  TERMINATE
029920,001669: 04,2657           12661                           TCF      +2                                    #  PROCEED
029921,001670: 04,2660           12653                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
029922,001671: 04,2661           06042                           TC       INTPRET                               
029923,001672: 04,2662           53145                           DLOAD    BZE                                   
029924,001673: 04,2663           01051                                    DSPTEMX                               
029925,001674: 04,2664           10760                                    GETNOW                                #  ASTOR-LOADED ZERO, GET PRES TIME
029926,001675: 04,2665           34041        R36INT             STCALL   TDEC1                                 
029927,001676: 04,2666           27042                                    OTHPREC                               
029928,001677: 04,2667           63375                           VLOAD    PDVL                                  
029929,001678: 04,2670           00007                                    VATT                                  
029930,001679: 04,2671           00001                                    RATT                                  #  -
029931,001680: 04,2672           02207                           STORE    RPASS36                               #  R
029932,001681: 04,2673           63256                           UNIT     PDVL                                  #   P
029933,001682: 04,2674           53435                           VXV      UNIT                                  #  -
029934,001683: 04,2675           77626                           STADR                                          
029935,001684: 04,2676           61562                           STODL    UNP36                                 #  U
029936,001685: 04,2677           00015                                    TAT                                   
029937,001686: 04,2700           34041                           STCALL   TDEC1                                 
029938,001687: 04,2701           27056                                    THISPREC                              
029939,001688: 04,2702           63375                           VLOAD    PDVL                                  #                   -
029940,001689: 04,2703           00007                                    VATT                                  #  VELOCITY VECTOR  V               00D
029941,001690: 04,2704           00001                                    RATT                                  #                    A
029942,001691: 04,2705           41406                           PUSH     PUSH                                  #  POSITION VECTOR  R   IN  06D AND 12D
029943,001692: 04,2706           63245                           BVSU     PDVL                                  #                    A  -   -
029944,001693: 04,2707           02207                                    RPASS36                               #  LINE OF SIGHT VECTOR R - R       12D
029945,001694: 04,2710           72441                           DOT      SL1                                   #                         P   A
029946,001695: 04,2711           02215                                    UNP36                                 #      -   -
029947,001696: 04,2712           26201                           STOVL    RANGE                                 #  Y = U . R
029948,001697: 04,2713           00001                                    00D                                   #           A
029949,001698: 04,2714           72441                           DOT      SL1                                   
029950,001699: 04,2715           02215                                    UNP36                                 #  .   -   -
029951,001700: 04,2716           26203                           STOVL    RRATE                                 #  Y = U . V
029952,001701: 04,2717           00007                                    06D                                   #  -        A  -
029953,001702: 04,2720           41456                           UNIT     PUSH                                  #  U   = UNIT( R )                  18D
029954,001703: 04,2721           47235                           VXV      VXV                                   #   RA          A
029955,001704: 04,2722           00001                                    00D                                   #   -   -   -     -
029956,001705: 04,2723           00023                                    18D                                   #  (U  XV )XU    =U
029957,001706: 04,2724           53552                           VSL2     UNIT                                  #    RA  A   RA    A
029958,001707: 04,2725           77656                           UNIT                                           
029959,001708: 04,2726           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR.  00D

Page 697

029961,001710: 04,2727           00023                                    18D                                   
029962,001711: 04,2730           74241                           DOT      VXSC                                  #  -
029963,001712: 04,2731           00015                                    12D                                   #  U
029964,001713: 04,2732           77752                           VSL2                                           #   L
029965,001714: 04,2733           53445                           BVSU     UNIT                                  
029966,001715: 04,2734           77656                           UNIT                                           
029967,001716: 04,2735           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL    12D
029968,001717: 04,2736           00001                                    00D                                   #  PLANE
029969,001718: 04,2737           65552                           SL1      ARCCOS                                #               -   -
029970,001719: 04,2740           26205                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
029971,001720: 04,2741           50235                           VXV      DOT                                   #                A   L
029972,001721: 04,2742           00001                                    00D                                   
029973,001722: 04,2743           71244                           BPL      DLOAD                                 
029974,001723: 04,2744           10751                                    R36TAG2                               
029975,001724: 04,2745           24020                                    LODPMAX                               
029976,001725: 04,2746           77625                           DSU                                            
029977,001726: 04,2747           02205                                    RTHETA                                
029978,001727: 04,2750           02205                           STORE    RTHETA                                
029979,001728: 04,2751           77776        R36TAG2            EXIT                                           
029980,001729: 04,2752           32764                           CAF      V06N90N                               #   DISPLAY Y , YDOT , AND PSI
029981,001730: 04,2753           04616                           TC       BANKCALL                              
029982,001731: 04,2754           20334                           CADR     GOMARKF                               
029983,001732: 04,2755           15503                           TCF      ENDEXT                                #  TERMINATE
029984,001733: 04,2756           15503                           TCF      ENDEXT                                #  PROCEED , END OF PROGRAM
029985,001734: 04,2757           12650                           TCF      R36                                   #  RECYCLE, TIG OR ASTRO-OPTION
029986,001735: 04,2760           52034        GETNOW             RTB      GOTO                                  #  ASTRO-SELECTED PRESENT TIME
029987,001736: 04,2761           21574                                    LOADTIME                              
029988,001737: 04,2762           10665                                    R36INT                                
029989,001738: 04,2763           01420        V06N16N            VN       00616                                 
029990,001739: 04,2764           01532        V06N90N            VN       00690                                 

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