Source Code

These source-code files are part of a reconstructed copy of Sundial E, the final release of the Block II Command Module (CM) Apollo Guidance Computer (AGC) system test software.

They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003053-121, 2003053-151, and 2003972-211, belonging to the MIT Museum.

Since only binary dumps (rather than listings) of Sundial are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

020073,000002:                                                                                                  ## Copyright:   Public domain.
020074,000003:                                                                                                  ## Filename:    SUM_CHECK_END_OF_BANK_MARKERS.agc
020075,000004:                                                                                                  ## Purpose:     A section of Sundial E.
020076,000005:                                                                                                  ##              It is part of the reconstructed source code for the final
020077,000006:                                                                                                  ##              release of the Block II Command Module system test software. No
020078,000007:                                                                                                  ##              original listings of this program are available; instead, this
020079,000008:                                                                                                  ##              file was created via disassembly of dumps of Sundial core rope
020080,000009:                                                                                                  ##              modules and comparison with other AGC programs.
020081,000010:                                                                                                  ## Assembler:   yaYUL
020082,000011:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
020083,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
020084,000013:                                                                                                  ## Mod history: 2023-06-22 MAS  Created from Aurora 12.
020085,000014:                                                                                                  ##              2023-06-30 MAS  Updated for Sundial E.
020086,000015:                                                                                                  ##              2023-07-03 MAS  Updated tags for new patch placement.
020087,000016: 
020088,000017: 
020089,000018:    5743                                           SETLOC   ENDIMUF                               
020090,000019:    5743           05743                           TC       -0                                    
020091,000020:    5744           05744                           TC       -0                                    
020092,000021: 
020093,000022:    7672                                           SETLOC   ENDINTF                               
020094,000023:    7672           07672                           TC       -0                                    
020095,000024:    7673           07673                           TC       -0                                    
020096,000025: 
020097,000026: 00,3657                                           SETLOC   ENDINTS0                              
020098,000027: 00,3657           03657                           TC       -0                                    
020099,000028: 00,3660           03660                           TC       -0                                    
020100,000029: 
020101,000030: 01,3265                                           SETLOC   ENDSLFS2                              
020102,000031: 01,3265           03265                           TC       -0                                    
020103,000032: 01,3266           03266                           TC       -0                                    
020104,000033: 
020105,000034: 04,3772                                           SETLOC   ENDRTBSS                              
020106,000035: 04,3772           03772                           TC       -0                                    
020107,000036: 04,3773           03773                           TC       -0                                    
020108,000037: 
020109,000038: 05,3772                                           SETLOC   ENDDNTMS                              
020110,000039: 05,3772           03772                           TC       -0                                    
020111,000040: 05,3773           03773                           TC       -0                                    
020112,000041: 
020113,000042: 06,3462                                           SETLOC   ENDIMUS1                              
020114,000043: 06,3462           03462                           TC       -0                                    
020115,000044: 06,3463           03463                           TC       -0                                    
020116,000045: 
020117,000046: 07,3762                                           SETLOC   ENDCSITS                              
020118,000047: 07,3762           03762                           TC       -0                                    
020119,000048: 07,3763           03763                           TC       -0                                    
020120,000049: 
020121,000050: 10,3770                                           SETLOC   ENDSLFS1                              
020122,000051: 10,3770           03770                           TC       -0                                    
020123,000052: 10,3771           03771                           TC       -0                                    
020124,000053: 
020125,000054: 11,2711                                           SETLOC   ENDEXTVS                              
020126,000055: 11,2711           02711                           TC       -0                                    
020127,000056: 11,2712           02712                           TC       -0                                    
020128,000057: 
020129,000058: 12,3762                                           SETLOC   ENDT4S                                
020130,000059: 12,3762           03762                           TC       -0                                    
020131,000060: 12,3763           03763                           TC       -0                                    
020132,000061: 
020133,000062: 13,3402                                           SETLOC   ENDSMODS                              
020134,000063: 13,3402           03402                           TC       -0                                    
020135,000064: 13,3403           03403                           TC       -0                                    
020136,000065: 
020137,000066: 14,3274                                           SETLOC   ENDIMUS3                              
020138,000067: 14,3274           03274                           TC       -0                                    
020139,000068: 14,3275           03275                           TC       -0                                    
020140,000069: 
020141,000070: 15,3070                                           SETLOC   ENDPRELS                              
020142,000071: 15,3070           03070                           TC       -0                                    
020143,000072: 15,3071           03071                           TC       -0                                    
020144,000073: 
020145,000074: 16,3773                                           SETLOC   ENDPREL1                              
020146,000075: 16,3773           03773                           TC       -0                                    
020147,000076: 16,3774           03774                           TC       -0                                    
020148,000077: 
020149,000078: 17,3750                                           SETLOC   ENDIMUS2                              
020150,000079: 17,3750           03750                           TC       -0                                    
020151,000080: 17,3751           03751                           TC       -0                                    
020152,000081: 
020153,000082: 20,2000                                           BANK     20                                    
020154,000083: 20,2000           02000                           TC       -0                                    
020155,000084: 20,2001           02001                           TC       -0                                    
020156,000085: 
020157,000086: 21,2000                                           BANK     21                                    
020158,000087: 21,2000           02000                           TC       -0                                    
020159,000088: 21,2001           02001                           TC       -0                                    

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