Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
048840,000002: ## Copyright: Public domain.
048841,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
048842,000004: ## Purpose: A section of Skylark revision 048.
048843,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
048844,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
048845,000007: ## this software are available; instead, this file was created via
048846,000008: ## disassembly of dumps of the core rope modules actually flown on
048847,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
048848,000010: ## Museum of Space History.
048849,000011: ## Assembler: yaYUL
048850,000012: ## Contact: Ron Burkey <info@sandroid.org>.
048851,000013: ## Website: www.ibiblio.org/apollo/index.html
048852,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
048853,000015:
048854,000016: 4000 SETLOC FFTAG1
048855,000017: 4000 BANK
048856,000018:
048857,000019: # SINGLE PRECISION SINE AND COSINE
048858,000020:
048859,000021: 5073 COUNT* $$/INTER
048860,000022: 5073 64764 SPCOS AD HALF # ARGUMENTS SCALED AT PI
048861,000023: 5074 54735 SPSIN TS TEMK
048862,000024: 5075 15077 TCF SPT
048863,000025: 5076 40735 CS TEMK
048864,000026: 5077 60000 SPT DOUBLE
048865,000027: 5100 54735 TS TEMK
048866,000028: 5101 15112 TCF POLLEY
048867,000029: 5102 56735 XCH TEMK
048868,000030: 5103 50735 INDEX TEMK
048869,000031: 5104 64762 AD LIMITS
048870,000032: 5105 40000 COM
048871,000033: 5106 60735 AD TEMK
048872,000034: 5107 54735 TS TEMK
048873,000035: 5110 15112 TCF POLLEY
048874,000036: 5111 15130 TCF ARG90
048875,000037: 5112 00006 POLLEY EXTEND
048876,000038: 5113 70735 MP TEMK
048877,000039: 5114 54736 TS SQ
048878,000040: 5115 00006 EXTEND
048879,000041: 5116 75035 MP C5/2
048880,000042: 5117 67672 AD C3/2
048881,000043: 5120 00006 EXTEND
048882,000044: 5121 70736 MP SQ
048883,000045: 5122 67653 AD C1/2
048884,000046: 5123 00006 EXTEND
048885,000047: 5124 70735 MP TEMK
048886,000048: 5125 20001 DDOUBL
048887,000049: 5126 54735 TS TEMK
048888,000050: 5127 00002 TC Q
048889,000051: 5130 50000 ARG90 INDEX A
048890,000052: 5131 44762 CS LIMITS
048891,000053: 5132 00002 TC Q # RESULT SCALED AT 1
048892,000054:
048893,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