GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
005447,000002: ## Copyright: Public domain.
005448,000003: ## Filename: INTERRUPT_LEAD_INS.agc
005449,000004: ## Purpose: Part of the source code for Comanche, build 055.
005450,000005: ## It is part of the source code for the Command Module's (CM)
005451,000006: ## Apollo Guidance Computer (AGC), Apollo 11.
005452,000007: ## Assembler: yaYUL
005453,000008: ## Reference: pp. 131-132
005454,000009: ## Contact: Ron Burkey <info@sandroid.org>,
005455,000010: ## Fabrizio Bernardini <fabrizio@spacecraft.it>
005456,000011: ## Website: http://www.ibiblio.org/apollo.
005457,000012: ## Mod history: 09/05/09 FB Transcription of Batch FB-1 Assignment.
005458,000013: ## 2016-12-10 RSB Proofed comments with octopus/ProoferComments
005459,000014: ## and fixed the errors found.
005460,000015: ##
005461,000016: ## The contents of the "Comanche055" files, in general, are transcribed
005462,000017: ## from scanned documents.
005463,000018: ##
005464,000019: ## Assemble revision 055 of AGC program Comanche by NASA
005465,000020: ## 2021113-051. April 1, 1969.
005466,000021: ##
005467,000022: ## This AGC program shall also be referred to as Colossus 2A
005468,000023: ##
005469,000024: ## Prepared by
005470,000025: ## Massachusetts Institute of Technology
005471,000026: ## 75 Cambridge Parkway
005472,000027: ## Cambridge, Massachusetts
005473,000028: ##
005474,000029: ## under NASA contract NAS 9-4065.
005475,000030: ##
005476,000031: ## Refer directly to the online document mentioned above for further
005477,000032: ## information. Please report any errors to info@sandroid.org.
005478,000033:
|
|
Page 131 |
005480,000035: 4000 SETLOC 4000
005481,000036:
005482,000037: 4000 COUNT 02/RUPTS
005483,000038:
005484,000039: 4000 00004 INHINT # GO
005485,000040: 4001 34054 CAF GOBB
005486,000041: 4002 56006 XCH BBANK
005487,000042: 4003 12526 TCF GOPROG
005488,000043:
005489,000044: 4004 52011 DXCH ARUPT # T6RUPT
005490,000045: 4005 00006 EXTEND
005491,000046: 4006 31311 DCA T6LOC
005492,000047: 4007 52006 DTCB
005493,000048:
005494,000049: 4010 52011 DXCH ARUPT # T5RUPT
005495,000050: 4011 40030 CS TIME5
005496,000051: 4012 65036 AD .5SEC
005497,000052: 4013 14065 TCF T5RUPT
005498,000053:
005499,000054: 4014 52011 DXCH ARUPT # T3RUPT
005500,000055: 4015 34055 CAF T3RPTBB
005501,000056: 4016 56006 XCH BBANK
005502,000057: 4017 13416 TCF T3RUPT
005503,000058:
005504,000059: 4020 52011 DXCH ARUPT # T4RUPT
005505,000060: 4021 34063 CAF T4RPTBB
005506,000061: 4022 56006 XCH BBANK
005507,000062: 4023 12000 TCF T4RUPT
005508,000063:
005509,000064: 4024 52011 DXCH ARUPT # KEYRUPT1
005510,000065: 4025 34056 CAF KEYRPTBB
005511,000066: 4026 56006 XCH BBANK
005512,000067: 4027 13673 TCF KEYRUPT1
005513,000068:
005514,000069: 4030 52011 DXCH ARUPT # KEYRUPT2
005515,000070: 4031 34057 CAF MKRUPTBB
005516,000071: 4032 56006 XCH BBANK
005517,000072: 4033 12104 TCF MARKRUPT
005518,000073:
005519,000074: 4034 52011 DXCH ARUPT # UPRUPT
005520,000075: 4035 34056 CAF UPRPTBB
005521,000076: 4036 56006 XCH BBANK
005522,000077: 4037 13716 TCF UPRUPT
005523,000078:
005524,000079: 4040 52011 DXCH ARUPT # DOWNRUPT
005525,000080: 4041 34060 CAF DWNRPTBB
005526,000081: 4042 56006 XCH BBANK
005527,000082: 4043 13521 TCF DODOWNTM
005528,000083:
005529,000084: 4044 52011 DXCH ARUPT # RADAR RUPT
|
|
Page 132 |
005531,000086: 4045 34061 CAF RDRPTBB
005532,000087: 4046 56006 XCH BBANK
005533,000088: 4047 12504 TCF VHFREAD
005534,000089:
005535,000090: 4050 52011 DXCH ARUPT # HAND CONTROL RUPT
005536,000091: 4051 34062 CAF HCRUPTBB
005537,000092: 4052 56006 XCH BBANK
005538,000093: 4053 15336 TCF RESUME +3 # NOT USED
005539,000094:
005540,000095: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3
005541,000096: 4054 12063 GOBB BBCON GOPROG
005542,000097:
005543,000098: 4055 E3,1400 EBANK= LST1
005544,000099: 4055 02063 T3RPTBB BBCON T3RUPT
005545,000100:
005546,000101: 4056 0073 EBANK= KEYTEMP1
005547,000102: 4056 16060 KEYRPTBB BBCON KEYRUPT1
005548,000103:
005549,000104: 4057 E7,1725 EBANK= MRKBUF1
005550,000105: 4057 16067 MKRUPTBB BBCON MARKRUPT
005551,000106:
005552,000107: 4060 4056 UPRPTBB = KEYRPTBB
005553,000108:
005554,000109: 4060 0340 EBANK= DNTMBUFF
005555,000110: 4060 12060 DWNRPTBB BBCON DODOWNTM
005556,000111:
005557,000112: 4061 E7,1603 EBANK= DATATEST
005558,000113: 4061 56067 RDRPTBB BBCON VHFREAD
005559,000114:
005560,000115: 4062 0025 EBANK= TIME1
005561,000116: 4062 04060 HCRUPTBB BBCON RESUME # NOT USED
005562,000117:
005563,000118: 4063 1302 EBANK= DSRUPTSW
005564,000119: 4063 14062 T4RPTBB BBCON T4RUPT
005565,000120:
005566,000121: 4064 0025 EBANK= TIME1
005567,000122: 4064 04060 T5RPTBB BBCON T5RUPT
005568,000123:
005569,000124: 4065 00006 T5RUPT EXTEND
005570,000125: 4066 65337 BZMF NOQBRSM
005571,000126: 4067 00006 EXTEND
005572,000127: 4070 31313 DCA T5LOC
005573,000128: 4071 52006 DTCB
005574,000129:
005575,000130:
005576,000131:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc