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. |
001168,000002: ## Copyright: Public domain.
001169,000003: ## Filename: INTERRUPT_LEAD_INS.agc
001170,000004: ## Purpose: A section of Aurora 88.
001171,000005: ## It is part of the reconstructed source code for the final
001172,000006: ## release of the Lunar Module system test software. No original
001173,000007: ## listings of this program are available; instead, this file
001174,000008: ## was created via disassembly of dumps of Aurora 88 core rope
001175,000009: ## modules and comparison with other AGC programs.
001176,000010: ## Assembler: yaYUL
001177,000011: ## Contact: Ron Burkey <info@sandroid.org>.
001178,000012: ## Website: www.ibiblio.org/apollo/index.html
001179,000013: ## Mod history: 2023-06-30 MAS Created from Aurora 12.
001180,000014: ## 2023-07-12 MAS Updated for Aurora 88.
001181,000015:
001182,000016:
001183,000017: 4000 SETLOC 4000
001184,000018:
001185,000019: 4000 00004 INHINT # GO
001186,000020: 4001 34054 CAF GOBB
001187,000021: 4002 56006 XCH BBANK
001188,000022: 4003 12076 TCF GOPROG
001189,000023:
001190,000024: 4004 52011 DXCH ARUPT # T6RUPT
001191,000025: 4005 34055 CAF T6RPTBB
001192,000026: 4006 56006 XCH BBANK
001193,000027: 4007 14514 TCF RESUME +3 # ***FIX LATER***
001194,000028:
001195,000029: 4010 52011 DXCH ARUPT # T5RUPT
001196,000030: 4011 00006 EXTEND
001197,000031: 4012 30346 DCA T5LOC # T5LOC EQUALS T5ADR
001198,000032: 4013 52006 DTCB
001199,000033:
001200,000034: 4014 52011 DXCH ARUPT # T3RUPT
001201,000035: 4015 34056 CAF T3RPTBB
001202,000036: 4016 56006 XCH BBANK
001203,000037: 4017 12736 TCF T3RUPT
001204,000038:
001205,000039: 4020 52011 DXCH ARUPT # T4RUPT
001206,000040: 4021 37657 CAF ZERO
001207,000041: 4022 14616 TCF T4RUPT
001208,000042: 4023 0350 EBANK= DSRUPTSW
001209,000043: 4023 24000 T4RPTBB BBCON T4RUPTA
001210,000044:
001211,000045: 4024 52011 DXCH ARUPT # KEYRUPT1
001212,000046: 4025 34057 CAF KEYRPTBB
001213,000047: 4026 56006 XCH BBANK
001214,000048: 4027 13602 TCF KEYRUPT1
001215,000049:
001216,000050: 4030 52011 DXCH ARUPT # KEYRUPT2
001217,000051: 4031 34060 CAF MKRUPTBB
001218,000052: 4032 56006 XCH BBANK
001219,000053: 4033 13161 TCF MARKRUPT
001220,000054:
001221,000055: 4034 52011 DXCH ARUPT # UPRUPT
001222,000056: 4035 34057 CAF UPRPTBB
001223,000057: 4036 56006 XCH BBANK
001224,000058: 4037 13622 TCF UPRUPT
001225,000059:
001226,000060: 4040 52011 DXCH ARUPT # DOWNRUPT
001227,000061: 4041 34061 CAF DWNRPTBB
001228,000062: 4042 56006 XCH BBANK
001229,000063: 4043 12047 TCF DODOWNTM
001230,000064:
001231,000065: 4044 52011 DXCH ARUPT # RADAR RUPT
001232,000066: 4045 34062 CAF RDRPTBB
001233,000067: 4046 56006 XCH BBANK
001234,000068: 4047 12706 TCF RADAREAD
001235,000069:
001236,000070: 4050 50017 RESUME # HAND CONTROL RUPT ***FIX LATER****
001237,000071: 4051 34051 CA
001238,000072: 4052 56006 XCH BBANK
001239,000073: 4053 14053 TCF +0
001240,000074:
001241,000075: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
001242,000076: 4054 24003 GOBB BBCON GOPROG
001243,000077:
001244,000078: 4055 0025 EBANK= TIME1
001245,000079: 4055 04000 T6RPTBB BBCON RESUME # ***FIX LATER***
001246,000080:
001247,000081: 4056 E3,1400 EBANK= LST1
001248,000082: 4056 02003 T3RPTBB BBCON T3RUPT
001249,000083:
001250,000084: 4057 0077 EBANK= KEYTEMP1
001251,000085: 4057 24000 KEYRPTBB BBCON KEYRUPT1
001252,000086:
001253,000087: 4060 E3,1462 EBANK= AOTAZ
001254,000088: 4060 26003 MKRUPTBB BBCON MARKRUPT
001255,000089:
001256,000090: 4061 4057 UPRPTBB = KEYRPTBB
001257,000091:
001258,000092: 4061 E7,1403 EBANK= DNTMBUFF
001259,000093: 4061 32007 DWNRPTBB BBCON DODOWNTM
001260,000094:
001261,000095: 4062 0413 EBANK= RADMODES
001262,000096: 4062 20001 RDRPTBB BBCON RADAREAD
001263,000097:
001264,000098: 4063 ENDINTFF EQUALS
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc