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.

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