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