Source Code
![]() |
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
002112,000002: ## Copyright: Public domain.
002113,000003: ## Filename: INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc
002114,000004: ## Purpose: A section of Luminary revision 210.
002115,000005: ## It is part of the source code for the Lunar Module's (LM)
002116,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
002117,000007: ## This file is intended to be a faithful transcription, except
002118,000008: ## that the code format has been changed to conform to the
002119,000009: ## requirements of the yaYUL assembler rather than the
002120,000010: ## original YUL assembler.
002121,000011: ## Reference: pp. 56-62
002122,000012: ## Assembler: yaYUL
002123,000013: ## Contact: Ron Burkey <info@sandroid.org>.
002124,000014: ## Website: www.ibiblio.org/apollo/index.html
002125,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
002126,000016: ## 2016-11-17 HG Transcribed
002127,000017: ## 2016-12-15 RSB Proofed comment text with octopus/ProoferComments,
002128,000018: ## and corrected the errors found.
002129,000019: ## 2017-03-02 RSB OUT0 --> OUTO.
002130,000020: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
002131,000021: ## side-by-side diff of Luminary 69/99/116/131/210.
002132,000022:
![]() |
Page 56 |
002134,000024:
002135,000025: # *** CHANNEL DESCRIPTIONSF WORDS ARE ALLOCATED IN ERASABLE ASSIGNMENTS ***
002136,000026:
002137,000027: # CHANNEL 1 IDENTICAL TO COMPUTER REGISTER L (0001)
002138,000028:
002139,000029: # CHANNEL 2 IDENTICAL TO COMPUTER REGISTER Q (0002)
002140,000030:
002141,000031: # CHANNEL 3 HISCALAR; INPUT CHANNEL; MOST SIGNIFICANT 14 BITS FROM 33 STAGE BINARY COUNTER. SCALE
002142,000032: # FACTOR IS B23 IN CSEC, SO MAX VALUE ABOUT 23.3 HOURS AND LEAST SIGNIFICANT BIT 5.12 SECS.
002143,000033:
002144,000034: # CHANNEL 4 LOSCALAR; INPUT CHANNEL; NEXT MOST SIGNIFICANT 14 BITS FROM THE 33 STAGE BINARY COUNTER
002145,000035: # ASSOCIATED WITH CHANNEL 3. SCALE FACTOR IS B9 IN CSEC. SO MAX VAL IS 5.12 SEC AND LEAST
002146,000036: # SIGNIFICANT BIT IS 1/3200 SEC. SCALE FACTOR OF D.P. WORD WITH CHANNEL 3 IS B23 CSEC.
002147,000037:
002148,000038: # CHANNEL 5 PYJETS; OUTPUT CHANNEL; PITCH RCS JET CONTROL. (REACTION CONTROL SYSTEM) USES BITS 1-8.
002149,000039:
002150,000040:
002151,000041: # CHANNEL 6 ROLLJETS; OUTPUT CHANNEL; ROLL RCS JET CONTROL. (REACTION CONTROL SYSTEM) USES BIT 1-8.
002152,000042:
002153,000043:
002154,000044: # CHANNEL 7 SUPERBNK; OUTPUT CHANNEL; NOT RESET BY RESTART; FIXED EXTENSION BITS USED TO SELECT THE
002155,000045: # APPROPRIATE FIXED MEMORY BANK IF FBANK IS 30 OCTAL OR MORE. USES BITS 5-7.
002156,000046:
002157,000047:
002158,000048: # CHANNEL 10 OUTO; OUTPUT CHANNEL; REGISTER USED TO TRANSMIT LATCHING-RELAY DRIVING INFORMATION FOR
002159,000049: # THE DISPLAY SYSTEM. BITS 15-12 ARE SET TO THE ROW NUMBER (1-14 OCTAL) OF THE RELAY TO BE
002160,000050: # CHANGED AND BITS 11-1 CONTAIN THE REQUIRED SETTINGS FOR THE RELAYS IN THE ROW.
002161,000051:
002162,000052:
002163,000053: # CHANNEL 11 DSALMOUT; OUTPUT CHANNEL; REGISTER WHOSE BITS ARE USED FOR ENGINE ON-OFF CONTROL AND TO
002164,000054: # DRIVE INDIVIDUAL INDICATORS OF THE DISPLAY SYSTEM. BITS 1-7 ARE A RELAYS.
002165,000055:
002166,000056: # BIT 1 ISS WARNING
002167,000057:
002168,000058: # BIT 2 LIGHT COMPUTER ACTIVITY LAMP
002169,000059:
002170,000060: # BIT 3 LIGHT UPLINK ACTIVITY LAMP
002171,000061:
002172,000062: # BIT 4 LIGHT TEMP CAUTION LAMP
002173,000063:
002174,000064: # BIT 5 LIGHT KEYBOARD RELEASE LAMP
002175,000065:
002176,000066: # BIT 6 FLASH VERB AND NOUN LAMPS
002177,000067:
002178,000068: # BIT 7 LIGHT OPERATOR ERROR LAMP
002179,000069:
![]() |
Page 57 |
002181,000071: # BIT 8 SPARE
002182,000072:
002183,000073: # BIT 9 TEST CONNECTOR OUTBIT
002184,000074:
002185,000075: # BIT 10 CAUTION RESET
002186,000076:
002187,000077: # BIT 11 SPARE
002188,000078:
002189,000079: # BIT 12 SPARE
002190,000080:
002191,000081: # BIT 13 ENGINE ON
002192,000082:
002193,000083: # BIT 14 ENGINE OFF
002194,000084:
002195,000085: # BIT 15 SPARE
002196,000086:
002197,000087:
002198,000088: # CHANNEL 12 CHAN12; OUTPUT CHANNEL; BITS USED TO DRIVE NAVIGATION AND SPAECRAFT HARDWARE
002199,000089:
002200,000090: # BIT 1 ZERO RR CDU; CDU'S GIVE RRADAR INFORMATION FOR LM
002201,000091:
002202,000092: # BIT 2 ENABLE CDU RADAR ERROR COUNTERS
002203,000093:
002204,000094: # BIT 3 NOT USED
002205,000095:
002206,000096: # BIT 4 COARSE ALIGN ENABLE OF IMU
002207,000097:
002208,000098: # BIT 5 ZERO IMU CDU'S
002209,000099:
002210,000100: # BIT 6 ENABLE IMU ERROR COUNTER, CDU ERROR COUNTER.
002211,000101:
002212,000102: # BIT 7 SPARE
002213,000103:
002214,000104: # BIT 8 DISPLAY INERTIAL DATA
002215,000105:
002216,000106: # BIT 9 -PITCH GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
002217,000107:
002218,000108: # BIT 10 +PITCH GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
002219,000109:
002220,000110: # BIT 11 -ROLL GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
002221,000111:
002222,000112: # BIT 12 +ROLL GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
002223,000113:
002224,000114: # BIT 13 LR POSITION 2 COMMAND
002225,000115:
002226,000116: # BIT 14 ENABLE RENDESVOUS RADAR LOCK-ON; AUTO ANGLE TRACK'G
002227,000117:
002228,000118: # BIT 15 ISS TURN ON DELAY COMPLETE
002229,000119:
002230,000120:
![]() |
Page 58 |
002232,000122: # CHANNEL 13 CHAN13; OUTPUT CHANNEL
002233,000123:
002234,000124: # BIT 1 RADAR C PROPER SETTING OF THE A,B,C MATRIX
002235,000125: # BIT 2 RADAR B SELECTS CERTAIN RADAR
002236,000126: # BIT 3 RADAR A PARAMETERS TO BE READ.
002237,000127:
002238,000128: # BIT 4 RADAR ACTIVITY
002239,000129:
002240,000130: # BIT 5 NOT USED (CONNECTS AN ALTERNATE INPUT TO UPLINK)
002241,000131:
002242,000132: # BIT 6 SPARE
002243,000133:
002244,000134: # BIT 7 DOWNLINK TELEMETRY WORD ORDER CODE BIT
002245,000135:
002246,000136: # BIT 8 RHC COUNTER ENABLE (READ HAND CONTROLLER ANGLES)
002247,000137:
002248,000138: # BIT 9 START RHC READ INTO COUNTERS IF BIT 8 SET
002249,000139:
002250,000140: # BIT 10 TEST ALARMS, TEST DSKY LIGHTS
002251,000141:
002252,000142: # BIT 11 ENABLE STANDBY
002253,000143:
002254,000144: # BIT 12 RESET TRAP 31-A ALWAYS APPEAR TO BE SET TO 0
002255,000145:
002256,000146: # BIT 13 RESET TRAP 31-B ALWAYS APPEAR TO BE SET TO 0
002257,000147:
002258,000148: # BIT 14 RESET TRAP 32 ALWAYS APPEAR TO BE SET TO 0
002259,000149:
002260,000150: # BIT 15 ENABLE T6 RUPT
002261,000151:
002262,000152:
002263,000153: # CHANNEL 14 CHAN14; OUTPUT CHANNEL; USED TO CONTROL COMPUTER COUNTER CELLS (CDU,GYRO,SPACECRAFT FUNC.
002264,000154:
002265,000155: # BIT 1 OUTLINK ACTIVITY (NOT USED)
002266,000156:
002267,000157: # BIT 2 ALTITUDE RATE OR ALTITIDE SELECTOR
002268,000158:
002269,000159: # BIT 3 ALTITUDE METER ACTIVITY
002270,000160:
002271,000161: # BIT 4 THRUST DRIVE ACTIVITY FOR DESCENT ENGINE
002272,000162:
002273,000163: # BIT 5 SPARE
002274,000164:
002275,000165: # BIT 6 GYRO ENABLE POWER FOR PULSES
002276,000166:
002277,000167: # BIT 7 GYRO SELECT B PAIR OF BITS IDENTIFIES AXIS OF -
002278,000168: # BIT 8 GYRO SELECT A GYRO SYSTEM TO BE TORQUED.
002279,000169:
002280,000170: # BIT 9 GYRO TORQUING COMMAND IN NEGATIVE DIRECTION
002281,000171:
002282,000172:
![]() |
Page 59 |
002284,000174: # BIT 10 GYRO ACTIVITY
002285,000175:
002286,000176: # BIT 11 DRIVE CDU S
002287,000177:
002288,000178: # BIT 12 DRIVE CDU T
002289,000179:
002290,000180: # BIT 13 DRIVE CDU Z
002291,000181:
002292,000182: # BIT 14 DRIVE CDU Y
002293,000183:
002294,000184: # BIT 15 DRIVE CDU X
002295,000185:
002296,000186:
002297,000187: # CHANNEL 15 MNKEYIN; INPUT CHANNEL;KEY CODE INPUT FROM KEYBOARD OF DSKY, SENSED BY PROGRAM WHEN
002298,000188: # PROGRAM INTERRUPT #5 IS RECEIVED. USES BITS 5-1
002299,000189:
002300,000190:
002301,000191: # CHANNEL 16 NAVKEYIN; INPUT CHANNEL; OPTICS MARK INFORMATION AND NAVIGA ION PANEL DSKY (CM) OR THRUST
002302,000192: # CONTROL (LM) SENSED BY PROGRAM WHEN PROGRAM INTER-RUPT #6 IS RECEIVED. USES BITS 3-7 ONLY.
002303,000193:
002304,000194: # BIT 1 NOT ASSIGNED
002305,000195:
002306,000196: # BIT 2 NOT ASSIGNED
002307,000197:
002308,000198: # BIT 3 OPTICS X-AXIS MARK SIGNAL FOR ALIGN OPTICAL TSCOPE
002309,000199:
002310,000200: # BIT 4 OPTICS Y-AXIS MARK SIGNAL FOR AOT
002311,000201:
002312,000202: # BIT 5 OPTICS MARK REJECT SIGNAL
002313,000203:
002314,000204: # BIT 6 DESCENT+ ; CREW DESIRED SLOWING RATE OF DESCENT
002315,000205:
002316,000206: # BIT 7 DESCENT- ; CREW DESIRED SPEEDING UP RATE OF D'CENT
002317,000207:
002318,000208:
002319,000209: # NOTE: ALL BITS IN CHANNELS 30-33 ARE INVERTED AS SENSED BY THE PROGRAM, SO THAT A VALUE OF ZERO MEANS
002320,000210: # THAT THE INDICATED SIGNAL IS PRESENT.
002321,000211:
002322,000212:
002323,000213: # CHANNEL 30 INPUT CHANNEL
002324,000214:
002325,000215: # BIT 1 ABORT WITH DESCENT STAGE
002326,000216:
002327,000217: # BIT 2 UNUSED
002328,000218:
002329,000219: # BIT 3 ENGINE ARMED SIGNAL
002330,000220:
002331,000221: # BIT 4 ABORT WITH ASCENT ENGINE STAGE
002332,000222:
002333,000223: # BIT 5 AUTO THROTTLE; COMPUTER CONTROL OF DESCENT ENGINE
002334,000224:
![]() |
Page 60 |
002336,000226: # BIT 6 DISPLAY INERTIAL DATA
002337,000227:
002338,000228: # BIT 7 RR CDU FAIL
002339,000229:
002340,000230: # BIT 8 SPARE
002341,000231:
002342,000232: # BIT 9 IMU OPERATE WITH NO MALFUNCTION
002343,000233:
002344,000234: # BIT 10 LM COMPUTER (NOT AGS) HAS CONTROL OF LM
002345,000235:
002346,000236: # BIT 11 IMU CAGE COMMAND TO DRIVE IMU GIMBAL ANGLES TO 0.
002347,000237:
002348,000238: # BIT 12 IMU CDU FAIL (MALFUNCTION OF IMU CDU,S)
002349,000239:
002350,000240: # BIT 13 IMU FAIL (MALFUNCTION OF IMU STABILIZATION LOOPS)
002351,000241:
002352,000242: # BIT 14 ISS TURN ON REQUESTED
002353,000243:
002354,000244: # BIT 15 TEMPERATURE OF STABLE MEMBER WITHIN DESIGN LIMITS
002355,000245:
002356,000246:
002357,000247: # CHANNEL 31 INPUT CHANNEL; BITS ASSOCIATED WITH THE ATTITUDE CONTROLLER, TRANSLATIONAL CONTROLLER,
002358,000248: # AND SPACECRAFT ATTITUDE CONTROL; USED BY RCS DAP
002359,000249:
002360,000250: # BIT 1 ROTATION (BY RHC) COMMANDED IN POSITIVE PITCH DIRECTION; MUST BE IN MINIMUM IMPULSE MODE.
002361,000251: # ALSO POSITIVE ELEVATION CHANGE FOR LANDING POINT DESIGNATOR
002362,000252:
002363,000253: # BIT 2 AS BIT 1 EXCEPT NEGATIVE PITCH AND ELEVATION
002364,000254:
002365,000255: # BIT 3 ROTATION (BY RHC) COMMANDED IN POSITIVE YAW DIRECTION; MUST BE IN MINUMUM IMPULSE MODE.
002366,000256:
002367,000257: # BIT 4 AS BIT 3 EXCEPT NEGATIVE YAW
002368,000258:
002369,000259: # BIT 5 ROTATION (BY RHC) COMMANDED IN POSITIVE ROLL DIRECTION; MUST BE IN MINIMUM IMPULSE MODE.
002370,000260: # ALSO POSITIVE AZIMUTH CHANGE FOR LANDING POINT DESIGNATOR
002371,000261:
002372,000262: # BIT 6 AS BIT 5 EXCEPT NEGATIVE ROLL AND AZIMUTH
002373,000263:
002374,000264: # BIT 7 TRANSLATION IN +X DIRECTION COMMANDED BY THC
002375,000265:
002376,000266: # BIT 8 TRANSLATION IN -X DIRECTION COMMANDED BY THC
002377,000267:
002378,000268: # BIT 9 TRANSLATION IN +Y DIRECTION COMMANDED BY THC
002379,000269:
002380,000270: # BIT 10 TRANSLATION IN -Y DIRECTION COMMANDED BY THC
002381,000271:
002382,000272: # BIT 11 TRANSLATION IN +Z DIRECTION COMMANDED BY THC
002383,000273:
002384,000274: # BIT 12 TRANSLATION IN -Z DIRECTION COMMANDED BY THC
002385,000275:
![]() |
Page 61 |
002387,000277:
002388,000278: # BIT 13 ATTITUDE HOLD MODE ON SCS MODE CONTROL SWITCH
002389,000279:
002390,000280: # BIT 14 AUTO STABILIZATION OF ATTITUDE ON SCS MODE SWITCH
002391,000281:
002392,000282: # BIT 15 ATTITUDE CONTROL OUT OF DETENT (RHC NOT IN NEUTRAL
002393,000283:
002394,000284:
002395,000285: # CHANNEL 32 INPUT CHANNEL.
002396,000286:
002397,000287: # BIT 1 THRUSTERS 2 & 4 DISABLED BY CREW
002398,000288:
002399,000289: # BIT 2 THRUSTERS 5 & 8 DISABLED BY CREW
002400,000290:
002401,000291: # BIT 3 THRUSTERS 1 & 3 DISABLED BY CREW
002402,000292:
002403,000293: # BIT 4 THRUSTERS 6 & 7 DISABLED BY CREW
002404,000294:
002405,000295: # BIT 5 THRUSTERS 14 & 16 DISABLED BY CREW
002406,000296:
002407,000297: # BIT 6 THRUSTERS 13 & 15 DISABLED BY CREW
002408,000298:
002409,000299: # BIT 7 THRUSTERS 9 & 12 DISABLED BY CREW
002410,000300:
002411,000301: # BIT 8 THRUSTERS 10 & 11 DISABLED BY CREW
002412,000302:
002413,000303: # BIT 9 DESCENT ENGINE GIMBALS DISABLED BY CREW
002414,000304:
002415,000305: # BIT 10 APPARENT DESCENT ENGINE GIMBAL FAILURE
002416,000306:
002417,000307: # BIT 14 INDICATES PROCEED KEY IS DEPRESSED
002418,000308:
002419,000309:
002420,000310: # CHANNEL 33 CHAN33; INPUT CHANNEL; FOR HARDWARE STATUS AND COMMAND INFORMATION. BITS 15-11 ARE FLIP-
002421,000311: # FLOP BITS RESET BY A CHANNEL "WRITE" COMMAND THAT ARE RESET BY A RESTART & BY T4RUPT LOOP.
002422,000312:
002423,000313: # BIT 1 SPARE
002424,000314:
002425,000315: # BIT 2 RR AUTO-POWER ON
002426,000316:
002427,000317: # BIT 3 RR RANGE LOW SCALE
002428,000318:
002429,000319: # BIT 4 RR DATA GOOD
002430,000320:
002431,000321: # BIT 5 LR RANGE DATA GOOD
002432,000322:
002433,000323: # BIT 6 LR POS1
002434,000324:
002435,000325: # BIT 7 LR POS2
002436,000326:
002437,000327:
002438,000328:
![]() |
Page 62 |
002440,000330: # BIT 8 LR VEL DATA GOOD
002441,000331:
002442,000332: # BIT 9 LR RANGE LOW SCALE
002443,000333:
002444,000334: # BIT 10 BLOCK UPLINK INPUT
002445,000335:
002446,000336: # BIT 11 UPLINK TOO FAST
002447,000337:
002448,000338: # BIT 12 DOWNLINK TOO FAST
002449,000339:
002450,000340: # BIT 13 PIPA FAIL
002451,000341:
002452,000342: # BIT 14 WARNING OF REPEATED ALARMS: RESTART,COUNTER FAIL, VOLTAGE FAIL,AND SCALAR DOUBLE.
002453,000343:
002454,000344: # BIT 15 LGC OSCILLATOR STOPPED
002455,000345:
002456,000346:
002457,000347: # CHANNEL 34 DNT M1; OUTPUT CHANNEL; DOWNLINK 1 FIRST OF TWO WORDS SERIALIZATION.
002458,000348: # 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