GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. 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:GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
052554,000002: ## Copyright: Public domain.
052555,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
052556,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
052557,000005: ## It is part of the source code for the Command Module's (CM)
052558,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
052559,000007: ## Assembler: yaYUL
052560,000008: ## Contact: Ron Burkey <info@sandroid.org>.
052561,000009: ## Website: www.ibiblio.org/apollo.
052562,000010: ## Pages: 1205-1206
052563,000011: ## Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
052564,000012: ## same name, using Comanche055 page images.
052565,000013: ## 2016-12-21 RSB Proofed comment text using octopus/ProoferComments
052566,000014: ## but no errors found.
052567,000015: ##
052568,000016: ## This source code has been transcribed or otherwise adapted from digitized
052569,000017: ## images of a hardcopy from the MIT Museum. The digitization was performed
052570,000018: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
052571,000019: ## thanks to both. The images (with suitable reduction in storage size and
052572,000020: ## consequent reduction in image quality as well) are available online at
052573,000021: ## www.ibiblio.org/apollo. If for some reason you find that the images are
052574,000022: ## illegible, contact me at info@sandroid.org about getting access to the
052575,000023: ## (much) higher-quality images which Paul actually created.
052576,000024: ##
052577,000025: ## Notations on the hardcopy document read, in part:
052578,000026: ##
052579,000027: ## Assemble revision 055 of AGC program Comanche by NASA
052580,000028: ## 2021113-051. 10:28 APR. 1, 1969
052581,000029: ##
052582,000030: ## This AGC program shall also be referred to as
052583,000031: ## Colossus 2A
052584,000032:
|
|
Page 1205 |
052586,000034: 26,2000 SETLOC INTPRET1
052587,000035: 26,2000 BANK
052588,000036:
052589,000037: 26,3324 COUNT 23/ICONS
052590,000038:
052591,000039: 26,3324 10000 00000 DP1/4TH 2DEC .25
052592,000040:
052593,000041: 26,3326 00000 00000 UNITZ 2DEC 0 B-28
052594,000042:
052595,000043: 26,3330 00000 00000 UNITY 2DEC 0 B-28
052596,000044:
052597,000045: 26,3332 20000 00000 UNITX 2DEC .5
052598,000046:
052599,000047: 26,3334 00000 00000 ZEROVECS 2DEC 0 B-28
052600,000048:
052601,000049: 26,3336 00000 00000 2DEC 0 B-28
052602,000050:
052603,000051: 26,3340 00000 00000 2DEC 0 B-28
052604,000052:
052605,000053: 26,3342 26,3332 DPHALF = UNITX
052606,000054: 26,3342 37777 DPPOSMAX OCT 37777
052607,000055: 26,3343 37777 OCT 37777
052608,000056:
|
|
Page 1206 |
052610,000058: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
052611,000059:
052612,000060: 04,2000 SETLOC INTPRET2
052613,000061: 04,2000 BANK
052614,000062:
052615,000063: 04,3557 COUNT 14/ICONS
052616,000064:
052617,000065: 04,3557 00000 00000 ZUNIT 2DEC 0 B-28
052618,000066:
052619,000067: 04,3561 00000 00000 YUNIT 2DEC 0 B-28
052620,000068:
052621,000069: 04,3563 20000 00000 XUNIT 2DEC .5
052622,000070:
052623,000071: 04,3565 00000 00000 ZEROVEC 2DEC 0 B-28
052624,000072:
052625,000073: 04,3567 00000 00000 2DEC 0 B-28
052626,000074:
052627,000075: 04,3571 00000 00000 2DEC 0 B-28
052628,000076:
052629,000077: 04,3573 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
052630,000078: 04,3574 77771 DEC-6 DEC -6 B-14
052631,000079: 04,3575 77763 DEC-12 DEC -12 B-14
052632,000080: 04,3576 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
052633,000081:
052634,000082: 04,3600 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
052635,000083:
052636,000084: 04,3602 04,3565 ZERODP = ZEROVEC
052637,000085: 04,3602 04,3563 HALFDP = XUNIT
052638,000086:
052639,000087:
052640,000088:
052641,000089:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc