Source Code
|
These source-code files are part of a reconstructed copy of Luminary 173, the
second (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 178. Changes
between revision 173 and 178 were backed out, as described by Luminary memo 167
(revision 1). 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 173 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.
|
021408,000002: ## Copyright: Public domain.
021409,000003: ## Filename: S-BAND_ANTENNA_FOR_LM.agc
021410,000004: ## Purpose: A section of Luminary revision 173.
021411,000005: ## It is part of the reconstructed source code for the second
021412,000006: ## (unflown) release of the flight software for the Lunar
021413,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
021414,000008: ## The code has been recreated from a reconstructed copy of
021415,000009: ## Luminary 178, as well as Luminary memo 167 (revision 1).
021416,000010: ## It has been adapted such that the resulting bugger words
021417,000011: ## exactly match those specified for Luminary 173 in NASA
021418,000012: ## drawing 2021152N, which gives relatively high confidence
021419,000013: ## that the reconstruction is correct.
021420,000014: ## Reference: pp. 494-497
021421,000015: ## Assembler: yaYUL
021422,000016: ## Contact: Ron Burkey <info@sandroid.org>.
021423,000017: ## Website: www.ibiblio.org/apollo/index.html
021424,000018: ## Mod history: 2019-09-18 MAS Created from Luminary 178.
021425,000019:
|
|
Page 494
|
021427,000021: # SUBROUTINE NAME: R05 - S-BAND ANTENNA FOR LM
021428,000022:
021429,000023: # MOD0 BY T. JAMES
021430,000024: # MOD1 BY P. SHAKIR
021431,000025:
021432,000026: # FUNCTIONAL DESCRIPTION
021433,000027:
021434,000028: # THE S-BAND ANTENNA ROUTINE, R05, COMPUTES AND DISPLAYS THE PITCH AND
021435,000029: # YAW ANTENNA GIMBAL ANGLES REQUIRED TO POINT THE LM STEERABLE ANTENNA
021436,000030: # TOWARD THE CENTER OF THE EARTH. THIS ROUTINE IS SELECTED BY THE ASTRO-
021437,000031: # NAUT VIA DSKY ENTRY DURING COASTING FLIGHT OR WHEN THE LM IS ON THE MOON
021438,000032: # SURFACE. THE EARTH OR MOON REFERENCE COORDINATE SYSTEM IS USED DEPENDING
021439,000033: # ON WHETHER THE LM IS ABOUT TO ENTER OR HAS ALREADY ENTERED THE MOON
021440,000034: # SPHERE OF INFLUENCE, RESPECTIVELY. CAN BE CALLED ANY TIME EXCEPT WHEN
021441,000035: # ANOTHER EXTENDED VERB IS IN USE. DISPLAY IS MEANINGLESS WITH IMU OFF.
021442,000036:
021443,000037: # TO CALL SUBROUTINE, ASTRONAUT KEYS IN V 64 E
021444,000038:
021445,000039: # SUBROUTINES CALLED-
021446,000040:
021447,000041: # INTPRET
021448,000042: # LOADTIME
021449,000043: # LEMCONIC
021450,000044: # LUNPOS
021451,000045: # CDUTRIG
021452,000046: # *SMNB*
021453,000047: # BANKCALL
021454,000048: # B5OFF
021455,000049: # ENDOFJOB
021456,000050: # BLANKET
021457,000051:
021458,000052: # RETURNS WITH
021459,000053:
021460,000054: # PITCH ANGLE IN PITCHANG REV. B0
021461,000055: # YAW ANGLE IN YAWANG REV. B0
021462,000056:
021463,000057: # ERASABLES USED
021464,000058:
021465,000059: # PITCHANG
021466,000060: # YAWANG
021467,000061: # RLM
021468,000062: # VAC AREA
021469,000063:
021470,000064: 41,3755 BANK 41
021471,000065: 42,2000 SETLOC SBAND
021472,000066: 42,2000 BANK
021473,000067:
021474,000068: 42,3606 E7,1471 EBANK= WHOCARES
021475,000069: 42,3606 COUNT* $$/R05
021476,000070: 42,3606 06042 SBANDANT TC INTPRET
|
|
Page 495
|
021478,000072: 42,3607 47001 SETPD RTB
021479,000073: 42,3610 00001 0D
021480,000074: 42,3611 21574 LOADTIME # PICK UP CURRENT TIME
021481,000075: 42,3612 34041 STCALL TDEC1 # ADVANCE INTEGRATION TO TIME IN TDEC1
021482,000076: 42,3613 27077 LEMCONIC # USING CONIC INTEGRATION
021483,000077: 42,3614 46135 SLOAD BHIZ
021484,000078: 42,3615 00050 X2 # X2 =0 EARTH SPHERE, X2 =2 MOON SPHERE
021485,000079: 42,3616 65634 CONV4
021486,000080: 42,3617 77775 VLOAD
021487,000081: 42,3620 00001 RATT
021488,000082: 42,3621 16205 STODL RLM
021489,000083: 42,3622 00015 TAT
021490,000084: 42,3623 77624 CONV3 CALL
021491,000085: 42,3624 33660 LUNPOS # UNIT POSITION VECTOR FROM EARTH TO MOON
021492,000086: 42,3625 74375 VLOAD VXSC
021493,000087: 42,3626 02723 VMOON
021494,000088: 42,3627 24001 REMDIST # MEAN DISTANCE FROM EARTH TO MOON
021495,000089: 42,3630 53372 VSL1 VAD
021496,000090: 42,3631 02205 RLM
021497,000091: 42,3632 77650 GOTO
021498,000092: 42,3633 65636 CONV5
021499,000093: 42,3634 77775 CONV4 VLOAD
021500,000094: 42,3635 00001 RATT # UE = -UNIT(RATT) EARTH SPHERE
021501,000095: 42,3636 53401 CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE
021502,000096: 42,3637 00001 0D # SET PL POINTER TO 0
021503,000097: 42,3640 45076 VCOMP CALL
021504,000098: 42,3641 47535 CDUTRIG # COMPUTE SINES AND COSINES OF CDU ANGLES
021505,000099: 42,3642 76521 MXV VSL1 # TRANSFORM REF. COORDINATE SYSTEM TO
021506,000100: 42,3643 01732 REFSMMAT # STABLE MEMBER B-1 X B-1 X B+1 = B-1
021507,000101: 42,3644 71206 PUSH DLOAD # 8D
021508,000102: 42,3645 06520 HI6ZEROS
021509,000103: 42,3646 02201 STORE PITCHANG
021510,000104: 42,3647 26203 STOVL YAWANG # ZERO OUT ANGLES
021511,000105: 42,3650 77624 CALL
021512,000106: 42,3651 47676 *SMNB*
021513,000107: 42,3652 16205 STODL RLM # PRE-MULTIPLY RLM BY (NBSA) MATRIX(B0)
021514,000108: 42,3653 02207 RLM +2
021515,000109: 42,3654 45206 PUSH DSU
021516,000110: 42,3655 02205 RLM
021517,000111: 42,3656 77605 DMP
021518,000112: 42,3657 25767 1OVSQRT2
021519,000113: 42,3660 16207 STODL RLM +2
021520,000114: 42,3661 41215 DAD DMP
021521,000115: 42,3662 02205 RLM
021522,000116: 42,3663 25767 1OVSQRT2
021523,000117: 42,3664 26205 STOVL RLM # R B-1
021524,000118: 42,3665 02205 RLM
021525,000119: 42,3666 63256 UNIT PDVL
021526,000120: 42,3667 02205 RLM
021527,000121: 42,3670 72431 VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE
|
|
Page 496
|
021529,000123: 42,3671 06514 HIUNITY
021530,000124: 42,3672 40045 BVSU BOV # CLEAR OVERFLOW INDICATOR IF ON
021531,000125: 42,3673 02205 RLM
021532,000126: 42,3674 65675 COVCNV
021533,000127: 42,3675 40056 COVCNV UNIT BOV # EXIT ON OVERFLOW
021534,000128: 42,3676 65743 SBANDEX
021535,000129: 42,3677 47206 PUSH VXV # URP VECTOR B-1
021536,000130: 42,3700 06512 HIUNITZ
021537,000131: 42,3701 57572 VSL1 VCOMP # UZ X URP = -(URP X UZ)
021538,000132: 42,3702 02205 STORE RLM # X VEC B-1
021539,000133: 42,3703 63241 DOT PDVL # SGN(X.UY) UNSCALED
021540,000134: 42,3704 06514 HIUNITY
021541,000135: 42,3705 02205 RLM
021542,000136: 42,3706 75246 ABVAL SIGN
021543,000137: 42,3707 77736 ASIN # ASIN((SGN(X.UY))ABV(X)) REV B0
021544,000138: 42,3710 26201 STOVL PITCHANG
021545,000139: 42,3711 00007 URP
021546,000140: 42,3712 51041 DOT BPL
021547,000141: 42,3713 06512 HIUNITZ
021548,000142: 42,3714 65721 NOADJUST # YES, -90 TO +90
021549,000143: 42,3715 45345 DLOAD DSU
021550,000144: 42,3716 06516 HIDPHALF
021551,000145: 42,3717 02201 PITCHANG
021552,000146: 42,3720 02201 STORE PITCHANG
021553,000147: 42,3721 47375 NOADJUST VLOAD VXV
021554,000148: 42,3722 00001 UR # Z = (UR X URP)
021555,000149: 42,3723 00007 URP
021556,000150: 42,3724 77772 VSL1
021557,000151: 42,3725 16205 STODL RLM # Z VEC B-1
021558,000152: 42,3726 02201 PITCHANG
021559,000153: 42,3727 74356 SIN VXSC
021560,000154: 42,3730 06512 HIUNITZ
021561,000155: 42,3731 71525 PDDL COS
021562,000156: 42,3732 02201 PITCHANG
021563,000157: 42,3733 52361 VXSC VSU
021564,000158: 42,3734 06516 HIUNITX # (UX COS ALPHA) - (UZ SIN ALPHA)
021565,000159: 42,3735 63241 DOT PDVL # YAW.Z
021566,000160: 42,3736 02205 RLM
021567,000161: 42,3737 02205 RLM
021568,000162: 42,3740 75246 ABVAL SIGN
021569,000163: 42,3741 77736 ASIN
021570,000164: 42,3742 02203 STORE YAWANG
021571,000165: 42,3743 77776 SBANDEX EXIT
021572,000166: 42,3744 31043 CA EXTVBACT
021573,000167: 42,3745 74747 MASK BIT5 # IS BIT5 STILL ON
021574,000168: 42,3746 00006 EXTEND
021575,000169: 42,3747 15503 BZF ENDEXT # NO
021576,000170: 42,3750 35017 CAF PRIO5
021577,000171: 42,3751 05146 TC PRIOCHNG
021578,000172: 42,3752 33765 CAF V06N51 # DISPLAY ANGLES
021579,000173:
|
|
Page 497
|
021581,000175: 42,3753 04616 TC BANKCALL
021582,000176: 42,3754 20353 CADR GOMARKFR
021583,000177: 42,3755 05574 TC B5OFF # TERMINATE
021584,000178: 42,3756 05574 TC B5OFF # PROCEED
021585,000179: 42,3757 05155 TC ENDOFJOB # RECYCLE
021586,000180: 42,3760 34751 CAF BIT3 # IMMEDIATE RETURN
021587,000181: 42,3761 05475 TC BLANKET # BLANK R3
021588,000182: 42,3762 34740 CAF PRIO4
021589,000183: 42,3763 05146 TC PRIOCHNG
021590,000184: 42,3764 03606 TC SBANDANT # YES, CONTINUE DISPLAYING ANGLES.
021591,000185: 42,3765 01463 V06N51 VN 0651
021592,000186: 42,3766 26501 07463 1OVSQRT2 2DEC .7071067815 # 1/SQRT(2)
021593,000187:
021594,000188: 42,3770 UR EQUALS 0D
021595,000189: 42,3770 URP EQUALS 6D
021596,000190: 42,3770 30,2000 SBANK= LOWSUPER
End of include-file S-BAND_ANTENNA_FOR_LM.agc. Parent file is MAIN.agc