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.

039755,000002:                                                                                                  ## Copyright:   Public domain.
039756,000003:                                                                                                  ## Filename:    LOGSUB_ROUTINE.agc
039757,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
039758,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
039759,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
039760,000007:                                                                                                  ## Assembler:   yaYUL
039761,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
039762,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
039763,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
039764,000011:                                                                                                  ##              2016-10-19 RSB  Transcribed.
039765,000012:                                                                                                  ##              2016-12-06 RSB  Comment proofing via octopus/ProoferComments
039766,000013:                                                                                                  ##                              performed, but no changes made.
039767,000014: 

Page 925

039769,000016:                                                                                                  #  INPUT....X IN MPAC
039770,000017:                                                                                                  #  OUTPUT...-LOG(X)/32 IN MPAC
039771,000018: 
039772,000019: 32,3060                                           BANK     32                                    
039773,000020: 32,3060           44301        LOGSUB             NORM     BDSU                                  
039774,000021: 32,3061           00153                                    MPAC       +6                         
039775,000022: 32,3062           25127                                    ALMOST1                               
039776,000023: 32,3063           77776                           EXIT                                           
039777,000024: 32,3064           07274                           TC       POLY                                  
039778,000025: 32,3065           00006                           DEC      6          B-14                       
039779,000026: 32,3066           00000 00002                     2DEC     .0000000060                            
039780,000027: 
039781,000028: 32,3070           76777 77175                     2DEC     -.0312514377                            
039782,000029: 
039783,000030: 32,3072           77400 75416                     2DEC     -.0155686771                            
039784,000031: 
039785,000032: 32,3074           77507 65515                     2DEC     -.0112502068                            
039786,000033: 
039787,000034: 32,3076           77741 63547                     2DEC     -.0018545108                            
039788,000035: 
039789,000036: 32,3100           77052 55373                     2DEC     -.0286607906                            
039790,000037: 
039791,000038: 32,3102           01167 30361                     2DEC     .0385598563                            
039792,000039: 
039793,000040: 32,3104           76520 75267                     2DEC     -.0419361902                            
039794,000041: 
039795,000042: 32,3106           37767                           CAF      ZERO                                  
039796,000043: 32,3107           54146                           TS       MPAC       +2                         
039797,000044: 32,3110           00006                           EXTEND                                         
039798,000045: 32,3111           33125                           DCA      CLOG2/32                              
039799,000046: 32,3112           52145                           DXCH     MPAC                                  
039800,000047: 32,3113           52122                           DXCH     BUF        +1                         
039801,000048: 32,3114           30152                           CA       MPAC       +6                         
039802,000049: 32,3115           07357                           TC       SHORTMP                               
039803,000050: 32,3116           52146                           DXCH     MPAC       +1                         
039804,000051: 32,3117           52145                           DXCH     MPAC                                  
039805,000052: 32,3120           52122                           DXCH     BUF        +1                         
039806,000053: 32,3121           20145                           DAS      MPAC                                  
039807,000054: 32,3122           06112                           TC       INTPRET                               
039808,000055: 32,3123           43476                           DCOMP    RVQ                                   
039809,000056: 32,3124           00542 34414  CLOG2/32           2DEC     .0216608494                            
039810,000057: 
039811,000058: 32,3126           37777 37777  ALMOST1            2DEC     .999999999                            

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