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