GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional 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:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
049898,000002: ## Copyright: Public domain.
049899,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
049900,000004: ## Purpose: Part of the source code for Colossus build 237.
049901,000005: ## This is for the Command Module's (CM) Apollo Guidance
049902,000006: ## Computer (AGC), for Apollo 8.
049903,000007: ## Assembler: yaYUL
049904,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
049905,000009: ## Website: www.ibiblio.org/apollo/index.html
049906,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
049907,000011: ## Mod history: 2011-03-12 JL Adapted from corresponding Colossus 249 file.
049908,000012: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
049909,000013: ## and fixed errors found.
049910,000014:
|
|
Page 1172 |
049912,000016: 26,2000 SETLOC INTPRET1
049913,000017: 26,2000 BANK
049914,000018:
049915,000019: 26,3321 COUNT 23/ICONS
049916,000020:
049917,000021: 26,3321 10000 00000 DP1/4TH 2DEC .25
049918,000022: 26,3323 00000 00000 UNITZ 2DEC 0 B-28
049919,000023: 26,3325 00000 00000 UNITY 2DEC 0 B-28
049920,000024: 26,3327 20000 00000 UNITX 2DEC .5
049921,000025: 26,3331 00000 00000 ZEROVECS 2DEC 0 B-28
049922,000026: 26,3333 00000 00000 2DEC 0 B-28
049923,000027: 26,3335 00000 00000 2DEC 0 B-28
049924,000028:
049925,000029: 26,3337 26,3327 DPHALF = UNITX
049926,000030: 26,3337 37777 DPPOSMAX OCT 37777
049927,000031: 26,3340 37777 OCT 37777
049928,000032:
|
|
Page 1173 |
049930,000034: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
049931,000035:
049932,000036: 04,2000 SETLOC INTPRET2
049933,000037: 04,2000 BANK
049934,000038:
049935,000039: 04,3444 COUNT 14/ICONS
049936,000040:
049937,000041: 04,3444 00000 00000 ZUNIT 2DEC 0 B-28
049938,000042: 04,3446 00000 00000 YUNIT 2DEC 0 B-28
049939,000043: 04,3450 20000 00000 XUNIT 2DEC .5
049940,000044: 04,3452 00000 00000 ZEROVEC 2DEC 0 B-28
049941,000045: 04,3454 00000 00000 2DEC 0 B-28
049942,000046: 04,3456 00000 00000 2DEC 0 B-28
049943,000047:
049944,000048: 04,3460 77777 OCT 77777 # -0,-6,-12 MUST REMAIN IN THIS ORDER
049945,000049: 04,3461 77771 DEC-6 DEC -6 B-14
049946,000050: 04,3462 77763 DEC-12 DEC -12 B-14
049947,000051: 04,3463 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
049948,000052: 04,3465 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
049949,000053: 04,3467 04,3452 ZERODP = ZEROVEC
049950,000054: 04,3467 04,3450 HALFDP = XUNIT
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc