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.
|
027648,000002: ## Copyright: Public domain.
027649,000003: ## Filename: DUMMY_501_INITIALIZATION.agc
027650,000004: ## Purpose: Part of the source code for Solarium build 55. This
027651,000005: ## is for the Command Module's (CM) Apollo Guidance
027652,000006: ## Computer (AGC), for Apollo 6.
027653,000007: ## Assembler: yaYUL --block1
027654,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
027655,000009: ## Website: www.ibiblio.org/apollo/index.html
027656,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
027657,000011: ## Mod history: 2009-09-14 JL Created.
027658,000012: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
027659,000013: ## and fixed errors found.
027660,000014:
|
|
Page 697
|
027662,000016: 33,7407 BANK 33
027663,000017: 33,7407 05654 BEGINNER TC BANKCALL # CHANGE IMUMODE AS REQUIRED.
027664,000018: 33,7410 30216 CADRMODE CADR IMUREENT
027665,000019:
027666,000020: 33,7411 04000 BEGIN501 TC INTPRET
027667,000021: 33,7412 75175 VMOVE 1
027668,000022: 33,7413 76776 ITC
027669,000023: 33,7414 00766 RN
027670,000024: 33,7415 21643 CALCGRAV
027671,000025:
027672,000026: 33,7416 77576 EXIT 0
027673,000027: 33,7417 02276 TC PHASCHNG # SETUP SOME PHASE INFO.
027674,000028: 33,7420 00105 EXITLOC2 OCT 00105 # 5.1 MODE GOES WITH READACCS.
027675,000029:
027676,000030: 33,7421 20017 INHINT
027677,000031: 33,7422 40036 CS TIME1
027678,000032: 33,7423 67440 AD STARTDT1
027679,000033: 33,7424 02173 TC WAITLIST
027680,000034: 33,7425 65152 CADR READACCS
027681,000035:
027682,000036: 33,7426 40036 CS TIME1 # SPARE START ROUTINE
027683,000037: 33,7427 67441 AD STARTDT2
027684,000038: 33,7430 02173 TC WAITLIST
027685,000039: 33,7431 67442 CADR START2
027686,000040:
027687,000041: 33,7432 02124 TC ENDOFJOB
027688,000042:
|
|
(JL) seems to be an arg missing. Is YUL assuming 0? Generates 07435.
|
027690,000044: 33,7433 05654 BEGINSW TC BANKCALL # WAIT FOR MODE SWITCH IF NECESSARY.
027691,000045: 33,7434 30331 CADR IMUSTALL
027692,000046: 33,7435 07435 TC -0
027693,000047:
027694,000048: 33,7436 02124 TC ENDOFJOB
027695,000049:
027696,000050: 33,7437 00000 DEC 0 B-14 # HOLE FOR 2DEC PATCHING STARTDT1 -1
027697,000051: 33,7440 00310 STARTDT1 DEC 200 B-14
027698,000052: 33,7441 01476 STARTDT2 DEC 830 B-14
027699,000053:
027700,000054: 33,7442 32162 START2 CAF PRIO27
027701,000055: 33,7443 02046 TC FINDVAC
027702,000056: 33,7444 64336 CADR S4BSMSEP
027703,000057:
027704,000058: 33,7445 02256 TC TASKOVER
End of include-file DUMMY_501_INITIALIZATION.agc. Parent file is MAIN.agc