Source Code
|
These source-code files are part of a reconstructed copy of Luminary 163, the
first (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 173. Changes
between revision 163 and 173 were backed out, as described by Luminary memos 157
and 158. The reconstruction was verified by matching memory-bank checksums
to those listed in drawing 2021152N. Note that page numbers in the reconstructed
code match those for the baseline log section mentioned in each file's changelog;
the page numbers for a real Luminary 163 listing would be different.
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.
|
035749,000002: ## Copyright: Public domain.
035750,000003: ## Filename: P70-P71.agc
035751,000004: ## Purpose: A section of Luminary revision 163.
035752,000005: ## It is part of the reconstructed source code for the first
035753,000006: ## (unflown) release of the flight software for the Lunar
035754,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
035755,000008: ## The code has been recreated from a reconstructed copy of
035756,000009: ## Luminary 173, as well as Luminary memos 157 amd 158.
035757,000010: ## It has been adapted such that the resulting bugger words
035758,000011: ## exactly match those specified for Luminary 163 in NASA
035759,000012: ## drawing 2021152N, which gives relatively high confidence
035760,000013: ## that the reconstruction is correct.
035761,000014: ## Reference: pp. 822-828
035762,000015: ## Assembler: yaYUL
035763,000016: ## Contact: Ron Burkey <info@sandroid.org>.
035764,000017: ## Website: www.ibiblio.org/apollo/index.html
035765,000018: ## Mod history: 2019-08-21 MAS Created from Luminary 173.
035766,000019:
|
|
Page 831
|
035768,000021: 21,2006 BANK 21
035769,000022: 21,2000 SETLOC R11
035770,000023: 21,2000 BANK
035771,000024:
035772,000025: 21,2006 E7,1515 EBANK= DVCNTR
035773,000026: 21,2006 COUNT* $$/R11
035774,000027:
035775,000028: 21,2006 40103 R10,R11 CS FLAGWRD7 # IS SERVICER STILL RUNNING?
035776,000029: 21,2007 74747 MASK AVEGFBIT
035777,000030: 21,2010 10000 CCS A
035778,000031: 21,2011 15272 TCF TASKOVER # LET AVGEND TAKE CARE OF GROUP 2.
035779,000032: 21,2012 11055 CCS PIPCTR
035780,000033: 21,2013 12020 TCF STORPCTR
035781,000034: 21,2014 00006 EXTEND
035782,000035: 21,2015 34755 DCA NEG0
035783,000036: 21,2016 52754 DXCH -PHASE2
035784,000037: 21,2017 12024 TCF R10,R11A
035785,000038:
035786,000039: 21,2020 55714 STORPCTR TS PIPCTR1
035787,000040:
035788,000041: 21,2021 E7,1714 PIPCTR1 = LADQSAVE
035789,000042: 21,2021 1055 PIPCTR = PHSPRDT2
035790,000043: 21,2021 36010 CAF OCT31
035791,000044: 21,2022 05204 TC TWIDDLE
035792,000045: 21,2023 02006 ADRES R10,R11
035793,000046: 21,2024 34753 R10,R11A CAF HFLSHBIT
035794,000047: 21,2025 70107 FLASHH? MASK FLGWRD11
035795,000048: 21,2026 00006 EXTEND
035796,000049: 21,2027 12033 BZF FLASHV? # H FLASH OFF, SO LEAVE ALONE
035797,000050:
035798,000051: 21,2030 34747 CA HLITE
035799,000052: 21,2031 54001 TS L
035800,000053: 21,2032 04606 TC FLIP # FLIP H LITE
035801,000054:
035802,000055: 21,2033 34752 FLASHV? CA VFLSHBIT # VFLASHBIT MUST BE BIT 2.
035803,000056: 21,2034 70107 MASK FLGWRD11
035804,000057: 21,2035 00006 EXTEND
035805,000058: 21,2036 12042 BZF 10,11 # VFLASH OFF
035806,000059:
035807,000060: 21,2037 34751 CA VLITE
035808,000061: 21,2040 54001 TS L
035809,000062: 21,2041 04606 TC FLIP # FLIP V LITE
035810,000063:
035811,000064:
035812,000065: 21,2042 30105 10,11 CA FLAGWRD9 # IS THE LETABORT FLAG SET ?
035813,000066: 21,2043 74743 MASK LETABBIT
035814,000067: 21,2044 00006 EXTEND
035815,000068: 21,2045 12130 BZF LANDISP # NO. PROCEED TO R10.
035816,000069:
035817,000070: 21,2046 41010 P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
035818,000071: 21,2047 62107 AD 1DEC71
035819,000072: 21,2050 00006 EXTEND
|
|
Page 832
|
035821,000074: 21,2051 12130 BZF LANDISP # YES. PROCEED TO R10.
035822,000075:
035823,000076: 21,2052 00006 EXTEND # NO. IS AN ABORT STAGE COMMANDED?
035824,000077: 21,2053 00030 READ CHAN30
035825,000078: 21,2054 40000 COM
035826,000079: 21,2055 54001 TS L
035827,000080: 21,2056 74750 MASK BIT4
035828,000081: 21,2057 10000 CCS A
035829,000082: 21,2060 12076 TCF P71A # YES.
035830,000083:
035831,000084: 21,2061 41010 P70NOW? CS MODREG # NO. ARE WE IN P70 NOW?
035832,000085: 21,2062 62106 AD 1DEC70
035833,000086: 21,2063 00006 EXTEND
035834,000087: 21,2064 12130 BZF LANDISP # YES. PROCEED TO R10.
035835,000088:
035836,000089: 21,2065 30001 CA L # NO. IS AN ABORT COMMANDED?
035837,000090: 21,2066 74753 MASK BIT1
035838,000091: 21,2067 10000 CCS A
035839,000092: 21,2070 12073 TCF P70A # YES.
035840,000093: 21,2071 12130 TCF LANDISP # NO. PROCEED TO R10.
035841,000094:
035842,000095: 21,2072 COUNT* $$/P70
035843,000096:
035844,000097: 21,2072 02110 P70 TC LEGAL?
035845,000098: 21,2073 44755 P70A CS ZERO
035846,000099: 21,2074 12077 TCF +3
035847,000100: 21,2075 02110 P71 TC LEGAL?
035848,000101: 21,2076 34752 P71A CAF TWO
035849,000102: 21,2077 54002 +3 TS Q
035850,000103: 21,2100 00004 INHINT
035851,000104: 21,2101 00006 EXTEND
035852,000105: 21,2102 32105 DCA CNTABTAD
035853,000106: 21,2103 52006 DTCB
035854,000107:
035855,000108: 21,2104 E7,1515 EBANK= DVCNTR
035856,000109: 21,2104 03416 12067 CNTABTAD 2CADR CONTABRT
035857,000110:
035858,000111: 21,2106 00106 1DEC70 DEC 70 B-14
035859,000112: 21,2107 00107 1DEC71 DEC 71 B-14
035860,000113:
035861,000114: 05,3416 BANK 05
035862,000115: 05,2000 SETLOC ABORTS1
035863,000116: 05,2000 BANK
035864,000117: 05,3416 COUNT* $$/P70
035865,000118:
|
|
Page 833
|
035867,000120: 05,3416 33421 CONTABRT CAF ABRTJADR
035868,000121: 05,3417 54017 TS BRUPT
035869,000122: 05,3420 50017 RESUME
035870,000123:
035871,000124: 05,3421 13422 ABRTJADR TCF ABRTJASK
035872,000125:
035873,000126: 05,3422 33502 ABRTJASK CAF OCTAL27
035874,000127: 05,3423 60002 AD Q
035875,000128: 05,3424 54001 TS L
035876,000129: 05,3425 40000 COM
035877,000130: 05,3426 52760 DXCH -PHASE4
035878,000131: 05,3427 50002 INDEX Q
035879,000132: 05,3430 33501 CAF MODE70
035880,000133: 05,3431 55010 TS MODREG
035881,000134:
035882,000135: 05,3432 55162 TS DISPDEX # INSURE DISPDEX IS POSITIVE.
035883,000136:
035884,000137: 05,3433 10002 CCS Q # SET APSFLAG IF P71.
035885,000138: 05,3434 40106 CS FLGWRD10 # SET APSFLAG PRIOR TO THE ENEMA.
035886,000139: 05,3435 74737 MASK APSFLBIT
035887,000140: 05,3436 26106 ADS FLGWRD10
035888,000141: 05,3437 43504 CS DAPBITS # DAPBITS = OCT 40640 = BITS 6,8,9,15
035889,000142: 05,3440 70111 MASK DAPBOOLS # RESET ULLAGE,DRIFT,XOVRIINH,AND PULSES
035890,000143: 05,3441 54111 TS DAPBOOLS
035891,000144:
035892,000145: 05,3442 33505 CAF 1DEGDB # INSURE DAP DEADBAND IS SET TO 1 DEGREE
035893,000146: 05,3443 55343 TS DB
035894,000147:
035895,000148: 05,3444 40101 CS FLAGWRD5 # SET ENGONFLG.
035896,000149: 05,3445 74745 MASK ENGONBIT
035897,000150: 05,3446 26101 ADS FLAGWRD5
035898,000151:
035899,000152: 05,3447 44355 CS PRIO30 # INSURE THAT THE ENGINE IS ON, IF ARMED.
035900,000153: 05,3450 00006 EXTEND
035901,000154: 05,3451 02011 RAND DSALMOUT
035902,000155: 05,3452 64737 AD BIT13
035903,000156: 05,3453 00006 EXTEND
035904,000157: 05,3454 01011 WRITE DSALMOUT
035905,000158:
035906,000159: 05,3455 34735 CAF LRBYBIT # TERMINATE R12.
035907,000160: 05,3456 54107 TS FLGWRD11
035908,000161:
035909,000162: 05,3457 40074 CS FLAGWRD0 # SET R10FLAG TO SUPPRESS OUTPUTS TO THE
035910,000163: 05,3460 74752 MASK R10FLBIT # CROSS-POINTER DISPLAY.
035911,000164: 05,3461 26074 ADS FLAGWRD0 # THE FOLLOWING ENEMA WILL REMOVE THE
035912,000165: # DISPLAY INERTIAL DATA OUTBIT.
035913,000166:
035914,000167: 05,3462 00006 EXTEND # LOAD TEVENT FOR THE DOWNLINK.
035915,000168: 05,3463 30025 DCA TIME2
035916,000169: 05,3464 53342 DXCH TEVENT
035917,000170:
|
|
Page 834
|
035919,000172: 05,3465 00006 EXTEND
035920,000173: 05,3466 33500 DCA SVEXITAD
035921,000174: 05,3467 53252 DXCH AVGEXIT
035922,000175:
035923,000176: 05,3470 02667 TC ABTKLEAN # KILL GROUPS 1,3, AND 6.
035924,000177:
035925,000178: 05,3471 36250 CAF THREE # SET UP 4.3SPOT FOR GOABORT
035926,000179: 05,3472 54001 TS L
035927,000180: 05,3473 40000 COM
035928,000181: 05,3474 52760 DXCH -PHASE4
035929,000182:
035930,000183: 05,3475 04635 TC POSTJUMP
035931,000184: 05,3476 12777 CADR ENEMA
035932,000185:
035933,000186: 05,3477 E7,1515 EBANK= DVCNTR
035934,000187: 05,3477 03636 64067 SVEXITAD 2CADR SERVEXIT
035935,000188:
035936,000189: 05,3501 00106 MODE70 DEC 70 B-14
035937,000190: 05,3502 00027 OCTAL27 OCT 27
035938,000191: 05,3503 00107 MODE71 DEC 71 B-14
035939,000192:
035940,000193: 05,3504 40640 DAPBITS OCT 40640
035941,000194:
035942,000195: 05,3505 00554 1DEGDB OCT 00554
035943,000196: 32,3423 BANK 32
035944,000197: 32,2000 SETLOC ABORTS
035945,000198: 32,2000 BANK
035946,000199:
035947,000200: 32,3423 COUNT* $$/P70
035948,000201:
035949,000202: 32,3423 34751 GOABORT CAF FOUR
035950,000203: 32,3424 55515 TS DVCNTR
035951,000204:
035952,000205: 32,3425 33633 CAF WHICHADR
035953,000206: 32,3426 55455 TS WHICH
035954,000207:
035955,000208: 32,3427 06042 TC INTPRET
035956,000209: 32,3430 43014 CLEAR CLEAR
035957,000210: 32,3431 04665 FLRCS
035958,000211: 32,3432 04265 FLUNDISP
035959,000212: 32,3433 43014 CLEAR SET
035960,000213: 32,3434 03670 IDLEFLAG
035961,000214: 32,3435 06464 ACC4-2FL
035962,000215: 32,3436 45014 SET CALL
035963,000216: 32,3437 04462 P7071FLG
035964,000217: 32,3440 61063 INITCDUW
035965,000218: 32,3441 77776 EXIT
035966,000219:
035967,000220: 32,3442 05332 TC CHECKMM
035968,000221: 32,3443 00106 70DEC DEC 70 B-14
|
|
Page 835
|
035970,000223: 32,3444 13557 TCF P71RET
035971,000224:
035972,000225: 32,3445 06042 P70INIT TC INTPRET
035973,000226: 32,3446 77624 CALL
035974,000227: 32,3447 65606 TGOCOMP
035975,000228: 32,3450 54345 DLOAD SL
035976,000229: 32,3451 34003 MDOTDPS
035977,000230: 32,3452 20205 4D
035978,000231: 32,3453 77665 BDDV
035979,000232: 32,3454 01244 MASS
035980,000233: 32,3455 16237 STODL TBUP
035981,000234: 32,3456 01244 MASS
035982,000235: 32,3457 70471 DDV SR1
035983,000236: 32,3460 16015 K(1/DV)
035984,000237: 32,3461 03635 STORE 1/DV1
035985,000238: 32,3462 03637 STORE 1/DV2
035986,000239: 32,3463 03641 STORE 1/DV3
035987,000240: 32,3464 77665 BDDV
035988,000241: 32,3465 25632 K(AT)
035989,000242: 32,3466 16231 STODL AT
035990,000243: 32,3467 34015 100PCTTO
035991,000244: 32,3470 02235 STORE TTO
035992,000245: 32,3471 57535 SLOAD DCOMP
035993,000246: 32,3472 26002 DPSVEX
035994,000247: 32,3473 77702 SR2
035995,000248: 32,3474 36233 STCALL VE
035996,000249: 32,3475 60272 COMMINIT
035997,000250: 32,3476 77745 INJTARG DLOAD
035998,000251: 32,3477 02564 ABTRDOT
035999,000252: 32,3500 36241 STCALL RDOTD # INITIALIZE RDOTD.
036000,000253: 32,3501 57317 YCOMP # COMPUTE Y
036001,000254: 32,3502 45246 ABS DSU
036002,000255: 32,3503 02562 YLIM # /Y/-DYMAX
036003,000256: 32,3504 75240 BMN SIGN # IF <0, XR<.5DEG, LEAVE YCO AT 0
036004,000257: 32,3505 65510 YOK # IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
036005,000258: 32,3506 02303 Y
036006,000259: 32,3507 03633 STORE YCO
036007,000260: 32,3510 45345 YOK DLOAD DSU
036008,000261: 32,3511 03633 YCO
036009,000262: 32,3512 02303 Y
036010,000263: 32,3513 77661 SR
036011,000264: 32,3514 20606 5D
036012,000265: 32,3515 03643 STORE XRANGE
036013,000266: 32,3516 45014 SET CALL
036014,000267: 32,3517 04461 FLVR
036015,000268: 32,3520 71557 THETCOMP
036016,000269: 32,3521 51025 DSU BPL
036017,000270: 32,3522 02556 THETCRIT
036018,000271: 32,3523 65527 +4
036019,000272: 32,3524 52175 VLOAD GOTO
|
|
Page 836
|
036021,000274: 32,3525 02546 J1PARM
036022,000275: 32,3526 65532 STORPARM
036023,000276: 32,3527 43175 +4 VLOAD SET # IF J2 IS USED, SET THE
036024,000277: 32,3530 02552 J2PARM # ABORT TARGETING FLAG
036025,000278: 32,3531 04470 ABTTGFLG
036026,000279: 32,3532 16616 STORPARM STODL JPARM
036027,000280: 32,3533 03631 RCO
036028,000281: 32,3534 02622 STORE RP
036029,000282: 32,3535 77414 SET EXIT
036030,000283: 32,3536 04471 ROTFLAG
036031,000284:
036032,000285: 32,3537 03615 UPTHROT TC THROTUP
036033,000286:
036034,000287: 32,3540 05364 TC PHASCHNG
036035,000288: 32,3541 04024 OCT 04024
036036,000289:
036037,000290: 32,3542 05515 TC UPFLAG
036038,000291: 32,3543 00216 ADRES FLAP
036039,000292:
036040,000293: 32,3544 04616 UPTHROT1 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
036041,000294: 32,3545 73707 CADR P40AUTO # ARE PROPERLY SET.
036042,000295:
036043,000296: 32,3546 03615 TC THROTUP
036044,000297:
036045,000298: 32,3547 35027 CAF PRIO17 # LET SERVICER FINISH BEFORE CONNECTING
036046,000299: 32,3550 05146 TC PRIOCHNG # ASCENT GUIDANCE EQUATIONS.
036047,000300:
036048,000301: 32,3551 00006 EXTEND
036049,000302: 32,3552 33635 DCA ATMAGAD
036050,000303: 32,3553 53252 DXCH AVGEXIT
036051,000304:
036052,000305: 32,3554 05364 GRP4OFF TC PHASCHNG # TERMINATE USE OF GROUP 4.
036053,000306: 32,3555 00004 OCT 00004
036054,000307:
036055,000308: 32,3556 15155 TCF ENDOFJOB
036056,000309:
036057,000310: 32,3557 05527 P71RET TC DOWNFLAG
036058,000311: 32,3560 00215 ADRES LETABORT
036059,000312:
036060,000313: 32,3561 36000 CAF THRESH2 # SET DVMON THRESHOLD TO THE ASCENT VALUE.
036061,000314: 32,3562 55250 TS DVTHRUSH
036062,000315:
036063,000316: 32,3563 06042 TC INTPRET
036064,000317: 32,3564 77624 CALL
036065,000318: 32,3565 60246 P12INIT
036066,000319: 32,3566 45014 BON CALL
036067,000320: 32,3567 04707 FLAP
036068,000321: 32,3570 65574 OLDTIME
036069,000322: 32,3571 65606 TGOCOMP # IF FLAP=0, TGO=T-TIG
036070,000323: 32,3572 77650 GOTO
|
|
Page 837
|
036072,000325: 32,3573 65476 INJTARG
036073,000326: 32,3574 72545 OLDTIME DLOAD SL1 # IF FLAP=1,TGO=2 TGO
036074,000327: 32,3575 03517 TGO
036075,000328: 32,3576 03502 STORE TGO1
036076,000329: 32,3577 77776 EXIT
036077,000330:
036078,000331: 32,3600 05364 TC PHASCHNG
036079,000332: 32,3601 04024 OCT 04024
036080,000333:
036081,000334: 32,3602 00006 EXTEND
036082,000335: 32,3603 31502 DCA TGO1
036083,000336: 32,3604 53517 DXCH TGO
036084,000337: 32,3605 13544 TCF UPTHROT1
036085,000338:
036086,000339: 32,3606 E7,1501 TGO1 = VGBODY
036087,000340:
036088,000341: # ************************************************************************
036089,000342:
036090,000343: 21,2110 BANK 21
036091,000344: 21,2000 SETLOC R11
036092,000345: 21,2000 BANK
036093,000346:
036094,000347: 21,2110 COUNT* $$/P70
036095,000348:
036096,000349: 21,2110 40774 LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
036097,000350: 21,2111 61010 AD MODREG
036098,000351: 21,2112 00006 EXTEND
036099,000352: 21,2113 12124 BZF ABORTALM
036100,000353:
036101,000354: 21,2114 40105 CS FLAGWRD9 # ARE THE ABORTS ENABLED?
036102,000355: 21,2115 74743 MASK LETABBIT
036103,000356: 21,2116 10000 CCS A
036104,000357: 21,2117 12124 TCF ABORTALM
036105,000358:
036106,000359: 21,2120 30103 CA FLAGWRD7 # IS SERVICER ON THE AIR?
036107,000360: 21,2121 74747 MASK AVEGFBIT
036108,000361: 21,2122 10000 CCS A
036109,000362: 21,2123 00002 TC Q # YES. ALL IS WELL.
036110,000363: 21,2124 04364 ABORTALM TC FALTON
036111,000364: 21,2125 04457 TC RELDSP
036112,000365: 21,2126 04635 TC POSTJUMP
036113,000366: 21,2127 21051 CADR PINBRNCH
036114,000367:
036115,000368: 32,3606 BANK 32
036116,000369: 32,2000 SETLOC ABORTS
036117,000370: 32,2000 BANK
036118,000371:
036119,000372: 32,3606 COUNT* $$/P70
036120,000373:
036121,000374: # ************************************************************************
036122,000375:
036123,000376: 32,3606 45234 TGOCOMP RTB DSU
|
|
Page 838
|
036125,000378: 32,3607 21574 LOADTIME
036126,000379: 32,3610 03442 TIG
036127,000380: 32,3611 77661 SL
036128,000381: 32,3612 20214 11D
036129,000382: 32,3613 03517 STORE TGO
036130,000383: 32,3614 77616 RVQ
036131,000384:
036132,000385: # ************************************************************************
036133,000386:
036134,000387: 32,3615 34737 THROTUP CAF BIT13
036135,000388: 32,3616 54055 TS THRUST
036136,000389: 32,3617 34750 CAF BIT4
036137,000390: 32,3620 00006 EXTEND
036138,000391: 32,3621 05014 WOR CHAN14
036139,000392: 32,3622 00002 TC Q
036140,000393:
036141,000394: # ************************************************************************
036142,000395:
036143,000396: 32,3623 00000 01750 10SECS 2DEC 1000 B-28
036144,000397:
036145,000398: 32,3625 00021 33400 HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS.
036146,000399:
036147,000400: 32,3627 11021 00000 (TGO)A 2DEC 37000 B-17
036148,000401:
036149,000402: 32,3631 00507 25605 K(AT) 2DEC .02 # SCALING CONSTANT
036150,000403:
036151,000404: 32,3633 02114 WHICHADR REMADR ABRTABLE
036152,000405:
036153,000406: # ************************************************************************
036154,000407:
036155,000408: 32,3634 E7,1515 EBANK= DVCNTR
036156,000409: 32,3634 03375 70067 ATMAGAD 2CADR ATMAG
End of include-file P70-P71.agc. Parent file is MAIN.agc