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:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the
explanatory annotations, there is also
a step-by-step commentary about the reconstruction process.
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
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
|
|
Reconstruction: This change is not described by any contemporary
documentation (such as the Programmed Guidance Equations), but is
necessitated by the other changes between Comanche 44 and 51. Specifically,
the increased code size in Comanche 51 would cause the current memory bank to overflow
if some of its code were not removed to a different memory bank to free up some
space. The solution used in Comanche 51 was to relocate the S34/35.1 block
of code using the instructions
SETLOC S3435LOC
BANK
This code relocation isn't needed in Comanche 44, and thus the bank-change instructions
above have been removed.
|
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 instructions
SETLOC CSI/CDH
BANK
which 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 reading
TWOPI
PDDL BHIZ
NN
S3435.23
DLOAD PDDL
ZEROVECS
S3435.23 CALL
This change relates to the pseudocode change
If NN1sp = 0:
Set bit 4(CONICINT) of FLAGWRD3 = 1
found 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 as
TS1 = NN1sp
However, 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