Source Code
|
These source-code files are part of a reconstructed copy of Comanche 45/2 (AKA Manche45 revision 2),
the final, flown mission release of the Apollo 10 Command Module (CM) Apollo Guidance
Computer (AGC) software. Comanche 45/2 was preceded by Comanche 44 and Comanche 45. The
reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era
listing of Comanche 45/2, some explanation of the reconstruction process is needed
to insure confidence in that accuracy.
The starting point was the source code of Comanche 45 (itself previously accurately
reconstructed). Comanche 45 source code was then modified by incorporating changes
known from contemporary documentation to have been made between revisions 45 and 45/2.
The now-reconstructed Comanche 45/2 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 tend to match those in the Comanche 55, the
most-similar revision of Comanche for which we have access to an actual non-reconstructed hardcopy;
the source code would likely have different page numbers in a contemporary
Comanche 45 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 44. 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.
|
021741,000002: ## Copyright: Public domain.
021742,000003: ## Filename: P76.agc
021743,000004: ## Purpose: A section of Manche45 revision 2.
021744,000005: ## It is part of the reconstructed source code for the
021745,000006: ## final, flown release of the flight software for the Command
021746,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
021747,000008: ## The code has been recreated from a copy of Comanche 055. It
021748,000009: ## has been adapted such that the resulting bugger words
021749,000010: ## exactly match those specified for Manche 45/2 in NASA drawing
021750,000011: ## 2021153D, which gives relatively high confidence that the
021751,000012: ## reconstruction is correct.
021752,000013: ## Assembler: yaYUL
021753,000014: ## Contact: Ron Burkey <info@sandroid.org>.
021754,000015: ## Website: www.ibiblio.org/apollo/index.html
021755,000016: ## Mod history: 2020-12-24 MAS Created from Comanche 45.
021756,000017:
|
|
Page 511
|
021758,000019: # 1) PROGRAM NAME - TARGET DELTA V PROGRAM (P76).
021759,000020: # 2) FUNCTIONAL DESCRIPTION - UPON ENTRY BY ASTRONAUT ACTION, P76 FLASHES DSKY REQUESTS TO THE ASTRONAUT
021760,000021: # TO PROVIDE VIA DSKY (1) THE DELTA V TO BE APPLIED TO THE OTHER VEHICLE STATE VECTOR AND (2) THE
021761,000022: # TIME (TIG) AT WHICH THE OTHER VEHICLE VELOCITY WAS CHANGED BY EXECUTION OF A THRUSTING MANEUVER. THE
021762,000023: # OTHER VEHICLE STATE VECTOR IS INTEGRATED TO TIG AND UPDATED BY THE ADDITION OF DELTA V (DELTA V HAVING
021763,000024: # BEEN TRANSFORMED FROM LV TO REF COSYS). USING INTEGRVS, THE PROGRAM THEN INTEGRATES THE OTHER
021764,000025: # VEHICLE STATE VECTOR TO THE STATE VECTOR OF THIS VEHICLE, THUS INSURING THAT THE W-MATRIX AND BOTH VEHICLE
021765,000026: # STATES CORRESPOND TO THE SAME TIME.
021766,000027: # 3) ERASABLE INITIALIZATION REQUIRED - NONE.
021767,000028: # 4) CALLING SEQUENCES AND EXIT MODES - CALLED BY ASTRONAUT REQUEST THRU DSKY V 37 E 76E.
021768,000029: # EXITS BY TCF ENDOFJOB.
021769,000030: # 5) OUTPUT - OTHER VEHICLE STATE VECTOR INTEGRATED TO TIG AND INCREMENTED BY DELTA V IN REF COSYS.
021770,000031: # THE PUSHLIST CONTAINS THE MATRIX BY WHICH THE INPUT DELTA V MUST BE POST-MULTIPLIED TO CONVERT FROM LV
021771,000032: # TO REF COSYS.
021772,000033: # 6) DEBRIS - OTHER VEHICLE STATE VECTOR.
021773,000034: # 7) SUBROUTINES CALLED - BANKCALL, GOXDSPF, CSMPREC (OR LEMPREC), ATOPCSM (OR ATOPLEM), INTSTALL, INTWAKE, PHASCHNG
021774,000035: # INTPRET, INTEGRVS, AND MINIRECT.
021775,000036: # 8) FLAG USE - MOONFLAG, CMOONFLAG, INTYPFLG, RASFLAG, AND MARKCTR.
021776,000037:
021777,000038: 30,2000 BANK 30
021778,000039: 13,2000 SETLOC P76LOC
021779,000040: 13,2000 BANK
021780,000041:
021781,000042: 13,2071 COUNT* $$/P76
021782,000043:
021783,000044: 13,2071 E7,1412 EBANK= TIG
021784,000045:
021785,000046: 13,2071 05546 P76 TC UPFLAG
021786,000047: 13,2072 00031 ADRES TRACKFLG
021787,000048:
021788,000049: 13,2073 32220 CAF V06N84 # FLASH LAST DELTA V,
021789,000050: 13,2074 04662 TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
021790,000051: 13,2075 20720 CADR GOFLASH
021791,000052: 13,2076 12212 TCF ENDP76
021792,000053: 13,2077 02101 TC +2 # PROCEED
021793,000054: 13,2100 02073 TC -5 # STORE DATA AND REPEAT FLASHING
021794,000055: 13,2101 32221 CAF V06N84 +1 # FLASH VERB 06 NOUN 33, DISPLAY LAST TIG,
021795,000056: 13,2102 04662 TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
021796,000057: 13,2103 20720 CADR GOFLASH
021797,000058: 13,2104 12212 TCF ENDP76
021798,000059: 13,2105 02107 TC +2
021799,000060: 13,2106 02101 TC -5
021800,000061: 13,2107 06006 TC INTPRET # RETURN TO INTERPRETIVE CODE
021801,000062: 13,2110 77745 DLOAD # SET D(MPAC)=TIG IN CSEC B28
021802,000063: 13,2111 03413 TIG
021803,000064: 13,2112 34041 STCALL TDEC1 # SET TDEC1=TIG FOR ORBITAL INTEGRATION
021804,000065: 13,2113 27105 OTHPREC
021805,000066: 13,2114 53575 COMPMAT VLOAD UNIT
021806,000067: 13,2115 00001 RATT
|
|
Page 512
|
021808,000069: 13,2116 77676 VCOMP # U(-R)
021809,000070: 13,2117 00031 STORE 24D # U(-R) TO 24D
021810,000071: 13,2120 53435 VXV UNIT # U(-R) X V = U(V X R)
021811,000072: 13,2121 00007 VATT
021812,000073: 13,2122 00023 STORE 18D
021813,000074: 13,2123 53435 VXV UNIT # U(V X R) X U(-R) = U((R X V) X R)
021814,000075: 13,2124 00031 24D
021815,000076: 13,2125 24015 STOVL 12D
021816,000077: 13,2126 03540 DELVOV
021817,000078: 13,2127 76505 VXM VSL1 # V(MPAC)=DELTA V IN REFCOSYS
021818,000079: 13,2130 00015 12D
021819,000080: 13,2131 77655 VAD
021820,000081: 13,2132 00007 VATT
021821,000082: 13,2133 00007 STORE 6 # V(PD6)=VATT + DELTA V
021822,000083: 13,2134 77624 CALL # PREVENT WOULD-BE USER OF ORBITAL
021823,000084: 13,2135 27442 INTSTALL # INTEG FROM INTERFERING WITH UPDATING
021824,000085: 13,2136 77624 CALL
021825,000086: 13,2137 26222 P76SUB1
021826,000087: 13,2140 53775 VLOAD VSR*
021827,000088: 13,2141 00007 6
021828,000089: 13,2142 57176 0,2
021829,000090: 13,2143 25543 STOVL VCV
021830,000091: 13,2144 00001 RATT
021831,000092: 13,2145 77657 VSR*
021832,000093: 13,2146 57176 0,2
021833,000094: 13,2147 15535 STODL RCV
021834,000095: 13,2150 03413 TIG
021835,000096: 13,2151 01517 STORE TET
021836,000097: 13,2152 71214 CLEAR DLOAD
021837,000098: 13,2153 01673 INTYPFLG
021838,000099: 13,2154 01571 TETTHIS
021839,000100: 13,2155 34041 INTOTHIS STCALL TDEC1
021840,000101: 13,2156 27135 INTEGRVS
021841,000102: 13,2157 77624 CALL
021842,000103: 13,2160 27442 INTSTALL
021843,000104: 13,2161 77624 CALL
021844,000105: 13,2162 26222 P76SUB1 # SET/CLEAR MOONFLAG
021845,000106: 13,2163 77775 VLOAD
021846,000107: 13,2164 00017 RATT1
021847,000108: 13,2165 01503 STORE RRECT
021848,000109: 13,2166 15535 STODL RCV
021849,000110: 13,2167 00015 TAT
021850,000111: 13,2170 25517 STOVL TET
021851,000112: 13,2171 00025 VATT1
021852,000113: 13,2172 77624 CALL
021853,000114: 13,2173 23435 MINIRECT
021854,000115: 13,2174 77776 EXIT
021855,000116: 13,2175 05412 TC PHASCHNG
021856,000117: 13,2176 04024 OCT 04024
|
|
Page 513
|
021858,000119: 13,2177 05546 TC UPFLAG
021859,000120: 13,2200 00236 ADRES REINTFLG
021860,000121:
021861,000122: 13,2201 06006 TC INTPRET
021862,000123: 13,2202 77624 CALL
021863,000124: 13,2203 26760 ATOPOTH
021864,000125: 13,2204 77531 SSP EXIT
021865,000126: 13,2205 00053 QPRET
021866,000127: 13,2206 26211 OUT
021867,000128: 13,2207 04662 TC BANKCALL # PERMIT USE OF ORBITAL INTEGRATION
021868,000129: 13,2210 27477 CADR INTWAKE1
021869,000130: 13,2211 77776 OUT EXIT
021870,000131: 13,2212 35021 ENDP76 CAF ZERO
021871,000132: 13,2213 55126 TS MARKCTR # CLEAR RR TRACKING MARK COUNTER
021872,000133: 13,2214 55125 TS VHFCNT
021873,000134:
021874,000135: 13,2215 37716 CAF NEGONE
021875,000136: 13,2216 55734 TS MRKBUF2 # INVALIDATE MARK BUFFER
021876,000137:
021877,000138: 13,2217 14106 TCF GOTOPOOH
021878,000139:
021879,000140: 13,2220 01524 V06N84 NV 0684
021880,000141: 13,2221 01441 NV 0633
021881,000142: 13,2222 67214 P76SUB1 CLEAR SLOAD
021882,000143: 13,2223 00263 MOONFLAG
021883,000144: 13,2224 00050 X2
021884,000145: 13,2225 43030 BHIZ SET # X2=0...CLEAR MOONFLAG
021885,000146: 13,2226 26230 +2 # =2.....SET MOONFLAG
021886,000147: 13,2227 00063 MOONFLAG
021887,000148: 13,2230 77616 RVQ
021888,000149:
End of include-file P76.agc. Parent file is MAIN.agc