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. |
051575,000002: # Copyright: Public domain.
051576,000003: # Filename: SINGLE_PRECISION_SUBROUTINES.agc
051577,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
051578,000005: # build 072. This is for the Command Module's (CM)
051579,000006: # Apollo Guidance Computer (AGC), we believe for
051580,000007: # Apollo 15-17.
051581,000008: # Assembler: yaYUL
051582,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
051583,000010: # Website: www.ibiblio.org/apollo/index.html
051584,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051585,000012: # Mod history: 2009-08-22 JL Adapted from corresponding Comanche 055 file.
051586,000013: # 2010-02-20 RSB Un-##'d this header.
051587,000014:
|
|
Page 1207 |
051589,000016: 4000 SETLOC FFTAG1
051590,000017: 4000 BANK
051591,000018:
051592,000019: # SINGLE PRECISION SINE AND COSINE
051593,000020:
051594,000021: 5060 COUNT* $$/INTER
051595,000022: 5060 64753 SPCOS AD HALF # ARGUMENTS SCALED AT PI
051596,000023: 5061 54742 SPSIN TS TEMK
051597,000024: 5062 15064 TCF SPT
051598,000025: 5063 40742 CS TEMK
051599,000026: 5064 60000 SPT DOUBLE
051600,000027: 5065 54742 TS TEMK
051601,000028: 5066 15077 TCF POLLEY
051602,000029: 5067 56742 XCH TEMK
051603,000030: 5070 50742 INDEX TEMK
051604,000031: 5071 64751 AD LIMITS
051605,000032: 5072 40000 COM
051606,000033: 5073 60742 AD TEMK
051607,000034: 5074 54742 TS TEMK
051608,000035: 5075 15077 TCF POLLEY
051609,000036: 5076 15115 TCF ARG90
051610,000037: 5077 00006 POLLEY EXTEND
051611,000038: 5100 70742 MP TEMK
051612,000039: 5101 54743 TS SQ
051613,000040: 5102 00006 EXTEND
051614,000041: 5103 75022 MP C5/2
051615,000042: 5104 67672 AD C3/2
051616,000043: 5105 00006 EXTEND
051617,000044: 5106 70743 MP SQ
051618,000045: 5107 67653 AD C1/2
051619,000046: 5110 00006 EXTEND
051620,000047: 5111 70742 MP TEMK
051621,000048: 5112 20001 DDOUBL
051622,000049: 5113 54742 TS TEMK
051623,000050: 5114 00002 TC Q
051624,000051: 5115 50000 ARG90 INDEX A
051625,000052: 5116 44751 CS LIMITS
051626,000053: 5117 00002 TC Q # RESULT SCALED AT 1.
051627,000054:
051628,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