Source Code
|
These source-code files are part of a reconstructed copy of Luminary 178, the
final release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Zerlina 56, Luminary 210, and
Luminary 131, previously transcribed from digitized copies of those programs.
The code was created by combining the three, using Zerlina 56 as a base, since
it was based off of Luminary 183. The differences between the three were
carefully merged using the Luminary memos as a guide, with all changes made
after Luminary 178 being backed out. The reconstruction was verified by matching
memory-bank checksums to those listed in drawing 2021152N. Note that page numbers
in the reconstructed code match those for the baseline log section mentioned in
each file's changelog; the page numbers for a real Luminary 178 listing would
be different.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
006809,000002: ## Copyright: Public domain.
006810,000003: ## Filename: INTERRUPT_LEAD_INS.agc
006811,000004: ## Purpose: A section of Luminary revision 178.
006812,000005: ## It is part of the reconstructed source code for the final
006813,000006: ## release of the flight software for the Lunar Module's
006814,000007: ## (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
006815,000008: ## code has been recreated from copies of Zerlina 56, Luminary
006816,000009: ## 210, and Luminary 131, as well as many Luminary memos.
006817,000010: ## It has been adapted such that the resulting bugger words
006818,000011: ## exactly match those specified for Luminary 178 in NASA
006819,000012: ## drawing 2021152N, which gives relatively high confidence
006820,000013: ## that the reconstruction is correct.
006821,000014: ## Reference: pp. 159-160
006822,000015: ## Assembler: yaYUL
006823,000016: ## Contact: Ron Burkey <info@sandroid.org>.
006824,000017: ## Website: www.ibiblio.org/apollo/index.html
006825,000018: ## Mod history: 2019-08-14 MAS Created from Zerlina 56.
006826,000019:
|
|
Page 159
|
006828,000021: 4000 SETLOC 4000
006829,000022:
006830,000023: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
006831,000024: 4000 00004 INHINT # GO
006832,000025: 4001 34054 CAF GOBB
006833,000026: 4002 56006 XCH BBANK
006834,000027: 4003 12677 TCF GOPROG
006835,000028:
006836,000029: 4004 52011 DXCH ARUPT # T6RUPT
006837,000030: 4005 00006 EXTEND
006838,000031: 4006 34056 DCA T6ADR
006839,000032: 4007 52006 DTCB
006840,000033:
006841,000034: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
006842,000035: 4011 00006 EXTEND
006843,000036: 4012 31264 DCA T5ADR
006844,000037: 4013 52006 DTCB
006845,000038:
006846,000039: 4014 52011 DXCH ARUPT # T3RUPT
006847,000040: 4015 34057 CAF T3RPTBB
006848,000041: 4016 56006 XCH BBANK
006849,000042: 4017 13412 TCF T3RUPT
006850,000043:
006851,000044: 4020 52011 DXCH ARUPT # T4RUPT
006852,000045: 4021 34064 CAF T4RPTBB
006853,000046: 4022 56006 XCH BBANK
006854,000047: 4023 12000 TCF T4RUPT
006855,000048:
006856,000049: 4024 52011 DXCH ARUPT # KEYRUPT1
006857,000050: 4025 34060 CAF KEYRPTBB
006858,000051: 4026 56006 XCH BBANK
006859,000052: 4027 13261 TCF KEYRUPT1
006860,000053:
006861,000054: 4030 52011 DXCH ARUPT # KEYRUPT2
006862,000055: 4031 34061 CAF MKRUPTBB
006863,000056: 4032 56006 XCH BBANK
006864,000057: 4033 12332 TCF MARKRUPT
006865,000058:
006866,000059: 4034 52011 DXCH ARUPT # UPRUPT
006867,000060: 4035 34060 CAF UPRPTBB
006868,000061: 4036 56006 XCH BBANK
006869,000062: 4037 13304 TCF UPRUPT
006870,000063:
006871,000064: 4040 52011 DXCH ARUPT # DOWNRUPT
006872,000065: 4041 34062 CAF DWNRPTBB
006873,000066: 4042 56006 XCH BBANK
006874,000067: 4043 13510 TCF DODOWNTM
006875,000068:
006876,000069: 4044 52011 DXCH ARUPT # RADAR RUPT
006877,000070: 4045 34063 CAF RDRPTBB
|
|
Page 160
|
006879,000072: 4046 56006 XCH BBANK
006880,000073: 4047 13157 TCF RADAREAD
006881,000074:
006882,000075: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
006883,000076: 4051 34065 CA RUPT10BB
006884,000077: 4052 56006 XCH BBANK
006885,000078: 4053 12302 TCF PITFALL
006886,000079:
006887,000080:
006888,000081: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
006889,000082: 4054 12103 GOBB BBCON GOPROG
006890,000083:
006891,000084: 4055 E6,1464 EBANK= PERROR
006892,000085: 4055 02117 36106 T6ADR 2CADR DOT6RUPT
006893,000086:
006894,000087:
006895,000088: 4057 E3,1400 EBANK= LST1
006896,000089: 4057 02103 T3RPTBB BBCON T3RUPT
006897,000090:
006898,000091: 4060 0073 EBANK= KEYTEMP1
006899,000092: 4060 10100 KEYRPTBB BBCON KEYRUPT1
006900,000093:
006901,000094: 4061 E7,1404 EBANK= AOTAZ
006902,000095: 4061 16107 MKRUPTBB BBCON MARKRUPT
006903,000096:
006904,000097: 4062 4060 UPRPTBB = KEYRPTBB
006905,000098:
006906,000099: 4062 0340 EBANK= DNTMBUFF
006907,000100: 4062 12100 DWNRPTBB BBCON DODOWNTM
006908,000101:
006909,000102: 4063 E7,1453 EBANK= TTOGO
006910,000103: 4063 52107 RDRPTBB BBCON RADAREAD
006911,000104:
006912,000105: 4064 E6,1414 EBANK= M11
006913,000106: 4064 14106 T4RPTBB BBCON T4RUPT
006914,000107:
006915,000108: 4065 E7,1647 EBANK= ELVIRA
006916,000109: 4065 22107 RUPT10BB BBCON PITFALL
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc