Source Code

020075,000001: # Copyright: Public domain. 020076,000002: # Filename: P34-35_P74-75.agc 020077,000003: # Purpose: Part of the source code for Comanche, build 055. It 020078,000004: # is part of the source code for the Command Module's 020079,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11. 020080,000006: # Assembler: yaYUL 020081,000007: # Reference: pp. 460-504 020082,000008: # Contact: Onno Hommes <ohommes@cmu.edu> 020083,000009: # Website: http://www.ibiblio.org/apollo. 020084,000010: # Mod history: 2009-05-10 OH Batch 2 Assignment Comanche Transcription 020085,000011: # 2009-05-23 RSB In DISPLAYE, corrected a CADR GOFLASHR 020086,000012: # to CADR GOFLASH. 020087,000013: # 2010-08-28 JL Added missing comment character on p478. 020088,000014: # 2011-05-08 JL Removed workaround. 020089,000015: 020090,000016: # The contents of the "Comanche055" files, in general, are transcribed 020091,000017: # from scanned documents. 020092,000018: 020093,000019: # Assemble revision 055 of AGC program Comanche by NASA 020094,000020: # 2021113-051. April 1, 1969. 020095,000021: 020096,000022: # This AGC program shall also be referred to as Colossus 2A 020097,000023: 020098,000024: # Prepared by 020099,000025: # Massachusetts Institute of Technology 020100,000026: # 75 Cambridge Parkway 020101,000027: # Cambridge, Massachusetts 020102,000028: 020103,000029: # under NASA contract NAS 9-4065. 020104,000030: 020105,000031: # Refer directly to the online document mentioned above for further 020106,000032: # information. Please report any errors to info@sandroid.org. 020107,000033: 020108,000034: 020109,000035: # Page 460 020110,000036: # TRANSFER PHASE INITITIATION (TPI) PROGRAMS (P34 AND P74) 020111,000037: # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 020112,000038: # MOD BY WHITE, P. DATE: 1 JUNE 67 020113,000039: 020114,000040: # PURPOSE 020115,000041: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS 020116,000042: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER 020117,000043: # PHASE INITITATION (TPI) MANEUVER, GIVEN -- 020118,000044: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF 020119,000045: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI). 020120,000046: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO 020121,000047: # INTERCEPT TIME (TIG (TPF)). 020122,000048: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI). 020123,000049: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA 020124,000050: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. 020125,000051: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT 020126,000052: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE 020127,000053: # ASTRONAUT/GROUND. 020128,000054: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED 020129,000055: # THRUSTING PROGRAM. 020130,000056: 020131,000057: # ASSUMPTIONS 020132,000058: # (1) LM ONLY -- THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF 020133,000059: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73). 020134,000060: # THEREFORE -- 020135,000061: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT 020136,000062: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE 020137,000063: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE 020138,000064: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION. 020139,000065: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS 020140,000066: # COMPUTED TO BE GREATER THAN 10 MINUTES. 020141,000067: # (C) THE VARIATION OF TEH ALTITUDE DIFFERENCE BETWEEN THE 020142,000068: # ORBITS WAS MINIMIZED. 020143,000069: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND 020144,000070: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR 020145,000071: # Page 461 020146,000072: # ORBIT OR 85 NM FOR EARTH ORBIT. 020147,000073: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO 020148,000074: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW 020149,000075: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED 020150,000076: # IN AN OUT-OF-PLANE MANEUVER. 020151,000077: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC 020152,000078: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)). 020153,000079: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL 020154,000080: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED 020155,000081: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND. 020156,000082: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS 020157,000083: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC 020158,000084: # FLIGHT PLAN MANEUVER SEQUENCES. 020159,000085: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM 020160,000086: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS 020161,000087: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY 020162,000088: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE 020163,000089: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE 020164,000090: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING 020165,000091: # MARK COUNTER IS ZEROED BY TEH SELECTION OF P20 AND AFTER EACH 020166,000092: # THRUSTING MANEUVER. 020167,000093: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. 020168,000094: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- 020169,000095: 020170,000096: # ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS 020171,000097: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 020172,000098: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF 020173,000099: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM. 020174,000100: 020175,000101: # FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS 020176,000102: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE. 020177,000103: 020178,000104: # EXTERNAL DELTA V FLAG -- DESIGNATES THE TYPE OF STEERING 020179,000105: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING 020180,000106: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM. 020181,000107: 020182,000108: # (7) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER 020183,000109: # HAVE BEEN COMPLETELY SPECIFIED, TEH VALUE OF THE ACTIVE 020184,000110: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED. 020185,000111: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT 020186,000112: # THROUGH THE USE OF V06N52. 020187,000113: 020188,000114: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE 020189,000115: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN 020190,000116: # Page 462 020191,000117: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE 020192,000118: # ASTRONAUT SHOULD REASSES THE INPUT TARGETING PARAMETERS BASED 020193,000119: # UPON DELTA V AND EXPECTED MANEUVER TIME. 020194,000120: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -- 020195,000121: 020196,000122: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE. 020197,000123: 020198,000124: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE. 020199,000125: 020200,000126: # INPUT 020201,000127: # (1) TTPI TIME OF THE TPI MANEUVER. 020202,000128: # (2) ELEV DESIRED LOS ANGLE AT TPI 020203,000129: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING 020204,000130: # TRANSFER FROM TPI TO TIME OF INTERCEPT 020205,000131: 020206,000132: # OUTPUT 020207,000133: # (1) TRKMKCNT NUMBER OF MARKS 020208,000134: # (2) TTOGO TIME TO GO 020209,000135: # (3) +MGA MIDDLE GIMBAL ANGLE 020210,000136: # (4) TTPI COMPUTED TIME OF TPI MANEUVER 020211,000137: # OR 020212,000138: # ELEV COMPUTED LOS ANGLE AT TPI 020213,000139: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER 020214,000140: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI 020215,000141: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT 020216,000142: # (8) DVLOS DELTA VELOCITY AT TPI -- LINE OF SIGHT 020217,000143: # (9) DELVLVC DELTA VELOCITY AT TPI -- LOCAL VERTICAL COORDINATES 020218,000144: 020219,000145: # DOWNLINK 020220,000146: # (1) TTPI TIME OF TPI MANEUVER 020221,000147: # (2) TIG TIME OF TPI MANEUVER 020222,000148: # (3) ELEV DESIRED LOS ANGLE AT TPI 020223,000149: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING 020224,000150: # TRANSFER FROM TPI TO TIME OF INTERCEPT 020225,000151: # (5) DELVEET3 DELTA VELOCITY AT TPI -- REFERENCE COORDINATES 020226,000152: # (6) TPASS4 TIME OF INTERCEPT 020227,000153: 020228,000154: # COMMUNICATION TO THRUSTING PROGRAMS 020229,000155: # (1) TIG TIME OF THE TPI MANEUVER 020230,000156: # (2) RTARG OFFSET TARGET POSITION 020231,000157: # (3) TPASS4 TIME OF INTERCEPT 020232,000158: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION 020233,000159: 020234,000160: # SUBROUTINES USED 020235,000161: # AVFLAGA 020236,000162: # Page 463 020237,000163: # AVFLAGP 020238,000164: # VNP00H 020239,000165: # DISPLAYE 020240,000166: # SELECTMU 020241,000167: # PRECSET 020242,000168: # S33/34.1 020243,000169: # ALARM 020244,000170: # BANKCALL 020245,000171: # GOFLASH 020246,000172: # GOTOP00H 020247,000173: # TIMETHET 020248,000174: # S34/35.2 020249,000175: # PERIAPO1 020250,000176: # SHIFTR1 020251,000177: # S34/35.5 020252,000178: # VN1645 020253,000179: 020254,000180: 35,2000 SETLOC CSI/CDH 020255,000181: 35,2000 BANK 020256,000182: 35,2000 E4,1770 EBANK= SUBEXIT 020257,000183: 35,2000 COUNT 35/P3474 020258,000184: 020259,000185: 35,2000 04627 P34 TC AVFLAGA 020260,000186: 35,2001 02003 TC P34/P74A 020261,000187: 35,2002 04642 P74 TC AVFLAGP 020262,000188: 35,2003 04647 P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG 020263,000189: 35,2004 34614 CAF V06N37 # TTPI 020264,000190: 35,2005 04575 TC VNP00H # Onno: The scans look like O not zero 020265,000191: 35,2006 06006 TC INTPRET 020266,000192: 35,2007 77531 SSP EXIT 020267,000193: 35,2010 03766 NN 020268,000194: 35,2011 00000 0 020269,000195: 35,2012 03070 TC DISPLAYE # ELEV AND CENTANG 020270,000196: 35,2013 06006 TC INTPRET 020271,000197: 35,2014 71214 CLEAR DLOAD 020272,000198: 35,2015 01270 ETPIFLAG 020273,000199: 35,2016 03663 TTPI 020274,000200: 35,2017 17413 STODL TIG 020275,000201: 35,2020 03744 ELEV 020276,000202: 35,2021 43054 BZE SET 020277,000203: 35,2022 72024 P34/P74B 020278,000204: 35,2023 01070 ETPIFLAG 020279,000205: 35,2024 77624 P34/P74B CALL 020280,000206: 35,2025 10712 SELECTMU 020281,000207: 35,2026 DELELO EQUALS 26D 020282,000208: 35,2026 43145 P34/P74C DLOAD SET 020283,000209: 35,2027 15335 ZEROVECS 020284,000210: 35,2030 03461 ITSWICH 020285,000211: 35,2031 43014 BON CLEAR 020286,000212: 35,2032 01310 ETPIFLAG 020287,000213: # Page 464 020288,000214: 35,2033 72035 SWCHSET 020289,000215: 35,2034 03661 ITSWICH 020290,000216: 35,2035 02364 SWCHSET STORE NOMTPI 020291,000217: 35,2036 43345 INTLOOP DLOAD DAD 020292,000218: 35,2037 03663 TTPI 020293,000219: 35,2040 02364 NOMTPI 020294,000220: 35,2041 34041 STCALL TDEC1 020295,000221: 35,2042 45215 PRECSET 020296,000222: 35,2043 77624 CALL 020297,000223: 35,2044 72216 S33/34.1 020298,000224: 35,2045 77454 BZE EXIT 020299,000225: 35,2046 72057 SWCHCLR 020300,000226: 35,2047 05650 TC ALARM 020301,000227: 35,2050 00611 OCT 611 020302,000228: 35,2051 35050 CAF V05N09 020303,000229: 35,2052 04662 TC BANKCALL 020304,000230: 35,2053 20720 CADR GOFLASH 020305,000231: 35,2054 04106 TC GOTOP00H 020306,000232: 35,2055 02003 TC P34/P74A # PROCEED 020307,000233: 35,2056 02047 TC -7 # V32 020308,000234: 020309,000235: 35,2057 43014 SWCHCLR BONCLR BON 020310,000236: 35,2060 03601 ITSWICH 020311,000237: 35,2061 72036 INTLOOP 020312,000238: 35,2062 01310 ETPIFLAG 020313,000239: 35,2063 72067 P34/P74D # DISPLAY TTPI 020314,000240: 35,2064 77776 EXIT 020315,000241: 35,2065 03070 TC DISPLAYE # DISPLAY ELEV AND CENTANG 020316,000242: 35,2066 02072 TC P34/P74E 020317,000243: 35,2067 77776 P34/P74D EXIT 020318,000244: 35,2070 34614 CAF V06N37 # TTPI 020319,000245: 35,2071 04575 TC VNP00H 020320,000246: 35,2072 06006 P34/P74E TC INTPRET 020321,000247: 35,2073 71201 SETPD DLOAD 020322,000248: 35,2074 00001 0D 020323,000249: 35,2075 03746 RTX1 020324,000250: 35,2076 14047 STODL X1 020325,000251: 35,2077 03754 CENTANG 020326,000252: 35,2100 71406 PUSH COS 020327,000253: 35,2101 16734 STODL CSTH 020328,000254: 35,2102 77756 SIN 020329,000255: 35,2103 26732 STOVL SNTH 020330,000256: 35,2104 03554 RPASS3 020331,000257: 35,2105 77657 VSR* 020332,000258: 35,2106 57176 0,2 020333,000259: 35,2107 26657 STOVL RVEC 020334,000260: 35,2110 03562 VPASS3 020335,000261: 35,2111 43057 VSR* SET 020336,000262: 35,2112 57176 0,2 020337,000263: 35,2113 03466 RVSW 020338,000264: # Page 465 020339,000265: 35,2114 36746 STCALL VVEC 020340,000266: 35,2115 24744 TIMETHET 020341,000267: 35,2116 77745 DLOAD 020342,000268: 35,2117 03663 TTPI 020343,000269: 35,2120 03503 STORE INTIME # FOR INITVEL 020344,000270: 35,2121 77615 DAD 020345,000271: 35,2122 00037 T # RENDEZVOUS TIME 020346,000272: 35,2123 37656 STCALL TPASS4 # FOR INITVEL 020347,000273: 35,2124 72526 S34/35.2 020348,000274: 35,2125 51575 VLOAD ABVAL 020349,000275: 35,2126 03646 DELVEET3 020350,000276: 35,2127 26635 STOVL DELVTPI 020351,000277: 35,2130 03640 VPASS4 020352,000278: 35,2131 51451 VSU ABVAL 020353,000279: 35,2132 03620 VTPRIME 020354,000280: 35,2133 26637 STOVL DELVTPF 020355,000281: 35,2134 03540 RACT3 020356,000282: 35,2135 45115 PDVL CALL 020357,000283: 35,2136 03612 VIPRIME 020358,000284: 35,2137 45153 PERIAPO1 020359,000285: 35,2140 77624 CALL 020360,000286: 35,2141 45263 SHIFTR1 020361,000287: 35,2142 16641 STODL POSTTPI 020362,000288: 35,2143 03663 TTPI 020363,000289: 35,2144 03413 STORE TIG 020364,000290: 35,2145 77776 EXIT 020365,000291: 35,2146 34616 CAF V06N58 020366,000292: 35,2147 04575 TC VNP00H 020367,000293: 35,2150 06006 TC INTPRET 020368,000294: 35,2151 77624 CALL 020369,000295: 35,2152 72741 S34/35.5 020370,000296: 35,2153 77624 CALL 020371,000297: 35,2154 73002 VN1645 020372,000298: 35,2155 77650 GOTO 020373,000299: 35,2156 72026 P34/P74C 020374,000300: 020375,000301: # Page 466 020376,000302: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75) 020377,000303: # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 020378,000304: # MOD BY WHITE, P. DATE: 1 JUNE 67 020379,000305: 020380,000306: # PURPOSE 020381,000307: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS 020382,000308: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT 020383,000309: # MID-COURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE 020384,000310: # VEHICLE RENDEZVOUS. 020385,000311: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT 020386,000312: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE 020387,000313: # ASTRONAUT/GROUND. 020388,000314: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED 020389,000315: # THRUSTING PROGRAM. 020390,000316: 020391,000317: # ASSUMPTIONS 020392,000318: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. 020393,000319: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC 020394,000320: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)). 020395,000321: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS 020396,000322: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS 020397,000323: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN 020398,000324: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE 020399,000325: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF 020400,000326: # P20 AND AFTER EACH THRUSTING MANEUVER. 020401,000327: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- 020402,000328: 020403,000329: # ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS 020404,000330: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 020405,000331: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF 020406,000332: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM. 020407,000333: 020408,000334: # FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS 020409,000335: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE. 020410,000336: 020411,000337: # EXTERNAL DELTA V FLAG -- DESIGNATES THE TYPE OF STEERING 020412,000338: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING 020413,000339: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM. 020414,000340: 020415,000341: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS 020416,000342: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM 020417,000343: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE. 020418,000344: # Page 467 020419,000345: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER 020420,000346: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE 020421,000347: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED. 020422,000348: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT 020423,000349: # THROUGH THE USE OF V06N52 020424,000350: 020425,000351: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE 020426,000352: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN 020427,000353: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE 020428,000354: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED 020429,000355: # UPON DELTA V AND EXPECTED MANEUVER TIME. 020430,000356: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -- 020431,000357: 020432,000358: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE. 020433,000359: 020434,000360: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE. 020435,000361: 020436,000362: # INPUT 020437,000363: # (1) TPASS4 TIME OF INTERCEPT -- SAVED FROM P34/P74 020438,000364: 020439,000365: # OUTPUT 020440,000366: # (1) TRKMKCNT NUMBER OF MARKS 020441,000367: # (2) TTOGO TIME TO GO 020442,000368: # (3) +MGA MIDDLE GIMBAL ANGLE 020443,000369: # (4) DVLOS DELTA VELOCITY AT MID -- LINE OF SIGHT 020444,000370: # (5) DELVLVC DELTA VELOCITY AT MID -- LOCAL VERTICAL COORDINATES 020445,000371: 020446,000372: # DOWNLINK 020447,000373: # (1) TIG TIME OF THE TPM MANEUVER 020448,000374: # (2) DELVEET3 DELTA VELOCITY AT TPM -- REFERENCE COORDINATES 020449,000375: # (3) TPASS4 TIME OF INTERCEPT 020450,000376: 020451,000377: # COMMUNICATION TO THRUSTING PROGRAMS 020452,000378: # (1) TIG TIME OF THE TPM MANEUVER 020453,000379: # (2) RTARG OFFSET TARGET POSITION 020454,000380: # (3) TPASS4 TIME OF INTERCEPT 020455,000381: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION. 020456,000382: 020457,000383: # SUBROUTINES USED 020458,000384: # AVFLAGA 020459,000385: # AVFLAGP 020460,000386: # LOADTIME 020461,000387: # SELECTMU 020462,000388: # PRECSET 020463,000389: # S34/35.1 020464,000390: # S34/35.2 020465,000391: # Page 468 020466,000392: # S34/35.5 020467,000393: # VN1645 020468,000394: 020469,000395: 35,2157 COUNT 35/P3575 020470,000396: 35,2157 E4,1763 EBANK= KT 020471,000397: 020472,000398: 35,2157 04627 P35 TC AVFLAGA 020473,000399: 35,2160 00006 EXTEND 020474,000400: 35,2161 31422 DCA ATIGINC 020475,000401: 35,2162 02166 TC P35/P75A 020476,000402: 35,2163 04642 P75 TC AVFLAGP 020477,000403: 35,2164 00006 EXTEND 020478,000404: 35,2165 31424 DCA PTIGINC 020479,000405: 35,2166 53764 P35/P75A DXCH KT 020480,000406: 35,2167 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG 020481,000407: 35,2170 06006 TC INTPRET 020482,000408: 35,2171 77624 CALL 020483,000409: 35,2172 10712 SELECTMU 020484,000410: 35,2173 77634 P35/P75B RTB 020485,000411: 35,2174 45510 LOADTIME 020486,000412: 35,2175 03665 STORE TSTRT 020487,000413: 35,2176 77615 DAD 020488,000414: 35,2177 02364 KT 020489,000415: 35,2200 03413 STORE TIG 020490,000416: 35,2201 03503 STORE INTIME # FOR INITVEL 020491,000417: 35,2202 34041 STCALL TDEC1 020492,000418: 35,2203 45215 PRECSET # ADVANCE BOTH VEHICLES 020493,000419: 35,2204 77624 CALL 020494,000420: 35,2205 74000 S34/35.1 # GET NORM AND LOS FOR TRANSFORM 020495,000421: 35,2206 77624 CALL 020496,000422: 35,2207 72526 S34/35.2 # GET DELTA V(LV) 020497,000423: 35,2210 77624 CALL 020498,000424: 35,2211 72741 S34/35.5 020499,000425: 35,2212 77624 CALL 020500,000426: 35,2213 73002 VN1645 020501,000427: 35,2214 77650 GOTO 020502,000428: 35,2215 72173 P35/P75B 020503,000429: # Page 469 020504,000430: # ***** S33/34.1 ***** 020505,000431: 020506,000432: 35,2216 66220 S33/34.1 STQ SSP 020507,000433: 35,2217 01340 NORMEX 020508,000434: 35,2220 03665 TITER 020509,000435: 35,2221 40000 OCT 40000 020510,000436: 35,2222 40345 DLOAD SETPD 020511,000437: 35,2223 33111 MAX250 020512,000438: 35,2224 00001 0D 020513,000439: 35,2225 27454 STOVL SECMAX 020514,000440: 35,2226 03540 RACT3 020515,000441: 35,2227 27576 STOVL RAPREC 020516,000442: 35,2230 03546 VACT3 020517,000443: 35,2231 27570 STOVL VAPREC 020518,000444: 35,2232 03554 RPASS3 020519,000445: 35,2233 27620 STOVL RPPREC 020520,000446: 35,2234 03562 VPASS3 020521,000447: 35,2235 03612 STORE VPPREC 020522,000448: 35,2236 77624 ELCALC CALL 020523,000449: 35,2237 74000 S34/35.1 # NORMAL AND LOS 020524,000450: 35,2240 63235 VXV PDVL 020525,000451: 35,2241 03540 RACT3 # (RA*VA)*RA 0D 020526,000452: 35,2242 53515 PDVL UNIT # ULOS AT 6D 020527,000453: 35,2243 03540 RACT3 020528,000454: 35,2244 46315 PDVL VPROJ # XCHNJ AND UP 020529,000455: 35,2245 51352 VSL2 BVSU 020530,000456: 35,2246 02625 ULOS 020531,000457: 35,2247 63256 UNIT PDVL # UP AT 0D 020532,000458: 35,2250 63241 DOT PDVL # UP.UN*RA AT 0D 020533,000459: 35,2251 00001 0D # UP IN MPAC 020534,000460: 35,2252 75241 DOT SIGN 020535,000461: 35,2253 02625 ULOS 020536,000462: 35,2254 65552 SL1 ACOS 020537,000463: 35,2255 50315 PDVL DOT # EA AT 0D 020538,000464: 35,2256 02625 ULOS 020539,000465: 35,2257 03540 RACT3 020540,000466: 35,2260 71244 BPL DLOAD 020541,000467: 35,2261 72264 TESTY 020542,000468: 35,2262 15343 DPPOSMAX 020543,000469: 35,2263 41425 DSU PUSH 020544,000470: 35,2264 71214 TESTY BOFF DLOAD 020545,000471: 35,2265 03741 ITSWICH 020546,000472: 35,2266 72513 ELEX 020547,000473: 35,2267 03452 DELEL 020548,000474: 35,2270 14033 STODL DELELO 020549,000475: 35,2271 77625 DSU 020550,000476: 35,2272 03744 ELEV 020551,000477: 35,2273 03452 STORE DELEL 020552,000478: 35,2274 45246 ABS DSU 020553,000479: 35,2275 33115 ELEPS 020554,000480: # Page 470 020555,000481: 35,2276 77640 BMN 020556,000482: 35,2277 72523 TIMEX # COMMERCIALS EVERYWHERE 020557,000483: 35,2300 70535 FIGTIME SLOAD SR1 020558,000484: 35,2301 03665 TITER 020559,000485: 35,2302 72030 BHIZ LXA,1 020560,000486: 35,2303 01340 NORMEX # TOO MANY ITERATIONS 020561,000487: 35,2304 00154 MPAC 020562,000488: 35,2305 77330 SXA,1 VLOAD 020563,000489: 35,2306 03664 TITER 020564,000490: 35,2307 03554 RPASS3 020565,000491: 35,2310 65256 UNIT PDDL 020566,000492: 35,2311 00045 36D 020567,000493: 35,2312 53515 PDVL UNIT 020568,000494: 35,2313 03540 RACT3 020569,000495: 35,2314 77725 PDDL 020570,000496: 35,2315 41525 PDDL PUSH 020571,000497: 35,2316 00045 36D 020572,000498: 35,2317 77621 BDSU 020573,000499: 35,2320 00015 12D 020574,000500: 35,2321 14037 STODL 30D # RP-RA MAGNITUDES 020575,000501: 35,2322 15333 DPHALF 020576,000502: 35,2323 41425 DSU PUSH 020577,000503: 35,2324 03744 ELEV 020578,000504: 35,2325 50165 SIGN BMN 020579,000505: 35,2326 00037 30D 020580,000506: 35,2327 01340 NORMEX 020581,000507: 35,2330 71545 DLOAD COS 020582,000508: 35,2331 56205 DMP DDV 020583,000509: 35,2332 00017 14D 020584,000510: 35,2333 00015 12D 020585,000511: 35,2334 77676 DCOMP # SINCE COS(180-A)=-COS A 020586,000512: 35,2335 00035 STORE 28D 020587,000513: 35,2336 44246 ABS BDSU 020588,000514: 35,2337 15333 DPHALF 020589,000515: 35,2340 77240 BMN VLOAD 020590,000516: 35,2341 01340 NORMEX 020591,000517: 35,2342 02617 UNRM 020592,000518: 35,2343 53435 VXV UNIT 020593,000519: 35,2344 00007 6D # UN*RA 020594,000520: 35,2345 41241 DOT DMP 020595,000521: 35,2346 03546 VACT3 020596,000522: 35,2347 00015 12D 020597,000523: 35,2350 47315 PDVL VXV 020598,000524: 35,2351 00001 0D 020599,000525: 35,2352 03562 VPASS3 020600,000526: 35,2353 53435 VXV UNIT 020601,000527: 35,2354 00001 0D # (RP*VP)*RP 020602,000528: 35,2355 41241 DOT DMP 020603,000529: 35,2356 03562 VPASS3 020604,000530: 35,2357 00017 14D 020605,000531: # Page 471 020606,000532: 35,2360 77621 BDSU 020607,000533: 35,2361 63301 NORM PDVL # NORMALIZED WA-WP 12D 020608,000534: 35,2362 00047 X1 020609,000535: 35,2363 00007 6D 020610,000536: 35,2364 50235 VXV DOT 020611,000537: 35,2365 00001 0D 020612,000538: 35,2366 02617 UNRM # RA*RP.UN 14D 020613,000539: 35,2367 50315 PDVL DOT 020614,000540: 35,2370 00001 0D 020615,000541: 35,2371 00007 6D 020616,000542: 35,2372 65552 SL1 ACOS 020617,000543: 35,2373 77765 SIGN 020618,000544: 35,2374 43225 DSU DAD # ALPHA PI 020619,000545: 35,2375 15333 DPHALF 020620,000546: 35,2376 03744 ELEV 020621,000547: 35,2377 65525 PDDL ACOS 020622,000548: 35,2400 00035 28D 020623,000549: 35,2401 75221 BDSU SIGN 020624,000550: 35,2402 15333 DPHALF 020625,000551: 35,2403 00037 30D # CONTAINS RP-RA 020626,000552: 35,2404 77615 DAD 020627,000553: 35,2405 56205 DMP DDV 020628,000554: 35,2406 33107 TWOPI 020629,000555: 35,2407 77605 DMP 020630,000556: 35,2410 41257 SL* DMP 020631,000557: 35,2411 20176 0 -3,1 020632,000558: 35,2412 51406 PUSH ABS 020633,000559: 35,2413 50025 DSU BMN 020634,000560: 35,2414 03454 SECMAX 020635,000561: 35,2415 72421 OKMAX 020636,000562: 35,2416 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED 020637,000563: 35,2417 03454 SECMAX 020638,000564: 35,2420 77606 PUSH 020639,000565: 35,2421 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION 020640,000566: 35,2422 03665 TITER 020641,000567: 35,2423 72431 REPETE 020642,000568: 35,2424 71331 SSP DLOAD 020643,000569: 35,2425 03665 TITER 020644,000570: 35,2426 37777 OCT 37777 020645,000571: 35,2427 77650 GOTO 020646,000572: 35,2430 72467 STORDELT 020647,000573: 35,2431 41345 REPETE DLOAD DMP 020648,000574: 35,2432 03452 DELEL 020649,000575: 35,2433 00033 DELELO 020650,000576: 35,2434 71244 BPL DLOAD 020651,000577: 35,2435 72445 NEXTES 020652,000578: 35,2436 03454 SECMAX 020653,000579: 35,2437 77605 DMP 020654,000580: 35,2440 33113 THIRD 020655,000581: 35,2441 17454 STODL SECMAX 020656,000582: # Page 472 020657,000583: 35,2442 70446 ABS SR1 # CROSSED OVER SOLUTION 020658,000584: 35,2443 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2 020659,000585: 35,2444 72455 RESIGN 020660,000586: 35,2445 51545 NEXTES DLOAD ABS 020661,000587: 35,2446 03452 DELEL 020662,000588: 35,2447 51525 PDDL ABS 020663,000589: 35,2450 00033 DELELO 020664,000590: 35,2451 77625 DSU 020665,000591: 35,2452 71240 BMN DLOAD 020666,000592: 35,2453 72460 REVERS # WRONG DIRECTION 020667,000593: 35,2454 77646 ABS 020668,000594: 35,2455 52165 RESIGN SIGN GOTO 020669,000595: 35,2456 03450 DELTEEO 020670,000596: 35,2457 72467 STORDELT 020671,000597: 35,2460 57545 REVERS DLOAD DCOMP 020672,000598: 35,2461 03450 DELTEEO 020673,000599: 35,2462 70406 PUSH SR1 020674,000600: 35,2463 03450 STORE DELTEEO 020675,000601: 35,2464 77615 DAD 020676,000602: 35,2465 77650 GOTO 020677,000603: 35,2466 72470 ADTIME 020678,000604: 35,2467 03450 STORDELT STORE DELTEEO 020679,000605: 35,2470 77615 ADTIME DAD 020680,000606: 35,2471 02364 NOMTPI # SUM OF DELTA T:S 020681,000607: 35,2472 02364 STORE NOMTPI 020682,000608: 35,2473 63375 VLOAD PDVL 020683,000609: 35,2474 03570 VAPREC 020684,000610: 35,2475 03576 RAPREC 020685,000611: 35,2476 77624 CALL 020686,000612: 35,2477 72701 GOINT 020687,000613: 35,2500 77624 CALL 020688,000614: 35,2501 45237 ACTIVE # STORE NEW RACT3 VACT3 020689,000615: 35,2502 63375 VLOAD PDVL 020690,000616: 35,2503 03612 VPPREC 020691,000617: 35,2504 03620 RPPREC 020692,000618: 35,2505 77624 CALL 020693,000619: 35,2506 72701 GOINT 020694,000620: 35,2507 77624 CALL 020695,000621: 35,2510 45247 PASSIVE # STORE NEW RPASS3 VPASS3 020696,000622: 35,2511 77650 GOTO 020697,000623: 35,2512 72236 ELCALC 020698,000624: 35,2513 43345 ELEX DLOAD DAD 020699,000625: 35,2514 03663 TTPI 020700,000626: 35,2515 02364 NOMTPI 020701,000627: 35,2516 17663 STODL TTPI 020702,000628: 35,2517 77614 BON 020703,000629: 35,2520 01310 ETPIFLAG 020704,000630: 35,2521 72523 TIMEX 020705,000631: 35,2522 03744 STORE ELEV 020706,000632: 35,2523 52145 TIMEX DLOAD GOTO 020707,000633: # Page 473 020708,000634: 35,2524 15335 ZEROVECS 020709,000635: 35,2525 01340 NORMEX 020710,000636: 020711,000637: # Page 474 020712,000638: # ***** S34/35.1 ***** 020713,000639: 020714,000640: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND 020715,000641: # PASSIVE POS AND VEL AT TIME T3 020716,000642: 36,2000 SETLOC S3435LOC 020717,000643: 36,2000 BANK 020718,000644: 020719,000645: 36,2000 52375 S34/35.1 VLOAD VSU 020720,000646: 36,2001 03554 RPASS3 020721,000647: 36,2002 03540 RACT3 020722,000648: 36,2003 41456 UNIT PUSH 020723,000649: 36,2004 26625 STOVL ULOS 020724,000650: 36,2005 03540 RACT3 020725,000651: 36,2006 53435 VXV UNIT 020726,000652: 36,2007 03546 VACT3 020727,000653: 36,2010 02617 STORE UNRM 020728,000654: 36,2011 77616 RVQ 020729,000655: 020730,000656: # Page 475 020731,000657: # ***** S34/35.2 ***** 020732,000658: 020733,000659: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT 020734,000660: 35,2000 SETLOC CSI/CDH 020735,000661: 35,2000 BANK 020736,000662: 020737,000663: 35,2526 77220 S34/35.2 STQ VLOAD 020738,000664: 35,2527 02370 SUBEXIT 020739,000665: 35,2530 03562 VPASS3 020740,000666: 35,2531 65315 PDVL PDDL 020741,000667: 35,2532 03554 RPASS3 020742,000668: 35,2533 03503 INTIME 020743,000669: 35,2534 65325 PDDL PDDL 020744,000670: 35,2535 03656 TPASS4 020745,000671: 35,2536 33107 TWOPI # CONIC 020746,000672: 35,2537 46125 PDDL BHIZ 020747,000673: 35,2540 03766 NN 020748,000674: 35,2541 72544 S3435.23 020749,000675: 35,2542 65345 DLOAD PDDL 020750,000676: 35,2543 15335 ZEROVECS # PRECISION 020751,000677: 35,2544 77624 S3435.23 CALL 020752,000678: 35,2545 72705 INTINT # GET TARGET VECTOR 020753,000679: 35,2546 27415 S3435.25 STOVL RTARG 020754,000680: 35,2547 00007 VATT 020755,000681: 35,2550 27640 STOVL VPASS4 020756,000682: 35,2551 03415 RTARG 020757,000683: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI) SIGN(RA*RP.U) 020758,000684: 35,2552 63256 UNIT PDVL # UNIT RP 020759,000685: 35,2553 03540 RACT3 020760,000686: 35,2554 41456 UNIT PUSH # UNIT RA 020761,000687: 35,2555 50235 VXV DOT 020762,000688: 35,2556 00001 0D 020763,000689: 35,2557 02617 UNRM # RA*RP.U 020764,000690: 35,2560 77715 PDVL 020765,000691: 35,2561 72441 DOT SL1 # UNIT RA.UNIT RP 020766,000692: 35,2562 00001 0D 020767,000693: 35,2563 75326 ACOS SIGN 020768,000694: 35,2564 43244 BPL DAD 020769,000695: 35,2565 72567 NOPIE 020770,000696: 35,2566 15343 DPPOSMAX # REASONABLE TWO PI 020771,000697: 35,2567 16633 NOPIE STODL ACTCENT 020772,000698: 35,2570 03656 TPASS4 020773,000699: 35,2571 77625 DSU 020774,000700: 35,2572 03503 INTIME 020775,000701: 35,2573 03423 STORE DELLT4 020776,000702: 35,2574 40335 SLOAD SETPD 020777,000703: 35,2575 03766 NN # NUMBER OF OFFSETS 020778,000704: 35,2576 00001 0D 020779,000705: 35,2577 63325 PDDL PDVL 020780,000706: 35,2600 33122 EPSFOUR 020781,000707: # Page 476 020782,000708: 35,2601 03540 RACT3 020783,000709: 35,2602 27570 STOVL RINIT 020784,000710: 35,2603 03546 VACT3 020785,000711: 35,2604 37576 STCALL VINIT 020786,000712: 35,2605 22000 INITVEL 020787,000713: 35,2606 77624 CALL 020788,000714: 35,2607 72666 LOMAT 020789,000715: 35,2610 64375 VLOAD MXV 020790,000716: 35,2611 03646 DELVEET3 020791,000717: 35,2612 00001 0D 020792,000718: 35,2613 77772 VSL1 020793,000719: 35,2614 37405 STCALL DELVLVC 020794,000720: 35,2615 02370 SUBEXIT 020795,000721: 020796,000722: # Page 477 020797,000723: # ***** S34/35.3 ***** 020798,000724: 020799,000725: 35,2616 45020 S34/35.3 STQ CALL 020800,000726: 35,2617 01340 NORMEX 020801,000727: 35,2620 72666 LOMAT # GET MATRIX IN PUSH LIST 020802,000728: 35,2621 61375 VLOAD VXM 020803,000729: 35,2622 03405 DELVLVC # NEW DEL V TPI 020804,000730: 35,2623 00001 0D 020805,000731: 35,2624 77772 VSL1 020806,000732: 35,2625 03646 STORE DELVEET3 # SAVE FOR TRANSFORM 020807,000733: 35,2626 63255 VAD PDVL 020808,000734: 35,2627 03546 VACT3 # NEW V REQ 020809,000735: 35,2630 03540 RACT3 020810,000736: 35,2631 65325 PDDL PDDL 020811,000737: 35,2632 03413 TIG 020812,000738: 35,2633 03656 TPASS4 020813,000739: 35,2634 41525 PDDL PUSH 020814,000740: 35,2635 15343 DPPOSMAX 020815,000741: 35,2636 77624 CALL # INTEG. FOR NEW TARGET VEC 020816,000742: 35,2637 72705 INTINT 020817,000743: 35,2640 77775 VLOAD 020818,000744: 35,2641 00001 RATT 020819,000745: 35,2642 03415 STORE RTARG 020820,000746: 35,2643 41575 NOVRWRT VLOAD PUSH 020821,000747: 35,2644 02625 ULOS 020822,000748: 35,2645 57435 VXV VCOMP 020823,000749: 35,2646 02617 UNRM 020824,000750: 35,2647 41456 UNIT PUSH 020825,000751: 35,2650 76435 VXV VSL1 020826,000752: 35,2651 02625 ULOS 020827,000753: 35,2652 77715 PDVL 020828,000754: 35,2653 64315 PDVL MXV 020829,000755: 35,2654 03646 DELVEET3 020830,000756: 35,2655 00001 0D 020831,000757: 35,2656 77772 VSL1 020832,000758: 35,2657 36611 STCALL DVLOS 020833,000759: 35,2660 01340 NORMEX 020834,000760: 020835,000761: # Page 478 020836,000762: # ***** S34/35.4 ***** 020837,000763: 020838,000764: 35,2661 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE 020839,000765: 35,2662 01340 NORMEX 020840,000766: 35,2663 00001 0D 020841,000767: 35,2664 77650 GOTO 020842,000768: 35,2665 72643 NOVRWRT 020843,000769: 020844,000770: # Page 479 020845,000771: # ***** LOMAT ***** 020846,000772: 020847,000773: 35,2666 57575 LOMAT VLOAD VCOMP 020848,000774: 35,2667 02617 UNRM 020849,000775: 35,2670 24007 STOVL 6D # Y 020850,000776: 35,2671 03540 RACT3 020851,000777: 35,2672 57456 UNIT VCOMP 020852,000778: 35,2673 00015 STORE 12D 020853,000779: 35,2674 76435 VXV VSL1 020854,000780: 35,2675 02617 UNRM # Z*-Y 020855,000781: 35,2676 00001 STORE 0D 020856,000782: 35,2677 43401 SETPD RVQ 020857,000783: 35,2700 00023 18D 020858,000784: 35,2701 65325 GOINT PDDL PDDL # DO 020859,000785: 35,2702 15335 ZEROVECS # NOT 020860,000786: 35,2703 02364 NOMTPI 020861,000787: 35,2704 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT 020862,000788: 35,2705 45020 INTINT STQ CALL 020863,000789: 35,2706 02367 RTRN 020864,000790: 35,2707 27442 INTSTALL 020865,000791: 35,2710 71214 CLEAR DLOAD 020866,000792: 35,2711 01673 INTYPFLG 020867,000793: 35,2712 43054 BZE SET 020868,000794: 35,2713 72715 +2 020869,000795: 35,2714 01473 INTYPFLG 020870,000796: 35,2715 45545 DLOAD STADR 020871,000797: 35,2716 63736 STODL TDEC1 020872,000798: 35,2717 73014 SET LXA,2 020873,000799: 35,2720 00063 MOONFLAG 020874,000800: 35,2721 03746 RTX2 020875,000801: 35,2722 43014 BON CLEAR 020876,000802: 35,2723 04303 CMOONFLG 020877,000803: 35,2724 72726 ALLSET 020878,000804: 35,2725 00263 MOONFLAG 020879,000805: 35,2726 25517 ALLSET STOVL TET 020880,000806: 35,2727 77657 VSR* 020881,000807: 35,2730 57176 0,2 020882,000808: 35,2731 25535 STOVL RCV 020883,000809: 35,2732 77657 VSR* 020884,000810: 35,2733 57176 0,2 020885,000811: 35,2734 35543 STCALL VCV 020886,000812: 35,2735 27135 INTEGRVS 020887,000813: 35,2736 52175 VLOAD GOTO 020888,000814: 35,2737 00001 RATT 020889,000815: 35,2740 02367 RTRN 020890,000816: 020891,000817: # Page 480 020892,000818: # ***** S34/35.5 ***** 020893,000819: 020894,000820: # SUBROUTINES USED 020895,000821: # BANKCALL 020896,000822: # GOFLASH 020897,000823: # GOTOP00H 020898,000824: # S34/35.3 020899,000825: # S34.35.4 020900,000826: # VNP00H 020901,000827: 020902,000828: 35,2741 43020 S34/35.5 STQ BON 020903,000829: 35,2742 02370 SUBEXIT 020904,000830: 35,2743 01311 FINALFLG 020905,000831: 35,2744 72750 FLAGON 020906,000832: 35,2745 52014 SET GOTO 020907,000833: 35,2746 00470 UPDATFLG 020908,000834: 35,2747 72772 FLAGOFF 020909,000835: 35,2750 77775 FLAGON VLOAD 020910,000836: 35,2751 03405 DELVLVC 020911,000837: 35,2752 02611 STORE DVLOS # SAVE DELTA V BEFORE DISPLAY 020912,000838: 35,2753 77776 EXIT 020913,000839: 35,2754 34620 CAF V06N81 020914,000840: 35,2755 04575 TC VNP00H 020915,000841: 35,2756 06006 TC INTPRET 020916,000842: 35,2757 52375 VLOAD VSU # TEST FOR OVERWRITE OF COMPUTED 020917,000843: 35,2760 03405 DELVLVC # DELTA V 020918,000844: 35,2761 02611 DVLOS 020919,000845: 35,2762 53046 ABVAL BZE 020920,000846: 35,2763 72766 NOCHG # NO OVERWRITE 020921,000847: 35,2764 77624 CALL 020922,000848: 35,2765 72616 S34/35.3 020923,000849: 35,2766 77214 NOCHG CLEAR VLOAD 020924,000850: 35,2767 01267 XDELVFLG 020925,000851: 35,2770 03646 DELVEET3 020926,000852: 35,2771 03646 STORE DELVSIN 020927,000853: 35,2772 77624 FLAGOFF CALL 020928,000854: 35,2773 72661 S34/35.4 020929,000855: 35,2774 77776 EXIT 020930,000856: 35,2775 34617 CAF V06N59 020931,000857: 35,2776 04575 TC VNP00H 020932,000858: 35,2777 06006 TC INTPRET 020933,000859: 35,3000 77650 GOTO 020934,000860: 35,3001 02370 SUBEXIT 020935,000861: 020936,000862: # Page 481 020937,000863: # ***** VN1645 ***** 020938,000864: 020939,000865: # SUBROUTINES USED 020940,000866: # P3XORP7X 020941,000867: # GET+MGA 020942,000868: # BANKCALL 020943,000869: # DELAYJOB 020944,000870: # COMPTGO 020945,000871: # GOFLASHR 020946,000872: # GOTOP00H 020947,000873: # FLAGUP 020948,000874: 020949,000875: 35,3002 71220 VN1645 STQ DLOAD 020950,000876: 35,3003 02370 SUBEXIT 020951,000877: 35,3004 33120 DP-.01 020952,000878: 35,3005 03626 STORE +MGA # MGA = -.01 020953,000879: 35,3006 71214 BOFF DLOAD 020954,000880: 35,3007 01351 FINALFLG 020955,000881: 35,3010 73030 GET45 020956,000882: 35,3011 33120 DP-.01 020957,000883: 35,3012 77615 DAD 020958,000884: 35,3013 33120 DP-.01 020959,000885: 35,3014 03626 STORE +MGA # MGA = -.02 020960,000886: 35,3015 77414 BOFF EXIT 020961,000887: 35,3016 01742 REFSMFLG 020962,000888: 35,3017 73030 GET45 020963,000889: 35,3020 03100 TC P3XORP7X 020964,000890: 35,3021 03023 TC +2 # P3X 020965,000891: 35,3022 03031 TC GET45 +1 # P7X 020966,000892: 35,3023 06006 TC INTPRET 020967,000893: 35,3024 41575 VLOAD PUSH 020968,000894: 35,3025 03646 DELVSIN 020969,000895: 35,3026 77624 CALL # COMPUTE MGA 020970,000896: 35,3027 10654 GET+MGA 020971,000897: 35,3030 77776 GET45 EXIT 020972,000898: 35,3031 03304 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO 020973,000899: 35,3032 31770 CA SUBEXIT 020974,000900: 35,3033 55766 TS QSAVED 020975,000901: 35,3034 35041 CAF 1SEC 020976,000902: 35,3035 04662 TC BANKCALL 020977,000903: 35,3036 01732 CADR DELAYJOB 020978,000904: 35,3037 34621 CAF V16N45 # TRKMKCNT, TTOGO, +MGA 020979,000905: 35,3040 04662 TC BANKCALL 020980,000906: 35,3041 20720 CADR GOFLASH 020981,000907: 35,3042 03045 TC KILCLOCK # TERMINATE 020982,000908: 35,3043 03050 TC N45PROC # PROCEED 020983,000909: 35,3044 03060 TC CLUPDATE # RECYCLE -- RETURN FOR INITIAL COMPUTATION 020984,000910: 35,3045 30005 KILCLOCK CA Z 020985,000911: 35,3046 54000 TS DISPDEX 020986,000912: # Page 482 020987,000913: 35,3047 04106 TC GOTOP00H 020988,000914: 35,3050 40076 N45PROC CS FLAGWRD2 020989,000915: 35,3051 75012 MASK BIT6 020990,000916: 35,3052 00006 EXTEND 020991,000917: 35,3053 13045 BZF KILCLOCK # FINALFLG IS SET -- FLASH V37 -- AWAIT NEW PGM 020992,000918: 35,3054 05412 TC PHASCHNG 020993,000919: 35,3055 04024 OCT 04024 020994,000920: 35,3056 05546 TC UPFLAG # SET 020995,000921: 35,3057 00047 ADRES FINALFLG # FINALFLG 020996,000922: 35,3060 30005 CLUPDATE CA Z 020997,000923: 35,3061 54000 TS DISPDEX 020998,000924: 35,3062 05412 TC PHASCHNG 020999,000925: 35,3063 04024 OCT 04024 021000,000926: 35,3064 06006 TC INTPRET 021001,000927: 35,3065 52014 CLEAR GOTO 021002,000928: 35,3066 00670 UPDATFLG 021003,000929: 35,3067 02366 QSAVED 021004,000930: 021005,000931: # Page 483 021006,000932: # ***** DISPLAYE ***** 021007,000933: 021008,000934: # SUBROUTINES USED 021009,000935: # BANKCALL 021010,000936: # GOFLASHR 021011,000937: # GOTOP00H 021012,000938: # BLANKET 021013,000939: # ENDOFJOB 021014,000940: 021015,000941: 35,3070 00006 DISPLAYE EXTEND 021016,000942: 35,3071 23340 QXCH NORMEX 021017,000943: 35,3072 34615 CAF V06N55 021018,000944: 35,3073 04662 TCR BANKCALL 021019,000945: 35,3074 20720 CADR GOFLASH 021020,000946: 35,3075 14106 TCF GOTOP00H 021021,000947: 35,3076 01340 TC NORMEX 021022,000948: 35,3077 13072 TCF -5 021023,000949: 021024,000950: # Page 484 021025,000951: # ***** P3XORP7X ***** 021026,000952: 021027,000953: 35,3100 37713 P3XORP7X CAF HIGH9 021028,000954: 35,3101 71011 MASK MODREG 021029,000955: 35,3102 00006 EXTEND 021030,000956: 35,3103 13105 BZF +2 021031,000957: 35,3104 24002 INCR Q 021032,000958: 35,3105 00002 RETURN 021033,000959: 021034,000960: # ***** VNP00H ***** 021035,000961: 021036,000962: # SUBROUTINES USED 021037,000963: # BANKCALL 021038,000964: # GOFLASH 021039,000965: # GOTOP00H 021040,000966: 021041,000967: 4000 SETLOC P30SUBS 021042,000968: 4000 BANK 021043,000969: 021044,000970: 4575 00006 VNP00H EXTEND 021045,000971: 4576 23767 QXCH RTRN 021046,000972: 4577 55765 TS VERBNOUN 021047,000973: 4600 34610 CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN 021048,000974: 4601 56004 XCH FBANK # FIXED-FIXED ***** 021049,000975: 4602 55063 TS TBASE5 # * WATCH OUT * 021050,000976: 021051,000977: 4603 31765 CA VERBNOUN 021052,000978: 4604 04662 TCR BANKCALL 021053,000979: 4605 20720 CADR GOFLASH 021054,000980: 4606 14106 TCF GOTOP00H 021055,000981: 4607 14611 TCF +2 021056,000982: 4610 04603 VNBANK TC -5 021057,000983: 021058,000984: 4611 31063 CA TBASE5 021059,000985: 4612 54004 TS FBANK 021060,000986: 4613 01767 TC RTRN 021061,000987: 021062,000988: # Page 485 021063,000989: # ***** CONSTANTS ***** 021064,000990: 021065,000991: 4614 01445 V06N37 VN 0637 021066,000992: 4615 01467 V06N55 VN 0655 021067,000993: 4616 01472 V06N58 VN 0658 021068,000994: 4617 01473 V06N59 VN 0659 021069,000995: 4620 01521 V06N81 VN 0681 021070,000996: 4621 04055 V16N45 VN 1645 021071,000997: 35,2000 SETLOC CSI/CDH 021072,000998: 35,2000 BANK 021073,000999: 021074,001000: 35,3106 14441 37325 TWOPI 2DEC 6.283185307 B-4 021075,001001: 35,3110 00001 20650 MAX250 2DEC 25 E3 021076,001002: 35,3112 12525 12525 THIRD 2DEC .333333333 021077,001003: 35,3114 00004 21505 ELEPS 2DEC .27777777 E-3 021078,001004: 35,3116 00002 DECTWO OCT 2 021079,001005: 35,3117 77777 DP-.01 OCT 77777 # CONSTANTS 021080,001006: 35,3120 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP 021081,001007: 35,3121 01252 25253 EPSFOUR 2DEC .0416666666 021082,001008: 021083,001009: # Page 486 021084,001010: # ***** INITVEL ***** 021085,001011: # MOD NO -1 LOG SECTION -- P34-P35, P74-P75 021086,001012: # MOD BY WHITE, P. DATE: 21 NOV 67 021087,001013: 021088,001014: # FUNCTIONAL DESCRIPTION 021089,001015: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR 021090,001016: # A TRAJECTORY OF SPECIFIC TRANSFER TIME BETWEEN SPECIFIED INITIAL 021091,001017: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR 021092,001018: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF 021093,001019: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE 021094,001020: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED 021095,001021: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET 021096,001022: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH 021097,001023: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE 021098,001024: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR. 021099,001025: 021100,001026: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE 021101,001027: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE 021102,001028: # SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS 021103,001029: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR 021104,001030: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR), 021105,001031: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX 021106,001032: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE 021107,001033: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER. 021108,001034: 021109,001035: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMUTATIONS AND 021110,001036: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION 021111,001037: # TRAJECTORY COMPUTATIONS. 021112,001038: 021113,001039: # CALLING SEQUENCE 021114,001040: # L CALL 021115,001041: # L+1 INITVEL 021116,001042: # L+2 (RETURN -- ALWAYS) 021117,001043: 021118,001044: # INPUT 021119,001045: # (1) RINIT INITIAL POSITION RADIUS VECTOR 021120,001046: # (2) VINIT INITIAL POSITION VELOCITY VECTOR 021121,001047: # (3) RTARG TARGET POSITION RADIUS VECTOR 021122,001048: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG 021123,001049: # (5) INTIME TIME OF RINIT 021124,001050: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS 021125,001051: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS 021126,001052: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR 021127,001053: # (9) RTX2 COORDINATE SYSTEM ORIGIN -- 0 FOR EARTH, 2 FOR LUNAR 021128,001054: # PUSHLOC SET AT 4D 021129,001055: 021130,001056: # Page 487 021131,001057: # OUTPUT 021132,001058: # (1) RTARG OFFSET TARGET POSITION VECTOR 021133,001059: # (2) VIPRIME MANEUVER VELOCITY REQUIRED 021134,001060: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER 021135,001061: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER 021136,001062: 021137,001063: # SUBROUTINES USED 021138,001064: # LAMBERT 021139,001065: # INTSTALL 021140,001066: # INTEGRVS 021141,001067: 021142,001068: 11,2000 SETLOC INTVEL 021143,001069: 11,2000 BANK 021144,001070: 021145,001071: 11,2000 COUNT 11/INITV 021146,001072: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE 021147,001073: 11,2001 00475 GUESSW 021148,001074: 11,2002 44175 HAVEGUES VLOAD STQ 021149,001075: 11,2003 03415 RTARG 021150,001076: 11,2004 01340 NORMEX 021151,001077: 11,2005 03604 STORE RTARG1 021152,001078: 11,2006 46135 SLOAD BHIZ 021153,001079: 11,2007 03747 RTX2 021154,001080: 11,2010 22022 INITVEL1 021155,001081: 11,2011 72575 VLOAD VSL2 021156,001082: 11,2012 03570 RINIT # B29 021157,001083: 11,2013 27570 STOVL RINIT # B27 021158,001084: 11,2014 03576 VINIT # B7 021159,001085: 11,2015 77752 VSL2 021160,001086: 11,2016 27576 STOVL VINIT # B5 021161,001087: 11,2017 03604 RTARG1 021162,001088: 11,2020 77752 VSL2 021163,001089: 11,2021 03604 STORE RTARG1 021164,001090: 021165,001091: # INITIALIZATION 021166,001092: 021167,001093: 11,2022 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D) 021168,001094: 11,2023 03505 ITCTR 021169,001095: 11,2024 77776 0 -1 021170,001096: 11,2025 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2) 021171,001097: 11,2026 17630 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D) 021172,001098: 11,2027 67154 LXA,2 SXA,2 021173,001099: 11,2030 00154 MPAC 021174,001100: 11,2031 02703 VTARGTAG # SET VTARGTAG TO 0D (SP) 021175,001101: 11,2032 77775 VLOAD 021176,001102: 11,2033 03570 RINIT 021177,001103: 11,2034 26657 STOVL R1VEC # R1VEC EQ RINIT 021178,001104: 11,2035 03604 RTARG1 021179,001105: # Page 488 021180,001106: 11,2036 16665 STODL R2VEC # R2VEC EQ RTARG 021181,001107: 11,2037 03423 DELLT4 021182,001108: 11,2040 02673 STORE TDESIRED # TDESIRED EQ DELLT4 021183,001109: 11,2041 77201 SETPD VLOAD 021184,001110: 11,2042 00001 0D # INITIALIZE PL TO 0D 021185,001111: 11,2043 03570 RINIT # MPAC EQ RINIT (+29) 021186,001112: 11,2044 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D) 021187,001113: 11,2045 53435 VXV UNIT 021188,001114: 11,2046 03576 VINIT # MPAC EQ UNIT(RI) X VI (+8) 021189,001115: 11,2047 26676 STOVL UN 021190,001116: 11,2050 03604 RTARG1 021191,001117: 11,2051 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D) 021192,001118: 11,2052 43015 DAD CLEAR 021193,001119: 11,2053 03630 COZY4 021194,001120: 11,2054 03665 NORMSW 021195,001121: 11,2055 03630 STORE COZY4 021196,001122: 11,2056 43044 INITVEL2 BPL SET 021197,001123: 11,2057 22101 INITVEL3 # UN CALCULATED IN LAMBERT 021198,001124: 11,2060 03465 NORMSW 021199,001125: 021200,001126: # ROTATE RC INTO YC PLANE -- SET UNIT NORMAL TO YC 021201,001127: 021202,001128: 11,2061 41575 VLOAD PUSH # (PL 6D) 021203,001129: 11,2062 02665 R2VEC # RC TO 6D (+29) 021204,001130: 11,2063 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D) 021205,001131: 11,2064 46206 PUSH VPROJ # (PL 8D) 021206,001132: 11,2065 02676 UN 021207,001133: 11,2066 51352 VSL2 BVSU 021208,001134: 11,2067 74256 UNIT VXSC # (PL 0D) 021209,001135: 11,2070 77772 VSL1 021210,001136: 11,2071 02665 STORE R2VEC 021211,001137: 11,2072 67351 TLOAD SLOAD 021212,001138: 11,2073 11566 ZEROVEC 021213,001139: 11,2074 03505 ITCTR 021214,001140: 11,2075 77244 BPL VLOAD 021215,001141: 11,2076 22101 INITVEL3 021216,001142: 11,2077 02665 R2VEC 021217,001143: 11,2100 03604 STORE RTARG1 021218,001144: 11,2101 63345 INITVEL3 DLOAD PDVL # (PL 2D) 021219,001145: 11,2102 27735 MUEARTH # POSITIVE VALUE 021220,001146: 11,2103 02665 R2VEC 021221,001147: 11,2104 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D) 021222,001148: 11,2105 02657 R1VEC 021223,001149: 11,2106 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL 14D) 021224,001150: 11,2107 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC) 021225,001151: 11,2110 00003 2D 021226,001152: 11,2111 77606 PUSH # (PL 20D) 021227,001153: 11,2112 71350 LXA,1 DLOAD 021228,001154: 11,2113 03745 RTX1 021229,001155: 11,2114 00023 18D 021230,001156: 11,2115 62040 BMN INCR,1 021231,001157: # Page 489 021232,001158: 11,2116 22120 +2 021233,001159: 11,2117 77767 DEC -8 B-14 021234,001160: 11,2120 67310 INCR,1 SLOAD 021235,001161: 11,2121 00012 10D 021236,001162: 11,2122 00047 X1 021237,001163: 11,2123 77230 BHIZ VLOAD # (PL 14D) 021238,001164: 11,2124 22126 +2 021239,001165: 11,2125 41476 VCOMP PUSH # (PL 20 D) 021240,001166: 11,2126 77775 VLOAD # (PL 14D) 021241,001167: 11,2127 50235 VXV DOT # (PL 2D) 021242,001168: 11,2130 71244 BPL DLOAD # (PL 0D) 021243,001169: 11,2131 22133 INITVEL4 021244,001170: 11,2132 41476 DCOMP PUSH # (PL 2D) 021245,001171: 11,2133 67154 INITVEL4 LXA,2 SXA,2 021246,001172: 11,2134 00000 0D 021247,001173: 11,2135 02674 GEOMSGN 021248,001174: 021249,001175: # SET INPUTS UP FOR LAMBERT 021250,001176: 021251,001177: 11,2136 45150 LXA,1 CALL 021252,001178: 11,2137 03745 RTX1 021253,001179: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE) 021254,001180: 021255,001181: 11,2140 25224 LAMBERT 021256,001182: 021257,001183: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS. 021258,001184: 021259,001185: 11,2141 77214 CLEAR VLOAD 021260,001186: 11,2142 00675 GUESSW 021261,001187: 11,2143 02746 VVEC 021262,001188: 021263,001189: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME 021264,001190: 021265,001191: 11,2144 17612 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7) 021266,001192: 021267,001193: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE 021268,001194: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS). 021269,001195: 021270,001196: 11,2145 02704 VTARGTAG 021271,001197: 11,2146 45030 BHIZ CALL 021272,001198: 11,2147 22224 INITVEL7 021273,001199: 11,2150 27442 INTSTALL 021274,001200: 11,2151 43135 SLOAD CLEAR 021275,001201: 11,2152 03747 RTX2 021276,001202: 11,2153 00263 MOONFLAG 021277,001203: 11,2154 43030 BHIZ SET 021278,001204: 11,2155 22157 INITVEL5 021279,001205: 11,2156 00063 MOONFLAG 021280,001206: 11,2157 77775 INITVEL5 VLOAD 021281,001207: 11,2160 03570 RINIT 021282,001208: 11,2161 02657 STORE R1VEC 021283,001209: # Page 490 021284,001210: 11,2162 25535 STOVL RCV 021285,001211: 11,2163 03612 VIPRIME 021286,001212: 11,2164 15543 STODL VCV 021287,001213: 11,2165 03503 INTIME 021288,001214: 11,2166 01517 STORE TET 021289,001215: 11,2167 43015 DAD CLEAR 021290,001216: 11,2170 03423 DELLT4 021291,001217: 11,2171 01673 INTYPFLG 021292,001218: 11,2172 34041 STCALL TDEC1 021293,001219: 11,2173 27135 INTEGRVS 021294,001220: 11,2174 77775 VLOAD 021295,001221: 11,2175 00025 VATT1 021296,001222: 11,2176 02705 STORE VTARGET 021297,001223: 021298,001224: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT 021299,001225: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE 021300,001226: 021301,001227: 11,2177 63154 LXA,2 INCR,2 021302,001228: 11,2200 03504 ITCTR 021303,001229: 11,2201 00001 1D # INCREMENT ITCTR 021304,001230: 11,2202 55134 SXA,2 XSU,2 021305,001231: 11,2203 03504 ITCTR 021306,001232: 11,2204 02703 VTARGTAG 021307,001233: 11,2205 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC 021308,001234: 11,2206 00050 X2 021309,001235: 11,2207 22221 INITVEL6 021310,001236: 021311,001237: # OFFSET CONIC TARGET VECTGOR 021312,001238: 021313,001239: 11,2210 52375 VLOAD VSU 021314,001240: 11,2211 03604 RTARG1 021315,001241: 11,2212 00017 RATT1 021316,001242: 11,2213 77655 VAD 021317,001243: 11,2214 02665 R2VEC 021318,001244: 11,2215 16665 STODL R2VEC 021319,001245: 11,2216 03630 COZY4 021320,001246: 11,2217 77650 GOTO 021321,001247: 11,2220 22056 INITVEL2 # CONTINUE ITERATING AT INITVEL2 021322,001248: 021323,001249: # COMPUTE THE DELTA VELOCITY 021324,001250: 021325,001251: 11,2221 77775 INITVEL6 VLOAD 021326,001252: 11,2222 02665 R2VEC 021327,001253: 11,2223 03604 STORE RTARG1 021328,001254: 11,2224 52375 INITVEL7 VLOAD VSU 021329,001255: 11,2225 03612 VIPRIME 021330,001256: 11,2226 03576 VINIT 021331,001257: 11,2227 27646 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7) 021332,001258: 11,2230 02705 VTARGET 021333,001259: 11,2231 03620 STORE VTPRIME 021334,001260: 11,2232 46135 SLOAD BHIZ 021335,001261: 11,2233 03747 RTX2 021336,001262: # Page 491 021337,001263: 11,2234 22251 INITVELX 021338,001264: 11,2235 70575 VLOAD VSR2 021339,001265: 11,2236 03620 VTPRIME 021340,001266: 11,2237 27620 STOVL VTPRIME 021341,001267: 11,2240 03612 VIPRIME 021342,001268: 11,2241 77742 VSR2 021343,001269: 11,2242 27612 STOVL VIPRIME 021344,001270: 11,2243 03604 RTARG1 021345,001271: 11,2244 77742 VSR2 021346,001272: 11,2245 27604 STOVL RTARG1 021347,001273: 11,2246 03646 DELVEET3 021348,001274: 11,2247 77742 VSR2 021349,001275: 11,2250 03646 STORE DELVEET3 021350,001276: 11,2251 77201 INITVELX SETPD VLOAD 021351,001277: 11,2252 00001 0D 021352,001278: 11,2253 03604 RTARG1 021353,001279: 11,2254 37415 STCALL RTARG 021354,001280: 11,2255 01340 NORMEX 021355,001281: 021356,001282: # ***** END OF INITVEL ROUTINE ***** 021357,001283: 021358,001284: # Page 492 021359,001285: # ***** MIDGIM ***** 021360,001286: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75 021361,001287: # REVISION 03, 17 FEB 67 021362,001288: 021363,001289: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES 021364,001290: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT 021365,001291: # DELTA VELOCITY VECTOR (0D IN PUSY LIST), OTHERWISE 021366,001292: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN- 021367,001293: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE. 021368,001294: 021369,001295: # ** INPUTS ** 021370,001296: # NAME MEANING UNITS/SCALING/MODE 021371,001297: # AVFLAG INT FLAG -- 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT 021372,001298: # COMPUTER INT FLAG -- 0 IS LEM COMPUTER, 1 IS CSM COMPUTER BIT 021373,001299: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT 021374,001300: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT 021375,001301: # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT 021376,001302: 021377,001303: # ** OUTPUTS ** 021378,001304: # NAME MEANING UNITS/SCALING/MODE 021379,001305: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP 021380,001306: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT 021381,001307: # MGLVFLAG INT FLAG: 0 IS +MGA COMUTED, 1 IS DELVLVC COMP. BIT 021382,001308: 021383,001309: # ** CALLING SEQUENCE ** 021384,001310: # L CALL 021385,001311: # L+1 MIDGIM 021386,001312: # L+2 (RETURN -- ALWAYS) 021387,001313: 021388,001314: # ** NO SUBROUTINES CALLED ** 021389,001315: 021390,001316: # ** DEBRIS -- ERASABLE TEMPORARY USAGE ** 021391,001317: # A,Q,L, PUSH LIST, MPAC. 021392,001318: 021393,001319: # ** ALARMS -- NONE ** 021394,001320: 021395,001321: # Page 493 021396,001322: # MIDDLE GIMBAL ANGLE COMPUTATION 021397,001323: 04,2000 SETLOC MIDDGIM 021398,001324: 04,2000 BANK 021399,001325: 021400,001326: 04,2645 COUNT* $$/MIDG 021401,001327: 021402,001328: 04,2645 20000 00000 HALFREV 2DEC 1 B-1 021403,001329: 021404,001330: 04,2647 43014 MIDGIM BON BOFF 021405,001331: 04,2650 01312 AVFLAG 021406,001332: 04,2651 10667 MIDGIM1 021407,001333: 04,2652 02747 COMPUTER 021408,001334: 04,2653 10672 GET.LVC 021409,001335: 021410,001336: # COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES. 021411,001337: 021412,001338: 04,2654 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC UNITIZE UV (+1) 021413,001339: 04,2655 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE 021414,001340: 04,2656 01744 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE 021415,001341: 04,2657 51136 ARCSIN BPL 021416,001342: 04,2660 10664 SETMGA 021417,001343: 04,2661 43215 DAD DAD # CONVERT -MGA TO +MGA BY 021418,001344: 04,2662 10646 HALFREV # ADDING ONE REVOLUTION 021419,001345: 04,2663 10646 HALFREV 021420,001346: 04,2664 03626 SETMGA STORE +MGA 021421,001347: 04,2665 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC 021422,001348: 04,2666 02675 MGLVFLAG # AND EXIT 021423,001349: 021424,001350: 04,2667 77614 MIDGIM1 BOFF 021425,001351: 04,2670 02747 COMPUTER 021426,001352: 04,2671 10654 GET+MGA 021427,001353: 021428,001354: # COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES 021429,001355: 021430,001356: 04,2672 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC UNITZE UR 021431,001357: 04,2673 03570 RINIT 021432,001358: 04,2674 77676 VCOMP # U(-R) 021433,001359: 04,2675 00023 STORE 18D # U(-R) TO 18D 021434,001360: 04,2676 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R) 021435,001361: 04,2677 03576 VINIT 021436,001362: 04,2700 00015 STORE 12D # U(V*R) TO 12D 021437,001363: 04,2701 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R)) 021438,001364: 04,2702 00023 18D 021439,001365: 04,2703 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1) 021440,001366: 04,2704 00001 0D # DELTA V (+7) IN 0D 021441,001367: 04,2705 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8) 021442,001368: 04,2706 00007 6D # AND SCALE +7 IN MPAC 021443,001369: 04,2707 03405 STORE DELVLVC # STORE IN DELVLVC (+7( 021444,001370: 04,2710 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC 021445,001371: 04,2711 02475 MGLVFLAG # AND EXIT 021446,001372: 021447,001373: # ***** END OF MIDGIM ROUTINE ***** 021448,001374: 021449,001375: # Page 494 021450,001376: 04,2712 77160 SELECTMU AXC,1 AXT,2 021451,001377: 04,2713 00002 2D 021452,001378: 04,2714 00000 0D 021453,001379: 04,2715 77614 BOFF 021454,001380: 04,2716 04343 CMOONFLG 021455,001381: 04,2717 10723 SETMUER 021456,001382: 04,2720 77160 AXC,1 AXT,2 021457,001383: 04,2721 00012 10D 021458,001384: 04,2722 00002 2D 021459,001385: 04,2723 66143 SETMUER DLOAD* SXA,1 021460,001386: 04,2724 11744 MUTABLE +4,1 021461,001387: 04,2725 03745 RTX1 021462,001388: 04,2726 23752 STODL* RTSR1/MU 021463,001389: 04,2727 11736 MUTABLE -2,1 021464,001390: 04,2730 54214 BOFF SR 021465,001391: 04,2731 04343 CMOONFLG 021466,001392: 04,2732 10734 RTRNMU 021467,001393: 04,2733 20607 6D 021468,001394: 04,2734 03750 RTRNMU STORE RTMU 021469,001395: 04,2735 43134 SXA,2 CLEAR 021470,001396: 04,2736 03746 RTX2 021471,001397: 04,2737 01271 FINALFLG 021472,001398: 04,2740 77650 GOTO 021473,001399: 04,2741 73002 VN1645 021474,001400: 021475,001401: # Page 495 021476,001402: # ***** PERIAPO ***** 021477,001403: # MOD NO -1 LOG SECTION -- P34-P35, P74-P75 021478,001404: # MOD BY WHITE, P. DATE 18 JAN 68 021479,001405: 021480,001406: # FUNCTIONAL DESCRIPTION 021481,001407: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER 021482,001408: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON 021483,001409: # THE TRAJECTORY AND THE PRIMARY BODY. 021484,001410: 021485,001411: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY. 021486,001412: 021487,001413: # APSIDES IS CALLED TO SOVE FOR THE TWO BODY RADII OF APOCENTER AND 021488,001414: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY. 021489,001415: 021490,001416: # CALLING SEQUENCE 021491,001417: # L CALL 021492,001418: # L+1 PERIAPO 021493,001419: # L+2 (RETURN -- ALWAYS) 021494,001420: 021495,001421: # INPUT 021496,001422: # (1) RVEC POSITION VECTOR IN METERS 021497,001423: # SCALE FACTOR -- EARTH +29, MOON +27 021498,001424: # (2) VVEC VELOCITY VECTORY IN METERS/CENTISECOND 021499,001425: # SCALE FACTOR -- EARTH +7, MOON +5 021500,001426: # (3) X1 PRIMARY BODY INDICATOR 021501,001427: # EARTH -2, MOON -10 021502,001428: 021503,001429: # OUTPUT 021504,001430: # (1) 2D APOCENTER RADIUS IN METERS 021505,001431: # SCALE FACTOR -- EARTH +29, MOON +27 021506,001432: # (2) 4D APOCENTER ALTITUDE IN METERS 021507,001433: # SCALE FACTOR -- EARTH +29, MOON +27 021508,001434: # (3) 6D PERICENTER RADIUS IN METERS 021509,001435: # SCALE FACTOR -- EARTH +29, MOON +27 021510,001436: # (4) 8D PERICENTER ALTITUDE IN METERS 021511,001437: # SCALE FACTOR -- EARTH +29, MOON +27 021512,001438: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY 021513,001439: # SCALE FACTOR -- +3 021514,001440: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS 021515,001441: # SCALE FACTOR -- EARTH +29, MOON +27 021516,001442: # (7) PUSHLOC EQUALS 10D 021517,001443: 021518,001444: # SUBROUTINES USED 021519,001445: # SETRAD 021520,001446: # Page 496 021521,001447: # APSIDES 021522,001448: 021523,001449: 22,2000 SETLOC APOPERI 021524,001450: 22,2000 BANK 021525,001451: 021526,001452: 22,3151 COUNT* $$/PERAP 021527,001453: 021528,001454: 22,3151 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B. 021529,001455: # = 20 909 901.57 FT 021530,001456: 021531,001457: 22,3153 53754 PERIAPO1 LXA,2 VSR* 021532,001458: 22,3154 03746 RTX2 021533,001459: 22,3155 57176 0,2 021534,001460: 22,3156 26746 STOVL VVEC 021535,001461: 22,3157 53750 LXA,1 VSR* 021536,001462: 22,3160 03745 RTX1 021537,001463: 22,3161 57176 0,2 021538,001464: 22,3162 02657 STORE RVEC 021539,001465: 22,3163 45020 PERIAPO STQ CALL 021540,001466: 22,3164 01340 NORMEX 021541,001467: 22,3165 45201 SETRAD 021542,001468: 22,3166 37456 STCALL XXXALT 021543,001469: 22,3167 25703 APSIDES 021544,001470: 22,3170 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27 021545,001471: 22,3171 00003 2D 021546,001472: 22,3172 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27 021547,001473: 22,3173 03456 XXXALT 021548,001474: 22,3174 00001 0D 021549,001475: 22,3175 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27 021550,001476: 22,3176 03456 XXXALT 021551,001477: 22,3177 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27 021552,001478: 22,3200 01340 NORMEX 021553,001479: # Page 497 021554,001480: # SETRAD 021555,001481: 22,3201 41545 SETRAD DLOAD PUSH 021556,001482: 22,3202 05152 RPAD 021557,001483: 22,3203 63130 SXA,1 INCR,2 021558,001484: 22,3204 00047 X2 021559,001485: 22,3205 00002 2D 021560,001486: 22,3206 46135 SLOAD BHIZ 021561,001487: 22,3207 00050 X2 021562,001488: 22,3210 45214 SETRADX 021563,001489: 22,3211 51575 VLOAD ABVAL 021564,001490: 22,3212 02026 RLS 021565,001491: 22,3213 77725 PDDL 021566,001492: 22,3214 43545 SETRADX DLOAD RVQ 021567,001493: 021568,001494: # Page 498 021569,001495: # PRECSET 021570,001496: 22,3215 77620 PRECSET STQ 021571,001497: 22,3216 01340 NORMEX 021572,001498: 22,3217 36635 STCALL TDEC2 021573,001499: 22,3220 27105 LEMPREC 021574,001500: 22,3221 77624 CALL 021575,001501: 22,3222 45233 LEMSTORE 021576,001502: 22,3223 77745 DLOAD 021577,001503: 22,3224 02635 TDEC2 021578,001504: 22,3225 34041 STCALL TDEC1 021579,001505: 22,3226 27071 CSMPREC 021580,001506: 22,3227 77624 CALL 021581,001507: 22,3230 45243 CSMSTORE 021582,001508: 22,3231 77650 GOTO 021583,001509: 22,3232 01340 NORMEX 021584,001510: 22,3233 43175 LEMSTORE VLOAD BOFF 021585,001511: 22,3234 00001 RATT 021586,001512: 22,3235 01352 AVFLAG 021587,001513: 22,3236 45247 PASSIVE 021588,001514: 22,3237 27540 ACTIVE STOVL RACT3 021589,001515: 22,3240 00007 VATT 021590,001516: 22,3241 03546 STORE VACT3 021591,001517: 22,3242 77616 RVQ 021592,001518: 22,3243 43175 CSMSTORE VLOAD BOFF 021593,001519: 22,3244 00001 RATT 021594,001520: 22,3245 01352 AVFLAG 021595,001521: 22,3246 45237 ACTIVE 021596,001522: 22,3247 27554 PASSIVE STOVL RPASS3 021597,001523: 22,3250 00007 VATT 021598,001524: 22,3251 03562 STORE VPASS3 021599,001525: 22,3252 77616 RVQ 021600,001526: 021601,001527: # Page 499 021602,001528: # VECSHIFT 021603,001529: 22,3253 53754 VECSHIFT LXA,2 VSR* 021604,001530: 22,3254 03746 RTX2 021605,001531: 22,3255 57176 0,2 021606,001532: 22,3256 63350 LXA,1 PDVL 021607,001533: 22,3257 03745 RTX1 021608,001534: 22,3260 63257 VSR* PDVL 021609,001535: 22,3261 57176 0,2 021610,001536: 22,3262 77616 RVQ 021611,001537: 021612,001538: # Page 500 021613,001539: # SHIFTR1 021614,001540: 22,3263 53754 SHIFTR1 LXA,2 SL* 021615,001541: 22,3264 03746 RTX2 021616,001542: 22,3265 57576 0,2 021617,001543: 22,3266 77616 RVQ 021618,001544: 021619,001545: # Page 501 021620,001546: # PROGRAM DESCRIPTION 021621,001547: 021622,001548: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE 021623,001549: # MOD NO. 2 DATE 2 JANUARY 1969 021624,001550: # MOD BY A.W.BANCROFT LOG SECTION EXTENDED VERBS 021625,001551: 021626,001552: # FUNCTIONAL DESCRIPTION 021627,001553: 021628,001554: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS 021629,001555: # OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI). (REQUESTED BY DSKY). 021630,001556: 021631,001557: # CALLING SEQUENCE 021632,001558: # ASTRONAUT REQUEST THROUGH DSKY V 90 E 021633,001559: 021634,001560: # SUBROUTINES CALLED 021635,001561: # EXDSPRET 021636,001562: # GOMARKF 021637,001563: # CSMPREC 021638,001564: # LEMPREC 021639,001565: # SGNAGREE 021640,001566: # LOADTIME 021641,001567: 021642,001568: # NORMAL EXIT MODES 021643,001569: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E 021644,001570: 021645,001571: # ALARM OR ABORT EXIT MODES 021646,001572: # NONE 021647,001573: 021648,001574: # OUTPUT 021649,001575: # DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI 021650,001576: 021651,001577: # DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE 021652,001578: # REGISTERS RANGE, RRATE, AND RTHETA RESPECTIVELY. 021653,001579: 021654,001580: # ERASABLE INITIALIZATION REQUIRED 021655,001581: # CSM AND LEM STATE VECTORS 021656,001582: 021657,001583: # DEBRIS 021658,001584: # CENTRALS A,Q,L 021659,001585: # OTHER: THOSE USED BY THE ABOVE LISTED SUBROUTINES 021660,001586: 021661,001587: 20,2164 BANK 20 021662,001588: 20,2000 SETLOC R36CM 021663,001589: 20,2000 BANK 021664,001590: # Page 502 021665,001591: 20,2164 E4,1726 EBANK= RPASS36 021666,001592: 021667,001593: 20,2164 41,3727 SBANK= R36A 021668,001594: 20,2164 COUNT* $$/R36 021669,001595: 021670,001596: 20,2164 35016 R36 CAF TWO 021671,001597: 20,2165 55051 TS OPTIONX 021672,001598: 20,2166 35017 CAF ONE 021673,001599: 20,2167 55052 TS OPTIONX +1 021674,001600: 20,2170 32200 CAF OPTION36 # V 04 N 12 021675,001601: 20,2171 04662 TC BANKCALL 021676,001602: 20,2172 20561 CADR GOXDSPF 021677,001603: 20,2173 05534 TC ENDEXT # TERMINATE 021678,001604: 20,2174 02176 TC +2 # PROCEED 021679,001605: 20,2175 02170 TC -5 # R2 LOADED VIA DSKY 021680,001606: 20,2176 04701 TC POSTJUMP 021681,001607: 20,2177 63727 CADR R36A 021682,001608: 021683,001609: 20,2200 01014 OPTION36 VN 0412 021684,001610: 021685,001611: 41,2000 SETLOC R36LM 021686,001612: 41,2000 BANK 021687,001613: 021688,001614: 41,3727 22007 R36A ZL 021689,001615: 41,3730 35021 CAF ZERO # SET TIME OF EVENT TO ZERO FOR FIRST 021690,001616: 41,3731 53052 DXCH DSPTEMX # DISPLAY 021691,001617: 41,3732 23742 LXCH OPTIONY # SAVE VEH. OPTION 021692,001618: 41,3733 33775 R36P3 CAF V06N16N 021693,001619: 41,3734 04662 TC BANKCALL 021694,001620: 41,3735 20561 CADR GOMARKF 021695,001621: 41,3736 15534 TCF ENDEXT # TERMINATE 021696,001622: 41,3737 13741 TCF +2 # PROCEED 021697,001623: 41,3740 13733 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME 021698,001624: 41,3741 53052 DXCH DSPTEMX 021699,001625: 41,3742 00006 EXTEND 021700,001626: 41,3743 13764 BZF LREGCHK # A-REG ZERO GOTO CHECK L-REG FOR ZERO 021701,001627: 41,3744 52155 ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME 021702,001628: 41,3745 06006 TC INTPRET 021703,001629: 41,3746 52034 RTB GOTO 021704,001630: 41,3747 45716 DPMODE 021705,001631: 41,3750 65521 R36INT 021706,001632: 021707,001633: 42,2000 SETLOC R36LM1 021708,001634: 42,2000 BANK 021709,001635: 021710,001636: 42,3521 00041 R36INT STORE TDEC1 021711,001637: 42,3522 70535 SLOAD SR1 021712,001638: 42,3523 02343 OPTIONY 021713,001639: 42,3524 45030 BHIZ CALL 021714,001640: 42,3525 65531 R36PROG2 # FOR CSM DISPLAY 021715,001641: # Page 503 021716,001642: 42,3526 27071 THISPREC # FOR LEM DISPLAY 021717,001643: 42,3527 77650 GOTO 021718,001644: 42,3530 65533 R36PROG3 021719,001645: 42,3531 77624 R36PROG2 CALL 021720,001646: 42,3532 27105 OTHPREC 021721,001647: 42,3533 63375 R36PROG3 VLOAD PDVL 021722,001648: 42,3534 00007 VATT 021723,001649: 42,3535 00001 RATT # _ 021724,001650: 42,3536 02327 STORE RPASS36 # R 021725,001651: 42,3537 63256 UNIT PDVL # P 021726,001652: 42,3540 53435 VXV UNIT # - 021727,001653: 42,3541 77626 STADR 021728,001654: 42,3542 61442 STODL UNP36 # U 021729,001655: 42,3543 00015 TAT 021730,001656: 42,3544 00041 STORE TDEC1 021731,001657: 42,3545 70535 SLOAD SR1 021732,001658: 42,3546 02343 OPTIONY 021733,001659: 42,3547 45030 BHIZ CALL 021734,001660: 42,3550 65554 R36PROG4 # FOR CSM DISPLAY 021735,001661: 42,3551 27105 OTHPREC # FOR LEM DISPLAY 021736,001662: 42,3552 77650 GOTO 021737,001663: 42,3553 65556 R36PROG5 021738,001664: 42,3554 77624 R36PROG4 CALL 021739,001665: 42,3555 27071 THISPREC 021740,001666: 42,3556 63375 R36PROG5 VLOAD PDVL # _ 021741,001667: 42,3557 00007 VATT # VELOCITY VECTOR V 00D 021742,001668: 42,3560 00001 RATT # A 021743,001669: 42,3561 77725 PDDL 021744,001670: 42,3562 00015 TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY 021745,001671: 42,3563 24037 STOVL 30D # _ 021746,001672: 42,3564 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D 021747,001673: 42,3565 63245 BVSU PDVL # _A _ 021748,001674: 42,3566 02327 RPASS36 # LINE OF SIGHT VECTOR R - R 12D 021749,001675: 42,3567 72441 DOT SL1 # P A 021750,001676: 42,3570 02335 UNP36 # _ _ 021751,001677: 42,3571 26321 STOVL RANGE # Y = U . R 021752,001678: 42,3572 00001 00D # A 021753,001679: 42,3573 72441 DOT SL1 021754,001680: 42,3574 02335 UNP36 # . _ _ 021755,001681: 42,3575 26323 STOVL RRATE # Y = U . V 021756,001682: 42,3576 00007 06D # _ A 021757,001683: 42,3577 41456 UNIT PUSH # U = UNIT ( R ) 18D 021758,001684: 42,3600 47235 VXV VXV # RA A 021759,001685: 42,3601 00001 00D # _ _ _ _ 021760,001686: 42,3602 00023 18D # (U X V ) X U = U 021761,001687: 42,3603 53552 VSL2 UNIT # RA A RA A 021762,001688: 42,3604 52056 UNIT GOTO 021763,001689: 42,3605 61600 R36B 021764,001690: 021765,001691: 40,2000 SETLOC R36CM1 021766,001692: # Page 504 021767,001693: 40,2000 BANK 021768,001694: 021769,001695: 40,3600 24001 R36B STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D 021770,001696: 40,3601 00023 18D 021771,001697: 40,3602 74241 DOT VXSC # _ 021772,001698: 40,3603 00015 12D # U 021773,001699: 40,3604 77752 VSL2 # L 021774,001700: 40,3605 53445 BVSU UNIT 021775,001701: 40,3606 77656 UNIT 021776,001702: 40,3607 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D 021777,001703: 40,3610 00001 00D # PLANE 021778,001704: 40,3611 65552 SL1 ARCCOS # _ _ 021779,001705: 40,3612 26325 STOVL RTHETA # PSI = ARCCOS(U . U ) 021780,001706: 40,3613 50235 VXV DOT # A L 021781,001707: 40,3614 00001 00D 021782,001708: 40,3615 71244 BPL DLOAD 021783,001709: 40,3616 63751 R36TAG2 021784,001710: 40,3617 15343 DPPOSMAX 021785,001711: 40,3620 77625 DSU 021786,001712: 40,3621 02325 RTHETA 021787,001713: 40,3622 36325 STCALL RTHETA 021788,001714: 40,3623 63751 R36TAG2 021789,001715: 021790,001716: 41,2000 SETLOC R36LM 021791,001717: 41,2000 BANK 021792,001718: 021793,001719: 41,3751 47145 R36TAG2 DLOAD RTB 021794,001720: 41,3752 00037 30D 021795,001721: 41,3753 45544 SGNAGREE 021796,001722: 41,3754 01052 STORE DSPTEMX 021797,001723: 41,3755 77776 EXIT 021798,001724: 41,3756 33776 CAF V06N90N # DISPLAY Y, YDOT, AND PSI. 021799,001725: 41,3757 04662 TC BANKCALL 021800,001726: 41,3760 20561 CADR GOMARKF 021801,001727: 41,3761 15534 TCF ENDEXT # TERMINATE 021802,001728: 41,3762 15534 TCF ENDEXT # PROCEED, END OF PROGRAM 021803,001729: 41,3763 13733 TCF R36P3 # REDISPLAY OUTPUT 021804,001730: 41,3764 56001 LREGCHK XCH L 021805,001731: 41,3765 00006 EXTEND 021806,001732: 41,3766 13771 BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME 021807,001733: 41,3767 56001 XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME 021808,001734: 41,3770 13744 TCF ASTROTIM 021809,001735: 41,3771 06006 ENTTIM2 TC INTPRET 021810,001736: 41,3772 52034 RTB GOTO 021811,001737: 41,3773 45510 LOADTIME 021812,001738: 41,3774 65521 R36INT 021813,001739: 41,3775 01420 V06N16N VN 00616 021814,001740: 41,3776 01532 V06N90N VN 00690 021815,001741: 41,3777 30,2000 SBANK= LOWSUPER End of include-file P34-35_P74-75.agc. Parent file is MAIN.agc