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