Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
039728,000002: ## Copyright: Public domain.
039729,000003: ## Filename: LOGSUB_ROUTINE.agc
039730,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
039731,000005: ## is part of the source code for the Lunar Module's
039732,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
039733,000007: ## Assembler: yaYUL
039734,000008: ## Contact: Ron Burkey <info@sandroid.org>.
039735,000009: ## Website: www.ibiblio.org/apollo/index.html
039736,000010: ## Mod history: 2016-09-30 RSB Created draft version.
039737,000011: ## 2016-10-19 RSB Transcribed.
039738,000012: ## 2016-12-06 RSB Comment proofing via octopus/ProoferComments
039739,000013: ## performed, but no changes made.
039740,000014:
![]() |
Page 925 |
039742,000016: # INPUT....X IN MPAC
039743,000017: # OUTPUT...-LOG(X)/32 IN MPAC
039744,000018:
039745,000019: 32,3060 BANK 32
039746,000020: 32,3060 44301 LOGSUB NORM BDSU
039747,000021: 32,3061 00153 MPAC +6
039748,000022: 32,3062 25127 ALMOST1
039749,000023: 32,3063 77776 EXIT
039750,000024: 32,3064 07274 TC POLY
039751,000025: 32,3065 00006 DEC 6 B-14
039752,000026: 32,3066 00000 00002 2DEC .0000000060
039753,000027:
039754,000028: 32,3070 76777 77175 2DEC -.0312514377
039755,000029:
039756,000030: 32,3072 77400 75416 2DEC -.0155686771
039757,000031:
039758,000032: 32,3074 77507 65515 2DEC -.0112502068
039759,000033:
039760,000034: 32,3076 77741 63547 2DEC -.0018545108
039761,000035:
039762,000036: 32,3100 77052 55373 2DEC -.0286607906
039763,000037:
039764,000038: 32,3102 01167 30361 2DEC .0385598563
039765,000039:
039766,000040: 32,3104 76520 75267 2DEC -.0419361902
039767,000041:
039768,000042: 32,3106 37767 CAF ZERO
039769,000043: 32,3107 54146 TS MPAC +2
039770,000044: 32,3110 00006 EXTEND
039771,000045: 32,3111 33125 DCA CLOG2/32
039772,000046: 32,3112 52145 DXCH MPAC
039773,000047: 32,3113 52122 DXCH BUF +1
039774,000048: 32,3114 30152 CA MPAC +6
039775,000049: 32,3115 07357 TC SHORTMP
039776,000050: 32,3116 52146 DXCH MPAC +1
039777,000051: 32,3117 52145 DXCH MPAC
039778,000052: 32,3120 52122 DXCH BUF +1
039779,000053: 32,3121 20145 DAS MPAC
039780,000054: 32,3122 06112 TC INTPRET
039781,000055: 32,3123 43476 DCOMP RVQ
039782,000056: 32,3124 00542 34414 CLOG2/32 2DEC .0216608494
039783,000057:
039784,000058: 32,3126 37777 37777 ALMOST1 2DEC .999999999
End of include-file LOGSUB_ROUTINE.agc. Parent file is MAIN.agc