Source Code
052318,000001: # Copyright: Public domain.
052319,000002: # Filename: SINGLE_PRECISION_SUBROUTINES.agc
052320,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
052321,000004: # It is part of the source code for the Command Module's (CM)
052322,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
052323,000006: # Assembler: yaYUL
052324,000007: # Contact: Ron Burkey <info@sandroid.org>.
052325,000008: # Website: www.ibiblio.org/apollo.
052326,000009: # Pages: 1207
052327,000010: # Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
052328,000011: # same name, using Comanche055 page images.
052329,000012:
052330,000013: # This source code has been transcribed or otherwise adapted from digitized
052331,000014: # images of a hardcopy from the MIT Museum. The digitization was performed
052332,000015: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
052333,000016: # thanks to both. The images (with suitable reduction in storage size and
052334,000017: # consequent reduction in image quality as well) are available online at
052335,000018: # www.ibiblio.org/apollo. If for some reason you find that the images are
052336,000019: # illegible, contact me at info@sandroid.org about getting access to the
052337,000020: # (much) higher-quality images which Paul actually created.
052338,000021:
052339,000022: # Notations on the hardcopy document read, in part:
052340,000023:
052341,000024: # Assemble revision 055 of AGC program Comanche by NASA
052342,000025: # 2021113-051. 10:28 APR. 1, 1969
052343,000026:
052344,000027: # This AGC program shall also be referred to as
052345,000028: # Colossus 2A
052346,000029:
052347,000030: # Page 1207
052348,000031: 5074 BLOCK 02
052349,000032:
052350,000033: # SINGLE PRECISION SINE AND COSINE
052351,000034:
052352,000035: 5074 COUNT 02/INTER
052353,000036:
052354,000037: 5074 65002 SPCOS AD HALF # ARGUMENTS SCALED AT PI
052355,000038: 5075 55075 SPSIN TS TEMK
052356,000039: 5076 15100 TCF SPT
052357,000040: 5077 41075 CS TEMK
052358,000041: 5100 60000 SPT DOUBLE
052359,000042: 5101 55075 TS TEMK
052360,000043: 5102 15113 TCF POLLEY
052361,000044: 5103 57075 XCH TEMK
052362,000045: 5104 51075 INDEX TEMK
052363,000046: 5105 65000 AD LIMITS
052364,000047: 5106 40000 COM
052365,000048: 5107 61075 AD TEMK
052366,000049: 5110 55075 TS TEMK
052367,000050: 5111 15113 TCF POLLEY
052368,000051: 5112 15131 TCF ARG90
052369,000052: 5113 00006 POLLEY EXTEND
052370,000053: 5114 71075 MP TEMK
052371,000054: 5115 55076 TS SQ
052372,000055: 5116 00006 EXTEND
052373,000056: 5117 75047 MP C5/2
052374,000057: 5120 67706 AD C3/2
052375,000058: 5121 00006 EXTEND
052376,000059: 5122 71076 MP SQ
052377,000060: 5123 67666 AD C1/2
052378,000061: 5124 00006 EXTEND
052379,000062: 5125 71075 MP TEMK
052380,000063: 5126 20001 DDOUBL
052381,000064: 5127 55075 TS TEMK
052382,000065: 5130 00002 TC Q
052383,000066: 5131 50000 ARG90 INDEX A
052384,000067: 5132 45000 CS LIMITS
052385,000068: 5133 00002 TC Q # RESULT SCALED AT 1.
052386,000069:
052387,000070: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
052388,000071:
052389,000072:
052390,000073:
052391,000074:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc