Source Code
052269,000001: # Copyright: Public domain.
052270,000002: # Filename: SINGLE_PRECISION_SUBROUTINES.agc
052271,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
052272,000004: # It is part of the source code for the Command Module's (CM)
052273,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
052274,000006: # Assembler: yaYUL
052275,000007: # Contact: Ron Burkey <info@sandroid.org>.
052276,000008: # Website: www.ibiblio.org/apollo.
052277,000009: # Pages: 1207
052278,000010: # Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
052279,000011: # same name, using Comanche055 page images.
052280,000012:
052281,000013: # This source code has been transcribed or otherwise adapted from digitized
052282,000014: # images of a hardcopy from the MIT Museum. The digitization was performed
052283,000015: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
052284,000016: # thanks to both. The images (with suitable reduction in storage size and
052285,000017: # consequent reduction in image quality as well) are available online at
052286,000018: # www.ibiblio.org/apollo. If for some reason you find that the images are
052287,000019: # illegible, contact me at info@sandroid.org about getting access to the
052288,000020: # (much) higher-quality images which Paul actually created.
052289,000021:
052290,000022: # Notations on the hardcopy document read, in part:
052291,000023:
052292,000024: # Assemble revision 055 of AGC program Comanche by NASA
052293,000025: # 2021113-051. 10:28 APR. 1, 1969
052294,000026:
052295,000027: # This AGC program shall also be referred to as
052296,000028: # Colossus 2A
052297,000029:
052298,000030: # Page 1207
052299,000031: 5074 BLOCK 02
052300,000032:
052301,000033: # SINGLE PRECISION SINE AND COSINE
052302,000034:
052303,000035: 5074 COUNT 02/INTER
052304,000036:
052305,000037: 5074 65002 SPCOS AD HALF # ARGUMENTS SCALED AT PI
052306,000038: 5075 55075 SPSIN TS TEMK
052307,000039: 5076 15100 TCF SPT
052308,000040: 5077 41075 CS TEMK
052309,000041: 5100 60000 SPT DOUBLE
052310,000042: 5101 55075 TS TEMK
052311,000043: 5102 15113 TCF POLLEY
052312,000044: 5103 57075 XCH TEMK
052313,000045: 5104 51075 INDEX TEMK
052314,000046: 5105 65000 AD LIMITS
052315,000047: 5106 40000 COM
052316,000048: 5107 61075 AD TEMK
052317,000049: 5110 55075 TS TEMK
052318,000050: 5111 15113 TCF POLLEY
052319,000051: 5112 15131 TCF ARG90
052320,000052: 5113 00006 POLLEY EXTEND
052321,000053: 5114 71075 MP TEMK
052322,000054: 5115 55076 TS SQ
052323,000055: 5116 00006 EXTEND
052324,000056: 5117 75047 MP C5/2
052325,000057: 5120 67706 AD C3/2
052326,000058: 5121 00006 EXTEND
052327,000059: 5122 71076 MP SQ
052328,000060: 5123 67666 AD C1/2
052329,000061: 5124 00006 EXTEND
052330,000062: 5125 71075 MP TEMK
052331,000063: 5126 20001 DDOUBL
052332,000064: 5127 55075 TS TEMK
052333,000065: 5130 00002 TC Q
052334,000066: 5131 50000 ARG90 INDEX A
052335,000067: 5132 45000 CS LIMITS
052336,000068: 5133 00002 TC Q # RESULT SCALED AT 1.
052337,000069:
052338,000070: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
052339,000071:
052340,000072:
052341,000073:
052342,000074:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc