Source Code

005410,000001: # Copyright: Public domain. 005411,000002: # Filename: INTERRUPT_LEAD_INS.agc 005412,000003: # Purpose: Part of the source code for Comanche, build 055. 005413,000004: # It is part of the source code for the Command Module's (CM) 005414,000005: # Apollo Guidance Computer (AGC), Apollo 11. 005415,000006: # Assembler: yaYUL 005416,000007: # Reference: pp. 131-132 005417,000008: # Contact: Ron Burkey <info@sandroid.org>, 005418,000009: # Fabrizio Bernardini <fabrizio@spacecraft.it> 005419,000010: # Website: http://www.ibiblio.org/apollo. 005420,000011: # Mod history: 09/05/09 FB Transcription of Batch FB-1 Assignment. 005421,000012: 005422,000013: # The contents of the "Comanche055" files, in general, are transcribed 005423,000014: # from scanned documents. 005424,000015: 005425,000016: # Assemble revision 055 of AGC program Comanche by NASA 005426,000017: # 2021113-051. April 1, 1969. 005427,000018: 005428,000019: # This AGC program shall also be referred to as Colossus 2A 005429,000020: 005430,000021: # Prepared by 005431,000022: # Massachussets Institute of Technology 005432,000023: # 75 Cambridge Parkway 005433,000024: # Cambridge, Massachusetts 005434,000025: 005435,000026: # under NASA contract NAS 9-4065. 005436,000027: 005437,000028: # Refer directly to the online document mentioned above for further 005438,000029: # information. Please report any errors to info@sandroid.org. 005439,000030: 005440,000031: # Page 131 005441,000032: 4000 SETLOC 4000 005442,000033: 005443,000034: 4000 COUNT 02/RUPTS 005444,000035: 005445,000036: 4000 00004 INHINT # GO 005446,000037: 4001 34054 CAF GOBB 005447,000038: 4002 56006 XCH BBANK 005448,000039: 4003 12526 TCF GOPROG 005449,000040: 005450,000041: 4004 52011 DXCH ARUPT # T6RUPT 005451,000042: 4005 00006 EXTEND 005452,000043: 4006 31311 DCA T6LOC 005453,000044: 4007 52006 DTCB 005454,000045: 005455,000046: 4010 52011 DXCH ARUPT # T5RUPT 005456,000047: 4011 40030 CS TIME5 005457,000048: 4012 65036 AD .5SEC 005458,000049: 4013 14065 TCF T5RUPT 005459,000050: 005460,000051: 4014 52011 DXCH ARUPT # T3RUPT 005461,000052: 4015 34055 CAF T3RPTBB 005462,000053: 4016 56006 XCH BBANK 005463,000054: 4017 13416 TCF T3RUPT 005464,000055: 005465,000056: 4020 52011 DXCH ARUPT # T4RUPT 005466,000057: 4021 34063 CAF T4RPTBB 005467,000058: 4022 56006 XCH BBANK 005468,000059: 4023 12000 TCF T4RUPT 005469,000060: 005470,000061: 4024 52011 DXCH ARUPT # KEYRUPT1 005471,000062: 4025 34056 CAF KEYRPTBB 005472,000063: 4026 56006 XCH BBANK 005473,000064: 4027 13673 TCF KEYRUPT1 005474,000065: 005475,000066: 4030 52011 DXCH ARUPT # KEYRUPT2 005476,000067: 4031 34057 CAF MKRUPTBB 005477,000068: 4032 56006 XCH BBANK 005478,000069: 4033 12104 TCF MARKRUPT 005479,000070: 005480,000071: 4034 52011 DXCH ARUPT # UPRUPT 005481,000072: 4035 34056 CAF UPRPTBB 005482,000073: 4036 56006 XCH BBANK 005483,000074: 4037 13716 TCF UPRUPT 005484,000075: 005485,000076: 4040 52011 DXCH ARUPT # DOWNRUPT 005486,000077: 4041 34060 CAF DWNRPTBB 005487,000078: 4042 56006 XCH BBANK 005488,000079: 4043 13521 TCF DODOWNTM 005489,000080: 005490,000081: 4044 52011 DXCH ARUPT # RADAR RUPT 005491,000082: # Page 132 005492,000083: 4045 34061 CAF RDRPTBB 005493,000084: 4046 56006 XCH BBANK 005494,000085: 4047 12504 TCF VHFREAD 005495,000086: 005496,000087: 4050 52011 DXCH ARUPT # HAND CONTROL RUPT 005497,000088: 4051 34062 CAF HCRUPTBB 005498,000089: 4052 56006 XCH BBANK 005499,000090: 4053 15336 TCF RESUME +3 # NOT USED 005500,000091: 005501,000092: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3 005502,000093: 4054 12063 GOBB BBCON GOPROG 005503,000094: 005504,000095: 4055 E3,1400 EBANK= LST1 005505,000096: 4055 02063 T3RPTBB BBCON T3RUPT 005506,000097: 005507,000098: 4056 0073 EBANK= KEYTEMP1 005508,000099: 4056 16060 KEYRPTBB BBCON KEYRUPT1 005509,000100: 005510,000101: 4057 E7,1725 EBANK= MRKBUF1 005511,000102: 4057 16067 MKRUPTBB BBCON MARKRUPT 005512,000103: 005513,000104: 4060 4056 UPRPTBB = KEYRPTBB 005514,000105: 005515,000106: 4060 0340 EBANK= DNTMBUFF 005516,000107: 4060 12060 DWNRPTBB BBCON DODOWNTM 005517,000108: 005518,000109: 4061 E7,1603 EBANK= DATATEST 005519,000110: 4061 56067 RDRPTBB BBCON VHFREAD 005520,000111: 005521,000112: 4062 0025 EBANK= TIME1 005522,000113: 4062 04060 HCRUPTBB BBCON RESUME # NOT USED 005523,000114: 005524,000115: 4063 1302 EBANK= DSRUPTSW 005525,000116: 4063 14062 T4RPTBB BBCON T4RUPT 005526,000117: 005527,000118: 4064 0025 EBANK= TIME1 005528,000119: 4064 04060 T5RPTBB BBCON T5RUPT 005529,000120: 005530,000121: 4065 00006 T5RUPT EXTEND 005531,000122: 4066 65337 BZMF NOQBRSM 005532,000123: 4067 00006 EXTEND 005533,000124: 4070 31313 DCA T5LOC 005534,000125: 4071 52006 DTCB 005535,000126: 005536,000127: 005537,000128: End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc