Source Code
![]() |
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
001492,000002: ## Copyright: Public domain.
001493,000003: ## Filename: SUBROUTINE_CALLS.agc
001494,000004: ## Purpose: Part of the source code for Colossus, build 249.
001495,000005: ## It is part of the source code for the Command Module's (CM)
001496,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
001497,000007: ## Assembler: yaYUL
001498,000008: ## Reference: pp. 34
001499,000009: ## Contact: Ron Burkey <info@sandroid.org>.
001500,000010: ## Website: www.ibiblio.org/apollo.
001501,000011: ## Mod history: 2017-01-05 RSB Split off from TAGS_FOR_RELATIVE_SETLOC.agc.
001502,000012: ###
001503,000013: ## The contents of the "Colossus249" files, in general, are transcribed
001504,000014: ## from a scanned copy of the program listing. Notations on this
001505,000015: ## document read, in part:
001506,000016: ##
001507,000017: ## Assemble revision 249 of AGC program Colossus by NASA
001508,000018: ## 2021111-041. October 28, 1968.
001509,000019: ##
001510,000020: ## This AGC program shall also be referred to as
001511,000021: ## Colossus 1A
001512,000022: ##
001513,000023: ## Prepared by
001514,000024: ## Massachusetts Institute of Technology
001515,000025: ## 75 Cambridge Parkway
001516,000026: ## Cambridge, Massachusetts
001517,000027: ## under NASA contract NAS 9-4065.
001518,000028: ##
001519,000029: ## Refer directly to the online document mentioned above for further information.
001520,000030: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
001521,000031: ##
001522,000032: ## In some cases, where the source code for Luminary 131 overlaps that of
001523,000033: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
001524,000034: ## source file, and then is proofed to incorporate any changes.
001525,000035:
![]() |
Page 34 |
001527,000037: 37,2001 SUBRO KILERASE
001528,000038: 37,2001 SUBRO KOOLADE
001529,000039: 37,2001 SUBRO SMOOCH
001530,000040: 37,2001 SUBRO PANDORA
001531,000041: 37,2001 SUBRO DAPCSM
001532,000042: 37,2001 SUBRO SATRAP
End of include-file SUBROUTINE_CALLS.agc. Parent file is MAIN.agc