Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966 THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUPNote that the date is the date of the printout, not the date of the program revision. |
007756,000002: ## Copyright: Public domain.
007757,000003: ## Filename: RADAR_TEST_PROGRAMS.agc
007758,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
007759,000005: ## It is part of an early development version of the software
007760,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
007761,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
007762,000008: ## upon which Don Eyles's offline development program Shepatin
007763,000009: ## was based; the listing herein transcribed was actually for
007764,000010: ## the equivalent revision 0 of Shepatin.
007765,000011: ## This file is intended to be a faithful transcription, except
007766,000012: ## that the code format has been changed to conform to the
007767,000013: ## requirements of the yaYUL assembler rather than the
007768,000014: ## original YUL assembler.
007769,000015: ## Reference: pp. 185-186
007770,000016: ## Assembler: yaYUL
007771,000017: ## Contact: Ron Burkey <info@sandroid.org>.
007772,000018: ## Website: www.ibiblio.org/apollo/index.html
007773,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
007774,000020: ## 2017-05-30 HG Transcribed
007775,000021: ## 2017-06-21 RSB Proofed using octopus/ProoferComments.
007776,000022:
![]() |
Page 185 |
007778,000024: 10,3260 BANK 10
007779,000025: 10,3260 E7,1435 EBANK= RSTKLOC
007780,000026:
007781,000027: # RADAR SAMPLING LOOP.
007782,000028:
007783,000029: 10,3260 11436 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
007784,000030: 10,3261 13263 TCF +2
007785,000031:
007786,000032:
007787,000033: 10,3262 15745 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
007788,000034:
007789,000035: 10,3263 05701 TC WAITLIST
007790,000036: 10,3264 E7,1435 EBANK= RSTKLOC
007791,000037: 10,3264 03260 20007 2CADR RADSAMP
007792,000038: 10,3266 35665 CAF PRIO25
007793,000039: 10,3267 05523 TC NOVAC
007794,000040: 10,3270 E7,1435 EBANK= RSTKLOC
007795,000041: 10,3270 03300 20007 2CADR DORSAMP
007796,000042: 10,3272 33331 CAF 1/6 # FOR CYCLIC SAMPLING, RTSTDEX =
007797,000043: 10,3273 00006 EXTEND # RTSTLOC/6 + RTSTBASE.
007798,000044: 10,3274 71435 MP RTSTLOC
007799,000045: 10,3275 61434 AD RTSTBASE # 0 FOR RR, 2 FOR LR.
007800,000046: 10,3276 55432 TS RTSTDEX
007801,000047:
007802,000048: 10,3277 15745 TCF TASKOVER
007803,000049:
007804,000050: # DO THE ACTUAL RADAR SAMPLE.
007805,000051:
007806,000052: 10,3300 03332 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
007807,000053: 10,3301 05224 TC BANKCALL
007808,000054:
007809,000055: 10,3302 26756 CADR RADSTALL
007810,000056: 10,3303 25437 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
007811,000057:
007812,000058: 10,3304 00004 DORSAMP2 INHINT # YES - UPDATE TM BUFFER.
007813,000059: 10,3305 52416 DXCH SAMPLSUM
007814,000060: 10,3306 51435 INDEX RTSTLOC
007815,000061: 10,3307 53441 DXCH RSTACK
007816,000062:
007817,000063: 10,3310 52420 DXCH OPTYHOLD
007818,000064: 10,3311 51435 INDEX RSTKLOC
007819,000065: 10,3312 53443 DXCH RSTACK +2
007820,000066:
007821,000067: 10,3313 52422 DXCH TIMEHOLD
007822,000068: 10,3314 51435 INDEX RSTKLOC
007823,000069: 10,3315 53445 DXCH RSTACK +4
007824,000070:
007825,000071: 10,3316 41435 CS RTSTLOC # CYCLE RTSTLOC.
007826,000072: 10,3317 61433 AD RTSTMAX
007827,000073: 10,3320 00006 EXTEND
007828,000074:
![]() |
Page 186 |
007830,000076: 10,3321 13324 BZF +3
007831,000077: 10,3322 31435 CA RTSTLOC
007832,000078: 10,3323 66276 AD SIX
007833,000079: 10,3324 55435 TS RTSTLOC
007834,000080:
007835,000081: 10,3325 11436 CCS RSAMPDT # SEE IF TIME TO RE-SAMPLE.
007836,000082: 10,3326 15605 TCF ENDOFJOB # NO - WAIT FOR T3 (REGULAR SAMPLING).
007837,000083:
007838,000084: 10,3327 15605 TCF ENDOFJOB # TEST TERMINATED.
007839,000085: 10,3330 13300 TCF DORSAMP # JUMP RIGHT BACK AND GET ANOTHER SAMPLE.
007840,000086:
007841,000087: 10,3331 05341 1/6 DEC .17
007842,000088:
007843,000089: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
007844,000090:
007845,000091: 10,3332 37755 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
007846,000092: 10,3333 54123 TS BUF2 # SWCALL.
007847,000093: 10,3334 51432 INDEX RTSTDEX
007848,000094: 10,3335 33337 CAF RDRLOCS
007849,000095: 10,3336 15230 TCF SWCALL # NOT TOUCHING Q.
007850,000096:
007851,000097: 10,3337 20650 RDRLOCS CADR RRRANGE # = 0
007852,000098: 10,3340 20646 CADR RRRDOT # = 1
007853,000099: 10,3341 20644 CADR LRVELX # = 2
007854,000100: 10,3342 20642 CADR LRVELY # = 3
007855,000101: 10,3343 20640 CADR LRVELZ # = 4
007856,000102: 10,3344 20636 CADR LRALT # = 5
End of include-file RADAR_TEST_PROGRAMS.agc. Parent file is MAIN.agc