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