Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

019640,000002:                                                                                                 #  Copyright:    Public domain.
019641,000003:                                                                                                 #  Filename:      P34-P35,_P74-P75.agc
019642,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
019643,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
019644,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
019645,000007:                                                                                                 #  Assembler:    yaYUL
019646,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
019647,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
019648,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
019649,000011:                                                                                                 #  Mod history:  2011-02-03 JL   Adapted from corresponding Colossus 249 file.
019650,000012: 
019651,000013:                                                                                                 # # Page 450
019652,000014:                                                                                                 #  TRANSFER PHASE INITITIATION (TPI) PROGRAMS (P34 AND P74)
019653,000015: 
019654,000016:                                                                                                 #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
019655,000017:                                                                                                 #  MOD BY WHITE.P  DATE: 1 JUNE 67
019656,000018: 
019657,000019:                                                                                                 #  PURPOSE
019658,000020: 
019659,000021:                                                                                                 #         (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
019660,000022:                                                                                                 #             REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
019661,000023:                                                                                                 #             PHASE INITITATION (TPI) MANEUVER, GIVEN -
019662,000024: 
019663,000025:                                                                                                 #             (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
019664,000026:                                                                                                 #                 THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
019665,000027: 
019666,000028:                                                                                                 #             (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
019667,000029:                                                                                                 #                 INTERCEPT TIME (TIG (TPF)).
019668,000030: 
019669,000031:                                                                                                 #         (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
019670,000032: 
019671,000033:                                                                                                 #         (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
019672,000034:                                                                                                 #             APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
019673,000035: 
019674,000036:                                                                                                 #         (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
019675,000037:                                                                                                 #             VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
019676,000038:                                                                                                 #             ASTRONAUT/GROUND.
019677,000039: 
019678,000040:                                                                                                 #         (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
019679,000041:                                                                                                 #             THRUSTING PROGRAM.
019680,000042: 
019681,000043:                                                                                                 #  ASSUMPTIONS
019682,000044: 
019683,000045:                                                                                                 #         (1) LM ONLY -- THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
019684,000046:                                                                                                 #             THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
019685,000047:                                                                                                 #             THEREFORE -
019686,000048: 
019687,000049:                                                                                                 #             (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
019688,000050:                                                                                                 #                 BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
019689,000051:                                                                                                 #                 A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
019690,000052:                                                                                                 #                 HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
019691,000053: 
019692,000054:                                                                                                 #             (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
019693,000055:                                                                                                 #                 COMPUTED TO BE GREATER THAN 10 MINUTES.
019694,000056: 
019695,000057:                                                                                                 #             (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
019696,000058:                                                                                                 #                 ORBITS WAS MINIMIZED.
019697,000059: 
019698,000060:                                                                                                 #             (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
019699,000061: 
019700,000062:                                                                                                 #                 CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
019701,000063:                                                                                                 # # Page 451
019702,000064:                                                                                                 #                 ORBIT OR 85 NM FOR EARTH ORBIT.
019703,000065: 
019704,000066:                                                                                                 #             (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
019705,000067:                                                                                                 #                 THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
019706,000068:                                                                                                 #                 MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
019707,000069:                                                                                                 #                 IN AN OUT-OF-PLANE MANEUVER.
019708,000070: 
019709,000071:                                                                                                 #         (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
019710,000072:                                                                                                 #             STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
019711,000073: 
019712,000074:                                                                                                 #         (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
019713,000075:                                                                                                 #             TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
019714,000076:                                                                                                 #             VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
019715,000077:                                                                                                 #             THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
019716,000078:                                                                                                 #             FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
019717,000079:                                                                                                 #             FLIGHT PLAN MANEUVER SEQUENCES.
019718,000080: 
019719,000081:                                                                                                 #         (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
019720,000082:                                                                                                 #             OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
019721,000083:                                                                                                 #             DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
019722,000084:                                                                                                 #             PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
019723,000085:                                                                                                 #             AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
019724,000086:                                                                                                 #             TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
019725,000087:                                                                                                 #             MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
019726,000088:                                                                                                 #             THRUSTING MANEUVER.
019727,000089: 
019728,000090:                                                                                                 #         (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
019729,000091: 
019730,000092:                                                                                                 #         (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
019731,000093: 
019732,000094:                                                                                                 #                 ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
019733,000095:                                                                                                 #                 DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
019734,000096:                                                                                                 #                 CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
019735,000097:                                                                                                 #                 EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
019736,000098: 
019737,000099:                                                                                                 #                 FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
019738,000100:                                                                                                 #                 SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
019739,000101: 
019740,000102:                                                                                                 #                 EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
019741,000103:                                                                                                 #                 REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
019742,000104:                                                                                                 #                 PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
019743,000105: 
019744,000106:                                                                                                 #         (7) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER
019745,000107:                                                                                                 #             HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
019746,000108:                                                                                                 #             VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
019747,000109:                                                                                                 #             THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
019748,000110:                                                                                                 #             THROUGH THE USE OF V06N52.
019749,000111: 
019750,000112:                                                                                                 #             THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
019751,000113:                                                                                                 #             CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
019752,000114:                                                                                                 # # Page 452
019753,000115:                                                                                                 #             170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
019754,000116:                                                                                                 #             ASTRONAUT SHOULD REASSES THE INPUT TARGETING PARAMETERS BASED
019755,000117:                                                                                                 #             UPON DELTA V AND EXPECTED MANEUVER TIME.
019756,000118: 
019757,000119:                                                                                                 #         (8) THIS PROGRAM IS SELECTED BY TEH ASTRONAUT BY DSKY ENTRY -
019758,000120: 
019759,000121:                                                                                                 #                 P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
019760,000122: 
019761,000123:                                                                                                 #                 P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
019762,000124: 
019763,000125:                                                                                                 #  INPUT
019764,000126: 
019765,000127:                                                                                                 #         (1) TTPI     TIME OF THE TPI MANEUVER
019766,000128:                                                                                                 #         (2) ELEV     DESIRED LOS ANGLE AT TPI
019767,000129:                                                                                                 #         (3) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
019768,000130:                                                                                                 #                      TRANSFER FROM TPI TO TIME OF INTERCEPT
019769,000131: 
019770,000132:                                                                                                 #  OUTPUT
019771,000133: 
019772,000134:                                                                                                 #         (1) TRKMKCNT NUMBER OF MARKS
019773,000135:                                                                                                 #         (2) TTOGO    TIME TO GO
019774,000136:                                                                                                 #         (3) +MGA     MIDDLE GIMBAL ANGLE
019775,000137:                                                                                                 #         (4) TTPI     COMPUTED TIME OF TPI MANEUVER
019776,000138:                                                                                                 #              OR
019777,000139:                                                                                                 #             ELEV     COMPUTED LOS ANGLE AT TPI
019778,000140:                                                                                                 #         (5) POSTTPI  PERIGEE ALTITUDE AFTER THE TPI MANEUVER
019779,000141:                                                                                                 #         (6) DELVTPI  MAGNITUDE OF DELTA V AT TPI
019780,000142:                                                                                                 #         (7) DELVTPF  MAGNITUDE OF DELTA V AT INTERCEPT
019781,000143:                                                                                                 #         (8) DVLOS    DELTA VELOCITY AT TPI - LINE OF SIGHT
019782,000144:                                                                                                 #         (9) DELVLVC  DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
019783,000145: 
019784,000146:                                                                                                 #  DOWNLINK
019785,000147: 
019786,000148:                                                                                                 #         (1) TTPI     TIME OF TPI MANEUVER
019787,000149:                                                                                                 #         (2) TIG      TIME OF TPI MANEUVER
019788,000150:                                                                                                 #         (3) ELEV     DESIRED LOS ANGLE AT TPI
019789,000151:                                                                                                 #         (4) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
019790,000152:                                                                                                 #                      TRANSFER FROM TPI TO TIME OF INTERCEPT
019791,000153:                                                                                                 #         (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
019792,000154:                                                                                                 #         (6) TPASS4   TIME OF INTERCEPT
019793,000155:                                                                                                 #  COMMUNICATION TO THRUSTING PROGRAMS
019794,000156: 
019795,000157:                                                                                                 #         (1) TIG      TIME OF THE TPI MANEUVER
019796,000158:                                                                                                 #         (2) RTARG    OFFSET TARGET POSITION
019797,000159:                                                                                                 #         (3) TPASS4   TIME OF INTERCEPT
019798,000160:                                                                                                 #         (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
019799,000161: 
019800,000162:                                                                                                 #  SUBROUTINES USED
019801,000163: 
019802,000164:                                                                                                 #         AVFLAGA
019803,000165:                                                                                                 # # Page 453
019804,000166:                                                                                                 #         AVFLAGP
019805,000167:                                                                                                 #         VNPOOH
019806,000168:                                                                                                 #         DISPLAYE
019807,000169:                                                                                                 #         SELECTMU
019808,000170:                                                                                                 #         PRECSET
019809,000171:                                                                                                 #         S33/34.1
019810,000172:                                                                                                 #         ALARM
019811,000173:                                                                                                 #         BANKCALL
019812,000174:                                                                                                 #         GOFLASH
019813,000175:                                                                                                 #         GOTOPOOH
019814,000176:                                                                                                 #         TIMETHET
019815,000177:                                                                                                 #         S34/35.2
019816,000178:                                                                                                 #         PERIAPO1
019817,000179:                                                                                                 #         SHIFTR1
019818,000180:                                                                                                 #         S34/35.5
019819,000181:                                                                                                 #         VN1645
019820,000182: 
019821,000183: 35,2000                                          SETLOC   CSI/CDH                               
019822,000184: 35,2000                                          BANK                                           
019823,000185: 35,2000  E4,1770                                 EBANK=   SUBEXIT                               
019824,000186: 35,2000                                          COUNT    35/P3474                              
019825,000187: 
019826,000188: 35,2000           03726        P34               TC       AVFLAGA                               
019827,000189: 35,2001           02003                          TC       P34/P74A                              
019828,000190: 35,2002           03741        P74               TC       AVFLAGP                               
019829,000191: 35,2003           03746        P34/P74A          TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
019830,000192: 35,2004           33125                          CAF      V06N37                                #  TTPI
019831,000193: 35,2005           03114                          TC       VNPOOH                                
019832,000194: 35,2006           03073                          TC       DISPLAYE                              #  ELEV AND CENTANG
019833,000195: 35,2007           06006                          TC       INTPRET                               
019834,000196: 35,2010           71214                          CLEAR    DLOAD                                 
019835,000197: 35,2011           01270                                   ETPIFLAG                              
019836,000198: 35,2012           03663                                   TTPI                                  
019837,000199: 35,2013           17413                          STODL    TIG                                   
019838,000200: 35,2014           03744                                   ELEV                                  
019839,000201: 35,2015           43054                          BZE      SET                                   
019840,000202: 35,2016           72020                                   P34/P74B                              
019841,000203: 35,2017           01070                                   ETPIFLAG                              
019842,000204: 35,2020           77624        P34/P74B          CALL                                           
019843,000205: 35,2021           10716                                   SELECTMU                              
019844,000206: 35,2022                        DELELO            EQUALS   26D                                   
019845,000207: 35,2022           43145        P34/P74C          DLOAD    SET                                   
019846,000208: 35,2023           15332                                   ZEROVECS                              
019847,000209: 35,2024           03461                                   ITSWICH                               
019848,000210: 35,2025           43014                          BON      CLEAR                                 
019849,000211: 35,2026           01310                                   ETPIFLAG                              
019850,000212: 35,2027           72031                                   SWCHSET                               
019851,000213: 35,2030           03661                                   ITSWICH                               
019852,000214: 35,2031           02364        SWCHSET           STORE    NOMTPI                                
019853,000215: 35,2032           43345        INTLOOP           DLOAD    DAD                                   
019854,000216:                                                                                                 # # Page 454
019855,000217: 35,2033           03663                                   TTPI                                  
019856,000218: 35,2034           02364                                   NOMTPI                                
019857,000219: 35,2035           34041                          STCALL   TDEC1                                 
019858,000220: 35,2036           45354                                   PRECSET                               
019859,000221: 35,2037           77624                          CALL                                           
019860,000222: 35,2040           72212                                   S33/34.1                              
019861,000223: 35,2041           77454                          BZE      EXIT                                  
019862,000224: 35,2042           72053                                   SWCHCLR                               
019863,000225: 35,2043           05537                          TC       ALARM                                 
019864,000226: 35,2044           00611                          OCT      611                                   
019865,000227: 35,2045           34743                          CAF      V05N09                                
019866,000228: 35,2046           04555                          TC       BANKCALL                              
019867,000229: 35,2047           20624                          CADR     GOFLASH                               
019868,000230: 35,2050           04106                          TC       GOTOPOOH                              
019869,000231: 35,2051           02003                          TC       P34/P74A                              #  PROCEED
019870,000232: 35,2052           02043                          TC       -7                                    #  V32
019871,000233: 
019872,000234: 35,2053           43014        SWCHCLR           BONCLR   BON                                   
019873,000235: 35,2054           03601                                   ITSWICH                               
019874,000236: 35,2055           72032                                   INTLOOP                               
019875,000237: 35,2056           01310                                   ETPIFLAG                              
019876,000238: 35,2057           72063                                   P34/P74D                              #  DISPLAY TTPI
019877,000239: 35,2060           77776                          EXIT                                           
019878,000240: 35,2061           03073                          TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
019879,000241: 35,2062           02066                          TC       P34/P74E                              
019880,000242: 35,2063           77776        P34/P74D          EXIT                                           
019881,000243: 35,2064           33125                          CAF      V06N37                                #  TTPI
019882,000244: 35,2065           03114                          TC       VNPOOH                                
019883,000245: 35,2066           06006        P34/P74E          TC       INTPRET                               
019884,000246: 35,2067           71201                          SETPD    DLOAD                                 
019885,000247: 35,2070           00001                                   0D                                    
019886,000248: 35,2071           03746                                   RTX1                                  
019887,000249: 35,2072           14047                          STODL    X1                                    
019888,000250: 35,2073           03754                                   CENTANG                               
019889,000251: 35,2074           71406                          PUSH     COS                                   
019890,000252: 35,2075           16734                          STODL    CSTH                                  
019891,000253: 35,2076           77756                          SIN                                            
019892,000254: 35,2077           26732                          STOVL    SNTH                                  
019893,000255: 35,2100           03554                                   RPASS3                                
019894,000256: 35,2101           77657                          VSR*                                           
019895,000257: 35,2102           57176                                   0,2                                   
019896,000258: 35,2103           26657                          STOVL    RVEC                                  
019897,000259: 35,2104           03562                                   VPASS3                                
019898,000260: 35,2105           43057                          VSR*     SET                                   
019899,000261: 35,2106           57176                                   0,2                                   
019900,000262: 35,2107           03466                                   RVSW                                  
019901,000263: 35,2110           36746                          STCALL   VVEC                                  
019902,000264: 35,2111           24737                                   TIMETHET                              
019903,000265: 35,2112           77745                          DLOAD                                          
019904,000266: 35,2113           03663                                   TTPI                                  
019905,000267:                                                                                                 # # Page 455
019906,000268: 35,2114           03503                          STORE    INTIME                                #  FOR INITVEL
019907,000269: 35,2115           77615                          DAD                                            
019908,000270: 35,2116           00037                                   T                                     #  RENDEZVOUS TIME
019909,000271: 35,2117           37656                          STCALL   TPASS4                                #  FOR INITVEL
019910,000272: 35,2120           72534                                   S34/35.2                              
019911,000273: 35,2121           51575                          VLOAD    ABVAL                                 
019912,000274: 35,2122           03646                                   DELVEET3                              
019913,000275: 35,2123           26635                          STOVL    DELVTPI                               
019914,000276: 35,2124           03640                                   VPASS4                                
019915,000277: 35,2125           51451                          VSU      ABVAL                                 
019916,000278: 35,2126           03620                                   VTPRIME                               
019917,000279: 35,2127           26637                          STOVL    DELVTPF                               
019918,000280: 35,2130           03540                                   RACT3                                 
019919,000281: 35,2131           45115                          PDVL     CALL                                  
019920,000282: 35,2132           03612                                   VIPRIME                               
019921,000283: 35,2133           45312                                   PERIAPO1                              
019922,000284: 35,2134           77624                          CALL                                           
019923,000285: 35,2135           45422                                   SHIFTR1                               
019924,000286: 35,2136           16641                          STODL    POSTTPI                               
019925,000287: 35,2137           03663                                   TTPI                                  
019926,000288: 35,2140           03413                          STORE    TIG                                   
019927,000289: 35,2141           77776                          EXIT                                           
019928,000290: 35,2142           33127                          CAF      V06N58                                
019929,000291: 35,2143           03114                          TC       VNPOOH                                
019930,000292: 35,2144           06006                          TC       INTPRET                               
019931,000293: 35,2145           77624                          CALL                                           
019932,000294: 35,2146           72742                                   S34/35.5                              
019933,000295: 35,2147           77624                          CALL                                           
019934,000296: 35,2150           73005                                   VN1645                                
019935,000297: 35,2151           77650                          GOTO                                           
019936,000298: 35,2152           72022                                   P34/P74C                              
019937,000299: 
019938,000300:                                                                                                 # # Page 456
019939,000301:                                                                                                 #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
019940,000302: 
019941,000303:                                                                                                 #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
019942,000304:                                                                                                 #  MOD BY WHITE.P  DATE:  1JUNE67
019943,000305: 
019944,000306:                                                                                                 #  PURPOSE
019945,000307: 
019946,000308:                                                                                                 #         (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
019947,000309:                                                                                                 #             REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
019948,000310:                                                                                                 #             MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
019949,000311:                                                                                                 #             VEHICLE RENDEZVOUS.
019950,000312: 
019951,000313:                                                                                                 #         (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
019952,000314:                                                                                                 #             VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
019953,000315:                                                                                                 #             ASTRONAUT/GROUND.
019954,000316: 
019955,000317:                                                                                                 #         (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
019956,000318:                                                                                                 #             THRUSTING PROGRAM.
019957,000319: 
019958,000320:                                                                                                 #  ASSUMPTIONS
019959,000321: 
019960,000322:                                                                                                 #         (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
019961,000323: 
019962,000324:                                                                                                 #         (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
019963,000325:                                                                                                 #             STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
019964,000326: 
019965,000327:                                                                                                 #         (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
019966,000328:                                                                                                 #             DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
019967,000329:                                                                                                 #             WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
019968,000330:                                                                                                 #             ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
019969,000331:                                                                                                 #             RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
019970,000332:                                                                                                 #             P20 AND AFTER EACH THRUSTING MANEUVER.
019971,000333: 
019972,000334:                                                                                                 #         (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
019973,000335: 
019974,000336:                                                                                                 #                 ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
019975,000337:                                                                                                 #                 DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
019976,000338:                                                                                                 #                 CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
019977,000339:                                                                                                 #                 EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
019978,000340: 
019979,000341:                                                                                                 #                 FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
019980,000342:                                                                                                 #                 SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
019981,000343: 
019982,000344:                                                                                                 #                 EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
019983,000345:                                                                                                 #                 REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
019984,000346:                                                                                                 #                 PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
019985,000347: 
019986,000348:                                                                                                 #         (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
019987,000349:                                                                                                 #             COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
019988,000350:                                                                                                 #             (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
019989,000351: 
019990,000352:                                                                                                 # # Page 457
019991,000353:                                                                                                 #         (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER
019992,000354:                                                                                                 #             HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
019993,000355:                                                                                                 #             VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
019994,000356:                                                                                                 #             THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
019995,000357:                                                                                                 #             THROUGH THE USE OF V06N52.
019996,000358: 
019997,000359:                                                                                                 #             THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
019998,000360:                                                                                                 #             CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
019999,000361:                                                                                                 #             170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020000,000362:                                                                                                 #             ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020001,000363:                                                                                                 #             UPON DELTA V AND EXPECTED MANEUVER TIME.
020002,000364: 
020003,000365:                                                                                                 #         (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020004,000366: 
020005,000367:                                                                                                 #                 P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
020006,000368: 
020007,000369:                                                                                                 #                 P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
020008,000370: 
020009,000371:                                                                                                 #  INPUT
020010,000372: 
020011,000373:                                                                                                 #         (1) TPASS4   TIME OF INTERCEPT - SAVED FROM P34/P74
020012,000374:                                                                                                 #  OUTPUT
020013,000375: 
020014,000376:                                                                                                 #         (1) TRKMKCNT NUMBER OF MARKS
020015,000377:                                                                                                 #         (2) TTOGO    TIME TO GO
020016,000378:                                                                                                 #         (3) +MGA     MIDOLF GIMBAL ANGLE
020017,000379:                                                                                                 #         (4) DVLOS    DELTA VELOCITY AT MID - LINE OF SIGHT
020018,000380:                                                                                                 #         (5) DELVLVC  DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
020019,000381: 
020020,000382:                                                                                                 #  DOWNLINK
020021,000383: 
020022,000384:                                                                                                 #         (1) TIG      TIME OF THE TPM MANEUVER
020023,000385:                                                                                                 #         (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
020024,000386:                                                                                                 #         (3) TPASS4   TIME OF INTERCEPT
020025,000387:                                                                                                 #  COMMUNICATION TO THRUSTING PROGRAMS
020026,000388: 
020027,000389:                                                                                                 #         (1) TIG      TIME OF THE TPM MANEUVER
020028,000390:                                                                                                 #         (2) RTARG    OFFSET TARGET POSITION
020029,000391:                                                                                                 #         (3) TPASS4   TIME OF INTERCEPT
020030,000392:                                                                                                 #         (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020031,000393: 
020032,000394:                                                                                                 #  SUBROUTINES USED
020033,000395: 
020034,000396:                                                                                                 #         AVFLAGA
020035,000397:                                                                                                 #         AVFLAGP
020036,000398:                                                                                                 #         LOADTIME
020037,000399:                                                                                                 #         SELECTMU
020038,000400:                                                                                                 #         PRECSET
020039,000401:                                                                                                 #         S34/35.1
020040,000402:                                                                                                 #         S34/35.2
020041,000403:                                                                                                 # # Page 458
020042,000404:                                                                                                 #         S34/35.5
020043,000405:                                                                                                 #         VN1645
020044,000406: 
020045,000407: 35,2153                                          COUNT    35/P3575                              
020046,000408: 35,2153  E4,1763                                 EBANK=   KT                                    
020047,000409: 
020048,000410: 35,2153           03726        P35               TC       AVFLAGA                               
020049,000411: 35,2154           00006                          EXTEND                                         
020050,000412: 35,2155           31422                          DCA      ATIGINC                               
020051,000413: 35,2156           02162                          TC       P35/P75A                              
020052,000414: 35,2157           03741        P75               TC       AVFLAGP                               
020053,000415: 35,2160           00006                          EXTEND                                         
020054,000416: 35,2161           31424                          DCA      PTIGINC                               
020055,000417: 35,2162           53764        P35/P75A          DXCH     KT                                    
020056,000418: 35,2163           03746                          TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
020057,000419: 35,2164           06006                          TC       INTPRET                               
020058,000420: 35,2165           77624                          CALL                                           
020059,000421: 35,2166           10716                                   SELECTMU                              
020060,000422: 35,2167           77634        P35/P75B          RTB                                            
020061,000423: 35,2170           45505                                   LOADTIME                              
020062,000424: 35,2171           03665                          STORE    TSTRT                                 
020063,000425: 35,2172           77615                          DAD                                            
020064,000426: 35,2173           02364                                   KT                                    
020065,000427: 35,2174           03413                          STORE    TIG                                   
020066,000428: 35,2175           03503                          STORE    INTIME                                #  FOR INITVEL
020067,000429: 35,2176           34041                          STCALL   TDEC1                                 
020068,000430: 35,2177           45354                                   PRECSET                               #  ADVANCE BOTH VEHICLES
020069,000431: 35,2200           77624                          CALL                                           
020070,000432: 35,2201           72522                                   S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
020071,000433: 35,2202           77624                          CALL                                           
020072,000434: 35,2203           72534                                   S34/35.2                              #  GET DELTA V(LV)
020073,000435: 35,2204           77624                          CALL                                           
020074,000436: 35,2205           72742                                   S34/35.5                              
020075,000437: 35,2206           77624                          CALL                                           
020076,000438: 35,2207           73005                                   VN1645                                
020077,000439: 35,2210           77650                          GOTO                                           
020078,000440: 35,2211           72167                                   P35/P75B                              
020079,000441: 
020080,000442:                                                                                                 # # Page 459
020081,000443:                                                                                                 #  ..... S33/34.1  .....
020082,000444: 
020083,000445: 35,2212           66220        S33/34.1          STQ      SSP                                   
020084,000446: 35,2213           01340                                   NORMEX                                
020085,000447: 35,2214           03665                                   TITER                                 
020086,000448: 35,2215           40000                          OCT      40000                                 
020087,000449: 35,2216           40345                          DLOAD    SETPD                                 
020088,000450: 35,2217           33136                                   MAX250                                
020089,000451: 35,2220           00001                                   0D                                    
020090,000452: 35,2221           27454                          STOVL    SECMAX                                
020091,000453: 35,2222           03540                                   RACT3                                 
020092,000454: 35,2223           27576                          STOVL    RAPREC                                
020093,000455: 35,2224           03546                                   VACT3                                 
020094,000456: 35,2225           27570                          STOVL    VAPREC                                
020095,000457: 35,2226           03554                                   RPASS3                                
020096,000458: 35,2227           27620                          STOVL    RPPREC                                
020097,000459: 35,2230           03562                                   VPASS3                                
020098,000460: 35,2231           03612                          STORE    VPPREC                                
020099,000461: 35,2232           77624        ELCALC            CALL                                           
020100,000462: 35,2233           72522                                   S34/35.1                              #  NORMAL AND LOS
020101,000463: 35,2234           63235                          VXV      PDVL                                  
020102,000464: 35,2235           03540                                   RACT3                                 #  (RA*VA)*RA 0D
020103,000465: 35,2236           53515                          PDVL     UNIT                                  #  ULOS AT 6D
020104,000466: 35,2237           03540                                   RACT3                                 
020105,000467: 35,2240           46315                          PDVL     VPROJ                                 #  XCHNJ AND UP
020106,000468: 35,2241           51352                          VSL2     BVSU                                  
020107,000469: 35,2242           02625                                   ULOS                                  
020108,000470: 35,2243           63256                          UNIT     PDVL                                  #  UP AT 0D
020109,000471: 35,2244           63241                          DOT      PDVL                                  #  UP.UN*RA AT 0D
020110,000472: 35,2245           00001                                   0D                                    #  UP IN MPAC
020111,000473: 35,2246           75241                          DOT      SIGN                                  
020112,000474: 35,2247           02625                                   ULOS                                  
020113,000475: 35,2250           65552                          SL1      ACOS                                  
020114,000476: 35,2251           50315                          PDVL     DOT                                   #  EA AT 0D
020115,000477: 35,2252           02625                                   ULOS                                  
020116,000478: 35,2253           03540                                   RACT3                                 
020117,000479: 35,2254           71244                          BPL      DLOAD                                 
020118,000480: 35,2255           72260                                   TESTY                                 
020119,000481: 35,2256           15340                                   DPPOSMAX                              
020120,000482: 35,2257           41425                          DSU      PUSH                                  
020121,000483: 35,2260           71214        TESTY             BOFF     DLOAD                                 
020122,000484: 35,2261           03741                                   ITSWICH                               
020123,000485: 35,2262           72507                                   ELEX                                  
020124,000486: 35,2263           03452                                   DELEL                                 
020125,000487: 35,2264           14033                          STODL    DELELO                                
020126,000488: 35,2265           77625                          DSU                                            
020127,000489: 35,2266           03744                                   ELEV                                  
020128,000490: 35,2267           03452                          STORE    DELEL                                 
020129,000491: 35,2270           45246                          ABS      DSU                                   
020130,000492: 35,2271           33142                                   ELEPS                                 
020131,000493:                                                                                                 # # Page 460
020132,000494: 35,2272           77640                          BMN                                            
020133,000495: 35,2273           72517                                   TIMEX                                 #  COMMERCIALS EVERYWHERE
020134,000496: 35,2274           70535        FIGTIME           SLOAD    SR1                                   
020135,000497: 35,2275           03665                                   TITER                                 
020136,000498: 35,2276           72030                          BHIZ     LXA,1                                 
020137,000499: 35,2277           01340                                   NORMEX                                #  TOO MANY ITERATIONS
020138,000500: 35,2300           00154                                   MPAC                                  
020139,000501: 35,2301           77330                          SXA,1    VLOAD                                 
020140,000502: 35,2302           03664                                   TITER                                 
020141,000503: 35,2303           03554                                   RPASS3                                
020142,000504: 35,2304           65256                          UNIT     PDDL                                  
020143,000505: 35,2305           00045                                   36D                                   
020144,000506: 35,2306           53515                          PDVL     UNIT                                  
020145,000507: 35,2307           03540                                   RACT3                                 
020146,000508: 35,2310           77725                          PDDL                                           
020147,000509: 35,2311           41525                          PDDL     PUSH                                  
020148,000510: 35,2312           00045                                   36D                                   
020149,000511: 35,2313           77621                          BDSU                                           
020150,000512: 35,2314           00015                                   12D                                   
020151,000513: 35,2315           14037                          STODL    30D                                   #  RP - RA MAGNITUDES
020152,000514: 35,2316           15330                                   DPHALF                                
020153,000515: 35,2317           41425                          DSU      PUSH                                  
020154,000516: 35,2320           03744                                   ELEV                                  
020155,000517: 35,2321           50165                          SIGN     BMN                                   
020156,000518: 35,2322           00037                                   30D                                   
020157,000519: 35,2323           01340                                   NORMEX                                
020158,000520: 35,2324           71545                          DLOAD    COS                                   
020159,000521: 35,2325           56205                          DMP      DDV                                   
020160,000522: 35,2326           00017                                   14D                                   
020161,000523: 35,2327           00015                                   12D                                   
020162,000524: 35,2330           77676                          DCOMP                                          #  SINCE COS(180-A)=-COS A
020163,000525: 35,2331           00035                          STORE    28D                                   
020164,000526: 35,2332           44246                          ABS      BDSU                                  
020165,000527: 35,2333           15330                                   DPHALF                                
020166,000528: 35,2334           77240                          BMN      VLOAD                                 
020167,000529: 35,2335           01340                                   NORMEX                                
020168,000530: 35,2336           02617                                   UNRM                                  
020169,000531: 35,2337           53435                          VXV      UNIT                                  
020170,000532: 35,2340           00007                                   6D                                    #  UN*RA
020171,000533: 35,2341           41241                          DOT      DMP                                   
020172,000534: 35,2342           03546                                   VACT3                                 
020173,000535: 35,2343           00015                                   12D                                   
020174,000536: 35,2344           47315                          PDVL     VXV                                   
020175,000537: 35,2345           00001                                   0D                                    
020176,000538: 35,2346           03562                                   VPASS3                                
020177,000539: 35,2347           53435                          VXV      UNIT                                  
020178,000540: 35,2350           00001                                   0D                                    #  (RP*VP)*RP
020179,000541: 35,2351           41241                          DOT      DMP                                   
020180,000542: 35,2352           03562                                   VPASS3                                
020181,000543: 35,2353           00017                                   14D                                   
020182,000544:                                                                                                 # # Page 461
020183,000545: 35,2354           77621                          BDSU                                           
020184,000546: 35,2355           63301                          NORM     PDVL                                  #  NORMALIZED WA - WP 12D
020185,000547: 35,2356           00047                                   X1                                    
020186,000548: 35,2357           00007                                   6D                                    
020187,000549: 35,2360           50235                          VXV      DOT                                   
020188,000550: 35,2361           00001                                   0D                                    
020189,000551: 35,2362           02617                                   UNRM                                  #  RA*RP.UN 14D
020190,000552: 35,2363           50315                          PDVL     DOT                                   
020191,000553: 35,2364           00001                                   0D                                    
020192,000554: 35,2365           00007                                   6D                                    
020193,000555: 35,2366           65552                          SL1      ACOS                                  
020194,000556: 35,2367           77765                          SIGN                                           
020195,000557: 35,2370           43225                          DSU      DAD                                   #    ALPHA   PI
020196,000558: 35,2371           15330                                   DPHALF                                
020197,000559: 35,2372           03744                                   ELEV                                  
020198,000560: 35,2373           65525                          PDDL     ACOS                                  
020199,000561: 35,2374           00035                                   28D                                   
020200,000562: 35,2375           75221                          BDSU     SIGN                                  
020201,000563: 35,2376           15330                                   DPHALF                                
020202,000564: 35,2377           00037                                   30D                                   #  CONTAINS RP-RA
020203,000565: 35,2400           77615                          DAD                                            
020204,000566: 35,2401           56205                          DMP      DDV                                   
020205,000567: 35,2402           33134                                   TWOPI                                 
020206,000568: 35,2403           77605                          DMP                                            
020207,000569: 35,2404           41257                          SL*      DMP                                   
020208,000570: 35,2405           20176                                   0          -3,1                       
020209,000571: 35,2406           51406                          PUSH     ABS                                   
020210,000572: 35,2407           50025                          DSU      BMN                                   
020211,000573: 35,2410           03454                                   SECMAX                                
020212,000574: 35,2411           72415                                   OKMAX                                 
020213,000575: 35,2412           75345                          DLOAD    SIGN                                  #   REPLACE TIME WITH MAX TIME SIGNED
020214,000576: 35,2413           03454                                   SECMAX                                
020215,000577: 35,2414           77606                          PUSH                                           
020216,000578: 35,2415           51135        OKMAX             SLOAD    BPL                                   #  TEST FIRST ITERATION
020217,000579: 35,2416           03665                                   TITER                                 
020218,000580: 35,2417           72425                                   REPETE                                
020219,000581: 35,2420           71331                          SSP      DLOAD                                 
020220,000582: 35,2421           03665                                   TITER                                 
020221,000583: 35,2422           37777                          OCT      37777                                 
020222,000584: 35,2423           77650                          GOTO                                           
020223,000585: 35,2424           72463                                   STORDELT                              
020224,000586: 35,2425           41345        REPETE            DLOAD    DMP                                   
020225,000587: 35,2426           03452                                   DELEL                                 
020226,000588: 35,2427           00033                                   DELELO                                
020227,000589: 35,2430           71244                          BPL      DLOAD                                 
020228,000590: 35,2431           72441                                   NEXTES                                
020229,000591: 35,2432           03454                                   SECMAX                                
020230,000592: 35,2433           77605                          DMP                                            
020231,000593: 35,2434           33140                                   THIRD                                 
020232,000594: 35,2435           17454                          STODL    SECMAX                                
020233,000595:                                                                                                 # # Page 462
020234,000596: 35,2436           70446                          ABS      SR1                                   #  CROSSED OVER SOLUTION
020235,000597: 35,2437           52076                          DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
020236,000598: 35,2440           72451                                   RESIGN                                
020237,000599: 35,2441           51545        NEXTES            DLOAD    ABS                                   
020238,000600: 35,2442           03452                                   DELEL                                 
020239,000601: 35,2443           51525                          PDDL     ABS                                   
020240,000602: 35,2444           00033                                   DELELO                                
020241,000603: 35,2445           77625                          DSU                                            
020242,000604: 35,2446           71240                          BMN      DLOAD                                 
020243,000605: 35,2447           72454                                   REVERS                                #   WRONG DIRECTION
020244,000606: 35,2450           77646                          ABS                                            
020245,000607: 35,2451           52165        RESIGN            SIGN     GOTO                                  
020246,000608: 35,2452           03450                                   DELTEEO                               
020247,000609: 35,2453           72463                                   STORDELT                              
020248,000610: 35,2454           57545        REVERS            DLOAD    DCOMP                                 
020249,000611: 35,2455           03450                                   DELTEEO                               
020250,000612: 35,2456           70406                          PUSH     SR1                                   
020251,000613: 35,2457           03450                          STORE    DELTEEO                               
020252,000614: 35,2460           77615                          DAD                                            
020253,000615: 35,2461           77650                          GOTO                                           
020254,000616: 35,2462           72464                                   ADTIME                                
020255,000617: 35,2463           03450        STORDELT          STORE    DELTEEO                               
020256,000618: 35,2464           77615        ADTIME            DAD                                            
020257,000619: 35,2465           02364                                   NOMTPI                                #  SUM OF DELTA T:S
020258,000620: 35,2466           02364                          STORE    NOMTPI                                
020259,000621: 35,2467           63375                          VLOAD    PDVL                                  
020260,000622: 35,2470           03570                                   VAPREC                                
020261,000623: 35,2471           03576                                   RAPREC                                
020262,000624: 35,2472           77624                          CALL                                           
020263,000625: 35,2473           72702                                   GOINT                                 
020264,000626: 35,2474           77624                          CALL                                           
020265,000627: 35,2475           45376                                   ACTIVE                                #  STORE NEW RACT3 VACT3
020266,000628: 35,2476           63375                          VLOAD    PDVL                                  
020267,000629: 35,2477           03612                                   VPPREC                                
020268,000630: 35,2500           03620                                   RPPREC                                
020269,000631: 35,2501           77624                          CALL                                           
020270,000632: 35,2502           72702                                   GOINT                                 
020271,000633: 35,2503           77624                          CALL                                           
020272,000634: 35,2504           45406                                   PASSIVE                               #  STORE NEW RPASS3 VPASS3
020273,000635: 35,2505           77650                          GOTO                                           
020274,000636: 35,2506           72232                                   ELCALC                                
020275,000637: 35,2507           43345        ELEX              DLOAD    DAD                                   
020276,000638: 35,2510           03663                                   TTPI                                  
020277,000639: 35,2511           02364                                   NOMTPI                                
020278,000640: 35,2512           17663                          STODL    TTPI                                  
020279,000641: 35,2513           77614                          BON                                            
020280,000642: 35,2514           01310                                   ETPIFLAG                              
020281,000643: 35,2515           72517                                   TIMEX                                 
020282,000644: 35,2516           03744                          STORE    ELEV                                  
020283,000645: 35,2517           52145        TIMEX             DLOAD    GOTO                                  
020284,000646:                                                                                                 # # Page 463
020285,000647: 35,2520           15332                                   ZEROVECS                              
020286,000648: 35,2521           01340                                   NORMEX                                
020287,000649: 
020288,000650:                                                                                                 # # Page 464
020289,000651:                                                                                                 #  ..... S34/35.1  .....
020290,000652: 
020291,000653:                                                                                                 #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
020292,000654:                                                                                                 #  PASSIVE POS AND VEL AT TIME T3
020293,000655: 
020294,000656: 35,2522           52375        S34/35.1          VLOAD    VSU                                   
020295,000657: 35,2523           03554                                   RPASS3                                
020296,000658: 35,2524           03540                                   RACT3                                 
020297,000659: 35,2525           41456                          UNIT     PUSH                                  
020298,000660: 35,2526           26625                          STOVL    ULOS                                  
020299,000661: 35,2527           03540                                   RACT3                                 
020300,000662: 35,2530           53435                          VXV      UNIT                                  
020301,000663: 35,2531           03546                                   VACT3                                 
020302,000664: 35,2532           02617                          STORE    UNRM                                  
020303,000665: 35,2533           77616                          RVQ                                            
020304,000666: 
020305,000667:                                                                                                 # # Page 465
020306,000668:                                                                                                 #  ..... S34/35.2  .....
020307,000669: 
020308,000670:                                                                                                 #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
020309,000671: 35,2534           77220        S34/35.2          STQ      VLOAD                                 
020310,000672: 35,2535           02370                                   SUBEXIT                               
020311,000673: 35,2536           03562                                   VPASS3                                
020312,000674: 35,2537           65315                          PDVL     PDDL                                  
020313,000675: 35,2540           03554                                   RPASS3                                
020314,000676: 35,2541           03503                                   INTIME                                
020315,000677: 35,2542           65325                          PDDL     PDDL                                  
020316,000678: 35,2543           03656                                   TPASS4                                
020317,000679: 35,2544           15332                                   ZEROVECS                              
020318,000680: 35,2545           45006                          PUSH     CALL                                  
020319,000681: 35,2546           72706                                   INTINT                                #  GET TARGET VECTOR
020320,000682: 35,2547           27415        S3435.25          STOVL    RTARG                                 
020321,000683: 35,2550           00007                                   VATT                                  
020322,000684: 35,2551           27640                          STOVL    VPASS4                                
020323,000685: 35,2552           03415                                   RTARG                                 
020324,000686:                                                                                                 #  COMPUTE PHI = PI +(ACOS(UNIT RA.UNIT RP)-PI)SIGN(RA*RP.U)
020325,000687: 35,2553           63256                          UNIT     PDVL                                  #  UNIT RP
020326,000688: 35,2554           03540                                   RACT3                                 
020327,000689: 35,2555           41456                          UNIT     PUSH                                  #  UNIT RA
020328,000690: 35,2556           50235                          VXV      DOT                                   
020329,000691: 35,2557           00001                                   0D                                    
020330,000692: 35,2560           02617                                   UNRM                                  #  RA*RP.U
020331,000693: 35,2561           77715                          PDVL                                           
020332,000694: 35,2562           72441                          DOT      SL1                                   #  UNIT RA.UNIT RP
020333,000695: 35,2563           00001                                   0D                                    
020334,000696: 35,2564           75326                          ACOS     SIGN                                  
020335,000697: 35,2565           43244                          BPL      DAD                                   
020336,000698: 35,2566           72570                                   NOPIE                                 
020337,000699: 35,2567           15340                                   DPPOSMAX                              #  REASONABLE TWO PI
020338,000700: 35,2570           16633        NOPIE             STODL    ACTCENT                               
020339,000701: 35,2571           03656                                   TPASS4                                
020340,000702: 35,2572           77625                          DSU                                            
020341,000703: 35,2573           03503                                   INTIME                                
020342,000704: 35,2574           03423                          STORE    DELLT4                                
020343,000705: 35,2575           40335                          SLOAD    SETPD                                 
020344,000706: 35,2576           33144                                   DECTWO                                
020345,000707: 35,2577           00001                                   0D                                    
020346,000708: 35,2600           63325                          PDDL     PDVL                                  
020347,000709: 35,2601           33147                                   EPSFOUR                               
020348,000710: 35,2602           03540                                   RACT3                                 
020349,000711: 35,2603           27570                          STOVL    RINIT                                 
020350,000712: 35,2604           03546                                   VACT3                                 
020351,000713: 35,2605           37576                          STCALL   VINIT                                 
020352,000714: 35,2606           22000                                   INITVEL                               
020353,000715: 35,2607           77624                          CALL                                           
020354,000716: 35,2610           72667                                   LOMAT                                 
020355,000717: 35,2611           64375                          VLOAD    MXV                                   
020356,000718:                                                                                                 # # Page 466
020357,000719: 35,2612           03646                                   DELVEET3                              
020358,000720: 35,2613           00001                                   0D                                    
020359,000721: 35,2614           77772                          VSL1                                           
020360,000722: 35,2615           37405                          STCALL   DELVLVC                               
020361,000723: 35,2616           02370                                   SUBEXIT                               
020362,000724: 
020363,000725:                                                                                                 # # Page 467
020364,000726:                                                                                                 #  ..... S34/35.3  .....
020365,000727: 
020366,000728: 35,2617           45020        S34/35.3          STQ      CALL                                  
020367,000729: 35,2620           01340                                   NORMEX                                
020368,000730: 35,2621           72667                                   LOMAT                                 #  GET MATRIX IN PUSH LIST
020369,000731: 35,2622           61375                          VLOAD    VXM                                   
020370,000732: 35,2623           03405                                   DELVLVC                               #  NEW DEL V TPI
020371,000733: 35,2624           00001                                   0D                                    
020372,000734: 35,2625           77772                          VSL1                                           
020373,000735: 35,2626           03646                          STORE    DELVEET3                              #  SAVE FOR TRANSFORM
020374,000736: 35,2627           63255                          VAD      PDVL                                  
020375,000737: 35,2630           03546                                   VACT3                                 #  NEW V REQ
020376,000738: 35,2631           03540                                   RACT3                                 
020377,000739: 35,2632           65325                          PDDL     PDDL                                  
020378,000740: 35,2633           03413                                   TIG                                   
020379,000741: 35,2634           03656                                   TPASS4                                
020380,000742: 35,2635           41525                          PDDL     PUSH                                  
020381,000743: 35,2636           15340                                   DPPOSMAX                              
020382,000744: 35,2637           77624                          CALL                                           #  INTEG. FOR NEW TARGET VEC
020383,000745: 35,2640           72706                                   INTINT                                
020384,000746: 35,2641           77775                          VLOAD                                          
020385,000747: 35,2642           00001                                   RATT                                  
020386,000748: 35,2643           03415                          STORE    RTARG                                 
020387,000749: 35,2644           41575        NOVRWRT           VLOAD    PUSH                                  
020388,000750: 35,2645           02625                                   ULOS                                  
020389,000751: 35,2646           57435                          VXV      VCOMP                                 
020390,000752: 35,2647           02617                                   UNRM                                  
020391,000753: 35,2650           41456                          UNIT     PUSH                                  
020392,000754: 35,2651           76435                          VXV      VSL1                                  
020393,000755: 35,2652           02625                                   ULOS                                  
020394,000756: 35,2653           77715                          PDVL                                           
020395,000757: 35,2654           64315                          PDVL     MXV                                   
020396,000758: 35,2655           03646                                   DELVEET3                              
020397,000759: 35,2656           00001                                   0D                                    
020398,000760: 35,2657           77772                          VSL1                                           
020399,000761: 35,2660           36611                          STCALL   DVLOS                                 
020400,000762: 35,2661           01340                                   NORMEX                                
020401,000763: 
020402,000764:                                                                                                 # # Page 468
020403,000765:                                                                                                 #  ..... S34/35.4  .....
020404,000766: 
020405,000767: 35,2662           40220        S34/35.4          STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
020406,000768: 35,2663           01340                                   NORMEX                                
020407,000769: 35,2664           00001                                   0D                                    
020408,000770: 35,2665           77650                          GOTO                                           
020409,000771: 35,2666           72644                                   NOVRWRT                               
020410,000772: 
020411,000773:                                                                                                 # # Page 469
020412,000774:                                                                                                 #  ..... LOMAT     .....
020413,000775: 
020414,000776: 35,2667           57575        LOMAT             VLOAD    VCOMP                                 
020415,000777: 35,2670           02617                                   UNRM                                  
020416,000778: 35,2671           24007                          STOVL    6D                                    #  Y
020417,000779: 35,2672           03540                                   RACT3                                 
020418,000780: 35,2673           57456                          UNIT     VCOMP                                 
020419,000781: 35,2674           00015                          STORE    12D                                   
020420,000782: 35,2675           76435                          VXV      VSL1                                  
020421,000783: 35,2676           02617                                   UNRM                                  #  Z*-Y
020422,000784: 35,2677           00001                          STORE    0D                                    
020423,000785: 35,2700           43401                          SETPD    RVQ                                   
020424,000786: 35,2701           00023                                   18D                                   
020425,000787: 35,2702           65325        GOINT             PDDL     PDDL                                  #  DO
020426,000788: 35,2703           15332                                   ZEROVECS                              #    NOT
020427,000789: 35,2704           02364                                   NOMTPI                                #  
020428,000790: 35,2705           41406                          PUSH     PUSH                                  #             ORDER OR INSERT BEFORE INTINT
020429,000791: 35,2706           45020        INTINT            STQ      CALL                                  
020430,000792: 35,2707           02367                                   RTRN                                  
020431,000793: 35,2710           27371                                   INTSTALL                              
020432,000794: 35,2711           71214                          CLEAR    DLOAD                                 
020433,000795: 35,2712           01673                                   INTYPFLG                              
020434,000796: 35,2713           43054                          BZE      SET                                   
020435,000797: 35,2714           72716                                   +2                                    
020436,000798: 35,2715           01473                                   INTYPFLG                              
020437,000799: 35,2716           45545                          DLOAD    STADR                                 
020438,000800: 35,2717           63736                          STODL    TDEC1                                 
020439,000801: 35,2720           73014                          SET      LXA,2                                 
020440,000802: 35,2721           00063                                   MOONFLAG                              
020441,000803: 35,2722           03746                                   RTX2                                  
020442,000804: 35,2723           43014                          BON      CLEAR                                 
020443,000805: 35,2724           04303                                   CMOONFLG                              
020444,000806: 35,2725           72727                                   ALLSET                                
020445,000807: 35,2726           00263                                   MOONFLAG                              
020446,000808: 35,2727           25517        ALLSET            STOVL    TET                                   
020447,000809: 35,2730           77657                          VSR*                                           
020448,000810: 35,2731           57176                                   0,2                                   
020449,000811: 35,2732           25535                          STOVL    RCV                                   
020450,000812: 35,2733           77657                          VSR*                                           
020451,000813: 35,2734           57176                                   0,2                                   
020452,000814: 35,2735           35543                          STCALL   VCV                                   
020453,000815: 35,2736           27066                                   INTEGRVS                              
020454,000816: 35,2737           52175                          VLOAD    GOTO                                  
020455,000817: 35,2740           00001                                   RATT                                  
020456,000818: 35,2741           02367                                   RTRN                                  
020457,000819: 
020458,000820:                                                                                                 # # Page 470
020459,000821:                                                                                                 #  ..... S34/35.5  .....
020460,000822:                                                                                                 #  SUBROUTINES USED
020461,000823: 
020462,000824:                                                                                                 #         BANKCALL
020463,000825:                                                                                                 #         GOFLASH
020464,000826:                                                                                                 #         GOTOPOOH
020465,000827:                                                                                                 #         S34/35.3
020466,000828:                                                                                                 #         S34/35.4
020467,000829:                                                                                                 #         VNPOOH
020468,000830: 
020469,000831: 35,2742           43020        S34/35.5          STQ      BON                                   
020470,000832: 35,2743           02370                                   SUBEXIT                               
020471,000833: 35,2744           01311                                   FINALFLG                              
020472,000834: 35,2745           72751                                   FLAGON                                
020473,000835: 35,2746           52014                          SET      GOTO                                  
020474,000836: 35,2747           00470                                   UPDATFLG                              
020475,000837: 35,2750           72775                                   FLAGOFF                               
020476,000838: 35,2751           77414        FLAGON            CLEAR    EXIT                                  
020477,000839: 35,2752           03274                                   NTARGFLG                              
020478,000840: 35,2753           33131                          CAF      V06N81                                
020479,000841: 35,2754           04555                          TC       BANKCALL                              
020480,000842: 35,2755           20624                          CADR     GOFLASH                               
020481,000843: 35,2756           04106                          TC       GOTOPOOH                              
020482,000844: 35,2757           02764                          TC       +5                                    
020483,000845: 35,2760           06006                          TC       INTPRET                               
020484,000846: 35,2761           77414                          SET      EXIT                                  
020485,000847: 35,2762           03074                                   NTARGFLG                              
020486,000848: 35,2763           02753                          TC       FLAGON     +2                         
020487,000849: 35,2764           06006                          TC       INTPRET                               
020488,000850: 35,2765           45014                          BOFF     CALL                                  
020489,000851: 35,2766           03354                                   NTARGFLG                              
020490,000852: 35,2767           72771                                   NOCHG                                 
020491,000853: 35,2770           72617                                   S34/35.3                              
020492,000854: 35,2771           77214        NOCHG             CLEAR    VLOAD                                 
020493,000855: 35,2772           01267                                   XDELVFLG                              
020494,000856: 35,2773           03646                                   DELVEET3                              
020495,000857: 35,2774           03646                          STORE    DELVSIN                               
020496,000858: 35,2775           77624        FLAGOFF           CALL                                           
020497,000859: 35,2776           72662                                   S34/35.4                              
020498,000860: 35,2777           77776                          EXIT                                           
020499,000861: 35,3000           33130                          CAF      V06N59                                
020500,000862: 35,3001           03114                          TC       VNPOOH                                
020501,000863: 35,3002           06006                          TC       INTPRET                               
020502,000864: 35,3003           77650                          GOTO                                           
020503,000865: 35,3004           02370                                   SUBEXIT                               
020504,000866: 
020505,000867:                                                                                                 # # Page 471
020506,000868:                                                                                                 #  ..... VN1645    .....
020507,000869: 
020508,000870:                                                                                                 #  SUBROUTINES USED
020509,000871: 
020510,000872:                                                                                                 #         P3XORP7X
020511,000873:                                                                                                 #         GET+MGA
020512,000874:                                                                                                 #         BANKCALL
020513,000875:                                                                                                 #         DELAYJOB
020514,000876:                                                                                                 #         COMPTGO
020515,000877:                                                                                                 #         GOFLASHR
020516,000878:                                                                                                 #         GOTOPOOH
020517,000879:                                                                                                 #         FLAGUP
020518,000880: 
020519,000881: 35,3005           71220        VN1645            STQ      DLOAD                                 
020520,000882: 35,3006           02370                                   SUBEXIT                               
020521,000883: 35,3007           33145                                   DP-.01                                
020522,000884: 35,3010           03626                          STORE    +MGA                                  #  MGA = -.01
020523,000885: 35,3011           71214                          BOFF     DLOAD                                 
020524,000886: 35,3012           01351                                   FINALFLG                              
020525,000887: 35,3013           73033                                   GET45                                 
020526,000888: 35,3014           33145                                   DP-.01                                
020527,000889: 35,3015           77615                          DAD                                            
020528,000890: 35,3016           33145                                   DP-.01                                
020529,000891: 35,3017           03626                          STORE    +MGA                                  #  MGA = -.02
020530,000892: 35,3020           77414                          BOFF     EXIT                                  
020531,000893: 35,3021           01742                                   REFSMFLG                              
020532,000894: 35,3022           73033                                   GET45                                 
020533,000895: 35,3023           03106                          TC       P3XORP7X                              
020534,000896: 35,3024           03026                          TC       +2                                    #  P3X
020535,000897: 35,3025           03034                          TC       GET45      +1                         #  P7X
020536,000898: 35,3026           06006                          TC       INTPRET                               
020537,000899: 35,3027           41575                          VLOAD    PUSH                                  
020538,000900: 35,3030           03646                                   DELVSIN                               
020539,000901: 35,3031           77624                          CALL                                           #  COMPUTE MGA
020540,000902: 35,3032           10660                                   GET+MGA                               
020541,000903: 35,3033           77776        GET45             EXIT                                           
020542,000904: 35,3034           03564                          TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
020543,000905: 35,3035           31770                          CA       SUBEXIT                               
020544,000906: 35,3036           55766                          TS       QSAVED                                
020545,000907: 35,3037           34734                          CAF      1SEC                                  
020546,000908: 35,3040           04555                          TC       BANKCALL                              
020547,000909: 35,3041           01730                          CADR     DELAYJOB                              
020548,000910: 35,3042           33132                          CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
020549,000911: 35,3043           04555                          TC       BANKCALL                              
020550,000912: 35,3044           20624                          CADR     GOFLASH                               
020551,000913: 35,3045           03050                          TC       KILCLOCK                              #  TERMINATE
020552,000914: 35,3046           03053                          TC       N45PROC                               #  PROCEED
020553,000915: 35,3047           03063                          TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
020554,000916: 35,3050           30005        KILCLOCK          CA       Z                                     
020555,000917: 35,3051           54000                          TS       DISPDEX                               
020556,000918:                                                                                                 # # Page 472
020557,000919: 35,3052           04106                          TC       GOTOPOOH                              
020558,000920: 35,3053           40076        N45PROC           CS       FLAGWRD2                              
020559,000921: 35,3054           74705                          MASK     BIT6                                  
020560,000922: 35,3055           00006                          EXTEND                                         
020561,000923: 35,3056           13050                          BZF      KILCLOCK                              #  FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
020562,000924: 35,3057           05301                          TC       PHASCHNG                              
020563,000925: 35,3060           04024                          OCT      04024                                 
020564,000926: 35,3061           05435                          TC       UPFLAG                                #  SET
020565,000927: 35,3062           00047                          ADRES    FINALFLG                              #  FINALFLG
020566,000928: 35,3063           30005        CLUPDATE          CA       Z                                     
020567,000929: 35,3064           54000                          TS       DISPDEX                               
020568,000930: 35,3065           05301                          TC       PHASCHNG                              
020569,000931: 35,3066           04024                          OCT      04024                                 
020570,000932: 35,3067           06006                          TC       INTPRET                               
020571,000933: 35,3070           52014                          CLEAR    GOTO                                  
020572,000934: 35,3071           00670                                   UPDATFLG                              
020573,000935: 35,3072           02366                                   QSAVED                                
020574,000936: 
020575,000937:                                                                                                 # # Page 473
020576,000938:                                                                                                 #  ..... DISPLAYE  .....
020577,000939: 
020578,000940:                                                                                                 #  SUBROUTINES USED
020579,000941: 
020580,000942:                                                                                                 #         BANKCALL
020581,000943:                                                                                                 #         GOFLASHR
020582,000944:                                                                                                 #         GOTOPOOH
020583,000945:                                                                                                 #         BLANKET
020584,000946:                                                                                                 #         ENDOFJOB
020585,000947: 
020586,000948: 35,3073           00006        DISPLAYE          EXTEND                                         
020587,000949: 35,3074           23340                          QXCH     NORMEX                                
020588,000950: 35,3075           33126                          CAF      V06N55                                
020589,000951: 35,3076           04555                          TCR      BANKCALL                              
020590,000952: 35,3077           20763                          CADR     GOFLASHR                              
020591,000953: 35,3100           14106                          TCF      GOTOPOOH                              
020592,000954: 35,3101           01340                          TC       NORMEX                                
020593,000955: 35,3102           13075                          TCF      -5                                    
020594,000956: 35,3103           34712                          CAF      BIT1                                  #  BLANK R1
020595,000957: 35,3104           05415                          TCR      BLANKET                               
020596,000958: 35,3105           15112                          TCF      ENDOFJOB                              
020597,000959: 
020598,000960:                                                                                                 # # Page 474
020599,000961:                                                                                                 #  ..... P3XORP7X  .....
020600,000962: 
020601,000963: 35,3106           37713        P3XORP7X          CAF      HIGH9                                 
020602,000964: 35,3107           71011                          MASK     MODREG                                
020603,000965: 35,3110           00006                          EXTEND                                         
020604,000966: 35,3111           13113                          BZF      +2                                    
020605,000967: 35,3112           24002                          INCR     Q                                     
020606,000968: 35,3113           00002                          RETURN                                         
020607,000969: 
020608,000970:                                                                                                 #  ..... VNPOOH    .....
020609,000971: 
020610,000972:                                                                                                 #  SUBROUTINES USED
020611,000973: 
020612,000974:                                                                                                 #         BANKCALL
020613,000975:                                                                                                 #         GOFLASH
020614,000976:                                                                                                 #         GOTOPOOH
020615,000977: 
020616,000978: 35,3114           00006        VNPOOH            EXTEND                                         
020617,000979: 35,3115           23767                          QXCH     RTRN                                  
020618,000980: 35,3116           55765                          TS       VERBNOUN                              
020619,000981: 35,3117           31765                          CA       VERBNOUN                              
020620,000982: 35,3120           04555                          TCR      BANKCALL                              
020621,000983: 35,3121           20624                          CADR     GOFLASH                               
020622,000984: 35,3122           14106                          TCF      GOTOPOOH                              
020623,000985: 35,3123           01767                          TC       RTRN                                  
020624,000986: 35,3124           13117                          TCF      -5                                    
020625,000987: 
020626,000988:                                                                                                 # # Page 475
020627,000989:                                                                                                 #  ..... CONSTANTS ,,,,,
020628,000990: 
020629,000991: 35,3125           01445        V06N37            VN       0637                                  
020630,000992: 35,3126           01467        V06N55            VN       0655                                  
020631,000993: 35,3127           01472        V06N58            VN       0658                                  
020632,000994: 35,3130           01473        V06N59            VN       0659                                  
020633,000995: 35,3131           01521        V06N81            VN       0681                                  
020634,000996: 35,3132           04055        V16N45            VN       1645                                  
020635,000997: 35,3133           14441 37325  TWOPI             2DEC     6.283185307 B-4                        
020636,000998: 35,3135           00001 20650  MAX250            2DEC     25         E3                         
020637,000999: 35,3137           12525 12525  THIRD             2DEC     .333333333                            
020638,001000: 35,3141           00004 21505  ELEPS             2DEC     .27777777  E-3                        
020639,001001: 35,3143           00002        DECTWO            OCT      2                                     
020640,001002: 35,3144           77777        DP-.01            OCT      77777                                 #  CONSTANTS
020641,001003: 35,3145           61337                          OCT      61337                                 #  ADJACENT       -.01 FOR MGA DSP
020642,001004: 35,3146           01252 25253  EPSFOUR           2DEC     .0416666666                            
020643,001005: 
020644,001006:                                                                                                 # # Page 476
020645,001007:                                                                                                 #  ..... INITVEL .....
020646,001008: 
020647,001009:                                                                                                 #  MOD NO -1       LOG SECTION - P34-P35, P74-P75
020648,001010:                                                                                                 #  MOD BY WHITE.P  DATE  21NOV67
020649,001011: 
020650,001012:                                                                                                 #  FUNCTIONAL DESCRIPTION
020651,001013: 
020652,001014:                                                                                                 #         THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
020653,001015:                                                                                                 #         A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
020654,001016:                                                                                                 #         AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
020655,001017:                                                                                                 #         PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
020656,001018:                                                                                                 #         OFFSETS).  IN ADDITION, IN TH EPRECISION TRAJECTORY CASE, THE
020657,001019:                                                                                                 #         SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
020658,001020:                                                                                                 #         DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
020659,001021:                                                                                                 #         VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
020660,001022:                                                                                                 #         HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
020661,001023:                                                                                                 #         TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
020662,001024: 
020663,001025:                                                                                                 #         IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
020664,001026:                                                                                                 #         TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
020665,001027:                                                                                                 #         SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
020666,001028:                                                                                                 #         VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
020667,001029:                                                                                                 #         AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
020668,001030:                                                                                                 #         WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
020669,001031:                                                                                                 #         IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
020670,001032:                                                                                                 #         TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
020671,001033: 
020672,001034:                                                                                                 #         THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
020673,001035:                                                                                                 #         THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
020674,001036:                                                                                                 #         TRAJECTORY COMPUTATIONS.
020675,001037: 
020676,001038:                                                                                                 #  CALLING SEQUENCE
020677,001039: 
020678,001040:                                                                                                 #         L         CALL
020679,001041:                                                                                                 #         L+1               INITVEL
020680,001042:                                                                                                 #         L+2       (RETURN - ALWAYS)
020681,001043: 
020682,001044:                                                                                                 #  INPUT
020683,001045: 
020684,001046:                                                                                                 #         (1) RINIT    INITIAL POSITION RADIUS VECTOR
020685,001047:                                                                                                 #         (2) VINIT    INITIAL POSITION VELOCITY VECTOR
020686,001048:                                                                                                 #         (3) RTARG    TARGET POSITION RADIUS VECTOR
020687,001049:                                                                                                 #         (4) DELLT4   DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
020688,001050:                                                                                                 #         (5) INTIME   TIME OF RINIT
020689,001051:                                                                                                 #         (6) 0D       NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
020690,001052:                                                                                                 #         (7) 2D       ANGLE TO 180 DEGREES WHEN ROTATION STARTS
020691,001053:                                                                                                 #         (8) RTX1     -2 FOR EARTH, -10D FOR LUNAR
020692,001054:                                                                                                 #         (9) RTX2     COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
020693,001055:                                                                                                 #         PUSHLOC SET AT 4D
020694,001056: 
020695,001057:                                                                                                 # # Page 477
020696,001058:                                                                                                 #  OUTPUT
020697,001059: 
020698,001060:                                                                                                 #         (1) RTARG    OFFSET TARGET POSITION VECTOR
020699,001061:                                                                                                 #         (2) VIPRIME  MANEUVER VELOCITY REQUIRED
020700,001062:                                                                                                 #         (3) VTPRIME  VELOCITY AT TARGET AFTER MANEUVER
020701,001063:                                                                                                 #         (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
020702,001064: 
020703,001065:                                                                                                 #  SUBROUTINES USED
020704,001066: 
020705,001067:                                                                                                 #         LAMBERT
020706,001068:                                                                                                 #         INTSTALL
020707,001069:                                                                                                 #         INTEGRVS
020708,001070: 
020709,001071: 11,2000                                          SETLOC   INTVEL                                
020710,001072: 11,2000                                          BANK                                           
020711,001073: 
020712,001074: 11,2000                                          COUNT    11/INITV                              
020713,001075: 
020714,001076: 11,2000           77614        INITVEL           SET                                            #  COGA GUESS NOT AVAILABLE
020715,001077: 11,2001           00475                                   GUESSW                                
020716,001078: 11,2002           44175        HAVEGUES          VLOAD    STQ                                   
020717,001079: 11,2003           03415                                   RTARG                                 
020718,001080: 11,2004           01340                                   NORMEX                                
020719,001081: 11,2005           03604                          STORE    RTARG1                                
020720,001082: 11,2006           46135                          SLOAD    BHIZ                                  
020721,001083: 11,2007           03747                                   RTX2                                  
020722,001084: 11,2010           22022                                   INITVEL1                              
020723,001085: 11,2011           72575                          VLOAD    VSL2                                  
020724,001086: 11,2012           03570                                   RINIT                                 #  B29
020725,001087: 11,2013           27570                          STOVL    RINIT                                 #  B27
020726,001088: 11,2014           03576                                   VINIT                                 #  B7
020727,001089: 11,2015           77752                          VSL2                                           
020728,001090: 11,2016           27576                          STOVL    VINIT                                 #  B5
020729,001091: 11,2017           03604                                   RTARG1                                
020730,001092: 11,2020           77752                          VSL2                                           
020731,001093: 11,2021           03604                          STORE    RTARG1                                
020732,001094:                                                                                                 #       INITIALIZATION
020733,001095: 
020734,001096: 11,2022           71331        INITVEL1          SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4(PL 2D)
020735,001097: 11,2023           03505                                   ITCTR                                 
020736,001098: 11,2024           77776                                   0          -1                         
020737,001099: 11,2025           70546                          COSINE   SR1                                   #  CALCULATE COSINE (E4)  (+2)
020738,001100: 11,2026           17630                          STODL    COZY4                                 #  SET COZY4 TO COSINE(E4)          (PL 0D)
020739,001101: 11,2027           67154                          LXA,2    SXA,2                                 
020740,001102: 11,2030           00154                                   MPAC                                  
020741,001103: 11,2031           02703                                   VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
020742,001104: 11,2032           77775                          VLOAD                                          
020743,001105: 11,2033           03570                                   RINIT                                 
020744,001106: 11,2034           26657                          STOVL    R1VEC                                 #  R1VEC EQ RINIT
020745,001107: 11,2035           03604                                   RTARG1                                
020746,001108:                                                                                                 # # Page 478
020747,001109: 11,2036           16665                          STODL    R2VEC                                 #  R2VEC EQ RTARG
020748,001110: 11,2037           03423                                   DELLT4                                
020749,001111: 11,2040           02673                          STORE    TDESIRED                              #  TDESIRED EQ DELLT4
020750,001112: 11,2041           77201                          SETPD    VLOAD                                 
020751,001113: 11,2042           00001                                   0D                                    #  INITIALIZE PL TO 0D
020752,001114: 11,2043           03570                                   RINIT                                 #  MPAC EQ RINIT (+29)
020753,001115: 11,2044           41456                          UNIT     PUSH                                  #  UNIT(RI)  (+1)            (PL 6D)
020754,001116: 11,2045           53435                          VXV      UNIT                                  
020755,001117: 11,2046           03576                                   VINIT                                 #  MPAC EQ UNIT(RI) X VI   (+8)
020756,001118: 11,2047           26676                          STOVL    UN                                    
020757,001119: 11,2050           03604                                   RTARG1                                
020758,001120: 11,2051           50256                          UNIT     DOT                                   #  TEMP=RT.URI  (+2)                 (PL 0D)
020759,001121: 11,2052           43015                          DAD      CLEAR                                 
020760,001122: 11,2053           03630                                   COZY4                                 
020761,001123: 11,2054           03665                                   NORMSW                                
020762,001124: 11,2055           03630                          STORE    COZY4                                 
020763,001125: 11,2056           43044        INITVEL2          BPL      SET                                   
020764,001126: 11,2057           22101                                   INITVEL3                              #  UN CALCULATED IN LAMBERT
020765,001127: 11,2060           03465                                   NORMSW                                
020766,001128:                                                                                                 #     ROTATE  RC INTO YC PLANE - SET UNIT NORMAL TO YC
020767,001129: 
020768,001130: 11,2061           41575                          VLOAD    PUSH                                  #                                    (PL 6D)
020769,001131: 11,2062           02665                                   R2VEC                                 #  RC TO 6D  (+29)
020770,001132: 11,2063           63246                          ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
020771,001133: 11,2064           46206                          PUSH     VPROJ                                 #                                    (PL 8D)
020772,001134: 11,2065           02676                                   UN                                    
020773,001135: 11,2066           51352                          VSL2     BVSU                                  
020774,001136: 11,2067           74256                          UNIT     VXSC                                  #                                    (PL 0D)
020775,001137: 11,2070           77772                          VSL1                                           
020776,001138: 11,2071           02665                          STORE    R2VEC                                 
020777,001139: 11,2072           67351                          TLOAD    SLOAD                                 
020778,001140: 11,2073           11453                                   ZEROVEC                               
020779,001141: 11,2074           03505                                   ITCTR                                 
020780,001142: 11,2075           77244                          BPL      VLOAD                                 
020781,001143: 11,2076           22101                                   INITVEL3                              
020782,001144: 11,2077           02665                                   R2VEC                                 
020783,001145: 11,2100           03604                          STORE    RTARG1                                
020784,001146: 11,2101           63345        INITVEL3          DLOAD    PDVL                                  #                                    (PL 2D)
020785,001147: 11,2102           27733                                   MUEARTH                               #  POSITIVE VALUE
020786,001148: 11,2103           02665                                   R2VEC                                 
020787,001149: 11,2104           63256                          UNIT     PDVL                                  #  2D = UNIT(R2VEC)                  (PL 8D)
020788,001150: 11,2105           02657                                   R1VEC                                 
020789,001151: 11,2106           41456                          UNIT     PUSH                                  #  8D = UNIT(R1VEC)                  (PL14D)
020790,001152: 11,2107           57435                          VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
020791,001153: 11,2110           00003                                   2D                                    
020792,001154: 11,2111           77606                          PUSH                                           #                                    (PL20D)
020793,001155: 11,2112           71350                          LXA,1    DLOAD                                 
020794,001156: 11,2113           03745                                   RTX1                                  
020795,001157: 11,2114           00023                                   18D                                   
020796,001158: 11,2115           62040                          BMN      INCR,1                                
020797,001159:                                                                                                 # # Page 479
020798,001160: 11,2116           22120                                   +2                                    
020799,001161: 11,2117           77767                          DEC      -8         B-14                       
020800,001162: 11,2120           67310                          INCR,1   SLOAD                                 
020801,001163: 11,2121           00012                                   10D                                   
020802,001164: 11,2122           00047                                   X1                                    
020803,001165: 11,2123           77230                          BHIZ     VLOAD                                 #                                    (PL14D)
020804,001166: 11,2124           22126                                   +2                                    
020805,001167: 11,2125           41476                          VCOMP    PUSH                                  #                                    (PL20D)
020806,001168: 11,2126           77775                          VLOAD                                          #                                    (PL14D)
020807,001169: 11,2127           50235                          VXV      DOT                                   #                                    (PL 2D)
020808,001170: 11,2130           71244                          BPL      DLOAD                                 #                                    (PL 0D)
020809,001171: 11,2131           22133                                   INITVEL4                              
020810,001172: 11,2132           41476                          DCOMP    PUSH                                  #                                    (PL 2D)
020811,001173: 11,2133           67154        INITVEL4          LXA,2    SXA,2                                 
020812,001174: 11,2134           00000                                   0D                                    
020813,001175: 11,2135           02674                                   GEOMSGN                               
020814,001176:                                                                                                 #    SET INPUTS UP FOR LAMBERT
020815,001177: 
020816,001178: 11,2136           45150                          LXA,1    CALL                                  
020817,001179: 11,2137           03745                                   RTX1                                  
020818,001180:                                                                                                 #     OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
020819,001181: 
020820,001182: 11,2140           25215                                   LAMBERT                               
020821,001183: 
020822,001184:                                                                                                 #         DELETE THRU 4521
020823,001185:                                                                                                 #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
020824,001186: 
020825,001187: 11,2141           77214                          CLEAR    VLOAD                                 
020826,001188: 11,2142           00675                                   GUESSW                                
020827,001189: 11,2143           02746                                   VVEC                                  
020828,001190:                                                                                                 #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
020829,001191: 
020830,001192: 11,2144           17612                          STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED  (+7)
020831,001193: 
020832,001194:                                                                                                 #     IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
020833,001195:                                                                                                 #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
020834,001196: 
020835,001197: 11,2145           02704                                   VTARGTAG                              
020836,001198: 11,2146           45030                          BHIZ     CALL                                  
020837,001199: 11,2147           22224                                   INITVEL7                              
020838,001200: 11,2150           27371                                   INTSTALL                              
020839,001201: 11,2151           43135                          SLOAD    CLEAR                                 
020840,001202: 11,2152           03747                                   RTX2                                  
020841,001203: 11,2153           00263                                   MOONFLAG                              
020842,001204: 11,2154           43030                          BHIZ     SET                                   
020843,001205: 11,2155           22157                                   INITVEL5                              
020844,001206: 11,2156           00063                                   MOONFLAG                              
020845,001207: 11,2157           77775        INITVEL5          VLOAD                                          
020846,001208: 11,2160           03570                                   RINIT                                 
020847,001209: 11,2161           02657                          STORE    R1VEC                                 
020848,001210:                                                                                                 # # Page 480
020849,001211: 11,2162           25535                          STOVL    RCV                                   
020850,001212: 11,2163           03612                                   VIPRIME                               
020851,001213: 11,2164           15543                          STODL    VCV                                   
020852,001214: 11,2165           03503                                   INTIME                                
020853,001215: 11,2166           01517                          STORE    TET                                   
020854,001216: 11,2167           43015                          DAD      CLEAR                                 
020855,001217: 11,2170           03423                                   DELLT4                                
020856,001218: 11,2171           01673                                   INTYPFLG                              
020857,001219: 11,2172           34041                          STCALL   TDEC1                                 
020858,001220: 11,2173           27066                                   INTEGRVS                              
020859,001221: 11,2174           77775                          VLOAD                                          
020860,001222: 11,2175           00025                                   VATT1                                 
020861,001223: 11,2176           02705                          STORE    VTARGET                               
020862,001224:                                                                                                 #   IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
020863,001225:                                                                                                 #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
020864,001226: 
020865,001227: 11,2177           63154                          LXA,2    INCR,2                                
020866,001228: 11,2200           03504                                   ITCTR                                 
020867,001229: 11,2201           00001                                   1D                                    #  INCREMENT ITCTR
020868,001230: 11,2202           55134                          SXA,2    XSU,2                                 
020869,001231: 11,2203           03504                                   ITCTR                                 
020870,001232: 11,2204           02703                                   VTARGTAG                              
020871,001233: 11,2205           46135                          SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
020872,001234: 11,2206           00050                                   X2                                    
020873,001235: 11,2207           22221                                   INITVEL6                              
020874,001236: 
020875,001237:                                                                                                 #    OFFSET CONIC TARGET VECTGOR
020876,001238: 
020877,001239: 11,2210           52375                          VLOAD    VSU                                   
020878,001240: 11,2211           03604                                   RTARG1                                
020879,001241: 11,2212           00017                                   RATT1                                 
020880,001242: 11,2213           77655                          VAD                                            
020881,001243: 11,2214           02665                                   R2VEC                                 
020882,001244: 11,2215           16665                          STODL    R2VEC                                 
020883,001245: 11,2216           03630                                   COZY4                                 
020884,001246: 11,2217           77650                          GOTO                                           
020885,001247: 11,2220           22056                                   INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
020886,001248:                                                                                                 #  COMPUTE THE DELTA VELOCITY
020887,001249: 
020888,001250: 11,2221           77775        INITVEL6          VLOAD                                          
020889,001251: 11,2222           02665                                   R2VEC                                 
020890,001252: 11,2223           03604                          STORE    RTARG1                                
020891,001253: 11,2224           52375        INITVEL7          VLOAD    VSU                                   
020892,001254: 11,2225           03612                                   VIPRIME                               
020893,001255: 11,2226           03576                                   VINIT                                 
020894,001256: 11,2227           27646                          STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT  (+7)
020895,001257: 11,2230           02705                                   VTARGET                               
020896,001258: 11,2231           03620                          STORE    VTPRIME                               
020897,001259: 11,2232           46135                          SLOAD    BHIZ                                  
020898,001260: 11,2233           03747                                   RTX2                                  
020899,001261:                                                                                                 # # Page 481
020900,001262: 11,2234           22251                                   INITVELX                              
020901,001263: 11,2235           70575                          VLOAD    VSR2                                  
020902,001264: 11,2236           03620                                   VTPRIME                               
020903,001265: 11,2237           27620                          STOVL    VTPRIME                               
020904,001266: 11,2240           03612                                   VIPRIME                               
020905,001267: 11,2241           77742                          VSR2                                           
020906,001268: 11,2242           27612                          STOVL    VIPRIME                               
020907,001269: 11,2243           03604                                   RTARG1                                
020908,001270: 11,2244           77742                          VSR2                                           
020909,001271: 11,2245           27604                          STOVL    RTARG1                                
020910,001272: 11,2246           03646                                   DELVEET3                              
020911,001273: 11,2247           77742                          VSR2                                           
020912,001274: 11,2250           03646                          STORE    DELVEET3                              
020913,001275: 11,2251           77201        INITVELX          SETPD    VLOAD                                 
020914,001276: 11,2252           00001                                   0D                                    
020915,001277: 11,2253           03604                                   RTARG1                                
020916,001278: 11,2254           37415                          STCALL   RTARG                                 
020917,001279: 11,2255           01340                                   NORMEX                                
020918,001280: 
020919,001281:                                                                                                 #  ..... END OF INITVEL ROUTINE .....
020920,001282: 
020921,001283:                                                                                                 # # Page 482
020922,001284:                                                                                                 #  ..... MIDGIM .....
020923,001285: 
020924,001286:                                                                                                 #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
020925,001287:                                                                                                 #   REVISION 03, 17 FEB 67
020926,001288: 
020927,001289:                                                                                                 #            IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
020928,001290:                                                                                                 #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
020929,001291:                                                                                                 #  DELTA VELOCITY VECTOR (0D IN PUSY LIST),  OTHERWISE
020930,001292:                                                                                                 #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
020931,001293:                                                                                                 #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
020932,001294: 
020933,001295:                                                                                                 #    .. INPUTS ..
020934,001296: 
020935,001297:                                                                                                 #      NAME         MEANING                              UNITS/SCALING/MODE
020936,001298: 
020937,001299:                                                                                                 #     AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE      BIT
020938,001300:                                                                                                 #    COMPUTER INT FLAG - 0 IS LEM COMPUTER, 1 IS CSM COMPUTER          BIT
020939,001301:                                                                                                 #     RINIT   ACTIVE VEHICLE RADIUS VECTOR            METERS/CSEC (+7) VT
020940,001302:                                                                                                 #     VINIT   ACTIVE VEHICLE VELOCITY VECTOR          METERS/CSEC (+7) VT
020941,001303:                                                                                                 #     0D (PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR    METERS/CSEC (+7) VT
020942,001304: 
020943,001305:                                                                                                 #    .. OUTPUTS ..
020944,001306: 
020945,001307:                                                                                                 #      NAME         MEANING                              UNITS/SCALING/MODE
020946,001308: 
020947,001309:                                                                                                 #       +MGA  + MIDDLE GIMBAL ANGLE                  REVOLUTIONS (+0)  DP
020948,001310:                                                                                                 #     DELVLVC DELTA VELOCITY VECTOR IN LV COORD.     METERS/CSEC (+7)  VT
020949,001311:                                                                                                 #    MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.  -    BIT
020950,001312: 
020951,001313:                                                                                                 #    .. CALLING SEQUENCE ..
020952,001314: 
020953,001315:                                                                                                 #  L         CALL
020954,001316:                                                                                                 #  L+1              MIDGIM
020955,001317:                                                                                                 #  L+2       (RETURN - ALWAYS)
020956,001318: 
020957,001319:                                                                                                 #    .. NO SUBROUTINES CALLED ..
020958,001320: 
020959,001321:                                                                                                 #    .. DEBRIS - ERASABLE TEMPORARY USAGE
020960,001322: 
020961,001323:                                                                                                 #          A,Q,L, PUSH LIST, MPAC.
020962,001324: 
020963,001325:                                                                                                 #    .. ALARMS - NONE ..
020964,001326: 
020965,001327:                                                                                                 # # Page 483
020966,001328:                                                                                                 #  MIDDLE GIMBAL ANGLE COMPUTATION.
020967,001329: 
020968,001330: 04,2000                                          SETLOC   MIDDGIM                               
020969,001331: 04,2000                                          BANK                                           
020970,001332: 
020971,001333: 04,2651                                          COUNT*   $$/MIDG                               
020972,001334: 
020973,001335: 04,2651           20000 00000  HALFREV           2DEC     1          B-1                        
020974,001336: 
020975,001337: 04,2653           43014        MIDGIM            BON      BOFF                                  
020976,001338: 04,2654           01312                                   AVFLAG                                
020977,001339: 04,2655           10673                                   MIDGIM1                               
020978,001340: 04,2656           02747                                   COMPUTER                              
020979,001341: 04,2657           10676                                   GET.LVC                               
020980,001342:                                                                                                 #  COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
020981,001343: 04,2660           53575        GET+MGA           VLOAD    UNIT                                  #  ()PL 0D) V (+7) TO MPAC, UNITIZE  UV (+1)
020982,001344: 04,2661           72441                          DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
020983,001345: 04,2662           01744                                   REFSMMAT   +6                         #   FROM +2 TO +1 FOR ASIN ROUTINE
020984,001346: 04,2663           51136                          ARCSIN   BPL                                   
020985,001347: 04,2664           10670                                   SETMGA                                
020986,001348: 04,2665           43215                          DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
020987,001349: 04,2666           10652                                   HALFREV                               #  ADDING ONE REVOLUTION
020988,001350: 04,2667           10652                                   HALFREV                               
020989,001351: 04,2670           03626        SETMGA            STORE    +MGA                                  
020990,001352: 04,2671           43414                          CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
020991,001353: 04,2672           02675                                   MGLVFLAG                              #      AND EXIT
020992,001354: 04,2673           77614        MIDGIM1           BOFF                                           
020993,001355: 04,2674           02747                                   COMPUTER                              
020994,001356: 04,2675           10660                                   GET+MGA                               
020995,001357:                                                                                                 #  COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES.
020996,001358: 04,2676           53575        GET.LVC           VLOAD    UNIT                                  #  (PL 6D)   R (+29) IN MPAC, UNITZE  UR
020997,001359: 04,2677           03570                                   RINIT                                 
020998,001360: 04,2700           77676                          VCOMP                                          #  U(-R)
020999,001361: 04,2701           00023                          STORE    18D                                   #  U(-R) TO 18D
021000,001362: 04,2702           53435                          VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
021001,001363: 04,2703           03576                                   VINIT                                 
021002,001364: 04,2704           00015                          STORE    12D                                   #  U(V*R) TO 12D
021003,001365: 04,2705           53435                          VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
021004,001366: 04,2706           00023                                   18D                                   
021005,001367: 04,2707           24007                          STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
021006,001368: 04,2710           00001                                   0D                                    #  DELTA V (+7) IN 0D
021007,001369: 04,2711           76521                          MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
021008,001370: 04,2712           00007                                   6D                                    #   AND SCALE +7 IN MPAC
021009,001371: 04,2713           03405                          STORE    DELVLVC                               #  STORE IN DELVLVC (+7(
021010,001372: 04,2714           43414                          SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
021011,001373: 04,2715           02475                                   MGLVFLAG                              #      AND EXIT
021012,001374:                                                                                                 #    ..... END OF MIDGIM ROUTINE .....
021013,001375: 
021014,001376:                                                                                                 # # Page 484
021015,001377: 04,2716           77160        SELECTMU          AXC,1    AXT,2                                 
021016,001378: 04,2717           00002                                   2D                                    
021017,001379: 04,2720           00000                                   0D                                    
021018,001380: 04,2721           77614                          BOFF                                           
021019,001381: 04,2722           04343                                   CMOONFLG                              
021020,001382: 04,2723           10727                                   SETMUER                               
021021,001383: 04,2724           77160                          AXC,1    AXT,2                                 
021022,001384: 04,2725           00012                                   10D                                   
021023,001385: 04,2726           00002                                   2D                                    
021024,001386: 04,2727           66143        SETMUER           DLOAD*   SXA,1                                 
021025,001387: 04,2730           11632                                   MUTABLE    +4,1                       
021026,001388: 04,2731           03745                                   RTX1                                  
021027,001389: 04,2732           23752                          STODL*   RTSR1/MU                              
021028,001390: 04,2733           11624                                   MUTABLE    -2,1                       
021029,001391: 04,2734           54214                          BOFF     SR                                    
021030,001392: 04,2735           04343                                   CMOONFLG                              
021031,001393: 04,2736           10740                                   RTRNMU                                
021032,001394: 04,2737           20607                                   6D                                    
021033,001395: 04,2740           03750        RTRNMU            STORE    RTMU                                  
021034,001396: 04,2741           43134                          SXA,2    CLEAR                                 
021035,001397: 04,2742           03746                                   RTX2                                  
021036,001398: 04,2743           01271                                   FINALFLG                              
021037,001399: 04,2744           77650                          GOTO                                           
021038,001400: 04,2745           73005                                   VN1645                                
021039,001401: 
021040,001402:                                                                                                 # # Page 485
021041,001403:                                                                                                 #  ..... PERIAPO .....
021042,001404: 
021043,001405:                                                                                                 #  MOD NO -1       LOG SECTION - P34-P35, P74-P75
021044,001406:                                                                                                 #  MOD BY WHITE.P  DATE  18JAN68
021045,001407: 
021046,001408:                                                                                                 #  FUNCTIONAL DESCRIPTION
021047,001409: 
021048,001410:                                                                                                 #         THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
021049,001411:                                                                                                 #         ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
021050,001412:                                                                                                 #         THE TRAJECTORY AND THE PRIMARY BODY.
021051,001413: 
021052,001414:                                                                                                 #         SETRAD IS CALLED TO  DETERMINE THE RADIUS OF THE PRIMARY BODY.
021053,001415: 
021054,001416:                                                                                                 #         APSIDES IS CALLED TO SOVE FOR THE TWO BODY RADII OF APOCENTER AND
021055,001417:                                                                                                 #         PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
021056,001418: 
021057,001419:                                                                                                 #  CALLING SEQUENCE
021058,001420: 
021059,001421:                                                                                                 #         L         CALL
021060,001422:                                                                                                 #         L+1               PERIAPO
021061,001423:                                                                                                 #         L+2       (RETURN - ALWAYS)
021062,001424: 
021063,001425:                                                                                                 #  INPUT
021064,001426: 
021065,001427:                                                                                                 #         (1) RVEC     POSITION VECTOR IN METERS
021066,001428:                                                                                                 #                      SCALE FACTOR - EARTH +29, MOON +27
021067,001429:                                                                                                 #         (2) VVEC     VELOCITY VECTORY IN METERS/CENTISECOND
021068,001430:                                                                                                 #                      SCALE FACTOR - EARTH +7, MOON +5
021069,001431:                                                                                                 #         (3) X1       PRIMARY BODY INDICATOR
021070,001432:                                                                                                 #                      EARTH -2, MOON -10
021071,001433: 
021072,001434:                                                                                                 #  OUTPUT
021073,001435: 
021074,001436:                                                                                                 #         (1) 2D       APOCENTER RADIUS IN METERS
021075,001437:                                                                                                 #                      SCALE FACTOR - EARTH +29, MOON +27
021076,001438:                                                                                                 #         (2) 4D       APOCENTER ALTITUDE IN METERS
021077,001439:                                                                                                 #                      SCALE FACTOR - EARTH +29, MOON +27
021078,001440:                                                                                                 #         (3) 6D       PERICENTER RADIUS IN METERS
021079,001441:                                                                                                 #                      SCALE FACTOR - EARTH +29, MOON +27
021080,001442:                                                                                                 #         (4) 8D       PERICENTER ALTITUDE IN METERS
021081,001443:                                                                                                 #                      SCALE FACTOR - EARTH +29, MOON +27
021082,001444:                                                                                                 #         (5) ECC      ECCENTRICITY OF CONIC TRAJECTORY
021083,001445:                                                                                                 #                      SCALE FACTOR - +3
021084,001446:                                                                                                 #         (6) XXXALT   RADIUS OF THE PRIMARY BODY IN METERS
021085,001447:                                                                                                 #                      SCALE FACTOR - EARTH +29, MOON +27
021086,001448:                                                                                                 #         (7) PUSHLOC  EQUALS 10D
021087,001449: 
021088,001450:                                                                                                 #  SUBROUTINES USED
021089,001451: 
021090,001452:                                                                                                 #         SETRAD
021091,001453:                                                                                                 # # Page 486
021092,001454:                                                                                                 #         APSIDES
021093,001455: 
021094,001456: 22,2000                                          SETLOC   APOPERI                               
021095,001457: 22,2000                                          BANK                                           
021096,001458: 
021097,001459: 22,3310                                          COUNT*   $$/PERAP                              
021098,001460: 
021099,001461: 22,3310           00302 17755  RPAD              2DEC     6373338    B-29                       #  STANDARD RADIUS  OF PAD 37-B.
021100,001462:                                                                                                 #                                           = 20 909 901.57 FT
021101,001463: 
021102,001464: 22,3312           53754        PERIAPO1          LXA,2    VSR*                                  
021103,001465: 22,3313           03746                                   RTX2                                  
021104,001466: 22,3314           57176                                   0,2                                   
021105,001467: 22,3315           26746                          STOVL    VVEC                                  
021106,001468: 22,3316           53750                          LXA,1    VSR*                                  
021107,001469: 22,3317           03745                                   RTX1                                  
021108,001470: 22,3320           57176                                   0,2                                   
021109,001471: 22,3321           02657                          STORE    RVEC                                  
021110,001472: 22,3322           45020        PERIAPO           STQ      CALL                                  
021111,001473: 22,3323           01340                                   NORMEX                                
021112,001474: 22,3324           45340                                   SETRAD                                
021113,001475: 22,3325           37456                          STCALL   XXXALT                                
021114,001476: 22,3326           25671                                   APSIDES                               
021115,001477: 22,3327           41401                          SETPD    PUSH                                  #  2D = APOCENTER RADIUS   B29 OR B27
021116,001478: 22,3330           00003                                   2D                                    
021117,001479: 22,3331           65225                          DSU      PDDL                                  #  4D = APOGEE ALTITUDE    B29 OR B27
021118,001480: 22,3332           03456                                   XXXALT                                
021119,001481: 22,3333           00001                                   0D                                    
021120,001482: 22,3334           45206                          PUSH     DSU                                   #  6D = PERICENTER RADIUS  B29 OR B27
021121,001483: 22,3335           03456                                   XXXALT                                
021122,001484: 22,3336           52006                          PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE   B29 OR B27
021123,001485: 22,3337           01340                                   NORMEX                                
021124,001486:                                                                                                 # # Page 487
021125,001487:                                                                                                 #  SETRAD
021126,001488: 22,3340           41545        SETRAD            DLOAD    PUSH                                  
021127,001489: 22,3341           05311                                   RPAD                                  
021128,001490: 22,3342           63130                          SXA,1    INCR,2                                
021129,001491: 22,3343           00047                                   X2                                    
021130,001492: 22,3344           00002                                   2D                                    
021131,001493: 22,3345           46135                          SLOAD    BHIZ                                  
021132,001494: 22,3346           00050                                   X2                                    
021133,001495: 22,3347           45353                                   SETRADX                               
021134,001496: 22,3350           51575                          VLOAD    ABVAL                                 
021135,001497: 22,3351           02026                                   RLS                                   
021136,001498: 22,3352           77725                          PDDL                                           
021137,001499: 22,3353           43545        SETRADX           DLOAD    RVQ                                   
021138,001500: 
021139,001501:                                                                                                 # # Page 488
021140,001502:                                                                                                 #  PRECSET
021141,001503: 22,3354           77620        PRECSET           STQ                                            
021142,001504: 22,3355           01340                                   NORMEX                                
021143,001505: 22,3356           36635                          STCALL   TDEC2                                 
021144,001506: 22,3357           27036                                   LEMPREC                               
021145,001507: 22,3360           77624                          CALL                                           
021146,001508: 22,3361           45372                                   LEMSTORE                              
021147,001509: 22,3362           77745                          DLOAD                                          
021148,001510: 22,3363           02635                                   TDEC2                                 
021149,001511: 22,3364           34041                          STCALL   TDEC1                                 
021150,001512: 22,3365           27022                                   CSMPREC                               
021151,001513: 22,3366           77624                          CALL                                           
021152,001514: 22,3367           45402                                   CSMSTORE                              
021153,001515: 22,3370           77650                          GOTO                                           
021154,001516: 22,3371           01340                                   NORMEX                                
021155,001517: 22,3372           43175        LEMSTORE          VLOAD    BOFF                                  
021156,001518: 22,3373           00001                                   RATT                                  
021157,001519: 22,3374           01352                                   AVFLAG                                
021158,001520: 22,3375           45406                                   PASSIVE                               
021159,001521: 22,3376           27540        ACTIVE            STOVL    RACT3                                 
021160,001522: 22,3377           00007                                   VATT                                  
021161,001523: 22,3400           03546                          STORE    VACT3                                 
021162,001524: 22,3401           77616                          RVQ                                            
021163,001525: 22,3402           43175        CSMSTORE          VLOAD    BOFF                                  
021164,001526: 22,3403           00001                                   RATT                                  
021165,001527: 22,3404           01352                                   AVFLAG                                
021166,001528: 22,3405           45376                                   ACTIVE                                
021167,001529: 22,3406           27554        PASSIVE           STOVL    RPASS3                                
021168,001530: 22,3407           00007                                   VATT                                  
021169,001531: 22,3410           03562                          STORE    VPASS3                                
021170,001532: 22,3411           77616                          RVQ                                            
021171,001533: 
021172,001534:                                                                                                 # # Page 489
021173,001535:                                                                                                 #  VECSHIFT
021174,001536: 22,3412           53754        VECSHIFT          LXA,2    VSR*                                  
021175,001537: 22,3413           03746                                   RTX2                                  
021176,001538: 22,3414           57176                                   0,2                                   
021177,001539: 22,3415           63350                          LXA,1    PDVL                                  
021178,001540: 22,3416           03745                                   RTX1                                  
021179,001541: 22,3417           63257                          VSR*     PDVL                                  
021180,001542: 22,3420           57176                                   0,2                                   
021181,001543: 22,3421           77616                          RVQ                                            
021182,001544: 
021183,001545:                                                                                                 # # Page 490
021184,001546:                                                                                                 #  SHIFTR1
021185,001547: 22,3422           53754        SHIFTR1           LXA,2    SL*                                   
021186,001548: 22,3423           03746                                   RTX2                                  
021187,001549: 22,3424           57576                                   0,2                                   
021188,001550: 22,3425           77616                          RVQ                                            
021189,001551: 
021190,001552:                                                                                                 # # Page 491
021191,001553:                                                                                                 #  PROGRAM DESCRIPTION
021192,001554:                                                                                                 #  SUBROUTINE NAME       R36  OUT-OF-PLANE RENDEZVOUS ROUTINE
021193,001555:                                                                                                 #  MOD NO.  0                      DATE      22 DECEMBER 67
021194,001556:                                                                                                 #  MOD BY   N.M.NEVILLE            LOG SECTION  EXTENDED VERBS
021195,001557:                                                                                                 #  FUNCTIONAL DESCRIPTION
021196,001558: 
021197,001559:                                                                                                 #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
021198,001560:                                                                                                 #  OUT-OF-PLANE PARAMETERS (Y , YDOT , PSI). (REQUESTED BY DSKY).
021199,001561: 
021200,001562:                                                                                                 #  CALLING SEQUENCE
021201,001563: 
021202,001564:                                                                                                 #  ASTRONAUT REQUEST THROUGH DSKY V 90 E
021203,001565: 
021204,001566:                                                                                                 #  SUBROUTINES CALLED
021205,001567: 
021206,001568:                                                                                                 #  EXDSPRET
021207,001569:                                                                                                 #  GOMARKF
021208,001570:                                                                                                 #  CSMPREC
021209,001571:                                                                                                 #  LEMPREC
021210,001572:                                                                                                 #  SGNAGREE
021211,001573:                                                                                                 #  LOADTIME
021212,001574: 
021213,001575:                                                                                                 #  NORMAL EXIT MODES
021214,001576: 
021215,001577:                                                                                                 #  ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
021216,001578: 
021217,001579:                                                                                                 #  ALARM OR ABORT EXIT MODES
021218,001580: 
021219,001581:                                                                                                 #  NONE
021220,001582: 
021221,001583:                                                                                                 #  OUTPUT
021222,001584: 
021223,001585:                                                                                                 #  DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI
021224,001586: 
021225,001587:                                                                                                 #  DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE
021226,001588:                                                                                                 #  REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY.
021227,001589: 
021228,001590:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
021229,001591: 
021230,001592:                                                                                                 #  CSM AND LEM STATE VECTORS
021231,001593: 
021232,001594:                                                                                                 #  DEBRIS
021233,001595: 
021234,001596:                                                                                                 #  CENTRALS A,Q,L
021235,001597: 
021236,001598:                                                                                                 #  OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
021237,001599: 
021238,001600: 20,2000                                          BANK     20                                    
021239,001601: 04,2000                                          SETLOC   R36LM                                 
021240,001602: 04,2000                                          BANK                                           
021241,001603: 
021242,001604:                                                                                                 # # Page 492
021243,001605: 04,2746  E4,1726                                 EBANK=   RPASS36                               
021244,001606: 04,2746                                          COUNT*   $$/R36                                
021245,001607: 
021246,001608: 04,2746           22007        R36               ZL                                             
021247,001609: 04,2747           34714                          CAF      ZERO                                  #  SET TIME OF EVENT TO ZERO FOR FIRST
021248,001610: 04,2750           53052                          DXCH     DSPTEMX                               #  DISPLAY
021249,001611: 04,2751           33101                          CAF      V06N16N                               
021250,001612: 04,2752           04555                          TC       BANKCALL                              
021251,001613: 04,2753           20465                          CADR     GOMARKF                               
021252,001614: 04,2754           15423                          TCF      ENDEXT                                #  TERMINATE
021253,001615: 04,2755           12757                          TCF      +2                                    #  PROCEED
021254,001616: 04,2756           12751                          TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
021255,001617: 04,2757           53052                          DXCH     DSPTEMX                               
021256,001618: 04,2760           00006                          EXTEND                                         
021257,001619: 04,2761           13070                          BZF      LREGCHK                               #  A-REG ZERO GOTO CHECK L-REG FOR ZERO
021258,001620: 04,2762           52155        ASTROTIM          DXCH     MPAC                                  #  A-REG NON-ZERO, TIME = ASTRO INPUT TIME
021259,001621: 04,2763           06006                          TC       INTPRET                               
021260,001622: 04,2764           77634                          RTB                                            
021261,001623: 04,2765           45713                                   DPMODE                                
021262,001624: 04,2766           34041        R36INT            STCALL   TDEC1                                 
021263,001625: 04,2767           27036                                   OTHPREC                               
021264,001626: 04,2770           63375                          VLOAD    PDVL                                  
021265,001627: 04,2771           00007                                   VATT                                  
021266,001628: 04,2772           00001                                   RATT                                  #   -
021267,001629: 04,2773           02327                          STORE    RPASS36                               #   R
021268,001630: 04,2774           63256                          UNIT     PDVL                                  #    P
021269,001631: 04,2775           53435                          VXV      UNIT                                  #   -
021270,001632: 04,2776           77626                          STADR                                          
021271,001633: 04,2777           61442                          STODL    UNP36                                 #   U
021272,001634: 04,3000           00015                                   TAT                                   
021273,001635: 04,3001           34041                          STCALL   TDEC1                                 
021274,001636: 04,3002           27022                                   THISPREC                              
021275,001637: 04,3003           63375                          VLOAD    PDVL                                  #                     -
021276,001638: 04,3004           00007                                   VATT                                  #   VELOCITY VECTOR  V                00D
021277,001639: 04,3005           00001                                   RATT                                  #                      A
021278,001640: 04,3006           77725                          PDDL                                           
021279,001641: 04,3007           00015                                   TAT                                   #   SAVE TIME IN LOCATION 30D FOR REDISPLAY
021280,001642: 04,3010           24037                          STOVL    30D                                   #                     -
021281,001643: 04,3011           41406                          PUSH     PUSH                                  #   POSITION VECTOR  R   IN  06D AND 12D
021282,001644: 04,3012           63245                          BVSU     PDVL                                  #                      A  -   -
021283,001645: 04,3013           02327                                   RPASS36                               #   LINE OF SIGHT VECTOR R - R        12D
021284,001646: 04,3014           72441                          DOT      SL1                                   #                          P   A
021285,001647: 04,3015           02335                                   UNP36                                 #       _  _
021286,001648: 04,3016           26321                          STOVL    RANGE                                 #   Y = U .R
021287,001649: 04,3017           00001                                   00D                                   #  -        A
021288,001650: 04,3020           72441                          DOT      SL1                                   
021289,001651: 04,3021           02335                                   UNP36                                 #   .   _  _
021290,001652: 04,3022           26323                          STOVL    RRATE                                 #   Y = U .V
021291,001653: 04,3023           00007                                   06D                                   #   -       A  -
021292,001654:                                                                                                 # # Page 493
021293,001655: 04,3024           41456                          UNIT     PUSH                                  #   U   = UNIT( R )                   18D
021294,001656: 04,3025           47235                          VXV      VXV                                   #    RA          A
021295,001657: 04,3026           00001                                   00D                                   #    -   -   -     -
021296,001658: 04,3027           00023                                   18D                                   #   (U  XV )XU    =U
021297,001659: 04,3030           53552                          VSL2     UNIT                                  #     RA  A   RA    A
021298,001660: 04,3031           77656                          UNIT                                           
021299,001661: 04,3032           24001                          STOVL    00D                                   #   UNIT HORIZONTAL IN FORWARD DIR.  00D
021300,001662: 04,3033           00023                                   18D                                   
021301,001663: 04,3034           74241                          DOT      VXSC                                  #   -
021302,001664: 04,3035           00015                                   12D                                   #   U
021303,001665: 04,3036           77752                          VSL2                                           #    L
021304,001666: 04,3037           53445                          BVSU     UNIT                                  
021305,001667: 04,3040           77656                          UNIT                                           
021306,001668: 04,3041           50206                          PUSH     DOT                                   #   LOS PROJECTED INTO HORIZONTAL    12D
021307,001669: 04,3042           00001                                   00D                                   #   PLANE
021308,001670: 04,3043           65552                          SL1      ARCCOS                                #               -  -
021309,001671: 04,3044           26325                          STOVL    RTHETA                                #   PSI= ARCCOS(U .U )
021310,001672: 04,3045           50235                          VXV      DOT                                   #                A  L
021311,001673: 04,3046           00001                                   00D                                   
021312,001674: 04,3047           71244                          BPL      DLOAD                                 
021313,001675: 04,3050           11055                                   R36TAG2                               
021314,001676: 04,3051           11464                                   LODPMAX                               
021315,001677: 04,3052           77625                          DSU                                            
021316,001678: 04,3053           02325                                   RTHETA                                
021317,001679: 04,3054           02325                          STORE    RTHETA                                
021318,001680: 04,3055           47145        R36TAG2           DLOAD    RTB                                   
021319,001681: 04,3056           00037                                   30D                                   
021320,001682: 04,3057           45541                                   SGNAGREE                              
021321,001683: 04,3060           01052                          STORE    DSPTEMX                               
021322,001684: 04,3061           77776                          EXIT                                           
021323,001685: 04,3062           33102                          CAF      V06N90N                               #   DISPLAY Y , YDOT , AND PSI
021324,001686: 04,3063           04555                          TC       BANKCALL                              
021325,001687: 04,3064           20465                          CADR     GOMARKF                               
021326,001688: 04,3065           15423                          TCF      ENDEXT                                #  TERMINATE
021327,001689: 04,3066           15423                          TCF      ENDEXT                                #  PROCEED , END OF PROGRAM
021328,001690: 04,3067           12751                          TCF      R36        +3                         #  REDISPLAY OUTPUT
021329,001691: 04,3070           56001        LREGCHK           XCH      L                                     
021330,001692: 04,3071           00006                          EXTEND                                         
021331,001693: 04,3072           13075                          BZF      ENTTIM2                               #  L-REG ZERO ,SET TIME = PRESENT TIME
021332,001694: 04,3073           56001                          XCH      L                                     #  L-REG NON ZERO, TIME = ASTRO INPUT TIME
021333,001695: 04,3074           12762                          TCF      ASTROTIM                              
021334,001696: 04,3075           06006        ENTTIM2           TC       INTPRET                               
021335,001697: 04,3076           52034                          RTB      GOTO                                  
021336,001698: 04,3077           45505                                   LOADTIME                              
021337,001699: 04,3100           10766                                   R36INT                                
021338,001700: 04,3101           01420        V06N16N           VN       00616                                 
021339,001701: 04,3102           01532        V06N90N           VN       00690                                 

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