Source Code
|
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:
YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
BY NASA 1021108-021 DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.
Due to statements by Jay Sampson, the original contractor from AC Electronics
who created Solarium 54 (Apollo 4)
from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and
Solarium 55 (Apollo 6) are actually identical programs. The change in numbering,
from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed
that the source-code represented here is equally appropriate for both Apollo 4 and
Apollo 6 missions.
|
030134,000002: ## Copyright: Public domain.
030135,000003: ## Filename: SUM-CHECK_END_OF_RECORD_MARKS.agc
030136,000004: ## Purpose: Part of the source code for Solarium build 55. This
030137,000005: ## is for the Command Module's (CM) Apollo Guidance
030138,000006: ## Computer (AGC), for Apollo 6.
030139,000007: ## Assembler: yaYUL --block1
030140,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
030141,000009: ## Website: www.ibiblio.org/apollo/index.html
030142,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
030143,000011: ## Mod history: 2009-09-15 JL Created.
030144,000012: ## 2016-08-23 RSB Typos.
030145,000013:
|
|
Page 759
|
030147,000015:
030148,000016: # EACH VALID BANK MUST HAVE AN EOR CONSISTING OF TWO TC SELF WORDS TO
030149,000017: # SIGNIFY THE END OF GOOD PARITY DATA.
030150,000018:
030151,000019: 3574 BANK 1
030152,000020:
030153,000021: 3574 03574 TC -0
030154,000022: 3575 03575 TC -0
030155,000023:
030156,000024: 5765 BANK 2
030157,000025:
030158,000026: 5765 05765 TC -0
030159,000027: 5766 05766 TC -0
030160,000028:
030161,000029: 03,7465 BANK 3
030162,000030:
030163,000031: 03,7465 07465 TC -0
030164,000032: 03,7466 07466 TC -0
030165,000033:
030166,000034: 04,7516 BANK 4
030167,000035:
030168,000036: 04,7516 07516 TC -0
030169,000037: 04,7517 07517 TC -0
030170,000038:
030171,000039: 05,7605 BANK 5
030172,000040:
030173,000041: 05,7605 07605 TC -0
030174,000042: 05,7606 07606 TC -0
030175,000043:
030176,000044: 06,7632 BANK 6
030177,000045:
030178,000046: 06,7632 07632 TC -0
030179,000047: 06,7633 07633 TC -0
030180,000048:
030181,000049: 07,7530 BANK 7
030182,000050:
030183,000051: 07,7530 07530 TC -0
030184,000052: 07,7531 07531 TC -0
030185,000053:
030186,000054: 10,7741 BANK 10
030187,000055:
030188,000056: 10,7741 07741 TC -0
030189,000057: 10,7742 07742 TC -0
030190,000058:
030191,000059: 11,7734 BANK 11
030192,000060:
030193,000061: 11,7734 07734 TC -0
030194,000062: 11,7735 07735 TC -0
030195,000063:
030196,000064: 12,7760 BANK 12
030197,000065:
030198,000066: 12,7760 07760 TC -0
|
|
Page 760
|
030200,000068: 12,7761 07761 TC -0
030201,000069:
030202,000070: 13,7347 BANK 13
030203,000071:
030204,000072: 13,7347 07347 TC -0
030205,000073: 13,7350 07350 TC -0
030206,000074:
030207,000075: 14,7573 BANK 14
030208,000076:
030209,000077: 14,7573 07573 TC -0
030210,000078: 14,7574 07574 TC -0
030211,000079:
030212,000080: 21,7565 BANK 21
030213,000081:
030214,000082: 21,7565 07565 TC -0
030215,000083: 21,7566 07566 TC -0
030216,000084:
030217,000085: 22,7203 BANK 22
030218,000086:
030219,000087: 22,7203 07203 TC -0
030220,000088: 22,7204 07204 TC -0
030221,000089:
030222,000090: 23,7476 BANK 23
030223,000091:
030224,000092: 23,7476 07476 TC -0
030225,000093: 23,7477 07477 TC -0
030226,000094:
030227,000095: 24,6512 BANK 24
030228,000096:
030229,000097: 24,6512 06512 TC -0
030230,000098: 24,6513 06513 TC -0
030231,000099:
030232,000100: 25,7543 BANK 25
030233,000101:
030234,000102: 25,7543 07543 TC -0
030235,000103: 25,7544 07544 TC -0
030236,000104:
030237,000105: 26,7772 BANK 26
030238,000106:
030239,000107: 26,7772 07772 TC -0
030240,000108: 26,7773 07773 TC -0
030241,000109:
030242,000110: 27,7354 BANK 27
030243,000111:
030244,000112: 27,7354 07354 TC -0
030245,000113: 27,7355 07355 TC -0
030246,000114:
030247,000115: 30,7755 BANK 30
030248,000116:
030249,000117: 30,7755 07755 TC -0
|
|
Page 761
|
030251,000119: 30,7756 07756 TC -0
030252,000120:
030253,000121: 31,7535 BANK 31
030254,000122:
030255,000123: 31,7535 07535 TC -0
030256,000124: 31,7536 07536 TC -0
030257,000125:
030258,000126: 32,7743 BANK 32
030259,000127:
030260,000128: 32,7743 07743 TC -0
030261,000129: 32,7744 07744 TC -0
030262,000130:
030263,000131: 33,7446 BANK 33
030264,000132:
030265,000133: 33,7446 07446 TC -0
030266,000134: 33,7447 07447 TC -0
030267,000135:
030268,000136: 34,7770 BANK 34
030269,000137:
030270,000138: 34,7770 07770 TC -0
030271,000139: 34,7771 07771 TC -0
030272,000140:
030273,000141: # 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