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.

008060,000002:                                                                                                  ## Copyright:   Public domain.
008061,000003:                                                                                                  ## Filename:    RADAR_TEST_PROGRAMS.agc
008062,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
008063,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
008064,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
008065,000007:                                                                                                  ## Assembler:   yaYUL
008066,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
008067,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
008068,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
008069,000011:                                                                                                  ##              2016-10-06 RSB  Completed transcription.
008070,000012:                                                                                                  ##              2016-12-04 RSB  Proofed comments using octopus/ProoferComments.
008071,000013:                                                                                                  ##              2016-12-05 RSB  Comment-proofing pass with octopus/ProoferComments completed;
008072,000014:                                                                                                  ##                              changes made.
008073,000015: 

Page 198

008075,000017: 10,3261                                           BANK     10                                    
008076,000018: 10,3261  E7,1444                                  EBANK=   RSTKLOC                               
008077,000019: 
008078,000020:                                                                                                  #  RADAR SAMPLING LOOP.
008079,000021: 
008080,000022: 10,3261           11445        RADSAMP            CCS      RSAMPDT                               #  TIMES NORMAL ONCE-PER-SECOND SAMPLING.
008081,000023: 10,3262           13264                           TCF      +2                                    
008082,000024: 
008083,000025: 10,3263           15727                           TCF      TASKOVER                              #  +0 INSERTED MANUALLY TERMINATES TEST.
008084,000026: 
008085,000027: 10,3264           05663                           TC       WAITLIST                              
008086,000028: 10,3265  E7,1444                                  EBANK=   RSTKLOC                               
008087,000029: 10,3265           03261 20067                     2CADR    RADSAMP                               
008088,000030: 
008089,000031: 10,3267           35647                           CAF      PRIO25                                
008090,000032: 10,3270           05505                           TC       NOVAC                                 
008091,000033: 10,3271  E7,1444                                  EBANK=   RSTKLOC                               
008092,000034: 10,3271           03301 20067                     2CADR    DORSAMP                               
008093,000035: 
008094,000036: 10,3273           33332                           CAF      1/6                                   #  FOR CYCLIC SAMPLING, RTSTDEX =
008095,000037: 10,3274           00006                           EXTEND                                         #  RTSTLOC/6 + RTSTBASE.
008096,000038: 10,3275           71444                           MP       RTSTLOC                               
008097,000039: 10,3276           61443                           AD       RTSTBASE                              #  0 FOR RR, 2 FOR LR.
008098,000040: 10,3277           55441                           TS       RTSTDEX                               
008099,000041: 
008100,000042: 10,3300           15727                           TCF      TASKOVER                              
008101,000043: 
008102,000044:                                                                                                  #  DO THE ACTUAL RADAR SAMPLE.
008103,000045: 
008104,000046: 10,3301           03333        DORSAMP            TC       VARADAR                               #  SELECTS VARIABLE RADAR CHANNEL.
008105,000047: 10,3302           05206                           TC       BANKCALL                              
008106,000048: 10,3303           26745                           CADR     RADSTALL                              
008107,000049: 10,3304           25446                           INCR     RFAILCNT                              #  ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
008108,000050: 
008109,000051: 10,3305           00004        DORSAMP2           INHINT                                         #  YES - UPDATE TM BUFFER.
008110,000052: 10,3306           52415                           DXCH     SAMPLSUM                              
008111,000053: 10,3307           51444                           INDEX    RTSTLOC                               
008112,000054: 10,3310           53450                           DXCH     RSTACK                                
008113,000055: 
008114,000056: 10,3311           52417                           DXCH     OPTYHOLD                              
008115,000057: 10,3312           51444                           INDEX    RSTKLOC                               
008116,000058: 10,3313           53452                           DXCH     RSTACK     +2                         
008117,000059: 
008118,000060: 10,3314           52421                           DXCH     TIMEHOLD                              
008119,000061: 10,3315           51444                           INDEX    RSTKLOC                               
008120,000062: 10,3316           53454                           DXCH     RSTACK     +4                         
008121,000063: 
008122,000064: 10,3317           41444                           CS       RTSTLOC                               #  CYCLE RTSTLOC.
008123,000065: 10,3320           61442                           AD       RTSTMAX                               
008124,000066: 10,3321           00006                           EXTEND                                         
008125,000067: 

Page 199

008127,000069: 10,3322           13325                           BZF      +3                                    
008128,000070: 10,3323           31444                           CA       RTSTLOC                               
008129,000071: 10,3324           66306                           AD       SIX                                   
008130,000072: 10,3325           55444                           TS       RTSTLOC                               
008131,000073: 
008132,000074: 10,3326           11445                           CCS      RSAMPDT                               #  SEE IF TIME TO RE-SAMPLE.
008133,000075: 10,3327           15567                           TCF      ENDOFJOB                              #  NO - WAIT FOR T3 (REGULAR SAMPLING).
008134,000076: 
008135,000077: 10,3330           15567                           TCF      ENDOFJOB                              #  TEST TERMINATED.
008136,000078: 10,3331           13301                           TCF      DORSAMP                               #  JUMP RIGHT BACK AND GET ANOTHER SAMPLE.
008137,000079: 
008138,000080: 10,3332           05341        1/6                DEC      .17                                   
008139,000081: 
008140,000082:                                                                                                  #  VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
008141,000083: 
008142,000084: 10,3333           37763        VARADAR            CAF      ONE                                   #  WILL BE SENT TO RADAR ROUTINE IN A BY
008143,000085: 10,3334           54123                           TS       BUF2                                  #  SWCALL.
008144,000086: 10,3335           51441                           INDEX    RTSTDEX                               
008145,000087: 10,3336           33340                           CAF      RDRLOCS                               
008146,000088: 10,3337           15212                           TCF      SWCALL                                #  NOT TOUCHING Q.
008147,000089: 
008148,000090: 10,3340           20651        RDRLOCS            CADR     RRRANGE                               #  = 0
008149,000091: 10,3341           20647                           CADR     RRRDOT                                #  = 1
008150,000092: 10,3342           20645                           CADR     LRVELX                                #  = 2
008151,000093: 10,3343           20643                           CADR     LRVELY                                #  = 3
008152,000094: 10,3344           20641                           CADR     LRVELZ                                #  = 4
008153,000095: 10,3345           20637                           CADR     LRALT                                 #  = 5
008154,000096: 
008155,000097: 

End of include-file RADAR_TEST_PROGRAMS.agc.  Parent file is MAIN.agc