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