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.
|
028393,000002: ## Copyright: Public domain.
028394,000003: ## Filename: DUMMY_202_INITIALIZATION.agc
028395,000004: ## Purpose: A section of Corona revision 261.
028396,000005: ## It is part of the source code for the Apollo Guidance Computer
028397,000006: ## (AGC) for AS-202. No original listings of this software are
028398,000007: ## available; instead, this file was created via disassembly of
028399,000008: ## the core rope modules actually flown on the mission.
028400,000009: ## Assembler: yaYUL
028401,000010: ## Contact: Ron Burkey <info@sandroid.org>.
028402,000011: ## Website: www.ibiblio.org/apollo/index.html
028403,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
028404,000013: ## 2023-06-17 MAS Updated for Corona.
028405,000014:
028406,000015: 33,7577 BANK 33
028407,000016: 33,7577 05654 BEGINNER TC BANKCALL # CHANGE IMUMODE AS REQUIRED.
028408,000017: 33,7600 30216 CADRMODE CADR IMUREENT
028409,000018:
028410,000019: 33,7601 04000 BEGIN202 TC INTPRET
028411,000020: 33,7602 75175 VMOVE 1
028412,000021: 33,7603 76776 ITC
028413,000022: 33,7604 00766 RN
028414,000023: 33,7605 21632 CALCGRAV
028415,000024:
028416,000025: 33,7606 77576 EXIT 0
028417,000026: 33,7607 02276 TC PHASCHNG # SETUP SOME PHASE INFO.
028418,000027: 33,7610 00105 EXITLOC2 OCT 00105 # 5.1 MODE GOES WITH READACCS.
028419,000028:
028420,000029: 33,7611 20017 INHINT
028421,000030: 33,7612 40036 CS TIME1
028422,000031: 33,7613 67630 AD STARTDT1
028423,000032: 33,7614 02173 TC WAITLIST
028424,000033: 33,7615 65344 CADR READACCS
028425,000034:
028426,000035: 33,7616 40036 CS TIME1 # SPARE START ROUTINE
028427,000036: 33,7617 67631 AD STARTDT2
028428,000037: 33,7620 02173 TC WAITLIST
028429,000038: 33,7621 67632 CADR START2
028430,000039:
028431,000040: 33,7622 02124 TC ENDOFJOB
028432,000041:
|
|
(JL) seems to be an arg missing. Is YUL assuming 0? Generates 07435.
|
028434,000043: 33,7623 05654 BEGINSW TC BANKCALL # WAIT FOR MODE SWITCH IF NECESSARY.
028435,000044: 33,7624 30331 CADR IMUSTALL
028436,000045: 33,7625 07625 TC -0
028437,000046:
028438,000047: 33,7626 02124 TC ENDOFJOB
028439,000048:
028440,000049: 33,7627 00000 DEC 0 B-14 # HOLE FOR 2DEC PATCHING STARTDT1 -1
028441,000050: 33,7630 00310 STARTDT1 DEC 200 B-14
028442,000051: 33,7631 01476 STARTDT2 DEC 830 B-14
028443,000052:
028444,000053: 33,7632 32162 START2 CAF PRIO27
028445,000054: 33,7633 02046 TC FINDVAC
028446,000055: 33,7634 64407 CADR S4BSMSEP
028447,000056:
028448,000057: 33,7635 02256 TC TASKOVER
End of include-file DUMMY_202_INITIALISATION.agc. Parent file is MAIN.agc