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