Source Code

These source-code files are part of a reconstructed copy of Aurora 88, the final release of the Lunar Module (LM) Apollo Guidance Computer (AGC) system test software.

They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-011, 2003972-091, and 2003972-111, belonging to Steve Jurvetson.

Since only binary dumps (rather than listings) of Aurora 88 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.

023006,000002:                                                                                                  ## Copyright:   Public domain.
023007,000003:                                                                                                  ## Filename:    SUM_CHECK_END_OF_BANK_MARKERS.agc
023008,000004:                                                                                                  ## Purpose:     A section of Aurora 88.
023009,000005:                                                                                                  ##              It is part of the reconstructed source code for the final
023010,000006:                                                                                                  ##              release of the Lunar Module system test software. No original
023011,000007:                                                                                                  ##              listings of this program are available; instead, this file
023012,000008:                                                                                                  ##              was created via disassembly of dumps of Aurora 88 core rope
023013,000009:                                                                                                  ##              modules and comparison with other AGC programs.
023014,000010:                                                                                                  ## Assembler:   yaYUL
023015,000011:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
023016,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
023017,000013:                                                                                                  ## Mod history: 2023-06-30 MAS  Created from Aurora 12.
023018,000014:                                                                                                  ##              2023-07-12 MAS  Updated for Aurora 88.
023019,000015: 
023020,000016: 
023021,000017:    5414                                           SETLOC   ENDIMUF                               
023022,000018:    5414           05414                           TC       -0                                    
023023,000019:    5415           05415                           TC       -0                                    
023024,000020: 
023025,000021:    7672                                           SETLOC   ENDINTF                               
023026,000022:    7672           07672                           TC       -0                                    
023027,000023:    7673           07673                           TC       -0                                    
023028,000024: 
023029,000025: 00,3657                                           SETLOC   ENDINTS0                              
023030,000026: 00,3657           03657                           TC       -0                                    
023031,000027: 00,3660           03660                           TC       -0                                    
023032,000028: 
023033,000029: 01,3145                                           SETLOC   ENDSLFS2                              
023034,000030: 01,3145           03145                           TC       -0                                    
023035,000031: 01,3146           03146                           TC       -0                                    
023036,000032: 
023037,000033: 04,3540                                           SETLOC   ENDPINS1                              
023038,000034: 04,3540           03540                           TC       -0                                    
023039,000035: 04,3541           03541                           TC       -0                                    
023040,000036: 
023041,000037: 05,3524                                           SETLOC   ENDPINS2                              
023042,000038: 05,3524           03524                           TC       -0                                    
023043,000039: 05,3525           03525                           TC       -0                                    
023044,000040: 
023045,000041: 06,3311                                           SETLOC   ENDLOTTS                              
023046,000042: 06,3311           03311                           TC       -0                                    
023047,000043: 06,3312           03312                           TC       -0                                    
023048,000044: 
023049,000045: 07,3662                                           SETLOC   ENDLOTSS                              
023050,000046: 07,3662           03662                           TC       -0                                    
023051,000047: 07,3663           03663                           TC       -0                                    
023052,000048: 
023053,000049: 10,3362                                           SETLOC   ENDRTSTS                              
023054,000050: 10,3362           03362                           TC       -0                                    
023055,000051: 10,3363           03363                           TC       -0                                    
023056,000052: 
023057,000053: 11,3377                                           SETLOC   ENDCMS                                
023058,000054: 11,3377           03377                           TC       -0                                    
023059,000055: 11,3400           03400                           TC       -0                                    
023060,000056: 
023061,000057: 12,3761                                           SETLOC   ENDKRURS                              
023062,000058: 12,3761           03761                           TC       -0                                    
023063,000059: 12,3762           03762                           TC       -0                                    
023064,000060: 
023065,000061: 13,3551                                           SETLOC   ENDAMODS                              
023066,000062: 13,3551           03551                           TC       -0                                    
023067,000063: 13,3552           03552                           TC       -0                                    
023068,000064: 
023069,000065: 14,3735                                           SETLOC   ENDIMUS1                              
023070,000066: 14,3735           03735                           TC       -0                                    
023071,000067: 14,3736           03736                           TC       -0                                    
023072,000068: 
023073,000069: 15,3716                                           SETLOC   ENDRTBSS                              
023074,000070: 15,3716           03716                           TC       -0                                    
023075,000071: 15,3717           03717                           TC       -0                                    
023076,000072: 
023077,000073: 16,3437                                           SETLOC   ENDPRELS                              
023078,000074: 16,3437           03437                           TC       -0                                    
023079,000075: 16,3440           03440                           TC       -0                                    
023080,000076: 
023081,000077: 17,3774                                           SETLOC   ENDIMUS2                              
023082,000078: 17,3774           03774                           TC       -0                                    
023083,000079: 17,3775           03775                           TC       -0                                    
023084,000080: 
023085,000081: 20,3774                                           SETLOC   ENDSLFS1                              
023086,000082: 20,3774           03774                           TC       -0                                    
023087,000083: 20,3775           03775                           TC       -0                                    
023088,000084: 
023089,000085: 21,3770                                           SETLOC   ENDIMUS3                              
023090,000086: 21,3770           03770                           TC       -0                                    
023091,000087: 21,3771           03771                           TC       -0                                    

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