GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
005577,000002: ## Copyright: Public domain.
005578,000003: ## Filename: INTERRUPT_LEAD_INS.agc
005579,000004: ## Purpose: Part of the source code for Colossus build 237.
005580,000005: ## This is for the Command Module's (CM) Apollo Guidance
005581,000006: ## Computer (AGC), for Apollo 8.
005582,000007: ## Assembler: yaYUL
005583,000008: ## Reference: pp. 126-127
005584,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
005585,000010: ## Website: www.ibiblio.org/apollo.
005586,000011: ## Mod history: 2010-12-04 JL Adapted from similar Colossus 249 file.
005587,000012: ## 2016-12-29 RSB Proofed comment text using octopus/ProoferComments,
005588,000013: ## but no errors found.
005589,000014:
|
|
Page 126 |
005591,000016: 4000 SETLOC 4000
005592,000017:
005593,000018: 4000 COUNT 02/RUPTS
005594,000019:
005595,000020: 4000 00004 INHINT # GO
005596,000021: 4001 34054 CAF GOBB
005597,000022: 4002 56006 XCH BBANK
005598,000023: 4003 12511 TCF GOPROG
005599,000024:
005600,000025: 4004 52011 DXCH ARUPT # T6RUPT
005601,000026: 4005 00006 EXTEND
005602,000027: 4006 31311 DCA T6LOC
005603,000028: 4007 52006 DTCB
005604,000029:
005605,000030: 4010 52011 DXCH ARUPT # T5RUPT
005606,000031: 4011 40030 CS TIME5
005607,000032: 4012 64731 AD .5SEC
005608,000033: 4013 14065 TCF T5RUPT
005609,000034:
005610,000035: 4014 52011 DXCH ARUPT # T3RUPT
005611,000036: 4015 34055 CAF T3RPTBB
005612,000037: 4016 56006 XCH BBANK
005613,000038: 4017 13416 TCF T3RUPT
005614,000039:
005615,000040: 4020 52011 DXCH ARUPT # T4RUPT
005616,000041: 4021 34063 CAF T4RPTBB
005617,000042: 4022 56006 XCH BBANK
005618,000043: 4023 12000 TCF T4RUPT
005619,000044:
005620,000045: 4024 52011 DXCH ARUPT # KEYRUPT1
005621,000046: 4025 34056 CAF KEYRPTBB
005622,000047: 4026 56006 XCH BBANK
005623,000048: 4027 13613 TCF KEYRUPT1
005624,000049:
005625,000050: 4030 52011 DXCH ARUPT # KEYRUPT2
005626,000051: 4031 34057 CAF MKRUPTBB
005627,000052: 4032 56006 XCH BBANK
005628,000053: 4033 12103 TCF MARKRUPT
005629,000054:
005630,000055: 4034 52011 DXCH ARUPT # UPRUPT
005631,000056: 4035 34056 CAF UPRPTBB
005632,000057: 4036 56006 XCH BBANK
005633,000058: 4037 13636 TCF UPRUPT
005634,000059:
005635,000060: 4040 52011 DXCH ARUPT # DOWNRUPT
005636,000061: 4041 34060 CAF DWNRPTBB
005637,000062: 4042 56006 XCH BBANK
005638,000063: 4043 13331 TCF DODOWNTM
005639,000064:
005640,000065: 4044 52011 DXCH ARUPT # RADAR RUPT
|
|
Page 127 |
005642,000067: 4045 34061 CAF RDRPTBB
005643,000068: 4046 56006 XCH BBANK
005644,000069: 4047 12476 TCF VHFREAD
005645,000070:
005646,000071: 4050 52011 DXCH ARUPT # HAND CONTROL RUPT
005647,000072: 4051 34062 CA HCRUPTBB
005648,000073: 4052 56006 XCH BBANK
005649,000074: 4053 15225 TCF RESUME +3 # NOT USED
005650,000075: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3
005651,000076: 4054 12063 GOBB BBCON GOPROG
005652,000077:
005653,000078: 4055 E3,1400 EBANK= LST1
005654,000079: 4055 02063 T3RPTBB BBCON T3RUPT
005655,000080:
005656,000081: 4056 0073 EBANK= KEYTEMP1
005657,000082: 4056 16060 KEYRPTBB BBCON KEYRUPT1
005658,000083:
005659,000084: 4057 E7,1725 EBANK= MRKBUF1
005660,000085: 4057 16067 MKRUPTBB BBCON MARKRUPT
005661,000086:
005662,000087: 4060 4056 UPRPTBB = KEYRPTBB
005663,000088:
005664,000089: 4060 0340 EBANK= DNTMBUFF
005665,000090: 4060 12060 DWNRPTBB BBCON DODOWNTM
005666,000091:
005667,000092: 4061 E7,1603 EBANK= DATATEST
005668,000093: 4061 56067 RDRPTBB BBCON VHFREAD
005669,000094: 4062 0025 EBANK= TIME1
005670,000095: 4062 04060 HCRUPTBB BBCON RESUME # NOT USED
005671,000096: 4063 1302 EBANK= DSRUPTSW
005672,000097: 4063 14062 T4RPTBB BBCON T4RUPT
005673,000098: 4064 0025 EBANK= TIME1
005674,000099: 4064 04060 T5RPTBB BBCON T5RUPT
005675,000100:
005676,000101: 4065 00006 T5RUPT EXTEND
005677,000102: 4066 65226 BZMF NOQBRSM
005678,000103: 4067 00006 EXTEND
005679,000104: 4070 31313 DCA T5LOC
005680,000105: 4071 52006 DTCB
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc