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