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. |
008054,000002: ## Copyright: Public domain.
008055,000003: ## Filename: RADAR_TEST_PROGRAMS.agc
008056,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst).
008057,000005: ## It is part of the source code for the Lunar Module's (LM)
008058,000006: ## Apollo Guidance Computer (AGC) for Apollo 5.
008059,000007: ## Assembler: yaYUL
008060,000008: ## Contact: Ron Burkey <info@sandroid.org>.
008061,000009: ## Website: www.ibiblio.org/apollo/index.html
008062,000010: ## Mod history: 2016-09-30 RSB Created draft version.
008063,000011: ## 2016-10-06 RSB Completed transcription.
008064,000012: ## 2016-12-04 RSB Proofed comments using octopus/ProoferComments.
008065,000013: ## 2016-12-05 RSB Comment-proofing pass with octopus/ProoferComments completed;
008066,000014: ## changes made.
008067,000015:
|
|
Page 198 |
008069,000017: 10,3261 BANK 10
008070,000018: 10,3261 E7,1444 EBANK= RSTKLOC
008071,000019:
008072,000020: # RADAR SAMPLING LOOP.
008073,000021:
008074,000022: 10,3261 11445 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
008075,000023: 10,3262 13264 TCF +2
008076,000024:
008077,000025: 10,3263 15727 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
008078,000026:
008079,000027: 10,3264 05663 TC WAITLIST
008080,000028: 10,3265 E7,1444 EBANK= RSTKLOC
008081,000029: 10,3265 03261 20067 2CADR RADSAMP
008082,000030:
008083,000031: 10,3267 35647 CAF PRIO25
008084,000032: 10,3270 05505 TC NOVAC
008085,000033: 10,3271 E7,1444 EBANK= RSTKLOC
008086,000034: 10,3271 03301 20067 2CADR DORSAMP
008087,000035:
008088,000036: 10,3273 33332 CAF 1/6 # FOR CYCLIC SAMPLING, RTSTDEX =
008089,000037: 10,3274 00006 EXTEND # RTSTLOC/6 + RTSTBASE.
008090,000038: 10,3275 71444 MP RTSTLOC
008091,000039: 10,3276 61443 AD RTSTBASE # 0 FOR RR, 2 FOR LR.
008092,000040: 10,3277 55441 TS RTSTDEX
008093,000041:
008094,000042: 10,3300 15727 TCF TASKOVER
008095,000043:
008096,000044: # DO THE ACTUAL RADAR SAMPLE.
008097,000045:
008098,000046: 10,3301 03333 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
008099,000047: 10,3302 05206 TC BANKCALL
008100,000048: 10,3303 26745 CADR RADSTALL
008101,000049: 10,3304 25446 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
008102,000050:
008103,000051: 10,3305 00004 DORSAMP2 INHINT # YES - UPDATE TM BUFFER.
008104,000052: 10,3306 52415 DXCH SAMPLSUM
008105,000053: 10,3307 51444 INDEX RTSTLOC
008106,000054: 10,3310 53450 DXCH RSTACK
008107,000055:
008108,000056: 10,3311 52417 DXCH OPTYHOLD
008109,000057: 10,3312 51444 INDEX RSTKLOC
008110,000058: 10,3313 53452 DXCH RSTACK +2
008111,000059:
008112,000060: 10,3314 52421 DXCH TIMEHOLD
008113,000061: 10,3315 51444 INDEX RSTKLOC
008114,000062: 10,3316 53454 DXCH RSTACK +4
008115,000063:
008116,000064: 10,3317 41444 CS RTSTLOC # CYCLE RTSTLOC.
008117,000065: 10,3320 61442 AD RTSTMAX
008118,000066: 10,3321 00006 EXTEND
008119,000067:
|
|
Page 199 |
008121,000069: 10,3322 13325 BZF +3
008122,000070: 10,3323 31444 CA RTSTLOC
008123,000071: 10,3324 66306 AD SIX
008124,000072: 10,3325 55444 TS RTSTLOC
008125,000073:
008126,000074: 10,3326 11445 CCS RSAMPDT # SEE IF TIME TO RE-SAMPLE.
008127,000075: 10,3327 15567 TCF ENDOFJOB # NO - WAIT FOR T3 (REGULAR SAMPLING).
008128,000076:
008129,000077: 10,3330 15567 TCF ENDOFJOB # TEST TERMINATED.
008130,000078: 10,3331 13301 TCF DORSAMP # JUMP RIGHT BACK AND GET ANOTHER SAMPLE.
008131,000079:
008132,000080: 10,3332 05341 1/6 DEC .17
008133,000081:
008134,000082: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
008135,000083:
008136,000084: 10,3333 37763 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
008137,000085: 10,3334 54123 TS BUF2 # SWCALL.
008138,000086: 10,3335 51441 INDEX RTSTDEX
008139,000087: 10,3336 33340 CAF RDRLOCS
008140,000088: 10,3337 15212 TCF SWCALL # NOT TOUCHING Q.
008141,000089:
008142,000090: 10,3340 20651 RDRLOCS CADR RRRANGE # = 0
008143,000091: 10,3341 20647 CADR RRRDOT # = 1
008144,000092: 10,3342 20645 CADR LRVELX # = 2
008145,000093: 10,3343 20643 CADR LRVELY # = 3
008146,000094: 10,3344 20641 CADR LRVELZ # = 4
008147,000095: 10,3345 20637 CADR LRALT # = 5
008148,000096:
008149,000097:
End of include-file RADAR_TEST_PROGRAMS.agc. Parent file is MAIN.agc