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. |
031036,000002: ## Copyright: Public domain.
031037,000003: ## Filename: P76.agc
031038,000004: ## Purpose: A section of Luminary revision 210.
031039,000005: ## It is part of the source code for the Lunar Module's (LM)
031040,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
031041,000007: ## This file is intended to be a faithful transcription, except
031042,000008: ## that the code format has been changed to conform to the
031043,000009: ## requirements of the yaYUL assembler rather than the
031044,000010: ## original YUL assembler.
031045,000011: ## Reference: pp. 711-714
031046,000012: ## Assembler: yaYUL
031047,000013: ## Contact: Ron Burkey <info@sandroid.org>.
031048,000014: ## Website: www.ibiblio.org/apollo/index.html
031049,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
031050,000016: ## 2016-12-01 RSB Completed.
031051,000017: ## 2016-12-01 HG Add missing instructions for INTADR, UPDATADR
031052,000018: ## fix operand GOTOPOOH -> GOTOP00H
031053,000019: ## 2016-12-07 HG 'unfix' and revert P00 -> POO
031054,000020: ## 2016-12-11 HG Fix operand -5 -> -6
031055,000021: ## 2016-12-25 RSB Comment-text proofed using ProoferComments
031056,000022: ## and corrected errors found.
031057,000023:
031058,000024:
![]() |
Page 711 |
031060,000026: # 1) PROGRAM NAME - TARGET DELTA V PROGRAM (P76).
031061,000027: # 2) FUNCTIONAL DESCRIPTION - UPON ENTRY BY ASTRONAUT ACTION, P76 FLASHES DSKY REQUESTS TO THE ASTRONAUT
031062,000028: # TO PROVIDE VIA DSKY (1) THE DELTA V TO BE APPLIED TO THE OTHER VEHICLE STATE VECTOR AND (2) THE
031063,000029: # TIME (TIG) AT WHICH THE OTHER VEHICLE VELOCITY WAS CHANGED BY EXECUTION OF A THRUSTING MANEUVER. THE
031064,000030: # OTHER VEHICLE STATE VECTOR IS INTEGRATED TO TIG AND UPDATED BY THE ADDITION OF DELTA V (DELTA V HAVING
031065,000031: # BEEN TRANSFORMED FROM LV TO REF COSYS). USING INTEGRVS, THE PROGRAM THEN INTEGRATES THE OTHER
031066,000032: # VEHICLE STATE VECTOR TO THE STATE VECTOR OF THIS VEHICLE, THUS INSURING THAT THE W-MATRIX AND BOTH VEHICLE
031067,000033: # STATES CORRESPOND TO THE SAME TIME.
031068,000034: # 3) ERASABLE INITIALIZATION REQUIRED - NONE.
031069,000035: # 4) CALLING SEQUENCES AND EXIT MODES - CALLED BY ASTRONAUT REQUEST THRU DSKY V 37 E 76 E.
031070,000036: # EXITS BY TCF ENDOFJOB.
031071,000037: # 5) OUTPUT - OTHER VEHICLE STATE VECTOR INTEGRATED TO TIG AND INCREMENTED BY DELTA V IN REF COSYS.
031072,000038: # THE PUSHLIST CONTAINS THE MATRIX BY WHICH THE INPUT DELTA V MUST BE POST-MULTIPLIED TO CONVERT FROM LV
031073,000039: # TO REF COSYS.
031074,000040: # 6) DEBRIS - OTHER VEHICLE STATE VECTOR.
031075,000041: # 7) SUBROUTINES CALLED - BANKCALL,GOXDSPF,CSMPREC (OR LEMPREC),ATOPCSM (OR ATOPLEM),INTSTALL,INTWAKE, PHASCHNG
031076,000042: # INTPRET, INTEGRVS, AND MINIRECT.
031077,000043:
031078,000044: # 8) FLAG USE - MOONFLAG,CMOONFLAG,INTYPFLG,RASFLAG, AND MARKCTR.
031079,000045:
031080,000046: 30,2061 BANK 30
031081,000047: 13,2000 SETLOC P76LOC
031082,000048: 13,2000 BANK
031083,000049:
031084,000050: 13,2207 COUNT* $$/P76
031085,000051:
031086,000052: 13,2207 E7,1441 EBANK= TIG
031087,000053:
031088,000054: 13,2207 31010 P76ER77 CA MODREG
031089,000055: 13,2210 74744 MASK BIT1
031090,000056: 13,2211 55235 TS OPTFLAG # OPTFLAG = 0 CM (P76)
031091,000057: 13,2212 05506 TC UPFLAG # = 1 LM (P77)
031092,000058: 13,2213 00031 ADRES TRACKFLG
031093,000059:
031094,000060: 13,2214 06060 TC INTPRET
031095,000061: 13,2215 77775 VLOAD
031096,000062: 13,2216 03434 DELVLVC
031097,000063: 13,2217 01251 STORE DELVOV
031098,000064: 13,2220 77776 EXIT
031099,000065:
031100,000066: 13,2221 32356 CAF V06N3376
031101,000067: 13,2222 04607 TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
031102,000068: 13,2223 20471 CADR GOFLASH
031103,000069: 13,2224 12351 TCF ENDP76
031104,000070: 13,2225 02227 TC +2 # PROCEED
031105,000071: 13,2226 02221 TC -5 # STORE DATA AND REPEAT FLASHING
031106,000072: 13,2227 05355 TC PHASCHNG
031107,000073: 13,2230 04024 OCT 04024
031108,000074: 13,2231 51235 INDEX OPTFLAG
031109,000075: 13,2232 32354 CAF V06N84 # FLASH V06 N84 (OR N81), LAST DELTV,
![]() |
Page 712 |
031111,000077: 13,2233 04607 TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
031112,000078: 13,2234 20471 CADR GOFLASH
031113,000079: 13,2235 12351 TCF ENDP76
031114,000080: 13,2236 02240 TC +2
031115,000081: 13,2237 02231 TC -6 # STORE DATA & REPEAT FLASHING DSP
031116,000082: 13,2240 06060 TC INTPRET # RETURN TO INTERPRETIVE CODE
031117,000083: 13,2241 43145 DLOAD SET
031118,000084: 13,2242 03442 TIG
031119,000085: 13,2243 01076 NODOFLAG
031120,000086: 13,2244 00041 STORE TDEC1
031121,000087: 13,2245 77711 CCALL
031122,000088: 13,2246 01236 OPTFLAG
031123,000089: 13,2247 26357 INTADR
031124,000090: 13,2250 53575 COMPMAT VLOAD UNIT
031125,000091: 13,2251 00001 RATT
031126,000092: 13,2252 77676 VCOMP # U(-R)
031127,000093: 13,2253 00031 STORE 24D # U(-R) TO 24D
031128,000094: 13,2254 53435 VXV UNIT # U(-R) X V = U(V X R)
031129,000095: 13,2255 00007 VATT
031130,000096: 13,2256 00023 STORE 18D
031131,000097: 13,2257 53435 VXV UNIT # U(V X R) X U(-R) = U((R X V) X R)
031132,000098: 13,2260 00031 24D
031133,000099: 13,2261 00015 STORE 12D
031134,000100: 13,2262 46135 SLOAD BHIZ
031135,000101: 13,2263 01236 OPTFLAG
031136,000102: 13,2264 26270 +4
031137,000103: 13,2265 77775 VLOAD
031138,000104: 13,2266 03434 DELVLVC # FROM CM
031139,000105: 13,2267 01251 STORE DELVOV
031140,000106: 13,2270 77775 VLOAD
031141,000107: 13,2271 01251 DELVOV # FROM LM
031142,000108: 13,2272 76505 DVTRANS VXM VSL1 # V(MPAC)=DELTA V IN REFCOSYS
031143,000109: 13,2273 00015 12D
031144,000110: 13,2274 77655 VAD
031145,000111: 13,2275 00007 VATT
031146,000112: 13,2276 00007 STORE 6 # V(PD6)=VATT + DELTA V
031147,000113: 13,2277 77624 CALL # PREVENT WOULD-BE USER OF ORBITAL
031148,000114: 13,2300 27447 INTSTALL # INTEG FROM INTERFERING WITH UPDATING
031149,000115: 13,2301 77624 CALL
031150,000116: 13,2302 26363 P76SUB1
031151,000117: 13,2303 53775 VLOAD VSR*
031152,000118: 13,2304 00007 6
031153,000119: 13,2305 57176 0,2
031154,000120: 13,2306 25543 STOVL VCV
031155,000121: 13,2307 00001 RATT
031156,000122: 13,2310 77657 VSR*
031157,000123: 13,2311 57176 0,2
031158,000124: 13,2312 15535 STODL RCV
031159,000125: 13,2313 03442 TIG
031160,000126: 13,2314 01517 STORE TET
![]() |
Page 713 |
031162,000128: 13,2315 71214 CLEAR DLOAD
031163,000129: 13,2316 01673 INTYPFLG
031164,000130: 13,2317 01643 TETTHIS
031165,000131: 13,2320 34041 INTOTHIS STCALL TDEC1
031166,000132: 13,2321 27145 INTEGRVS
031167,000133: 13,2322 77624 CALL
031168,000134: 13,2323 27447 INTSTALL
031169,000135: 13,2324 77775 VLOAD
031170,000136: 13,2325 00017 RATT1
031171,000137: 13,2326 01503 STORE RRECT
031172,000138: 13,2327 15535 STODL RCV
031173,000139: 13,2330 00015 TAT
031174,000140: 13,2331 25517 STOVL TET
031175,000141: 13,2332 00025 VATT1
031176,000142: 13,2333 77624 CALL
031177,000143: 13,2334 27734 MINIRECT
031178,000144: 13,2335 77776 EXIT
031179,000145: 13,2336 05355 TC PHASCHNG
031180,000146: 13,2337 04024 OCT 04024
031181,000147:
031182,000148: 13,2340 06060 TC INTPRET
031183,000149: 13,2341 62214 SET CCALL
031184,000150: 13,2342 05070 REINTFLG
031185,000151: 13,2343 01236 OPTFLAG
031186,000152: 13,2344 26361 UPDATADR
031187,000153: 13,2345 77624 CALL
031188,000154: 13,2346 27456 INTWAKE0
031189,000155: 13,2347 77414 OUT CLEAR EXIT # ALLOW V37. NO NEED TO CLEAR NODOFLAG AT
031190,000156: 13,2350 01276 NODOFLAG # ENDP76 SINCE FLAG NOT SET WHEN DISPLAY
031191,000157: # RESPONSES TRANSFER THERE FROM P76+.
031192,000158: 13,2351 34746 ENDP76 CAF ZERO
031193,000159: 13,2352 55462 TS MARKCTR # CLEAR RR TRACKING MARK COUNTER
031194,000160: 13,2353 16001 TCF GOTOPOOH
031195,000161:
031196,000162: 13,2354 01524 V06N84 NV 0684
031197,000163: 13,2355 01521 NV 0681
031198,000164: 13,2356 01441 V06N3376 NV 0633
031199,000165: 13,2357 27101 INTADR CADR OTHPREC
031200,000166: 13,2360 27115 CADR THISPREC
031201,000167: 13,2361 26717 UPDATADR CADR ATOPOTH
031202,000168: 13,2362 26772 CADR ATOPTHIS
031203,000169: 13,2363 43174 P76SUB1 AXT,2 SET
031204,000170: 13,2364 00002 2
031205,000171: 13,2365 00063 MOONFLAG # SET MEANS MOON IS SPHERE OF INFLUENCE.
031206,000172: 13,2366 77014 BON AXT,2
031207,000173: 13,2367 04303 CMOONFLG # SET MEANS PERM CM STATE IN LUNAR SPHERE.
031208,000174: 13,2370 00052 QPRET
031209,000175: 13,2371 00000 0
031210,000176: 13,2372 43414 CLEAR RVQ
031211,000177: 13,2373 00263 MOONFLAG
031212,000178:
![]() |
Page 714 This page is completely blank in the original assembly-listing hardcopy. |
031215,000181:
031216,000182:
End of include-file P76.agc. Parent file is MAIN.agc