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. |
051424,000002: ## Copyright: Public domain.
051425,000003: ## Filename: INTERPRETATIVE_CONSTANTS.agc
051426,000004: ## Purpose: Part of the source code for Colossus, build 249.
051427,000005: ## It is part of the source code for the Command Module's (CM)
051428,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
051429,000007: ## Assembler: yaYUL
051430,000008: ## Reference: pp. 1175-1176
051431,000009: ## Contact: Ron Burkey <info@sandroid.org>.
051432,000010: ## Website: www.ibiblio.org/apollo.
051433,000011: ## Mod history: 08/29/04 RSB. Adapted from corresponding Luminary 131 file.
051434,000012: ## 2017-01-06 RSB Page numbers now agree with those on the
051435,000013: ## original harcopy, as opposed to the PDF page
051436,000014: ## numbers in 1701.pdf.
051437,000015: ## 2017-01-14 RSB Cross-diff'd comment text (not whitespace)
051438,000016: ## vs the already-proofed corresponding Colossus
051439,000017: ## 237 and Comanche 55 source-code files
051440,000018: ## and corrected errors found. No differences
051441,000019: ## remain.
051442,000020: ## 2021-05-30 ABS DFC-6 -> DEC-6, DFC-12 -> DEC-12
051443,000021: ##
051444,000022: ## The contents of the "Colossus249" files, in general, are transcribed
051445,000023: ## from a scanned copy of the program listing. Notations on this
051446,000024: ## document read, in part:
051447,000025: ##
051448,000026: ## Assemble revision 249 of AGC program Colossus by NASA
051449,000027: ## 2021111-041. October 28, 1968.
051450,000028: ##
051451,000029: ## This AGC program shall also be referred to as
051452,000030: ## Colossus 1A
051453,000031: ##
051454,000032: ## Prepared by
051455,000033: ## Massachusetts Institute of Technology
051456,000034: ## 75 Cambridge Parkway
051457,000035: ## Cambridge, Massachusetts
051458,000036: ## under NASA contract NAS 9-4065.
051459,000037: ##
051460,000038: ## Refer directly to the online document mentioned above for further information.
051461,000039: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
051462,000040: ##
051463,000041: ## In some cases, where the source code for Luminary 131 overlaps that of
051464,000042: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
051465,000043: ## source file, and then is proofed to incorporate any changes.
051466,000044:
|
|
Page 1175 |
051468,000046: 26,2000 SETLOC INTPRET1
051469,000047: 26,2000 BANK
051470,000048:
051471,000049: 26,3321 COUNT 23/ICONS
051472,000050:
051473,000051: 26,3321 10000 00000 DP1/4TH 2DEC .25
051474,000052: 26,3323 00000 00000 UNITZ 2DEC 0 B-28
051475,000053: 26,3325 00000 00000 UNITY 2DEC 0 B-28
051476,000054: 26,3327 20000 00000 UNITX 2DEC .5
051477,000055: 26,3331 00000 00000 ZEROVECS 2DEC 0 B-28
051478,000056: 26,3333 00000 00000 2DEC 0 B-28
051479,000057: 26,3335 00000 00000 2DEC 0 B-28
051480,000058:
051481,000059: 26,3337 26,3327 DPHALF = UNITX
051482,000060: 26,3337 37777 DPPOSMAX OCT 37777
051483,000061: 26,3340 37777 OCT 37777
051484,000062:
|
|
Page 1176 |
051486,000064: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
051487,000065:
051488,000066: 04,2000 SETLOC INTPRET2
051489,000067: 04,2000 BANK
051490,000068:
051491,000069: 04,3447 COUNT 14/ICONS
051492,000070:
051493,000071: 04,3447 00000 00000 ZUNIT 2DEC 0 B-28
051494,000072: 04,3451 00000 00000 YUNIT 2DEC 0 B-28
051495,000073: 04,3453 20000 00000 XUNIT 2DEC .5
051496,000074: 04,3455 00000 00000 ZEROVEC 2DEC 0 B-28
051497,000075: 04,3457 00000 00000 2DEC 0 B-28
051498,000076: 04,3461 00000 00000 2DEC 0 B-28
051499,000077:
051500,000078: 04,3463 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
051501,000079: 04,3464 77771 DEC-6 DEC -6 B-14
051502,000080: 04,3465 77763 DEC-12 DEC -12 B-14
051503,000081: 04,3466 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
051504,000082: 04,3470 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
051505,000083:
051506,000084: 04,3472 04,3455 ZERODP = ZEROVEC
051507,000085: 04,3472 04,3453 HALFDP = XUNIT
051508,000086:
051509,000087:
051510,000088:
051511,000089:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc