Source Code

050928,000001: # Copyright: Public domain. 050929,000002: # Filename: SINGLE_PRECISION_SUBROUTINES.agc 050930,000003: # Purpose: Part of the source code for Colossus, build 249. 050931,000004: # It is part of the source code for the Command Module's (CM) 050932,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 050933,000006: # Assembler: yaYUL 050934,000007: # Reference: p. 1189 of 1701.pdf. 050935,000008: # Contact: Ron Burkey <info@sandroid.org>. 050936,000009: # Website: www.ibiblio.org/apollo. 050937,000010: # Mod history: 08/29/04 RSB. Adapted from corresponding Luminary131 file. 050938,000011: 050939,000012: # The contents of the "Colossus249" files, in general, are transcribed 050940,000013: # from a scanned document obtained from MIT's website, 050941,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 050942,000015: # document read, in part: 050943,000016: 050944,000017: # Assemble revision 249 of AGC program Colossus by NASA 050945,000018: # 2021111-041. October 28, 1968. 050946,000019: 050947,000020: # This AGC program shall also be referred to as 050948,000021: # Colossus 1A 050949,000022: 050950,000023: # Prepared by 050951,000024: # Massachusetts Institute of Technology 050952,000025: # 75 Cambridge Parkway 050953,000026: # Cambridge, Massachusetts 050954,000027: # under NASA contract NAS 9-4065. 050955,000028: 050956,000029: # Refer directly to the online document mentioned above for further information. 050957,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 050958,000031: 050959,000032: # In some cases, where the source code for Luminary 131 overlaps that of 050960,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131 050961,000034: # source file, and then is proofed to incorporate any changes. 050962,000035: 050963,000036: # Page 1189 050964,000037: 4767 BLOCK 02 050965,000038: 050966,000039: # SINGLE PRECISION SINE AND COSINE 050967,000040: 050968,000041: 4767 COUNT 02/INTER 050969,000042: 050970,000043: 4767 64675 SPCOS AD HALF # ARGUMENTS SCALED AT PI 050971,000044: 4770 55075 SPSIN TS TEMK 050972,000045: 4771 14773 TCF SPT 050973,000046: 4772 41075 CS TEMK 050974,000047: 4773 60000 SPT DOUBLE 050975,000048: 4774 55075 TS TEMK 050976,000049: 4775 15006 TCF POLLEY 050977,000050: 4776 57075 XCH TEMK 050978,000051: 4777 51075 INDEX TEMK 050979,000052: 5000 64673 AD LIMITS 050980,000053: 5001 40000 COM 050981,000054: 5002 61075 AD TEMK 050982,000055: 5003 55075 TS TEMK 050983,000056: 5004 15006 TCF POLLEY 050984,000057: 5005 15024 TCF ARG90 050985,000058: 5006 00006 POLLEY EXTEND 050986,000059: 5007 71075 MP TEMK 050987,000060: 5010 55076 TS SQ 050988,000061: 5011 00006 EXTEND 050989,000062: 5012 74742 MP C5/2 050990,000063: 5013 67706 AD C3/2 050991,000064: 5014 00006 EXTEND 050992,000065: 5015 71076 MP SQ 050993,000066: 5016 67666 AD C1/2 050994,000067: 5017 00006 EXTEND 050995,000068: 5020 71075 MP TEMK 050996,000069: 5021 20001 DDOUBL 050997,000070: 5022 55075 TS TEMK 050998,000071: 5023 00002 TC Q 050999,000072: 5024 50000 ARG90 INDEX A 051000,000073: 5025 44673 CS LIMITS 051001,000074: 5026 00002 TC Q # RESULT SCALED AT 1. 051002,000075: 051003,000076: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS. 051004,000077: 051005,000078: 051006,000079: 051007,000080: End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc