Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
002822,000002: ## Copyright: Public domain.
002823,000003: ## Filename: INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc
002824,000004: ## Purpose: A section of LUM69 revision 2.
002825,000005: ## It is part of the reconstructed source code for the flown
002826,000006: ## version of the flight software for the Lunar Module's (LM)
002827,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
002828,000008: ## been recreated from a copy of Luminary revsion 069, using
002829,000009: ## changes present in Luminary 099 which were described in
002830,000010: ## Luminary memos 75 and 78. The code has been adapted such
002831,000011: ## that the resulting bugger words exactly match those specified
002832,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
002833,000013: ## relatively high confidence that the reconstruction is correct.
002834,000014: ## Reference: pp. 70-76
002835,000015: ## Assembler: yaYUL
002836,000016: ## Contact: Ron Burkey <info@sandroid.org>.
002837,000017: ## Website: www.ibiblio.org/apollo/index.html
002838,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
002839,000019:
|
|
Page 70
|
002841,000021:
002842,000022: # *** CHANNEL DESCRIPTIONSF WORDS ARE ALLOCATED IN ERASABLE ASSIGNMENTS ***
002843,000023:
002844,000024: # CHANNEL 1 IDENTICAL TO COMPUTER REGISTER L (0001)
002845,000025:
002846,000026:
002847,000027: # CHANNEL 2 IDENTICAL TO COMPUTER REGISTER Q (0002)
002848,000028:
002849,000029:
002850,000030: # CHANNEL 3 HISCALAR; INPUT CHANNEL; MOST SIGNIFICANT 14 BITS FROM 33 STAGE BINARY COUNTER. SCALE
002851,000031: # FACTOR IS B23 IN CSEC, SO MAX VALUE ABOUT 23.3 HOURS AND LEAST SIGNIFICANT BIT 5.12 SECS.
002852,000032:
002853,000033:
002854,000034: # CHANNEL 4 LOSCALAR; INPUT CHANNEL; NEXT MOST SIGNIFICANT 14 BITS FROM THE 33 STAGE BINARY COUNTER
002855,000035: # ASSOCIATED WITH CHANNEL 3. SCALE FACTOR IS B9 IN CSEC. SO MAX VAL IS 5.12 SEC AND LEAST
002856,000036: # SIGNIFICANT BIT IS 1/3200 SEC. SCALE FACTOR OF D.P. WORD WITH CHANNEL 3 IS B23 CSEC.
002857,000037:
002858,000038:
002859,000039: # CHANNEL 5 PYJETS; OUTPUT CHANNEL; PITCH RCS JET CONTROL. (REACTION CONTROL SYSTEM) USES BITS 1-8.
002860,000040:
002861,000041:
002862,000042: # CHANNEL 6 ROLLJETS; OUTPUT CHANNEL; ROLL RCS JET CONTROL. (REACTION CONTROL SYSTEM) USES BIT 1-8.
002863,000043:
002864,000044:
002865,000045: # CHANNEL 7 SUPERBNK; OUTPUT CHANNEL; NOT RESET BY RESTART; FIXED EXTENSION BITS USED TO SELECT THE
002866,000046: # APPROPRIATE FIXED MEMORY BANK IF FBANK IS 30 OCTAL OR MORE. USES BITS 5-7.
002867,000047:
002868,000048:
002869,000049: # CHANNEL 10 OUTO; OUTPUT CHANNEL; REGISTER USED TO TRANSMIT LATCHING-RELAY DRIVING INFORMATION FOR
002870,000050: # THE DISPLAY SYSTEM. BITS 15-12 ARE SET TO THE ROW NUMBER (1-14 OCTAL) OF THE RELAY TO BE
002871,000051: # CHANGED AND BITS 11-1 CONTAIN THE REQUIRED SETTINGS FOR THE RELAYS IN THE ROW.
002872,000052:
002873,000053:
002874,000054: # CHANNEL 11 DSALMOUT; OUTPUT CHANNEL; REGISTER WHOSE BITS ARE USED FOR ENGINE ON-OFF CONTROL AND TO
002875,000055: # DRIVE INDIVIDUAL INDICATORS OF THE DISPLAY SYSTEM. BITS 1-7 ARE A RELAYS.
002876,000056:
002877,000057: # BIT 1 ISS WARNING
002878,000058:
002879,000059: # BIT 2 LIGHT COMPUTER ACTIVITY LAMP
002880,000060:
002881,000061: # BIT 3 LIGHT UPLINK ACTIVITY LAMP
002882,000062:
002883,000063: # BIT 4 LIGHT TEMP CAUTION LAMP
002884,000064:
002885,000065: # BIT 5 LIGHT KEYBOARD RELEASE LAMP
002886,000066:
002887,000067: # BIT 6 FLASH VERB AND NOUN LAMPS
002888,000068:
002889,000069: # BIT 7 LIGHT OPERATOR ERROR LAMP
002890,000070:
|
|
Page 71
|
002892,000072:
002893,000073: # BIT 8 SPARE
002894,000074:
002895,000075: # BIT 9 TEST CONNECTOR OUTBIT
002896,000076:
002897,000077: # BIT 10 CAUTION RESET
002898,000078:
002899,000079: # BIT 11 SPARE
002900,000080:
002901,000081: # BIT 12 SPARE
002902,000082:
002903,000083: # BIT 13 ENGINE ON
002904,000084:
002905,000085: # BIT 14 ENGINE OFF
002906,000086:
002907,000087: # BIT 15 SPARE
002908,000088:
002909,000089:
002910,000090: # CHANNEL 12 CHAN12; OUTPUT CHANNEL; BITS USED TO DRIVE NAVIGATION AND SPAECRAFT HARDWARE
002911,000091:
002912,000092: # BIT 1 ZERO RR CDU; CDU'S GIVE RRADAR INFORMATION FOR LM
002913,000093:
002914,000094: # BIT 2 ENABLE CDU RADAR ERROR COUNTERS
002915,000095:
002916,000096: # BIT 3 NOT USED
002917,000097:
002918,000098: # BIT 4 COARSE ALIGN ENABLE OF IMU
002919,000099:
002920,000100: # BIT 5 ZERO IMU CDU'S
002921,000101:
002922,000102: # BIT 6 ENABLE IMU ERROR COUNTER, CDU ERROR COUNTER.
002923,000103:
002924,000104: # BIT 7 SPARE
002925,000105:
002926,000106: # BIT 8 DISPLAY INERTIAL DATA
002927,000107:
002928,000108: # BIT 9 -PITCH GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
002929,000109:
002930,000110: # BIT 10 +PITCH GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
002931,000111:
002932,000112: # BIT 11 -ROLL GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
002933,000113:
002934,000114: # BIT 12 +ROLL GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
002935,000115:
002936,000116: # BIT 13 LR POSITION 2 COMMAND
002937,000117:
002938,000118: # BIT 14 ENABLE RENDESVOUS RADAR LOCK-ON;AUTO ANGLE TRACK'G
002939,000119:
002940,000120: # BIT 15 ISS TURN ON DELAY COMPLETE
002941,000121:
002942,000122:
|
|
Page 72
|
002944,000124: # CHANNEL 13 CHAN13; OUTPUT CHANNEL
002945,000125:
002946,000126: # BIT 1 RADAR C PROPER SETTING OF THE A,B,C MATRIX
002947,000127: # BIT 2 RADAR B SELECTS CERTAIN RADAR
002948,000128: # BIT 3 RADAR A PARAMETERS TO BE READ.
002949,000129:
002950,000130: # BIT 4 RADAR ACTIVITY
002951,000131:
002952,000132: # BIT 5 NOT USED (CONNECTS AN ALTERNATE INPUT TO UPLINK)
002953,000133:
002954,000134: # BIT 6 BLOCK INPUTS TO UPLINK CELL
002955,000135:
002956,000136: # BIT 7 DOWNLINK TELEMETRY WORD ORDER CODE BIT
002957,000137:
002958,000138: # BIT 8 RHC COUNTER ENABLE (READ HAND CONTROLLER ANGLES)
002959,000139:
002960,000140: # BIT 9 START RHC READ INTO COUNTERS IF BIT 8 SET
002961,000141:
002962,000142: # BIT 10 TEST ALARMS, TEST DSKY LIGHTS
002963,000143:
002964,000144: # BIT 11 ENABLE STANDBY
002965,000145:
002966,000146: # BIT 12 RESET TRAP 31-A ALWAYS APPEAR TO BE SET TO 0
002967,000147:
002968,000148: # BIT 13 RESET TRAP 31-B ALWAYS APPEAR TO BE SET TO 0
002969,000149:
002970,000150: # BIT 14 RESET TRAP 32 ALWAYS APPEAR TO BE SET TO 0
002971,000151:
002972,000152: # BIT 15 ENABLE T6 RUPT
002973,000153:
002974,000154:
002975,000155: # CHANNEL 14 CHAN14; OUTPUT CHANNEL; USED TO CONTROL COMPUTER COUNTER CELLS (CDU,GYRO,SPACECRAFT FUNC.
002976,000156:
002977,000157: # BIT 1 OUTLINK ACTIVITY (NOT USED)
002978,000158:
002979,000159: # BIT 2 ALTITUDE RATE OR ALTITIDE SELECTOR
002980,000160:
002981,000161: # BIT 3 ALTITUDE METER ACTIVITY
002982,000162:
002983,000163: # BIT 4 THRUST DRIVE ACTIVITY FOR DESCENT ENGINE
002984,000164:
002985,000165: # BIT 5 SPARE
002986,000166:
002987,000167: # BIT 6 GYRO ENABLE POWER FOR PULSES
002988,000168:
002989,000169: # BIT 7 GYRO SELECT B PAIR OF BITS IDENTIFIES AXIS OF -
002990,000170: # BIT 8 GYRO SELECT A GYRO SYSTEM TO BE TORQUED.
002991,000171:
002992,000172: # BIT 9 GYRO TORQUING COMMAND IN NEGATIVE DIRECTION
002993,000173:
002994,000174:
|
|
Page 73
|
002996,000176: # BIT 10 GYRO ACTIVITY
002997,000177:
002998,000178: # BIT 11 DRIVE CDU S
002999,000179:
003000,000180: # BIT 12 DRIVE CDU T
003001,000181:
003002,000182: # BIT 13 DRIVE CDU Z
003003,000183:
003004,000184: # BIT 14 DRIVE CDU Y
003005,000185:
003006,000186: # BIT 15 DRIVE CDU X
003007,000187:
003008,000188:
003009,000189: # CHANNEL 15 MNKEYIN; INPUT CHANNEL;KEY CODE INPUT FROM KEYBOARD OF DSKY, SENSED BY PROGRAM WHEN
003010,000190: # PROGRAM INTERRUPT #5 IS RECEIVED. USES BITS 5-1
003011,000191:
003012,000192:
003013,000193: # CHANNEL 16 NAVKEYIN; INPUT CHANNEL; OPTICS MARK INFORMATION AND NAVIGA ION PANEL DSKY (CM) OR THRUST
003014,000194: # CONTROL (LM) SENSED BY PROGRAM WHEN PROGRAM INTER-RUPT #6 IS RECEIVED. USES BITS 3-7 ONLY.
003015,000195:
003016,000196: # BIT 1 NOT ASSIGNED
003017,000197:
003018,000198: # BIT 2 NOT ASSIGNED
003019,000199:
003020,000200: # BIT 3 OPTICS X-AXIS MARK SIGNAL FOR ALIGN OPTICAL TSCOPE
003021,000201:
003022,000202: # BIT 4 OPTICS Y-AXIS MARK SIGNAL FOR AOT
003023,000203:
003024,000204: # BIT 5 OPTICS MARK REJECT SIGNAL
003025,000205:
003026,000206: # BIT 6 DESCENT+ ; CREW DESIRED SLOWING RATE OF DESCENT
003027,000207:
003028,000208: # BIT 7 DESCENT- ; CREW DESIRED SPEEDING UP RATE OF D'CENT
003029,000209:
003030,000210:
003031,000211: # NOTE: ALL BITS IN CHANNELS 30-33 ARE INVERTED AS SENSED BY THE PROGRAM, SO THAT A VALUE OF ZERO MEANS
003032,000212: # THAT THE INDICATED SIGNAL IS PRESENT.
003033,000213:
003034,000214:
003035,000215: # CHANNEL 30 INPUT CHANNEL
003036,000216:
003037,000217: # BIT 1 ABORT WITH DESCENT STAGE
003038,000218:
003039,000219: # BIT 2 UNUSED
003040,000220:
003041,000221: # BIT 3 ENGINE ARMED SIGNAL
003042,000222:
003043,000223: # BIT 4 ABORT WITH ASCENT ENGINE STAGE
003044,000224:
003045,000225: # BIT 5 AUTO THROTTLE; COMPUTER CONTROL OF DESCENT ENGINE
003046,000226:
|
|
Page 74
|
003048,000228: # BIT 6 DISPLAY INERTIAL DATA
003049,000229:
003050,000230: # BIT 7 RR CDU FAIL
003051,000231:
003052,000232: # BIT 8 SPARE
003053,000233:
003054,000234: # BIT 9 IMU OPERATE WITH NO MALFUNCTION
003055,000235:
003056,000236: # BIT 10 LM COMPUTER (NOT AGS) HAS CONTROL OF LM
003057,000237:
003058,000238: # BIT 11 IMU CAGE COMMAND TO DRIVE IMU GIMBAL ANGLES TO 0.
003059,000239:
003060,000240: # BIT 12 IMU CDU FAIL (MALFUNCTION OF IMU CDU,S)
003061,000241:
003062,000242: # BIT 13 IMU FAIL (MALFUNCTION OF IMU STABILIZATION LOOPS)
003063,000243:
003064,000244: # BIT 14 ISS TURN ON REQUESTED
003065,000245:
003066,000246: # BIT 15 TEMPERATURE OF STABLE MEMBER WITHIN DESIGN LIMITS
003067,000247:
003068,000248:
003069,000249: # CHANNEL 31 INPUT CHANNEL; BITS ASSOCIATED WITH THE ATTITUDE CONTROLLER, TRANSLATIONAL CONTROLLER,
003070,000250: # AND SPACECRAFT ATTITUDE CONTROL; USED BY RCS DAP
003071,000251:
003072,000252: # BIT 1 ROTATION (BY RHC) COMMANDED IN POSITIVE PITCH DIRECTION; MUST BE IN MINIMUM IMPULSE MODE.
003073,000253: # ALSO POSITIVE ELEVATION CHANGE FOR LANDING POINT DESIGNATOR
003074,000254:
003075,000255: # BIT 2 AS BIT 1 EXCEPT NEGATIVE PITCH AND ELEVATION
003076,000256:
003077,000257: # BIT 3 ROTATION (BY RHC) COMMANDED IN POSITIVE YAW DIRECTION; MUST BE IN MINUMUM IMPULSE MODE.
003078,000258:
003079,000259: # BIT 4 AS BIT 3 EXCEPT NEGATIVE YAW
003080,000260:
003081,000261: # BIT 5 ROTATION (BY RHC) COMMANDED IN POSITIVE ROLL DIRECTION; MUST BE IN MINIMUM IMPULSE MODE.
003082,000262: # ALSO POSITIVE AZIMUTH CHANGE FOR LANDING POINT DESIGNATOR
003083,000263:
003084,000264: # BIT 6 AS BIT 5 EXCEPT NEGATIVE ROLL AND AZIMUTH
003085,000265:
003086,000266: # BIT 7 TRANSLATION IN +X DIRECTION COMMANDED BY THC
003087,000267:
003088,000268: # BIT 8 TRANSLATION IN -X DIRECTION COMMANDED BY THC
003089,000269:
003090,000270: # BIT 9 TRANSLATION IN +Y DIRECTION COMMANDED BY THC
003091,000271:
003092,000272: # BIT 10 TRANSLATION IN -Y DIRECTION COMMANDED BY THC
003093,000273:
003094,000274: # BIT 11 TRANSLATION IN +Z DIRECTION COMMANDED BY THC
003095,000275:
003096,000276: # BIT 12 TRANSLATION IN -Z DIRECTION COMMANDED BY THC
003097,000277:
|
|
Page 75
|
003099,000279:
003100,000280: # BIT 13 ATTITUDE HOLD MODE ON SCS MODE CONTROL SWITCH
003101,000281:
003102,000282: # BIT 14 AUTO STABILIZATION OF ATTITUDE ON SCS MODE SWITCH
003103,000283:
003104,000284: # BIT 15 ATTITUDE CONTROL OUT OF DETENT (RHC NOT IN NEUTRAL
003105,000285:
003106,000286:
003107,000287: # CHANNEL 32 INPUT CHANNEL.
003108,000288:
003109,000289: # BIT 1 THRUSTERS 2 & 4 DISABLED BY CREW
003110,000290:
003111,000291: # BIT 2 THRUSTERS 5 & 8 DISABLED BY CREW
003112,000292:
003113,000293: # BIT 3 THRUSTERS 1 & 3 DISABLED BY CREW
003114,000294:
003115,000295: # BIT 4 THRUSTERS 6 & 7 DISABLED BY CREW
003116,000296:
003117,000297: # BIT 5 THRUSTERS 14 & 16 DISABLED BY CREW
003118,000298:
003119,000299: # BIT 6 THRUSTERS 13 & 15 DISABLED BY CREW
003120,000300:
003121,000301: # BIT 7 THRUSTERS 9 & 12 DISABLED BY CREW
003122,000302:
003123,000303: # BIT 8 THRUSTERS 10 & 11 DISABLED BY CREW
003124,000304:
003125,000305: # BIT 9 DESCENT ENGINE GIMBALS DISABLED BY CREW
003126,000306:
003127,000307: # BIT 10 APPARENT DESCENT ENGINE GIMBAL FAILURE
003128,000308:
003129,000309: # BIT 14 INDICATES PROCEED KEY IS DEPRESSED
003130,000310:
003131,000311:
003132,000312: # CHANNEL 33 CHAN33; INPUT CHANNEL; FOR HARDWARE STATUS AND COMMAND INFORMATION. BITS 15-11 ARE FLIP-
003133,000313: # FLOP BITS RESET BY A CHANNEL "WRITE" COMMAND THAT ARE RESET BY A RESTART & BY T4RUPT LOOP.
003134,000314:
003135,000315: # BIT 1 SPARE
003136,000316:
003137,000317: # BIT 2 RR AUTO-POWER ON
003138,000318:
003139,000319: # BIT 3 RR RANGE LOW SCALE
003140,000320:
003141,000321: # BIT 4 RR DATA GOOD
003142,000322:
003143,000323: # BIT 5 LR RANGE DATA GOOD
003144,000324:
003145,000325: # BIT 6 LR POS1
003146,000326:
003147,000327: # BIT 7 LR POS2
003148,000328:
003149,000329:
|
|
Page 76
|
003151,000331: # BIT 8 LR VEL DATA GOOD
003152,000332:
003153,000333: # BIT 9 LR RANGE LOW SCALE
003154,000334:
003155,000335: # BIT 10 BLOCK UPLINK INPUT
003156,000336:
003157,000337: # BIT 11 UPLINK TOO FAST
003158,000338:
003159,000339: # BIT 12 DOWNLINK TOO FAST
003160,000340:
003161,000341: # BIT 13 PIPA FAIL
003162,000342:
003163,000343: # BIT 14 WARNING OF REPEATED ALARMS: RESTART,COUNTER FAIL, VOLTAGE FAIL,AND SCALAR DOUBLE.
003164,000344:
003165,000345: # BIT 15 LGC OSCILLATOR STOPPED
003166,000346:
003167,000347:
003168,000348: # CHANNEL 34 DNT M1; OUTPUT CHANNEL; DOWNLINK 1 FIRST OF TWO WORDS SERIALIZATION.
003169,000349: # CHANNEL 35 DNT M2; OUTPUT CHANNEL DOWNLINK 2 SOCOND OF TWO WORDS SERIALIZATION.
End of include-file INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc. Parent file is MAIN.agc