Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
051544,000002: # Copyright: Public domain.
051545,000003: # Filename: SINGLE_PRECISION_SUBROUTINES.agc
051546,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
051547,000005: # build 072. This is for the Command Module's (CM)
051548,000006: # Apollo Guidance Computer (AGC), we believe for
051549,000007: # Apollo 15-17.
051550,000008: # Assembler: yaYUL
051551,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
051552,000010: # Website: www.ibiblio.org/apollo/index.html
051553,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051554,000012: # Mod history: 2009-08-22 JL Adapted from corresponding Comanche 055 file.
051555,000013: # 2010-02-20 RSB Un-##'d this header.
051556,000014:
051557,000015: # # Page 1207
051558,000016: 4000 SETLOC FFTAG1
051559,000017: 4000 BANK
051560,000018:
051561,000019: # SINGLE PRECISION SINE AND COSINE
051562,000020:
051563,000021: 5060 COUNT* $$/INTER
051564,000022: 5060 64753 SPCOS AD HALF # ARGUMENTS SCALED AT PI
051565,000023: 5061 54742 SPSIN TS TEMK
051566,000024: 5062 15064 TCF SPT
051567,000025: 5063 40742 CS TEMK
051568,000026: 5064 60000 SPT DOUBLE
051569,000027: 5065 54742 TS TEMK
051570,000028: 5066 15077 TCF POLLEY
051571,000029: 5067 56742 XCH TEMK
051572,000030: 5070 50742 INDEX TEMK
051573,000031: 5071 64751 AD LIMITS
051574,000032: 5072 40000 COM
051575,000033: 5073 60742 AD TEMK
051576,000034: 5074 54742 TS TEMK
051577,000035: 5075 15077 TCF POLLEY
051578,000036: 5076 15115 TCF ARG90
051579,000037: 5077 00006 POLLEY EXTEND
051580,000038: 5100 70742 MP TEMK
051581,000039: 5101 54743 TS SQ
051582,000040: 5102 00006 EXTEND
051583,000041: 5103 75022 MP C5/2
051584,000042: 5104 67672 AD C3/2
051585,000043: 5105 00006 EXTEND
051586,000044: 5106 70743 MP SQ
051587,000045: 5107 67653 AD C1/2
051588,000046: 5110 00006 EXTEND
051589,000047: 5111 70742 MP TEMK
051590,000048: 5112 20001 DDOUBL
051591,000049: 5113 54742 TS TEMK
051592,000050: 5114 00002 TC Q
051593,000051: 5115 50000 ARG90 INDEX A
051594,000052: 5116 44751 CS LIMITS
051595,000053: 5117 00002 TC Q # RESULT SCALED AT 1.
051596,000054:
051597,000055: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc