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.
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. |
051514,000002: ## Copyright: Public domain.
051515,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
051516,000004: ## Purpose: Part of the source code for Colossus, build 249.
051517,000005: ## It is part of the source code for the Command Module's (CM)
051518,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
051519,000007: ## Assembler: yaYUL
051520,000008: ## Reference: p. 1177
051521,000009: ## Contact: Ron Burkey <info@sandroid.org>.
051522,000010: ## Website: www.ibiblio.org/apollo.
051523,000011: ## Mod history: 08/29/04 RSB. Adapted from corresponding Luminary131 file.
051524,000012: ## 2017-01-06 RSB Page numbers now agree with those on the
051525,000013: ## original harcopy, as opposed to the PDF page
051526,000014: ## numbers in 1701.pdf.
051527,000015: ## 2017-01-18 RSB Cross-diff'd comment text (not whitespace)
051528,000016: ## vs the already-proofed corresponding Colossus
051529,000017: ## 237 and Comanche 55 source-code files
051530,000018: ## and corrected errors found.
051531,000019: ##
051532,000020: ## The contents of the "Colossus249" files, in general, are transcribed
051533,000021: ## from a scanned copy of the program listing. Notations on this
051534,000022: ## document read, in part:
051535,000023: ##
051536,000024: ## Assemble revision 249 of AGC program Colossus by NASA
051537,000025: ## 2021111-041. October 28, 1968.
051538,000026: ##
051539,000027: ## This AGC program shall also be referred to as
051540,000028: ## Colossus 1A
051541,000029: ##
051542,000030: ## Prepared by
051543,000031: ## Massachusetts Institute of Technology
051544,000032: ## 75 Cambridge Parkway
051545,000033: ## Cambridge, Massachusetts
051546,000034: ## under NASA contract NAS 9-4065.
051547,000035: ##
051548,000036: ## Refer directly to the online document mentioned above for further information.
051549,000037: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
051550,000038: ##
051551,000039: ## In some cases, where the source code for Luminary 131 overlaps that of
051552,000040: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
051553,000041: ## source file, and then is proofed to incorporate any changes.
051554,000042:
|
|
Page 1177 |
051556,000044: 4767 BLOCK 02
051557,000045:
051558,000046: # SINGLE PRECISION SINE AND COSINE
051559,000047:
051560,000048: 4767 COUNT 02/INTER
051561,000049:
051562,000050: 4767 64675 SPCOS AD HALF # ARGUMENTS SCALED AT PI
051563,000051: 4770 55075 SPSIN TS TEMK
051564,000052: 4771 14773 TCF SPT
051565,000053: 4772 41075 CS TEMK
051566,000054: 4773 60000 SPT DOUBLE
051567,000055: 4774 55075 TS TEMK
051568,000056: 4775 15006 TCF POLLEY
051569,000057: 4776 57075 XCH TEMK
051570,000058: 4777 51075 INDEX TEMK
051571,000059: 5000 64673 AD LIMITS
051572,000060: 5001 40000 COM
051573,000061: 5002 61075 AD TEMK
051574,000062: 5003 55075 TS TEMK
051575,000063: 5004 15006 TCF POLLEY
051576,000064: 5005 15024 TCF ARG90
051577,000065: 5006 00006 POLLEY EXTEND
051578,000066: 5007 71075 MP TEMK
051579,000067: 5010 55076 TS SQ
051580,000068: 5011 00006 EXTEND
051581,000069: 5012 74742 MP C5/2
051582,000070: 5013 67706 AD C3/2
051583,000071: 5014 00006 EXTEND
051584,000072: 5015 71076 MP SQ
051585,000073: 5016 67666 AD C1/2
051586,000074: 5017 00006 EXTEND
051587,000075: 5020 71075 MP TEMK
051588,000076: 5021 20001 DDOUBL
051589,000077: 5022 55075 TS TEMK
051590,000078: 5023 00002 TC Q
051591,000079: 5024 50000 ARG90 INDEX A
051592,000080: 5025 44673 CS LIMITS
051593,000081: 5026 00002 TC Q # RESULT SCALED AT 1
051594,000082:
051595,000083: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
051596,000084:
051597,000085:
051598,000086:
051599,000087:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc