Source Code
|
This is a reconstructed version of Luminary 130, the initial AGC program released
in November 1969 for the Apollo 13 LM. Three more releases
followed before the flown revision was finally manufactured in February 1970.
This reconstruction was created from a previous transcription of the original listing of
Luminary 131, combined with Luminary memo #129 which describes the small difference
between the Luminary 130 and 131. The reconstructed source code was verified by
matching memory-bank checksums to those listed for Luminary 130 in drawing 2021152G.
In this source code, program comments from the original (Luminary 131) code are
prefixed with '#', while those added later by the Virtual AGC project are prefixed
with '##'.
|
020887,000002: ## Copyright: Public domain.
020888,000003: ## Filename: S-BAND_ANTENNA_FOR_LM.agc
020889,000004: ## Purpose: A section of the reconstructed source code for Luminary 130.
020890,000005: ## This was the original program released for the Apollo 13 LM,
020891,000006: ## although several more revisions would follow. It has been
020892,000007: ## reconstructed from a listing of Luminary 131, from which it
020893,000008: ## differs on only two lines in P70-P71. The difference is
020894,000009: ## described in detail in Luminary memo #129, which was used
020895,000010: ## to perform the reconstruction. This file is intended to be a
020896,000011: ## faithful reconstruction, except that the code format has been
020897,000012: ## changed to conform to the requirements of the yaYUL assembler
020898,000013: ## rather than the original YUL assembler.
020899,000014: ## Reference: pp. 490-493
020900,000015: ## Contact: Ron Burkey <info@sandroid.org>.
020901,000016: ## Website: www.ibiblio.org/apollo/index.html
020902,000017: ## Mod history: 05/14/03 RSB. Began transcribing.
020903,000018: ## 05/14/05 RSB Corrected website references above.
020904,000019: ## 2017-01-06 RSB Page numbers now agree with those on the
020905,000020: ## original harcopy, as opposed to the PDF page
020906,000021: ## numbers in 1701.pdf.
020907,000022: ## 2017-02-24 RSB Proofed comment text using octopus/ProoferComments.
020908,000023: ## 2018-09-04 MAS Copied from Luminary 131 for Luminary 130.
020909,000024:
|
|
Page 490
|
020911,000026: # SUBROUTINE NAME: R05 - S-BAND ANTENNA FOR LM
020912,000027:
020913,000028: # MOD0 BY T. JAMES
020914,000029: # MOD1 BY P. SHAKIR
020915,000030:
020916,000031: # FUNCTIONAL DESCRIPTION
020917,000032:
020918,000033: # THE S-BAND ANTENNA ROUTINE, R05, COMPUTES AND DISPLAYS THE PITCH AND
020919,000034: # YAW ANTENNA GIMBAL ANGLES REQUIRED TO POINT THE LM STEERABLE ANTENNA
020920,000035: # TOWARD THE CENTER OF THE EARTH. THIS ROUTINE IS SELECTED BY THE ASTRO-
020921,000036: # NAUT VIA DSKY ENTRY DURING COASTING FLIGHT OR WHEN THE LM IS ON THE MOON
020922,000037: # SURFACE. THE EARTH OR MOON REFERENCE COORDINATE SYSTEM IS USED DEPENDING
020923,000038: # ON WHETHER THE LM IS ABOUT TO ENTER OR HAS ALREADY ENTERED THE MOON
020924,000039: # SPHERE OF INFLUENCE, RESPECTIVELY. CAN BE CALLED ANY TIME EXCEPT WHEN
020925,000040: # ANOTHER EXTENDED VERB IS IN USE. DISPLAY IS MEANINGLESS WITH IMU OFF.
020926,000041:
020927,000042: # TO CALL SUBROUTINE, ASTRONAUT KEYS IN V 64 E
020928,000043:
020929,000044: # SUBROUTINES CALLED -
020930,000045: # INTPRET
020931,000046: # LOADTIME
020932,000047: # LEMCONIC
020933,000048: # LUNPOS
020934,000049: # CDUTRIG
020935,000050: # *SMNB*
020936,000051: # BANKCALL
020937,000052: # B5OFF
020938,000053: # ENDOFJOB
020939,000054: # BLANKET
020940,000055:
020941,000056: # RETURNS WITH
020942,000057: # PITCH ANGLE IN PITCHANG REV. B0
020943,000058: # YAW ANGLE IN YAWANG REV. B0
020944,000059:
020945,000060: # ERASABLES USED
020946,000061: # PITCHANG
020947,000062: # YAWANG
020948,000063: # RLM
020949,000064: # VAC AREA
020950,000065:
020951,000066: 41,3750 BANK 41
020952,000067: 42,2000 SETLOC SBAND
020953,000068: 42,2000 BANK
020954,000069:
020955,000070: 42,3606 E7,1471 EBANK= WHOCARES
020956,000071: 42,3606 COUNT* $$/R05
020957,000072: 42,3606 06042 SBANDANT TC INTPRET
|
|
Page 491
|
020959,000074: 42,3607 47001 SETPD RTB
020960,000075: 42,3610 00001 0D
020961,000076: 42,3611 21574 LOADTIME # PICK UP CURRENT TIME
020962,000077: 42,3612 34041 STCALL TDEC1 # ADVANCE INTEGRATION TO TIME IN TDEC1
020963,000078: 42,3613 27077 LEMCONIC # USING CONIC INTEGRATION
020964,000079: 42,3614 46135 SLOAD BHIZ
020965,000080: 42,3615 00050 X2 # X2 =0 EARTH SPHERE, X2 =2 MOON SPHERE
020966,000081: 42,3616 65634 CONV4
020967,000082: 42,3617 77775 VLOAD
020968,000083: 42,3620 00001 RATT
020969,000084: 42,3621 16205 STODL RLM
020970,000085: 42,3622 00015 TAT
020971,000086: 42,3623 77624 CONV3 CALL
020972,000087: 42,3624 33647 LUNPOS # UNIT POSITION VECTOR FROM EARTH TO MOON
020973,000088: 42,3625 74375 VLOAD VXSC
020974,000089: 42,3626 02723 VMOON
020975,000090: 42,3627 24001 REMDIST # MEAN DISTANCE FROM EARTH TO MOON
020976,000091: 42,3630 53372 VSL1 VAD
020977,000092: 42,3631 02205 RLM
020978,000093: 42,3632 77650 GOTO
020979,000094: 42,3633 65636 CONV5
020980,000095: 42,3634 77775 CONV4 VLOAD
020981,000096: 42,3635 00001 RATT # UE = -UNIT(RATT) EARTH SPHERE
020982,000097: 42,3636 53401 CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE
020983,000098: 42,3637 00001 0D # SET PL POINTER TO 0
020984,000099: 42,3640 45076 VCOMP CALL
020985,000100: 42,3641 47541 CDUTRIG # COMPUTE SINES AND COSINES OF CDU ANGLES
020986,000101: 42,3642 76521 MXV VSL1 # TRANSFORM REF. COORDINATE SYSTEM TO
020987,000102: 42,3643 01734 REFSMMAT # STABLE MEMBER B-1 X B-1 X B+1 = B-1
020988,000103: 42,3644 71206 PUSH DLOAD # 8D
020989,000104: 42,3645 06524 HI6ZEROS
020990,000105: 42,3646 02201 STORE PITCHANG
020991,000106: 42,3647 26203 STOVL YAWANG # ZERO OUT ANGLES
020992,000107: 42,3650 77624 CALL
020993,000108: 42,3651 47673 *SMNB*
020994,000109: 42,3652 16205 STODL RLM # PRE-MULTIPLY RLM BY (NBSA) MATRIX(B0)
020995,000110: 42,3653 02207 RLM +2
020996,000111: 42,3654 45206 PUSH DSU
020997,000112: 42,3655 02205 RLM
020998,000113: 42,3656 77605 DMP
020999,000114: 42,3657 25767 1OVSQRT2
021000,000115: 42,3660 16207 STODL RLM +2
021001,000116: 42,3661 41215 DAD DMP
021002,000117: 42,3662 02205 RLM
021003,000118: 42,3663 25767 1OVSQRT2
021004,000119: 42,3664 26205 STOVL RLM # R B-1
021005,000120: 42,3665 02205 RLM
021006,000121: 42,3666 63256 UNIT PDVL
021007,000122: 42,3667 02205 RLM
021008,000123: 42,3670 72431 VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE
|
|
Page 492
|
021010,000125: 42,3671 06520 HIUNITY
021011,000126: 42,3672 40045 BVSU BOV # CLEAR OVERFLOW INDICATOR IF ON
021012,000127: 42,3673 02205 RLM
021013,000128: 42,3674 65675 COVCNV
021014,000129: 42,3675 40056 COVCNV UNIT BOV # EXIT ON OVERFLOW
021015,000130: 42,3676 65743 SBANDEX
021016,000131: 42,3677 47206 PUSH VXV # URP VECTOR B-1
021017,000132: 42,3700 06516 HIUNITZ
021018,000133: 42,3701 57572 VSL1 VCOMP # UZ X URP = -(URP X UZ)
021019,000134: 42,3702 02205 STORE RLM # X VEC B-1
021020,000135: 42,3703 63241 DOT PDVL # SGN(X.UY) UNSCALED
021021,000136: 42,3704 06520 HIUNITY
021022,000137: 42,3705 02205 RLM
021023,000138: 42,3706 75246 ABVAL SIGN
021024,000139: 42,3707 77736 ASIN # ASIN((SGN(X.UY))ABV(X)) REV B0
021025,000140: 42,3710 26201 STOVL PITCHANG
021026,000141: 42,3711 00007 URP
021027,000142: 42,3712 51041 DOT BPL
021028,000143: 42,3713 06516 HIUNITZ
021029,000144: 42,3714 65721 NOADJUST # YES, -90 TO +90
021030,000145: 42,3715 45345 DLOAD DSU
021031,000146: 42,3716 06522 HIDPHALF
021032,000147: 42,3717 02201 PITCHANG
021033,000148: 42,3720 02201 STORE PITCHANG
021034,000149: 42,3721 47375 NOADJUST VLOAD VXV
021035,000150: 42,3722 00001 UR # Z = (UR X URP)
021036,000151: 42,3723 00007 URP
021037,000152: 42,3724 77772 VSL1
021038,000153: 42,3725 16205 STODL RLM # Z VEC B-1
021039,000154: 42,3726 02201 PITCHANG
021040,000155: 42,3727 74356 SIN VXSC
021041,000156: 42,3730 06516 HIUNITZ
021042,000157: 42,3731 71525 PDDL COS
021043,000158: 42,3732 02201 PITCHANG
021044,000159: 42,3733 52361 VXSC VSU
021045,000160: 42,3734 06522 HIUNITX # (UX COS ALPHA) - (UZ SIN ALPHA)
021046,000161: 42,3735 63241 DOT PDVL # YAW.Z
021047,000162: 42,3736 02205 RLM
021048,000163: 42,3737 02205 RLM
021049,000164: 42,3740 75246 ABVAL SIGN
021050,000165: 42,3741 77736 ASIN
021051,000166: 42,3742 02203 STORE YAWANG
021052,000167: 42,3743 77776 SBANDEX EXIT
021053,000168: 42,3744 31043 CA EXTVBACT
021054,000169: 42,3745 74747 MASK BIT5 # IS BIT5 STILL ON
021055,000170: 42,3746 00006 EXTEND
021056,000171: 42,3747 15472 BZF ENDEXT # NO
021057,000172: 42,3750 35017 CAF PRIO5
021058,000173: 42,3751 05146 TC PRIOCHNG
021059,000174: 42,3752 33765 CAF V06N51 # DISPLAY ANGLES
|
|
Page 493
|
021061,000176: 42,3753 04616 TC BANKCALL
021062,000177: 42,3754 20353 CADR GOMARKFR
021063,000178: 42,3755 05563 TC B5OFF # TERMINATE
021064,000179: 42,3756 05563 TC B5OFF # PROCEED
021065,000180: 42,3757 05155 TC ENDOFJOB # RECYCLE
021066,000181: 42,3760 34751 CAF BIT3 # IMMEDIATE RETURN
021067,000182: 42,3761 05464 TC BLANKET # BLANK R3
021068,000183: 42,3762 34740 CAF PRIO4
021069,000184: 42,3763 05146 TC PRIOCHNG
021070,000185: 42,3764 03606 TC SBANDANT # YES, CONTINUE DISPLAYING ANGLES.
021071,000186: 42,3765 01463 V06N51 VN 0651
021072,000187: 42,3766 26501 07463 1OVSQRT2 2DEC .7071067815 # 1/SQRT(2)
021073,000188:
021074,000189: 42,3770 UR EQUALS 0D
021075,000190: 42,3770 URP EQUALS 6D
021076,000191: 42,3770 30,2000 SBANK= LOWSUPER
021077,000192:
End of include-file S-BAND_ANTENNA_FOR_LM.agc. Parent file is MAIN.agc