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