Source Code
|
These source-code files are part of a reconstructed copy of Luminary 98, a
development version of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Luminary 99 revision 1 previously
transcribed from a digitized copy of that program. The code was then updated
by undoing changes described in original Luminary memo 85, using asterisks
indicating changed lines in the listing as a guide. While no listing of this
version is known to exist, nor are the memory-bank checksums available,
the reconstruction is believed to be correct because it was an an intermediate
step in reconstructing Luminary 97 whose reconstruction was
verified by matching memory-bank checksums to those listed in drawing 2021152G.
Note that page numbers in the reconstructed code match those on the Luminary 099
revision 001 printout, although the added code would likely have changed page
numbers for a real Luminary 98 listing.
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.
|
061934,000002: ## Copyright: Public domain.
061935,000003: ## Filename: KALMAN_FILTER.agc
061936,000004: ## Purpose: A section of Luminary revision 98.
061937,000005: ## It is part of the reconstructed source code for the a
061938,000006: ## development version of the flight software for the Lunar
061939,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
061940,000008: ## The code has been recreated from a copy of Luminary 99
061941,000009: ## revision 001, using asterisks indicating changed lines in
061942,000010: ## the listing and Luminary Memo #85, which lists changes between
061943,000011: ## Luminary 98 and 99.
061944,000012: ## Reference: pp. 1470-1471
061945,000013: ## Assembler: yaYUL
061946,000014: ## Contact: Ron Burkey <info@sandroid.org>.
061947,000015: ## Website: www.ibiblio.org/apollo/index.html
061948,000016: ## Mod history: 2019-07-28 MAS Created from Luminary 99.
061949,000017:
|
|
Page 1470
|
061951,000019: 17,3744 E6,1522 EBANK= NO.UJETS
061952,000020: 16,3641 BANK 16
061953,000021: 16,2000 SETLOC DAPS1
061954,000022: 16,2000 BANK
061955,000023:
061956,000024: 16,3641 COUNT* $$/DAP
061957,000025:
061958,000026: 16,3641 34752 RATELOOP CA TWO
061959,000027: 16,3642 55744 TS DAPTEMP6
061960,000028: 16,3643 60000 DOUBLE
061961,000029: 16,3644 54002 TS Q
061962,000030: 16,3645 51744 INDEX DAPTEMP6
061963,000031: 16,3646 11524 CCS TJP
061964,000032: 16,3647 13651 TCF +2
061965,000033: 16,3650 13670 TCF LOOPRATE
061966,000034: 16,3651 63731 AD -100MST6
061967,000035: 16,3652 00006 EXTEND
061968,000036: 16,3653 63707 BZMF SMALLTJU
061969,000037: 16,3654 51744 INDEX DAPTEMP6
061970,000038: 16,3655 11524 CCS TJP
061971,000039: 16,3656 33731 CA -100MST6
061972,000040: 16,3657 13661 TCF +2
061973,000041: 16,3660 43731 CS -100MST6
061974,000042: 16,3661 51744 INDEX DAPTEMP6
061975,000043: 16,3662 27524 ADS TJP
061976,000044: 16,3663 51744 INDEX DAPTEMP6
061977,000045: 16,3664 11524 CCS TJP
061978,000046: 16,3665 43615 CS -100MS # 0.1 AT 1
061979,000047: 16,3666 13670 TCF +2
061980,000048: 16,3667 33615 CA -100MS
061981,000049: 16,3670 00006 LOOPRATE EXTEND
061982,000050: 16,3671 51744 INDEX DAPTEMP6
061983,000051: 16,3672 71521 MP NO.PJETS
061984,000052: 16,3673 30001 CA L
061985,000053: 16,3674 51744 INDEX DAPTEMP6
061986,000054: 16,3675 55737 TS DAPTEMP1 # SIGNED TORQUE AT 1 JET-SEC FOR FILTER
061987,000055: 16,3676 00006 EXTEND
061988,000056: 16,3677 74742 MP BIT10 # RESCALE TO 32; ONE BIT ABOUT 2 JET-MSEC
061989,000057: 16,3700 00006 EXTEND
061990,000058: 16,3701 63732 BZMF NEGTORK
061991,000059: 16,3702 50002 STORTORK INDEX Q # INCREMENT DOWNLIST REGISTER.
061992,000060: 16,3703 27513 ADS DOWNTORK # NOTE: NOT INITIALIZED; OVERFLOWS.
061993,000061:
061994,000062: 16,3704 11744 CCS DAPTEMP6
061995,000063: 16,3705 13642 TCF RATELOOP +1
061996,000064: 16,3706 13716 TCF ROTORQUE
061997,000065: 16,3707 34755 SMALLTJU CA ZERO
061998,000066: 16,3710 51744 INDEX DAPTEMP6
061999,000067: 16,3711 57524 XCH TJP
062000,000068: 16,3712 00006 EXTEND
|
|
Page 1471
|
062002,000070: 16,3713 74760 MP ELEVEN # 10.24 PLUS
062003,000071: 16,3714 30001 CA L
062004,000072: 16,3715 13670 TCF LOOPRATE
062005,000073: 16,3716 31740 ROTORQUE CA DAPTEMP2
062006,000074: 16,3717 61741 AD DAPTEMP3
062007,000075: 16,3720 00006 EXTEND
062008,000076: 16,3721 71532 MP 1JACCR
062009,000077: 16,3722 55747 TS JETRATER
062010,000078: 16,3723 41741 CS DAPTEMP3
062011,000079: 16,3724 61740 AD DAPTEMP2
062012,000080: 16,3725 00006 EXTEND
062013,000081: 16,3726 71531 MP 1JACCQ
062014,000082: 16,3727 55746 TS JETRATEQ
062015,000083: 16,3730 12316 TCF BACKP
062016,000084: 16,3731 77537 -100MST6 DEC -160 B-14
062017,000085:
062018,000086: 16,3732 40000 NEGTORK COM
062019,000087: 16,3733 24002 INCR Q
062020,000088: 16,3734 13702 TCF STORTORK
062021,000089:
062022,000090:
End of include-file KALMAN_FILTER.agc. Parent file is MAIN.agc