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. |
063742,000002: ## Copyright: Public domain.
063743,000003: ## Filename: KALMAN_FILTER.agc
063744,000004: ## Purpose: A section of Luminary revision 210.
063745,000005: ## It is part of the source code for the Lunar Module's (LM)
063746,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
063747,000007: ## This file is intended to be a faithful transcription, except
063748,000008: ## that the code format has been changed to conform to the
063749,000009: ## requirements of the yaYUL assembler rather than the
063750,000010: ## original YUL assembler.
063751,000011: ## Reference: pp. 1468 - 1469
063752,000012: ## Assembler: yaYUL
063753,000013: ## Contact: Ron Burkey <info@sandroid.org>.
063754,000014: ## Website: www.ibiblio.org/apollo/index.html
063755,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
063756,000016: ## 2016-11-23 AS Transcribed
063757,000017: ## 2016-12-26 RSB Comment-text proofed using ProoferComments
063758,000018: ## and corrected errors found.
063759,000019:
![]() |
Page 1468 |
063761,000021: 17,3777 E6,1522 EBANK= NO.UJETS
063762,000022: 16,3642 BANK 16
063763,000023: 16,2000 SETLOC DAPS1
063764,000024: 16,2000 BANK
063765,000025:
063766,000026: 16,3642 COUNT* $$/DAP
063767,000027:
063768,000028: 16,3642 34743 RATELOOP CA TWO
063769,000029: 16,3643 55743 TS DAPTEMP6
063770,000030: 16,3644 60000 DOUBLE
063771,000031: 16,3645 54002 TS Q
063772,000032: 16,3646 51743 INDEX DAPTEMP6
063773,000033: 16,3647 11524 CCS TJP
063774,000034: 16,3650 13652 TCF +2
063775,000035: 16,3651 13671 TCF LOOPRATE
063776,000036: 16,3652 63732 AD -100MST6
063777,000037: 16,3653 00006 EXTEND
063778,000038: 16,3654 63710 BZMF SMALLTJU
063779,000039: 16,3655 51743 INDEX DAPTEMP6
063780,000040: 16,3656 11524 CCS TJP
063781,000041: 16,3657 33732 CA -100MST6
063782,000042: 16,3660 13662 TCF +2
063783,000043: 16,3661 43732 CS -100MST6
063784,000044: 16,3662 51743 INDEX DAPTEMP6
063785,000045: 16,3663 27524 ADS TJP
063786,000046: 16,3664 51743 INDEX DAPTEMP6
063787,000047: 16,3665 11524 CCS TJP
063788,000048: 16,3666 43616 CS -100MS # 0.1 AT 1
063789,000049: 16,3667 13671 TCF +2
063790,000050: 16,3670 33616 CA -100MS
063791,000051: 16,3671 00006 LOOPRATE EXTEND
063792,000052: 16,3672 51743 INDEX DAPTEMP6
063793,000053: 16,3673 71521 MP NO.PJETS
063794,000054: 16,3674 30001 CA L
063795,000055: 16,3675 51743 INDEX DAPTEMP6
063796,000056: 16,3676 55736 TS DAPTEMP1 # SIGNED TORQUE AT 1 JET-SEC FOR FILTER
063797,000057: 16,3677 00006 EXTEND
063798,000058: 16,3700 74733 MP BIT10 # RESCALE TO 32; ONE BIT ABOUT 2 JET-MSEC
063799,000059: 16,3701 00006 EXTEND
063800,000060: 16,3702 63733 BZMF NEGTORK
063801,000061: 16,3703 50002 STORTORK INDEX Q # INCREMENT DOWNLIST REGISTER.
063802,000062: 16,3704 27513 ADS DOWNTORK # NOTE: NOT INITIALIZED; OVERFLOWS.
063803,000063:
063804,000064: 16,3705 11743 CCS DAPTEMP6
063805,000065: 16,3706 13643 TCF RATELOOP +1
063806,000066: 16,3707 13717 TCF ROTORQUE
063807,000067: 16,3710 34746 SMALLTJU CA ZERO
063808,000068: 16,3711 51743 INDEX DAPTEMP6
063809,000069: 16,3712 57524 XCH TJP
063810,000070: 16,3713 00006 EXTEND
![]() |
Page 1469 |
063812,000072: 16,3714 74751 MP ELEVEN # 10.24 PLUS
063813,000073: 16,3715 30001 CA L
063814,000074: 16,3716 13671 TCF LOOPRATE
063815,000075: 16,3717 31737 ROTORQUE CA DAPTEMP2
063816,000076: 16,3720 61740 AD DAPTEMP3
063817,000077: 16,3721 00006 EXTEND
063818,000078: 16,3722 71532 MP 1JACCR
063819,000079: 16,3723 55746 TS JETRATER
063820,000080: 16,3724 41740 CS DAPTEMP3
063821,000081: 16,3725 61737 AD DAPTEMP2
063822,000082: 16,3726 00006 EXTEND
063823,000083: 16,3727 71531 MP 1JACCQ
063824,000084: 16,3730 55745 TS JETRATEQ
063825,000085: 16,3731 12322 TCF BACKP
063826,000086: 16,3732 77537 -100MST6 DEC -160 B-14
063827,000087:
063828,000088: 16,3733 40000 NEGTORK COM
063829,000089: 16,3734 24002 INCR Q
063830,000090: 16,3735 13703 TCF STORTORK
063831,000091:
End of include-file KALMAN_FILTER.agc. Parent file is MAIN.agc