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