Source Code
|
These source-code files are part of a reconstructed copy of Corona 261, the
final, flown release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) software for the AS-202 mission.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241,
1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo
4 and 6 software, Solarium 55, was used as a starting point, since it was directly
derived from Corona and (at least in theory) only minimally modified.
Since only binary dumps (rather than listings) of Corona are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
030523,000002: ## Copyright: Public domain.
030524,000003: ## Filename: SUM-CHECK_END_OF_RECORD_MARKS.agc
030525,000004: ## Purpose: A section of Corona revision 261.
030526,000005: ## It is part of the source code for the Apollo Guidance Computer
030527,000006: ## (AGC) for AS-202. No original listings of this software are
030528,000007: ## available; instead, this file was created via disassembly of
030529,000008: ## the core rope modules actually flown on the mission.
030530,000009: ## Assembler: yaYUL
030531,000010: ## Contact: Ron Burkey <info@sandroid.org>.
030532,000011: ## Website: www.ibiblio.org/apollo/index.html
030533,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
030534,000013:
030535,000014:
030536,000015: # EACH VALID BANK MUST HAVE AN EOR CONSISTING OF TWO TC SELF WORDS TO
030537,000016: # SIGNIFY THE END OF GOOD PARITY DATA.
030538,000017:
030539,000018: 3556 BANK 1
030540,000019:
030541,000020: 3556 03556 TC -0
030542,000021: 3557 03557 TC -0
030543,000022:
030544,000023: 5765 BANK 2
030545,000024:
030546,000025: 5765 05765 TC -0
030547,000026: 5766 05766 TC -0
030548,000027:
030549,000028: 03,7465 BANK 3
030550,000029:
030551,000030: 03,7465 07465 TC -0
030552,000031: 03,7466 07466 TC -0
030553,000032:
030554,000033: 04,7510 BANK 4
030555,000034:
030556,000035: 04,7510 07510 TC -0
030557,000036: 04,7511 07511 TC -0
030558,000037:
030559,000038: 05,7720 BANK 5
030560,000039:
030561,000040: 05,7720 07720 TC -0
030562,000041: 05,7721 07721 TC -0
030563,000042:
030564,000043: 06,7643 BANK 6
030565,000044:
030566,000045: 06,7643 07643 TC -0
030567,000046: 06,7644 07644 TC -0
030568,000047:
030569,000048: 07,7527 BANK 7
030570,000049:
030571,000050: 07,7527 07527 TC -0
030572,000051: 07,7530 07530 TC -0
030573,000052:
030574,000053: 10,7744 BANK 10
030575,000054:
030576,000055: 10,7744 07744 TC -0
030577,000056: 10,7745 07745 TC -0
030578,000057:
030579,000058: 11,7721 BANK 11
030580,000059:
030581,000060: 11,7721 07721 TC -0
030582,000061: 11,7722 07722 TC -0
030583,000062:
030584,000063: 12,7760 BANK 12
030585,000064:
030586,000065: 12,7760 07760 TC -0
030587,000066: 12,7761 07761 TC -0
030588,000067:
030589,000068: 13,7317 BANK 13
030590,000069:
030591,000070: 13,7317 07317 TC -0
030592,000071: 13,7320 07320 TC -0
030593,000072:
030594,000073: 14,7536 BANK 14
030595,000074:
030596,000075: 14,7536 07536 TC -0
030597,000076: 14,7537 07537 TC -0
030598,000077:
030599,000078: 21,7600 BANK 21
030600,000079:
030601,000080: 21,7600 07600 TC -0
030602,000081: 21,7601 07601 TC -0
030603,000082:
030604,000083: 22,7203 BANK 22
030605,000084:
030606,000085: 22,7203 07203 TC -0
030607,000086: 22,7204 07204 TC -0
030608,000087:
030609,000088: 23,7756 BANK 23
030610,000089:
030611,000090: 23,7756 07756 TC -0
030612,000091: 23,7757 07757 TC -0
030613,000092:
030614,000093: 24,7447 BANK 24
030615,000094:
030616,000095: 24,7447 07447 TC -0
030617,000096: 24,7450 07450 TC -0
030618,000097:
030619,000098: 25,7646 BANK 25
030620,000099:
030621,000100: 25,7646 07646 TC -0
030622,000101: 25,7647 07647 TC -0
030623,000102:
030624,000103: 26,7652 BANK 26
030625,000104:
030626,000105: 26,7652 07652 TC -0
030627,000106: 26,7653 07653 TC -0
030628,000107:
030629,000108: 27,7774 BANK 27
030630,000109:
030631,000110: 27,7774 07774 TC -0
030632,000111: 27,7775 07775 TC -0
030633,000112:
030634,000113: 30,7743 BANK 30
030635,000114:
030636,000115: 30,7743 07743 TC -0
030637,000116: 30,7744 07744 TC -0
030638,000117:
030639,000118: 31,7454 BANK 31
030640,000119:
030641,000120: 31,7454 07454 TC -0
030642,000121: 31,7455 07455 TC -0
030643,000122:
030644,000123: 32,7771 BANK 32
030645,000124:
030646,000125: 32,7771 07771 TC -0
030647,000126: 32,7772 07772 TC -0
030648,000127:
030649,000128: 33,7636 BANK 33
030650,000129:
030651,000130: 33,7636 07636 TC -0
030652,000131: 33,7637 07637 TC -0
030653,000132:
030654,000133: 34,7770 BANK 34
030655,000134:
030656,000135: 34,7770 07770 TC -0
030657,000136: 34,7771 07771 TC -0
030658,000137:
030659,000138: # END OF REVISION 0 OF PROGRAM SOLRUM55 BY NASA 1021108-021 LAST ASSEMBLED ON NOV 26, 1966
End of include-file SUM-CHECK_END_OF_RECORD_MARKS.agc. Parent file is MAIN.agc