GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
006090,000002: ## Copyright: Public domain.
006091,000003: ## Filename: INTERRUPT_LEAD_INS.agc
006092,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
006093,000005: ## build 072. This is for the Command Module's (CM)
006094,000006: ## Apollo Guidance Computer (AGC), for
006095,000007: ## Apollo 15-17.
006096,000008: ## Assembler: yaYUL
006097,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
006098,000010: ## Website: www.ibiblio.org/apollo/index.html
006099,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
006100,000012: ## Mod history: 2009-07-25 JL Adapted from corresponding Comanche 055 file.
006101,000013: ## 2010-02-02 JL Added missing RESUME.
006102,000014: ## 2010-02-20 RSB Un-##'d this header.
006103,000015: ## 2017-02-05 RSB Proofed comment text by diff'ing vs Comanche 55
006104,000016: ## but no differences found.
006105,000017:
|
|
Page 139 |
006107,000019: 4000 SETLOC 4000
006108,000020:
006109,000021: 4000 COUNT* $$/RUPTS
006110,000022:
006111,000023: 4000 00004 INHINT # GO
006112,000024: 4001 34051 CAF GOBB
006113,000025: 4002 56006 XCH BBANK
006114,000026: 4003 12563 TCF GOPROG
006115,000027:
006116,000028: 4004 52011 DXCH ARUPT # T6RUPT
006117,000029: 4005 00006 EXTEND
006118,000030: 4006 30111 DCA T6LOC
006119,000031: 4007 52006 DTCB
006120,000032:
006121,000033: 4010 52011 DXCH ARUPT # T5RUPT
006122,000034: 4011 40030 CS TIME5
006123,000035: 4012 65011 AD .5SEC
006124,000036: 4013 14056 TCF T5RUPT
006125,000037:
006126,000038: 4014 52011 DXCH ARUPT # T3RUPT
006127,000039: 4015 35254 CAF T3RPTBB
006128,000040: 4016 56006 XCH BBANK
006129,000041: 4017 13362 TCF T3RUPT
006130,000042:
006131,000043: 4020 52011 DXCH ARUPT # T4RUPT
006132,000044: 4021 34054 CAF T4RPTBB
006133,000045: 4022 56006 XCH BBANK
006134,000046: 4023 12000 TCF T4RUPT
006135,000047:
006136,000048: 4024 52011 DXCH ARUPT # KEYRUPT1
006137,000049: 4025 34052 CAF KEYRPTBB
006138,000050: 4026 56006 XCH BBANK
006139,000051: 4027 13666 TCF KEYRUPT1
006140,000052:
006141,000053: 4030 52011 DXCH ARUPT # KEYRUPT2
006142,000054: 4031 34052 CAF MKRUPTBB
006143,000055: 4032 56006 XCH BBANK
006144,000056: 4033 12105 TCF MARKRUPT
006145,000057:
006146,000058: 4034 52011 DXCH ARUPT # UPRUPT
006147,000059: 4035 34052 CAF UPRPTBB
006148,000060: 4036 56006 XCH BBANK
006149,000061: 4037 13710 TCF UPRUPT
006150,000062:
006151,000063: 4040 52011 DXCH ARUPT # DOWNRUPT
006152,000064: 4041 34051 CAF DWNRPTBB
006153,000065: 4042 56006 XCH BBANK
006154,000066: 4043 14621 TCF DODOWNTM
006155,000067:
006156,000068: 4044 52011 DXCH ARUPT # RADAR RUPT
006157,000069: 4045 34053 CAF RDRPTBB
|
|
Page 140 |
006159,000071: 4046 56006 XCH BBANK
006160,000072: 4047 12536 TCF VHFREAD
006161,000073:
006162,000074: 4050 50017 RESUME
006163,000075:
006164,000076: 4051 E3,1400 EBANK= LST1 # RESTART USES E0,E3
006165,000077: 4051 12063 GOBB BBCON GOPROG
006166,000078:
006167,000079: 4052 E3,1400 EBANK= LST1
006168,000080: 4052 5254 T3RPTBB EQUALS WAITBB
006169,000081: 4052 4052 KEYRPTBB = MKRUPTBB
006170,000082:
006171,000083: 4052 E7,1722 EBANK= MRKBUF1
006172,000084: 4052 16067 MKRUPTBB BBCON MARKRUPT
006173,000085: 4053 4052 UPRPTBB = KEYRPTBB
006174,000086: 4053 4051 DWNRPTBB = GOBB
006175,000087:
006176,000088: 4053 E7,1703 EBANK= RM
006177,000089: 4053 56067 RDRPTBB BBCON VHFREAD
006178,000090: 4054 1322 EBANK= DSRUPTSW
006179,000091: 4054 14062 T4RPTBB BBCON T4RUPT
006180,000092: 4055 0025 EBANK= TIME1
006181,000093: 4055 04060 T5RPTBB BBCON T5RUPT
006182,000094:
006183,000095: 4056 00006 T5RUPT EXTEND
006184,000096: 4057 65327 BZMF NOQBRSM
006185,000097: 4060 00006 EXTEND
006186,000098: 4061 30113 DCA T5LOC
006187,000099: 4062 52006 DTCB
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc