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