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. |
039761,000002: ## Copyright: Public domain.
039762,000003: ## Filename: LOGSUB_ROUTINE.agc
039763,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
039764,000005: ## is part of the source code for the Lunar Module's
039765,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
039766,000007: ## Assembler: yaYUL
039767,000008: ## Contact: Ron Burkey <info@sandroid.org>.
039768,000009: ## Website: www.ibiblio.org/apollo/index.html
039769,000010: ## Mod history: 2016-09-30 RSB Created draft version.
039770,000011: ## 2016-10-19 RSB Transcribed.
039771,000012: ## 2016-12-06 RSB Comment proofing via octopus/ProoferComments
039772,000013: ## performed, but no changes made.
039773,000014:
|
|
Page 925 |
039775,000016: # INPUT....X IN MPAC
039776,000017: # OUTPUT...-LOG(X)/32 IN MPAC
039777,000018:
039778,000019: 32,3060 BANK 32
039779,000020: 32,3060 44301 LOGSUB NORM BDSU
039780,000021: 32,3061 00153 MPAC +6
039781,000022: 32,3062 25127 ALMOST1
039782,000023: 32,3063 77776 EXIT
039783,000024: 32,3064 07274 TC POLY
039784,000025: 32,3065 00006 DEC 6 B-14
039785,000026: 32,3066 00000 00002 2DEC .0000000060
039786,000027:
039787,000028: 32,3070 76777 77175 2DEC -.0312514377
039788,000029:
039789,000030: 32,3072 77400 75416 2DEC -.0155686771
039790,000031:
039791,000032: 32,3074 77507 65515 2DEC -.0112502068
039792,000033:
039793,000034: 32,3076 77741 63547 2DEC -.0018545108
039794,000035:
039795,000036: 32,3100 77052 55373 2DEC -.0286607906
039796,000037:
039797,000038: 32,3102 01167 30361 2DEC .0385598563
039798,000039:
039799,000040: 32,3104 76520 75267 2DEC -.0419361902
039800,000041:
039801,000042: 32,3106 37767 CAF ZERO
039802,000043: 32,3107 54146 TS MPAC +2
039803,000044: 32,3110 00006 EXTEND
039804,000045: 32,3111 33125 DCA CLOG2/32
039805,000046: 32,3112 52145 DXCH MPAC
039806,000047: 32,3113 52122 DXCH BUF +1
039807,000048: 32,3114 30152 CA MPAC +6
039808,000049: 32,3115 07357 TC SHORTMP
039809,000050: 32,3116 52146 DXCH MPAC +1
039810,000051: 32,3117 52145 DXCH MPAC
039811,000052: 32,3120 52122 DXCH BUF +1
039812,000053: 32,3121 20145 DAS MPAC
039813,000054: 32,3122 06112 TC INTPRET
039814,000055: 32,3123 43476 DCOMP RVQ
039815,000056: 32,3124 00542 34414 CLOG2/32 2DEC .0216608494
039816,000057:
039817,000058: 32,3126 37777 37777 ALMOST1 2DEC .999999999
End of include-file LOGSUB_ROUTINE.agc. Parent file is MAIN.agc