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. |
049953,000002: ## Copyright: Public domain.
049954,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
049955,000004: ## Purpose: Part of the source code for Colossus build 237.
049956,000005: ## This is for the Command Module's (CM) Apollo Guidance
049957,000006: ## Computer (AGC), for Apollo 8.
049958,000007: ## Assembler: yaYUL
049959,000008: ## Contact: Onno Hommes <ohommes@alumni.cmu.edu>
049960,000009: ## Website: www.ibiblio.org/apollo/index.html
049961,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
049962,000011: ## Mod history: 2010-06-03 OH Adapted from corresponding Colossus 249 file.
049963,000012: ## 2010-12-04 JL Remove Colossus 249 header comments. Change to double-has page numbers.
049964,000013: ## 2011-02-08 JL Minor fixes.
049965,000014: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
049966,000015: ## and fixed errors found.
049967,000016:
|
|
Page 1174 |
049969,000018: 4767 BLOCK 02
049970,000019:
049971,000020: # SINGLE PRECISION SINE AND COSINE
049972,000021:
049973,000022: 4767 COUNT 02/INTER
049974,000023: 4767 64675 SPCOS AD HALF # ARGUMENTS SCALED AT PI
049975,000024: 4770 55075 SPSIN TS TEMK
049976,000025: 4771 14773 TCF SPT
049977,000026: 4772 41075 CS TEMK
049978,000027: 4773 60000 SPT DOUBLE
049979,000028: 4774 55075 TS TEMK
049980,000029: 4775 15006 TCF POLLEY
049981,000030: 4776 57075 XCH TEMK
049982,000031: 4777 51075 INDEX TEMK
049983,000032: 5000 64673 AD LIMITS
049984,000033: 5001 40000 COM
049985,000034: 5002 61075 AD TEMK
049986,000035: 5003 55075 TS TEMK
049987,000036: 5004 15006 TCF POLLEY
049988,000037: 5005 15024 TCF ARG90
049989,000038: 5006 00006 POLLEY EXTEND
049990,000039: 5007 71075 MP TEMK
049991,000040: 5010 55076 TS SQ
049992,000041: 5011 00006 EXTEND
049993,000042: 5012 74742 MP C5/2
049994,000043: 5013 67706 AD C3/2
049995,000044: 5014 00006 EXTEND
049996,000045: 5015 71076 MP SQ
049997,000046: 5016 67666 AD C1/2
049998,000047: 5017 00006 EXTEND
049999,000048: 5020 71075 MP TEMK
050000,000049: 5021 20001 DDOUBL
050001,000050: 5022 55075 TS TEMK
050002,000051: 5023 00002 TC Q
050003,000052: 5024 50000 ARG90 INDEX A
050004,000053: 5025 44673 CS LIMITS
050005,000054: 5026 00002 TC Q # RESULT SCALED AT 1
050006,000055: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc