Source Code

   YAYUL: ASSEMBLE REVISION 5 OF PROGRAM BOREALIS       BY MSTEWART MAR. 27,2017
This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations.

022993,000002:                                                                                                  ## Copyright:   Public domain.
022994,000003:                                                                                                  ## Filename:    SUM_CHECK_END_OF_BANK_MARKERS.agc
022995,000004:                                                                                                  ## Purpose:     This program is designed to extensively test the Apollo Guidance Computer
022996,000005:                                                                                                  ##              (specifically the LM instantiation of it). It is built on top of a heavily
022997,000006:                                                                                                  ##              stripped-down Aurora 12, with all code ostensibly added by the DAP Group
022998,000007:                                                                                                  ##              removed. Instead Borealis expands upon the tests provided by Aurora,
022999,000008:                                                                                                  ##              including corrected tests from Retread 44 and tests from Ron Burkey's
023000,000009:                                                                                                  ##              Validation.
023001,000010:                                                                                                  ## Assembler:   yaYUL
023002,000011:                                                                                                  ## Contact:     Mike Stewart <mastewar1@gmail.com>.
023003,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
023004,000013:                                                                                                  ## Mod history: 2016-12-20 MAS  Created from Aurora 12 (with much DAP stuff removed).
023005,000014:                                                                                                  ##              2016-12-21 MAS  Updated for new end-of-bank locations for self-tests.
023006,000015:                                                                                                  ##              2017-01-04 MAS  Added minimal words to all unused banks, to get self-
023007,000016:                                                                                                  ##                              test to at least verify that all are accessible.
023008,000017:                                                                                                  ##              2017-01-15 MAS  Updated for added tests. Bank 24 now occupied.
023009,000018: 
023010,000019:    5626                                           SETLOC   ENDRTRDF                              
023011,000020:    5626           05626                           TC       -0                                    
023012,000021:    5627           05627                           TC       -0                                    
023013,000022: 
023014,000023:    7760                                           SETLOC   ENDSLFS4                              
023015,000024:    7760           07760                           TC       -0                                    
023016,000025:    7761           07761                           TC       -0                                    
023017,000026: 
023018,000027: 00,3657                                           SETLOC   ENDINTS0                              
023019,000028: 00,3657           03657                           TC       -0                                    
023020,000029: 00,3660           03660                           TC       -0                                    
023021,000030: 
023022,000031: 01,3402                                           SETLOC   ENDSLFS2                              
023023,000032: 01,3402           03402                           TC       -0                                    
023024,000033: 01,3403           03403                           TC       -0                                    
023025,000034: 
023026,000035: 04,3545                                           SETLOC   ENDPINS1                              
023027,000036: 04,3545           03545                           TC       -0                                    
023028,000037: 04,3546           03546                           TC       -0                                    
023029,000038: 
023030,000039: 05,3524                                           SETLOC   ENDPINS2                              
023031,000040: 05,3524           03524                           TC       -0                                    
023032,000041: 05,3525           03525                           TC       -0                                    
023033,000042: 
023034,000043: 06,2555                                           BANK     06                                    
023035,000044: 06,2555           02555                           TC       -0                                    
023036,000045: 06,2556           02556                           TC       -0                                    
023037,000046: 
023038,000047: 07,2502                                           BANK     07                                    
023039,000048: 07,2502           02502                           TC       -0                                    
023040,000049: 07,2503           02503                           TC       -0                                    
023041,000050: 
023042,000051: 10,3341                                           SETLOC   ENDRTSTS                              
023043,000052: 10,3341           03341                           TC       -0                                    
023044,000053: 10,3342           03342                           TC       -0                                    
023045,000054: 
023046,000055: 11,3241                                           SETLOC   ENDEXTVS                              
023047,000056: 11,3241           03241                           TC       -0                                    
023048,000057: 11,3242           03242                           TC       -0                                    
023049,000058: 
023050,000059: 12,3557                                           BANK     12                                    
023051,000060: 12,3557           03557                           TC       -0                                    
023052,000061: 12,3560           03560                           TC       -0                                    
023053,000062: 
023054,000063: 13,3434                                           SETLOC   ENDAMODS                              
023055,000064: 13,3434           03434                           TC       -0                                    
023056,000065: 13,3435           03435                           TC       -0                                    
023057,000066: 
023058,000067: 14,3726                                           SETLOC   ENDIMUS1                              
023059,000068: 14,3726           03726                           TC       -0                                    
023060,000069: 14,3727           03727                           TC       -0                                    
023061,000070: 
023062,000071: 15,3575                                           SETLOC   ENDRTBSS                              
023063,000072: 15,3575           03575                           TC       -0                                    
023064,000073: 15,3576           03576                           TC       -0                                    
023065,000074: 
023066,000075: 16,3362                                           SETLOC   ENDIMUS3                              
023067,000076: 16,3362           03362                           TC       -0                                    
023068,000077: 16,3363           03363                           TC       -0                                    
023069,000078: 
023070,000079: 17,3730                                           SETLOC   ENDIMUS2                              
023071,000080: 17,3730           03730                           TC       -0                                    
023072,000081: 17,3731           03731                           TC       -0                                    
023073,000082: 
023074,000083: 20,3771                                           SETLOC   ENDSLFS1                              
023075,000084: 20,3771           03771                           TC       -0                                    
023076,000085: 20,3772           03772                           TC       -0                                    
023077,000086: 
023078,000087: 21,3427                                           SETLOC   ENDPREL1                              
023079,000088: 21,3427           03427                           TC       -0                                    
023080,000089: 21,3430           03430                           TC       -0                                    
023081,000090: 
023082,000091: 22,3162                                           SETLOC   ENDINST1                              
023083,000092: 22,3162           03162                           TC       -0                                    
023084,000093: 22,3163           03163                           TC       -0                                    
023085,000094: 
023086,000095: 23,3303                                           SETLOC   ENDINST2                              
023087,000096: 23,3303           03303                           TC       -0                                    
023088,000097: 23,3304           03304                           TC       -0                                    
023089,000098: 
023090,000099: 24,2073                                           SETLOC   ENDEXTST                              
023091,000100: 24,2073           02073                           TC       -0                                    
023092,000101: 24,2074           02074                           TC       -0                                    
023093,000102: 
023094,000103:                                                                                                  #  The remaining banks are currently unused, but bank-end markers and banksums are put into
023095,000104:                                                                                                  #  them to allow self-check to verify operation of every bank
023096,000105: 25,2000                                           BANK     25                                    
023097,000106: 25,2000           02000                           TC       -0                                    
023098,000107: 25,2001           02001                           TC       -0                                    
023099,000108: 
023100,000109: 26,2000                                           BANK     26                                    
023101,000110: 26,2000           02000                           TC       -0                                    
023102,000111: 26,2001           02001                           TC       -0                                    
023103,000112: 
023104,000113: 27,2000                                           BANK     27                                    
023105,000114: 27,2000           02000                           TC       -0                                    
023106,000115: 27,2001           02001                           TC       -0                                    
023107,000116: 
023108,000117: 30,2000                                           BANK     30                                    
023109,000118: 30,2000           02000                           TC       -0                                    
023110,000119: 30,2001           02001                           TC       -0                                    
023111,000120: 
023112,000121: 31,2000                                           BANK     31                                    
023113,000122: 31,2000           02000                           TC       -0                                    
023114,000123: 31,2001           02001                           TC       -0                                    
023115,000124: 
023116,000125: 32,2000                                           BANK     32                                    
023117,000126: 32,2000           02000                           TC       -0                                    
023118,000127: 32,2001           02001                           TC       -0                                    
023119,000128: 
023120,000129: 33,2000                                           BANK     33                                    
023121,000130: 33,2000           02000                           TC       -0                                    
023122,000131: 33,2001           02001                           TC       -0                                    
023123,000132: 
023124,000133: 34,2000                                           BANK     34                                    
023125,000134: 34,2000           02000        BANK34             TC       -0                                    
023126,000135: 34,2001           02001                           TC       -0                                    
023127,000136: 
023128,000137: 35,2000                                           BANK     35                                    
023129,000138: 35,2000           02000                           TC       -0                                    
023130,000139: 35,2001           02001                           TC       -0                                    
023131,000140: 
023132,000141: 36,2000                                           BANK     36                                    
023133,000142: 36,2000           02000                           TC       -0                                    
023134,000143: 36,2001           02001                           TC       -0                                    
023135,000144: 
023136,000145: 37,2000                                           BANK     37                                    
023137,000146: 37,2000           02000                           TC       -0                                    
023138,000147: 37,2001           02001                           TC       -0                                    
023139,000148: 
023140,000149: 40,2000                                           BANK     40                                    
023141,000150: 40,2000           02000                           TC       -0                                    
023142,000151: 40,2001           02001                           TC       -0                                    
023143,000152: 
023144,000153: 41,2000                                           BANK     41                                    
023145,000154: 41,2000           02000                           TC       -0                                    
023146,000155: 41,2001           02001                           TC       -0                                    
023147,000156: 
023148,000157: 42,2000                                           BANK     42                                    
023149,000158: 42,2000           02000                           TC       -0                                    
023150,000159: 42,2001           02001                           TC       -0                                    
023151,000160: 
023152,000161: 43,2000                                           BANK     43                                    
023153,000162: 43,2000           02000        LASTBANK           TC       -0                                    
023154,000163: 43,2001           02001                           TC       -0                                    

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