Source Code

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