Source Code

These source-code files were transcribed from the Raytheon document "FINAL REPORT: AUXILIARY MEMORY FOR APOLLO GUIDANCE COMPUTER CONTRACT NAS 9-5994". This code is unique, in that it was written by Raytheon Corporation, rather than by the MIT Instrumentation Laboratory, for the purpose of working with the prototype Auxiliary Memory devices built by Raytheon, though never deployed in a mission. The AGC software syntax differs slightly from the more-usual AGC code, because Raytheon clearly had created their own assembler instead of using the existing YUL or GAP assemblers.

The report was obtained from Internet Archive mirrors of the NASA Technical Reports Server (NTRS). The report can be found here and the appendix containing the listing can be found here. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	SUPER JOB BY SUPER TEAM JAN 8, 1968

000208,000002:                                                                                                  ## Copyright:   Public domain.
000209,000003:                                                                                                  ## Filename:    MAIN.agc
000210,000004:                                                                                                  ## Purpose:     Part of the source code for SUPER JOB, a program developed
000211,000005:                                                                                                  ##              at Raytheon to exercise the Auxiliary Memory for the AGC.
000212,000006:                                                                                                  ##              It appears to have been developed from scratch, and shares
000213,000007:                                                                                                  ##              no heritage with any programs from MIT. It was also built
000214,000008:                                                                                                  ##              with a Raytheon assembler rather than YUL or GAP.
000215,000009:                                                                                                  ## Reference:   p. D-4
000216,000010:                                                                                                  ## Assembler:   yaYUL
000217,000011:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
000218,000012:                                                                                                  ## Website:     https://www.ibiblio.org/apollo/index.html
000219,000013:                                                                                                  ## Page Scans:  http://www.ibiblio.org/apollo/Documents/R68-4125-Volume2.pdf
000220,000014:                                                                                                  ## Mod history: 2017-01-27 MAS  Created and transcribed.
000221,000015: 
000222,000016:                                                                                                  ## Page D-4 (continued)
000223,000017:                                                                                                  #  C       CHANNELS
000224,000018: ???????                        CH1                =        0001                                  
000225,000019: ???????                        CH3                =        0003                                  
000226,000020: ???????                        CH4                =        0004                                  
000227,000021: ???????                        CH7                =        0007                                  
000228,000022: ???????                        CH10               =        0010                                  
000229,000023: ???????                        CH11               =        0011                                  
000230,000024: ???????                        CH12               =        0012                                  
000231,000025: ???????                        CH13               =        0013                                  
000232,000026: ???????                        CH14               =        0014                                  
000233,000027: ???????                        CH15               =        0015                                  
000234,000028: ???????                        CH16               =        0016                                  
000235,000029: ???????                        CH20               =        0020                                  
000236,000030: ???????                        CH21               =        0021                                  
000237,000031: ???????                        CH23               =        0023                                  
000238,000032: ???????                        CH25               =        0025                                  
000239,000033: ???????                        CH26               =        0026                                  
000240,000034: ???????                        CH27               =        0027                                  
000241,000035: ???????                        CH30               =        0030                                  
000242,000036: ???????                        CH31               =        0031                                  
000243,000037: ???????                        CH32               =        0032                                  
000244,000038: ???????                        CH33               =        0033                                  
000245,000039: ???????                        CH34               =        0034                                  
000246,000040: ???????                        CH35               =        0035                                  
000247,000041: ???????                        CONOUT             =        0025                                  
000248,000042: ???????                        CONIN              =        0027                                  

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