Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. 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, 1971Note that the date is the date of the printout, not the date of the program revision. |
051772,000002: ## Copyright: Public domain.
051773,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
051774,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
051775,000005: ## build 072. This is for the Command Module's (CM)
051776,000006: ## Apollo Guidance Computer (AGC), for
051777,000007: ## Apollo 15-17.
051778,000008: ## Assembler: yaYUL
051779,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
051780,000010: ## Website: www.ibiblio.org/apollo/index.html
051781,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051782,000012: ## Mod history: 2009-08-22 JL Adapted from corresponding Comanche 055 file.
051783,000013: ## 2010-02-20 RSB Un-##'d this header.
051784,000014: ## 2017-02-08 RSB Proofed comment text by diff'ing vs Comanche 55
051785,000015: ## and/or octopus/ProoferComments as most-appropriate.
051786,000016:
![]() |
Page 1207 |
051788,000018: 4000 SETLOC FFTAG1
051789,000019: 4000 BANK
051790,000020:
051791,000021: # SINGLE PRECISION SINE AND COSINE
051792,000022:
051793,000023: 5060 COUNT* $$/INTER
051794,000024: 5060 64753 SPCOS AD HALF # ARGUMENTS SCALED AT PI
051795,000025: 5061 54742 SPSIN TS TEMK
051796,000026: 5062 15064 TCF SPT
051797,000027: 5063 40742 CS TEMK
051798,000028: 5064 60000 SPT DOUBLE
051799,000029: 5065 54742 TS TEMK
051800,000030: 5066 15077 TCF POLLEY
051801,000031: 5067 56742 XCH TEMK
051802,000032: 5070 50742 INDEX TEMK
051803,000033: 5071 64751 AD LIMITS
051804,000034: 5072 40000 COM
051805,000035: 5073 60742 AD TEMK
051806,000036: 5074 54742 TS TEMK
051807,000037: 5075 15077 TCF POLLEY
051808,000038: 5076 15115 TCF ARG90
051809,000039: 5077 00006 POLLEY EXTEND
051810,000040: 5100 70742 MP TEMK
051811,000041: 5101 54743 TS SQ
051812,000042: 5102 00006 EXTEND
051813,000043: 5103 75022 MP C5/2
051814,000044: 5104 67672 AD C3/2
051815,000045: 5105 00006 EXTEND
051816,000046: 5106 70743 MP SQ
051817,000047: 5107 67653 AD C1/2
051818,000048: 5110 00006 EXTEND
051819,000049: 5111 70742 MP TEMK
051820,000050: 5112 20001 DDOUBL
051821,000051: 5113 54742 TS TEMK
051822,000052: 5114 00002 TC Q
051823,000053: 5115 50000 ARG90 INDEX A
051824,000054: 5116 44751 CS LIMITS
051825,000055: 5117 00002 TC Q # RESULT SCALED AT 1
051826,000056:
051827,000057: # 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