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.

039212,000002:                                                                                                  ## Copyright:   Public domain.
039213,000003:                                                                                                  ## Filename:    LOGSUB_ROUTINE.agc
039214,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
039215,000005:                                                                                                  ##              It is part of an early development version of the software
039216,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
039217,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
039218,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
039219,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
039220,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
039221,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
039222,000012:                                                                                                  ##              that the code format has been changed to conform to the
039223,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
039224,000014:                                                                                                  ##              original YUL assembler.
039225,000015:                                                                                                  ## Reference:   p.  864
039226,000016:                                                                                                  ## Assembler:   yaYUL
039227,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
039228,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
039229,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
039230,000020:                                                                                                  ##              2017-06-13 HG   Transcribed
039231,000021:                                                                                                  ##              2017-06-23 RSB  Proofed comment text with
039232,000022:                                                                                                  ##                              octopus/ProoferComments.
039233,000023: 

Page 864

039235,000025:                                                                                                  #  INPUT....X IN MPAC
039236,000026:                                                                                                  #  OUTPUT...-LOG(X)/32 IN MPAC
039237,000027: 
039238,000028: 
039239,000029: 32,2771                                           BANK     32                                    
039240,000030: 32,2771           44301        LOGSUB             NORM     BDSU                                  
039241,000031: 32,2772           00121                                    BUF                                   
039242,000032: 32,2773           25040                                    ALMOST1                               
039243,000033: 32,2774           77776                           EXIT                                           
039244,000034: 32,2775           07265                           TC       POLY                                  
039245,000035: 32,2776           00006                           DEC      6          B-14                       
039246,000036: 32,2777           00000 00002                     2DEC     .0000000060                            
039247,000037: 
039248,000038: 
039249,000039: 32,3001           76777 77175                     2DEC     -.0312514377                            
039250,000040: 
039251,000041: 32,3003           77400 75416                     2DEC     -.0155686771                            
039252,000042: 
039253,000043: 32,3005           77507 65515                     2DEC     -.0112502068                            
039254,000044: 
039255,000045: 32,3007           77741 63547                     2DEC     -.0018545108                            
039256,000046: 
039257,000047: 32,3011           77052 55373                     2DEC     -.0286607906                            
039258,000048: 
039259,000049: 32,3013           01167 30361                     2DEC     .0385598563                            
039260,000050: 
039261,000051: 
039262,000052: 32,3015           76520 75267                     2DEC     -.0419361902                            
039263,000053: 
039264,000054: 32,3017           37761                           CAF      ZERO                                  
039265,000055: 32,3020           54146                           TS       MPAC       +2                         
039266,000056: 32,3021           00006                           EXTEND                                         
039267,000057: 32,3022           33036                           DCA      CLOG2/32                              
039268,000058: 32,3023           52145                           DXCH     MPAC                                  
039269,000059: 32,3024           52122                           DXCH     BUF        +1                         
039270,000060: 32,3025           30120                           CA       BUF                                   
039271,000061: 32,3026           07351                           TC       SHORTMP                               
039272,000062: 
039273,000063: 32,3027           52146                           DXCH     MPAC       +1                         
039274,000064: 32,3030           52145                           DXCH     MPAC                                  
039275,000065: 32,3031           52122                           DXCH     BUF        +1                         
039276,000066: 32,3032           20145                           DAS      MPAC                                  
039277,000067: 32,3033           06103                           TC       INTPRET                               
039278,000068: 32,3034           43476                           DCOMP    RVQ                                   
039279,000069: 32,3035           00542 34414  CLOG2/32           2DEC     .0216608494                            
039280,000070: 
039281,000071: 32,3037           37777 37777  ALMOST1            2DEC     .999999999                            

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