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