ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. 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:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
005309,000002: ## Copyright: Public domain.
005310,000003: ## Filename: INTERRUPT_LEAD_INS.agc
005311,000004: ## Purpose: Part of the source code for Colossus, build 249.
005312,000005: ## It is part of the source code for the Command Module's (CM)
005313,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
005314,000007: ## Assembler: yaYUL
005315,000008: ## Reference: pp. 127-128
005316,000009: ## Contact: Ron Burkey <info@sandroid.org>.
005317,000010: ## Website: www.ibiblio.org/apollo.
005318,000011: ## Mod history: 08/06/04 RSB. Adapted from similar Luminary 131 file.
005319,000012: ## 2017-01-05 RSB Page numbers now agree with those on the
005320,000013: ## original harcopy, as opposed to the PDF page
005321,000014: ## numbers in 1701.pdf.
005322,000015: ## 2017-01-14 RSB Cross-diff'd comment text (not whitespace)
005323,000016: ## vs the already-proofed corresponding Colossus
005324,000017: ## 237 and Comanche 55 source-code files
005325,000018: ## and corrected errors found. No differences
005326,000019: ## remain.
005327,000020: ##
005328,000021: ## The contents of the "Colossus249" files, in general, are transcribed
005329,000022: ## from a scanned copy of the program listing. Notations on this
005330,000023: ## document read, in part:
005331,000024: ##
005332,000025: ## Assemble revision 249 of AGC program Colossus by NASA
005333,000026: ## 2021111-041. October 28, 1968.
005334,000027: ##
005335,000028: ## This AGC program shall also be referred to as
005336,000029: ## Colossus 1A
005337,000030: ##
005338,000031: ## Prepared by
005339,000032: ## Massachusetts Institute of Technology
005340,000033: ## 75 Cambridge Parkway
005341,000034: ## Cambridge, Massachusetts
005342,000035: ## under NASA contract NAS 9-4065.
005343,000036: ##
005344,000037: ## Refer directly to the online document mentioned above for further information.
005345,000038: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
005346,000039: ##
005347,000040: ## In some cases, where the source code for Luminary 131 overlaps that of
005348,000041: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
005349,000042: ## source file, and then is proofed to incorporate any changes.
005350,000043:
|
|
Page 127 |
005352,000045: 4000 SETLOC 4000
005353,000046:
005354,000047: 4000 COUNT 02/RUPTS
005355,000048:
005356,000049: 4000 00004 INHINT # GO
005357,000050: 4001 34054 CAF GOBB
005358,000051: 4002 56006 XCH BBANK
005359,000052: 4003 12520 TCF GOPROG
005360,000053:
005361,000054: 4004 52011 DXCH ARUPT # T6RUPT
005362,000055: 4005 00006 EXTEND
005363,000056: 4006 31311 DCA T6LOC
005364,000057: 4007 52006 DTCB
005365,000058:
005366,000059: 4010 52011 DXCH ARUPT # T5RUPT
005367,000060: 4011 40030 CS TIME5
005368,000061: 4012 64731 AD .5SEC
005369,000062: 4013 14065 TCF T5RUPT
005370,000063:
005371,000064: 4014 52011 DXCH ARUPT # T3RUPT
005372,000065: 4015 34055 CAF T3RPTBB
005373,000066: 4016 56006 XCH BBANK
005374,000067: 4017 13416 TCF T3RUPT
005375,000068:
005376,000069: 4020 52011 DXCH ARUPT # T4RUPT
005377,000070: 4021 34063 CAF T4RPTBB
005378,000071: 4022 56006 XCH BBANK
005379,000072: 4023 12000 TCF T4RUPT
005380,000073:
005381,000074: 4024 52011 DXCH ARUPT # KEYRUPT1
005382,000075: 4025 34056 CAF KEYRPTBB
005383,000076: 4026 56006 XCH BBANK
005384,000077: 4027 13613 TCF KEYRUPT1
005385,000078:
005386,000079: 4030 52011 DXCH ARUPT # KEYRUPT2
005387,000080: 4031 34057 CAF MKRUPTBB
005388,000081: 4032 56006 XCH BBANK
005389,000082: 4033 12103 TCF MARKRUPT
005390,000083:
005391,000084: 4034 52011 DXCH ARUPT # UPRUPT
005392,000085: 4035 34056 CAF UPRPTBB
005393,000086: 4036 56006 XCH BBANK
005394,000087: 4037 13636 TCF UPRUPT
005395,000088:
005396,000089: 4040 52011 DXCH ARUPT # DOWNRUPT
005397,000090: 4041 34060 CAF DWNRPTBB
005398,000091: 4042 56006 XCH BBANK
005399,000092: 4043 13342 TCF DODOWNTM
005400,000093:
005401,000094: 4044 52011 DXCH ARUPT # RADAR RUPT
|
|
Page 128 |
005403,000096: 4045 34061 CAF RDRPTBB
005404,000097: 4046 56006 XCH BBANK
005405,000098: 4047 12476 TCF VHFREAD
005406,000099:
005407,000100: 4050 52011 DXCH ARUPT # HAND CONTROL RUPT
005408,000101: 4051 34062 CA HCRUPTBB
005409,000102: 4052 56006 XCH BBANK
005410,000103: 4053 15225 TCF RESUME +3 # NOT USED
005411,000104:
005412,000105: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3
005413,000106: 4054 12063 GOBB BBCON GOPROG
005414,000107:
005415,000108: 4055 E3,1400 EBANK= LST1
005416,000109: 4055 02063 T3RPTBB BBCON T3RUPT
005417,000110:
005418,000111: 4056 0073 EBANK= KEYTEMP1
005419,000112: 4056 16060 KEYRPTBB BBCON KEYRUPT1
005420,000113:
005421,000114: 4057 E7,1725 EBANK= MRKBUF1
005422,000115: 4057 16067 MKRUPTBB BBCON MARKRUPT
005423,000116:
005424,000117: 4060 4056 UPRPTBB = KEYRPTBB
005425,000118:
005426,000119: 4060 0340 EBANK= DNTMBUFF
005427,000120: 4060 12060 DWNRPTBB BBCON DODOWNTM
005428,000121:
005429,000122: 4061 E7,1603 EBANK= DATATEST
005430,000123: 4061 56067 RDRPTBB BBCON VHFREAD
005431,000124:
005432,000125: 4062 0025 EBANK= TIME1
005433,000126: 4062 04060 HCRUPTBB BBCON RESUME # NOT USED
005434,000127:
005435,000128: 4063 1302 EBANK= DSRUPTSW
005436,000129: 4063 14062 T4RPTBB BBCON T4RUPT
005437,000130:
005438,000131: 4064 0025 EBANK= TIME1
005439,000132: 4064 04060 T5RPTBB BBCON T5RUPT
005440,000133:
005441,000134: 4065 00006 T5RUPT EXTEND
005442,000135: 4066 65226 BZMF NOQBRSM
005443,000136: 4067 00006 EXTEND
005444,000137: 4070 31313 DCA T5LOC
005445,000138: 4071 52006 DTCB
005446,000139:
005447,000140:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc