Source Code

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