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. |
063841,000002: ## Copyright: Public domain.
063842,000003: ## Filename: KALMAN_FILTER.agc
063843,000004: ## Purpose: The main source file for Luminary revision 069.
063844,000005: ## It is part of the source code for the original release
063845,000006: ## of the flight software for the Lunar Module's (LM) Apollo
063846,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
063847,000008: ## version was Luminary 69 revision 2, which included a
063848,000009: ## newer lunar gravity model and only affected module 2.
063849,000010: ## This file is intended to be a faithful transcription, except
063850,000011: ## that the code format has been changed to conform to the
063851,000012: ## requirements of the yaYUL assembler rather than the
063852,000013: ## original YUL assembler.
063853,000014: ## Reference: pp. 1465-1466
063854,000015: ## Assembler: yaYUL
063855,000016: ## Contact: Ron Burkey <info@sandroid.org>.
063856,000017: ## Website: www.ibiblio.org/apollo/index.html
063857,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
063858,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
063859,000020: ## 2016-12-22 IJK Updated for Luminary 69.
063860,000021: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
063861,000022: ## but no errors found.
063862,000023:
![]() |
Page 1465 |
063864,000025: 17,3700 E6,1522 EBANK= NO.UJETS
063865,000026: 16,3624 BANK 16
063866,000027: 16,2000 SETLOC DAPS1
063867,000028: 16,2000 BANK
063868,000029:
063869,000030: 16,3624 COUNT* $$/DAP
063870,000031:
063871,000032: 16,3624 34752 RATELOOP CA TWO
063872,000033: 16,3625 55742 TS DAPTEMP6
063873,000034: 16,3626 60000 DOUBLE
063874,000035: 16,3627 54002 TS Q
063875,000036: 16,3630 51742 INDEX DAPTEMP6
063876,000037: 16,3631 11524 CCS TJP
063877,000038: 16,3632 13634 TCF +2
063878,000039: 16,3633 13653 TCF LOOPRATE
063879,000040: 16,3634 63714 AD -100MST6
063880,000041: 16,3635 00006 EXTEND
063881,000042: 16,3636 63672 BZMF SMALLTJU
063882,000043: 16,3637 51742 INDEX DAPTEMP6
063883,000044: 16,3640 11524 CCS TJP
063884,000045: 16,3641 33714 CA -100MST6
063885,000046: 16,3642 13644 TCF +2
063886,000047: 16,3643 43714 CS -100MST6
063887,000048: 16,3644 51742 INDEX DAPTEMP6
063888,000049: 16,3645 27524 ADS TJP
063889,000050: 16,3646 51742 INDEX DAPTEMP6
063890,000051: 16,3647 11524 CCS TJP
063891,000052: 16,3650 43600 CS -100MS # 0.1 AT 1
063892,000053: 16,3651 13653 TCF +2
063893,000054: 16,3652 33600 CA -100MS
063894,000055: 16,3653 00006 LOOPRATE EXTEND
063895,000056: 16,3654 51742 INDEX DAPTEMP6
063896,000057: 16,3655 71521 MP NO.PJETS
063897,000058: 16,3656 30001 CA L
063898,000059: 16,3657 51742 INDEX DAPTEMP6
063899,000060: 16,3660 55735 TS DAPTEMP1 # SIGNED TORQUE AT 1 JET-SEC FOR FILTER
063900,000061: 16,3661 00006 EXTEND
063901,000062: 16,3662 74742 MP BIT10 # RESCALE TO 32; ONE BIT ABOUT 2 JET-MSEC
063902,000063: 16,3663 00006 EXTEND
063903,000064: 16,3664 63715 BZMF NEGTORK
063904,000065: 16,3665 50002 STORTORK INDEX Q # INCREMENT DOWNLIST REGISTER.
063905,000066: 16,3666 27513 ADS DOWNTORK # NOTE: NOT INITIALIZED; OVERFLOWS.
063906,000067:
063907,000068: 16,3667 11742 CCS DAPTEMP6
063908,000069: 16,3670 13625 TCF RATELOOP +1
063909,000070: 16,3671 13701 TCF ROTORQUE
063910,000071: 16,3672 34755 SMALLTJU CA ZERO
063911,000072: 16,3673 51742 INDEX DAPTEMP6
063912,000073: 16,3674 57524 XCH TJP
063913,000074: 16,3675 00006 EXTEND
![]() |
Page 1466 |
063915,000076: 16,3676 74760 MP ELEVEN # 10.24 PLUS
063916,000077: 16,3677 30001 CA L
063917,000078: 16,3700 13653 TCF LOOPRATE
063918,000079: 16,3701 31736 ROTORQUE CA DAPTEMP2
063919,000080: 16,3702 61737 AD DAPTEMP3
063920,000081: 16,3703 00006 EXTEND
063921,000082: 16,3704 71532 MP 1JACCR
063922,000083: 16,3705 55745 TS JETRATER
063923,000084: 16,3706 41737 CS DAPTEMP3
063924,000085: 16,3707 61736 AD DAPTEMP2
063925,000086: 16,3710 00006 EXTEND
063926,000087: 16,3711 71531 MP 1JACCQ
063927,000088: 16,3712 55744 TS JETRATEQ
063928,000089: 16,3713 12305 TCF BACKP
063929,000090: 16,3714 77537 -100MST6 DEC -160 B-14
063930,000091:
063931,000092: 16,3715 40000 NEGTORK COM
063932,000093: 16,3716 24002 INCR Q
063933,000094: 16,3717 13665 TCF STORTORK
063934,000095:
063935,000096:
End of include-file KALMAN_FILTER.agc. Parent file is MAIN.agc