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