Source Code
|
This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2,
from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences
are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1
source-code was transcribed from a printout in the MIT Museum, while Luminary 116
source code was transcribed from a printout belonging to Don Eyles. AGC developer
James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as
follows: "At the last minute, Dan Lickly, our chief engineer, appeared with
ephemerides updates and it took two tries to get it right. The result was that
we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former
is what's in the MIT Museum, and the latter is what we are trying to recreate here.
As for which revision actually flew in Apollo 11, all of the other available
surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure!
|
052825,000002: ## Copyright: Public domain.
052826,000003: ## Filename: POWERED_FLIGHT_SUBROUTINES.agc
052827,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
052828,000005: ## It is part of the source code for the Lunar Module's (LM)
052829,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
052830,000007: ## Assembler: yaYUL
052831,000008: ## Contact: Ron Burkey <info@sandroid.org>.
052832,000009: ## Website: www.ibiblio.org/apollo.
052833,000010: ## Pages: 1259-1267
052834,000011: ## Mod history: 2009-05-26 RSB Adapted from the corresponding
052835,000012: ## Luminary131 file, using page
052836,000013: ## images from Luminary 1A.
052837,000014: ## 2011-01-06 JL Fixed pseudo-label indentation.
052838,000015: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
052839,000016: ## and corrected the errors found.
052840,000017: ## 2017-03-03 RSB Snapshot of Luminary 99 Rev 1.
052841,000018: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
052842,000019: ## side-by-side diff of Luminary 69/99/116/131/210.
052843,000020: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
052844,000021: ## Luminary 99 vs Comanche 55.
052845,000022:
|
|
Page 1259
|
052847,000024: 14,3774 BANK 14 # SAME FBANK AS THE FINDCDUD SUB-PROGRAM
052848,000025: 23,2000 SETLOC POWFLITE
052849,000026: 23,2000 BANK
052850,000027:
052851,000028: 23,3537 0142 EBANK= DEXDEX
052852,000029: 23,3537 COUNT* $$/POWFL
052853,000030:
052854,000031: # CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*TR*GS ALL COMPUTE THE SINES AND
052855,000032: # COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE
052856,000033: # PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU. AN
052857,000034: # ADDITIONAL OUTPUT IS THE 1'S COMPLEMENT ANGLES AT CDUSPOT. THESE
052858,000035: # ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT,
052859,000036: # EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2. THEY DIFFER ONLY IN
052860,000037: # WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING.
052861,000038:
052862,000039: # CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE
052863,000040: # SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS.
052864,000041: # THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY
052865,000042: # CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS.
052866,000043:
052867,000044: # CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC.
052868,000045:
052869,000046: # CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP. THIS
052870,000047: # ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL
052871,000048: # ANGLES IN AN ORDER OTHER THAN X Y Z. A CALL TO THIS ROUTINE IS
052872,000049: # NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO
052873,000050: # MODES (SMNB OR NBSM). SINCE AX*SR*T EXPECTS TO FIND THE SINES AND
052874,000051: # COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT
052875,000052: # IN THIS ORDER. CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED
052876,000053: # MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED. NOTE THAT SINCE
052877,000054: # IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE
052878,000055: # CALLED USING BANKCALL. SORRY.
052879,000056:
052880,000057: # CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN
052881,000058: # INTERPRETIVE.
052882,000059:
052883,000060: 23,3537 77776 CDUTRIG EXIT
052884,000061: 23,3540 03547 TC CDUTRIGS
052885,000062: 23,3541 06037 TC INTPRET
052886,000063: 23,3542 77616 RVQ
052887,000064:
052888,000065: 23,3543 77776 CD*TR*G EXIT
052889,000066: 23,3544 03555 TC CD*TR*GS
052890,000067: 23,3545 06037 TC INTPRET
052891,000068: 23,3546 77616 RVQ
052892,000069:
052893,000070: 23,3547 30032 CDUTRIGS CA CDUX
052894,000071: 23,3550 54772 TS CDUSPOT +4
052895,000072: 23,3551 30033 CA CDUY
052896,000073: 23,3552 54766 TS CDUSPOT
|
|
Page 1260
|
052898,000075: 23,3553 30034 CA CDUZ
052899,000076: 23,3554 54770 TS CDUSPOT +2
052900,000077:
052901,000078: 23,3555 00006 CD*TR*GS EXTEND
052902,000079: 23,3556 22142 QXCH TEM2
052903,000080: 23,3557 34751 CAF FOUR
052904,000081: 23,3560 76242 TR*GL**P MASK SIX # MAKE IT EVEN AND SMALLER
052905,000082: 23,3561 54143 TS TEM3
052906,000083: 23,3562 50143 INDEX TEM3
052907,000084: 23,3563 30766 CA CDUSPOT
052908,000085: 23,3564 52155 DXCH MPAC # STORING 2'S COMP ANGLE, LOADING MPAC
052909,000086: 23,3565 52127 DXCH VBUF +4 # STORING MPAC FOR LATER RESTORATION
052910,000087: 23,3566 04713 TC USPRCADR
052911,000088: 23,3567 21576 CADR CDULOGIC
052912,000089: 23,3570 00006 EXTEND
052913,000090: 23,3571 30155 DCA MPAC
052914,000091: 23,3572 50143 INDEX TEM3
052915,000092: 23,3573 52767 DXCH CDUSPOT # STORING 1'S COMPLEMENT ANGLE
052916,000093: 23,3574 04713 TC USPRCADR
052917,000094: 23,3575 01517 CADR COSINE
052918,000095: 23,3576 52155 DXCH MPAC
052919,000096: 23,3577 50143 INDEX TEM3
052920,000097: 23,3600 52745 DXCH COSCDU # STORING COSINE
052921,000098: 23,3601 00006 EXTEND
052922,000099: 23,3602 50143 INDEX TEM3
052923,000100: 23,3603 30767 DCA CDUSPOT # LOADING 1'S COMPLEMENT ANGLE
052924,000101: 23,3604 04713 TC USPRCADR
052925,000102: 23,3605 01531 CADR SINE +1 # SINE +1 EXPECTS ARGUMENT IN A AND L
052926,000103: 23,3606 52127 DXCH VBUF +4 # BRINGING UP PRIOR MPAC TO BE RESTORED
052927,000104: 23,3607 52155 DXCH MPAC
052928,000105: 23,3610 50143 INDEX TEM3
052929,000106: 23,3611 52737 DXCH SINCDU
052930,000107: 23,3612 10143 CCS TEM3
052931,000108: 23,3613 13560 TCF TR*GL**P
052932,000109: 23,3614 00142 TC TEM2
|
|
Page 1261
|
052934,000111: # ****************************************************************************************************************
052935,000112: # QUICTRIG, INTENDED FOR GUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS.
052936,000113: # QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2,
052937,000114: # AND CDUSPOT +4. UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN
052938,000115: # CDUSPOT. QUICTRIG'S EXECUTION TIME IS 4.1 MS; THIS IS 10 TIMES AS FAST AS CD*TR*GS. QUICTRIG MAY BE
052939,000116: # CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL.
052940,000117:
052941,000118: 23,3615 00004 QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS
052942,000119: 23,3616 00006 EXTEND
052943,000120: 23,3617 22061 QXCH ITEMP1
052944,000121: 23,3620 34751 CAF FOUR
052945,000122: 23,3621 76242 +4 MASK SIX
052946,000123: 23,3622 54062 TS ITEMP2
052947,000124: 23,3623 50062 INDEX ITEMP2
052948,000125: 23,3624 30766 CA CDUSPOT
052949,000126: 23,3625 05033 TC SPSIN
052950,000127: 23,3626 00006 EXTEND
052951,000128: 23,3627 74736 MP BIT14 # SCALE DOWN TO MATCH INTERPRETER OUTPUTS
052952,000129: 23,3630 50062 INDEX ITEMP2
052953,000130: 23,3631 52737 DXCH SINCDU
052954,000131: 23,3632 50062 INDEX ITEMP2
052955,000132: 23,3633 30766 CA CDUSPOT
052956,000133: 23,3634 05032 TC SPCOS
052957,000134: 23,3635 00006 EXTEND
052958,000135: 23,3636 74736 MP BIT14
052959,000136: 23,3637 50062 INDEX ITEMP2
052960,000137: 23,3640 52745 DXCH COSCDU
052961,000138: 23,3641 10062 CCS ITEMP2
052962,000139: 23,3642 13621 TCF QUICTRIG +4
052963,000140: 23,3643 30061 CA ITEMP1
052964,000141: 23,3644 00003 RELINT
052965,000142: 23,3645 00000 TC A
052966,000143:
|
|
Page 1262
|
052968,000145: # ****************************************************************************************************************
052969,000146: # THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN
052970,000147: # INTERPRETIVE. LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED.
052971,000148:
052972,000149: # THESE INTERFACE ROUTINES ARE PERMANENT. ALL RESTORE USER'S EBANK
052973,000150: # SETTING. ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL",
052974,000151: # RETURNING VIA QPRET. ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFOR-
052975,000152: # MED INTERPRETER-STYLE IN MPAC; COMPONENTS AT MPAC, MPAC +3, AND MPAC +5.
052976,000153:
052977,000154: # TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES
052978,000155: # AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4; ODD
052979,000156: # LOCATIONS NEED NOT BE ZEROED). TRG*NBSM DOES THE NB TO SM TRANSFOR-
052980,000157: # MATION; TRG*SMNB, VICE VERSA.
052981,000158:
052982,000159: # CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF
052983,000160: # THE CDU COUNTERS. OTHERWISE IT IS LIKE TRG*NBSM.
052984,000161:
052985,000162: # CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM.
052986,000163:
052987,000164: 23,3646 77776 CDU*SMNB EXIT
052988,000165: 23,3647 03547 TC CDUTRIGS
052989,000166: 23,3650 13653 TCF C*MM*N1
052990,000167:
052991,000168: 23,3651 77776 TRG*SMNB EXIT
052992,000169: 23,3652 03555 TC CD*TR*GS
052993,000170: 23,3653 07532 C*MM*N1 TC MPACVBUF # AX*SR*T EXPECTS VECTOR IN VBUF
052994,000171: 23,3654 46245 CS THREE # SIGNAL FOR SM TO NB TRANSFORMATION
052995,000172: 23,3655 03675 C*MM*N2 TC AX*SR*T
052996,000173: 23,3656 06037 TC INTPRET
052997,000174: 23,3657 43575 VLOAD RVQ
052998,000175: 23,3660 00123 VBUF
052999,000176:
053000,000177: 23,3661 77776 CDU*NBSM EXIT
053001,000178: 23,3662 03547 TC CDUTRIGS
053002,000179: 23,3663 13666 TCF C*MM*N3
053003,000180:
053004,000181: 23,3664 77776 TRG*NBSM EXIT
053005,000182: 23,3665 03555 TC CD*TR*GS
053006,000183: 23,3666 07532 C*MM*N3 TC MPACVBUF # FOR AX*SR*T
053007,000184: 23,3667 36245 CA THREE # SIGNAL FOR NB TO SM TRANSFORMATION
053008,000185: 23,3670 13655 TCF C*MM*N2
053009,000186:
053010,000187: # *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU
053011,000188: # AND COSCDU) RATHER THAN THE ANGLES THEMSELVES. OTHERWISE THEY ARE
053012,000189: # LIKE TRG*NBSM AND TRG*SMNB.
053013,000190:
053014,000191: # NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES
053015,000192: # OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM
|
|
Page 1263
|
053017,000194: # AND TRG*SMNB NEED BE CALLED FOR EACH SERIES. FOR SUBSEQUENT TRANSFOR-
053018,000195: # MATIONS USE *NBSM* AND *SMNB*.
053019,000196:
053020,000197: 23,3671 77776 *SMNB* EXIT
053021,000198: 23,3672 13653 TCF C*MM*N1
053022,000199:
053023,000200: 23,3673 77776 *NBSM* EXIT
053024,000201: 23,3674 13666 TCF C*MM*N3
053025,000202:
053026,000203: # AX*SR*T COMBINES THE OLD SMNB AND NBSM. FOR THE NB TO SM
053027,000204: # TRANSFORMATION, ENTER WITH +3 IN A. FOR SM TO NB, ENTER WITH -3.
053028,000205: # THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF.
053029,000206: # AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION
053030,000207: # AT SINCDU AND COSCDU, IN THE ORDER Y Z X. A CALL TO CD*TR*GS, WITH
053031,000208: # THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF
053032,000209: # THIS. HERE IS A SAMPLE CALLING SEQUENCE:-
053033,000210: # TC CDUTRIGS
053034,000211: # CS THREE ("CA THREE" FOR NBSM)
053035,000212: # TC AX*SR*T
053036,000213: # THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE
053037,000214: # THAN ONCE, UNLESS THE ANGLES HAVE CHANGED.
053038,000215:
053039,000216: # AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN
053040,000217: # UNITY. A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE
053041,000218: # HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS-
053042,000219: # FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED.
053043,000220:
053044,000221: 23,3675 54142 AX*SR*T TS DEXDEX # WHERE IT BECOMES THE INDEX OF INDEXES
053045,000222: 23,3676 00006 EXTEND
053046,000223: 23,3677 22145 QXCH RTNSAVER
053047,000224:
053048,000225: 23,3700 10142 R*TL**P CCS DEXDEX # +3 --> 0 -3 --> 2
053049,000226: 23,3701 40142 CS DEXDEX # THUS: +2 --> 1 -2 --> 1
053050,000227: 23,3702 66245 AD THREE # +1 --> 2 -1 --> 0
053051,000228: 23,3703 00006 EXTEND
053052,000229: 23,3704 50000 INDEX A
053053,000230: 23,3705 33764 DCA INDEXI
053054,000231: 23,3706 52144 DXCH DEXI
053055,000232:
053056,000233: 23,3707 34753 CA ONE
053057,000234: 23,3710 54130 TS BUF
053058,000235: 23,3711 00006 EXTEND
053059,000236: 23,3712 50143 INDEX DEX1
053060,000237: 23,3713 40123 DCS VBUF
053061,000238: 23,3714 13716 TCF LOOP1 # REALLY BE A SUBTRACT, AND VICE VERSA
053062,000239:
053063,000240: 23,3715 52131 LOOP2 DXCH BUF # LOADING VECTOR COMPONENT, STORING INDEX
|
|
Page 1264
|
053065,000242: 23,3716 52155 LOOP1 DXCH MPAC
053066,000243: 23,3717 33762 CA SINSLOC
053067,000244: 23,3720 60143 AD DEX1
053068,000245: 23,3721 54116 TS ADDRWD
053069,000246:
053070,000247: 23,3722 07107 TC DMPSUB # MULTIPLY BY SIN(CDUANGLE)
053071,000248: 23,3723 10142 CCS DEXDEX
053072,000249: 23,3724 52155 DXCH MPAC # NBSM CASE
053073,000250: 23,3725 13730 TCF +3
053074,000251: 23,3726 00006 EXTEND # SMNB CASE
053075,000252: 23,3727 40155 DCS MPAC
053076,000253: 23,3730 52160 DXCH TERM1TMP
053077,000254:
053078,000255: 23,3731 36242 CA SIX # SINCDU AND COSCDU (EACH 6 WORDS) MUST
053079,000256: 23,3732 26116 ADS ADDRWD # BE CONSECUTIVE AND IN THAT ORDER
053080,000257:
053081,000258: 23,3733 00006 EXTEND
053082,000259: 23,3734 50130 INDEX BUF
053083,000260: 23,3735 50143 INDEX DEX1
053084,000261: 23,3736 30123 DCA VBUF
053085,000262: 23,3737 52155 DXCH MPAC
053086,000263: 23,3740 07107 TC DMPSUB # MULTIPLY BY COS(CDUANGLE)
053087,000264: 23,3741 52155 DXCH MPAC
053088,000265: 23,3742 20160 DAS TERM1TMP
053089,000266: 23,3743 52160 DXCH TERM1TMP
053090,000267: 23,3744 20001 DDOUBL
053091,000268: 23,3745 50130 INDEX BUF
053092,000269: 23,3746 50143 INDEX DEX1
053093,000270: 23,3747 52123 DXCH VBUF
053094,000271: 23,3750 52131 DXCH BUF # LOADING INDEX, STORING VECTOR COMPONENT
053095,000272:
053096,000273: 23,3751 10000 CCS A # 'CAUSE THAT'S WHERE THE INDEX NOW IS
053097,000274: 23,3752 13715 TCF LOOP2
053098,000275:
053099,000276: 23,3753 00006 EXTEND
053100,000277: 23,3754 26142 DIM DEXDEX # DECREMENT MAGNITUDE PRESERVING SIGN
053101,000278:
053102,000279: 23,3755 10142 TSTPOINT CCS DEXDEX # ONLY THE BRANCHING FUNCTION IS USED
053103,000280: 23,3756 13700 TCF R*TL**P
053104,000281: 23,3757 00145 TC RTNSAVER
053105,000282: 23,3760 13700 TCF R*TL**P
053106,000283: 23,3761 00145 TC RTNSAVER
053107,000284:
053108,000285: 23,3762 00736 SINSLOC ADRES SINCDU # FOR USE IN SETTING ADDRWD
053109,000286:
053110,000287: 23,3763 00004 INDEXI DEC 4 B-14 # ********** DON'T **********
053111,000288: 23,3764 00002 DEC 2 B-14 # ********** TOUCH **********
053112,000289: 23,3765 00000 DEC 0 B-14 # ********** THESE **********
|
|
Page 1265
|
053114,000291: 23,3766 00004 DEC 4 B-14 # ********** CONSTANTS **********
053115,000292:
053116,000293: # ****************************************************************************************************************
053117,000294:
053118,000295: 10,2030 BANK 10
053119,000296: 10,2000 SETLOC FLESHLOC
053120,000297: 10,2000 BANK
053121,000298: 10,2030 COUNT* $$/POWFL
053122,000299:
053123,000300: # ROUTINE FLESHPOT COMPUTES THE BODY-STABLE MEMBER TRANSFORMATION MATRIX (COMMONLY CALLED XNB) AND STORES
053124,000301: # IT IN THE LOCATIONS SPECIFIED BY THE ECADR ENTERING IN A.
053125,000302:
053126,000303: 10,2030 77776 CALCSMSC EXIT
053127,000304: 10,2031 04616 TC BANKCALL
053128,000305: 10,2032 20036 CADR FLESHPOT -1
053129,000306: 10,2033 06037 TC INTPRET
053130,000307: 10,2034 77616 RVQ
053131,000308:
053132,000309: 10,2035 02664 XNBECADR ECADR XNB
053133,000310:
053134,000311: 10,2036 32035 -1 CAF XNBECADR
053135,000312:
053136,000313: 10,2037 54142 FLESHPOT TS TEM2
053137,000314: 10,2040 56003 XCH EBANK
053138,000315: 10,2041 56142 XCH TEM2
053139,000316: 10,2042 74357 MASK LOW8
053140,000317: 10,2043 65007 AD OCT1400
053141,000318: 10,2044 54141 TS TEM1
053142,000319:
053143,000320: 10,2045 00006 EXTEND
053144,000321: 10,2046 30745 DCA COSCDUY
053145,000322: 10,2047 52155 DXCH MPAC
053146,000323: 10,2050 07103 TC DMP
053147,000324: 10,2051 00746 ADRES COSCDUZ
053148,000325: 10,2052 52155 DXCH MPAC
053149,000326: 10,2053 20001 DDOUBL
053150,000327: 10,2054 50141 INDEX TEM1
053151,000328: 10,2055 52001 DXCH 0 # = COSY COSZ
053152,000329:
053153,000330: 10,2056 00006 EXTEND
053154,000331: 10,2057 30741 DCA SINCDUZ
053155,000332: 10,2060 50141 INDEX TEM1
053156,000333: 10,2061 52003 DXCH 2 # = SINZ
053157,000334:
053158,000335: 10,2062 00006 EXTEND
053159,000336: 10,2063 40737 DCS SINCDUY
053160,000337: 10,2064 52155 DXCH MPAC
053161,000338: 10,2065 07107 TC DMPSUB # ADDRWD SET TO COSCDUZ
|
|
Page 1266
|
053163,000340: 10,2066 52155 DXCH MPAC
053164,000341: 10,2067 20001 DDOUBL
053165,000342: 10,2070 50141 INDEX TEM1
053166,000343: 10,2071 52005 DXCH 4 # = - SINY COSZ
053167,000344:
053168,000345: 10,2072 00006 EXTEND
053169,000346: 10,2073 40743 DCS SINCDUX
053170,000347: 10,2074 52155 DXCH MPAC
053171,000348: 10,2075 07107 TC DMPSUB # ADDRWD SET TO COSCDUZ STILL
053172,000349: 10,2076 52155 DXCH MPAC
053173,000350: 10,2077 20001 DDOUBL
053174,000351: 10,2100 52160 DXCH MPAC +3
053175,000352:
053176,000353: 10,2101 00006 EXTEND
053177,000354: 10,2102 40743 DCS SINCDUX
053178,000355: 10,2103 52155 DXCH MPAC
053179,000356: 10,2104 07103 TC DMP
053180,000357: 10,2105 00740 ADRES SINCDUZ
053181,000358: 10,2106 00006 EXTEND
053182,000359: 10,2107 40155 DCS MPAC
053183,000360: 10,2110 52162 DXCH MPAC +5
053184,000361: 10,2111 07103 TC DMP
053185,000362: 10,2112 00736 ADRES SINCDUY
053186,000363: 10,2113 52155 DXCH MPAC
053187,000364: 10,2114 20001 DDOUBL
053188,000365: 10,2115 20001 DDOUBL
053189,000366: 10,2116 52162 DXCH MPAC +5
053190,000367:
053191,000368: 10,2117 52155 DXCH MPAC
053192,000369: 10,2120 07103 TC DMP
053193,000370: 10,2121 00744 ADRES COSCDUY
053194,000371: 10,2122 52155 DXCH MPAC
053195,000372: 10,2123 20001 DDOUBL
053196,000373: 10,2124 20001 DDOUBL
053197,000374: 10,2125 52131 DXCH BUF
053198,000375:
053199,000376: 10,2126 00006 EXTEND
053200,000377: 10,2127 30745 DCA COSCDUY
053201,000378: 10,2130 52155 DXCH MPAC
053202,000379: 10,2131 07103 TC DMP
053203,000380: 10,2132 00750 ADRES COSCDUX
053204,000381: 10,2133 52155 DXCH MPAC
053205,000382: 10,2134 20001 DDOUBL
053206,000383: 10,2135 20162 DAS MPAC +5
053207,000384:
053208,000385: 10,2136 00006 EXTEND
053209,000386: 10,2137 30737 DCA SINCDUY
053210,000387: 10,2140 52155 DXCH MPAC
053211,000388: 10,2141 07107 TC DMPSUB # ADDRWD SET TO COSCDUX
053212,000389: 10,2142 52155 DXCH MPAC
053213,000390:
|
|
Page 1267
|
053215,000392: 10,2143 20001 DDOUBL
053216,000393: 10,2144 20131 DAS BUF
053217,000394:
053218,000395: 10,2145 52131 DXCH BUF
053219,000396: 10,2146 52155 DXCH MPAC
053220,000397:
053221,000398: 10,2147 00006 EXTEND
053222,000399: 10,2150 30155 DCA MPAC
053223,000400: 10,2151 50141 INDEX TEM1
053224,000401: 10,2152 52015 DXCH 14 # = SINY COSX + SINX SINZ COSY
053225,000402:
053226,000403: 10,2153 00006 EXTEND
053227,000404: 10,2154 30160 DCA MPAC +3
053228,000405: 10,2155 50141 INDEX TEM1
053229,000406: 10,2156 52017 DXCH 16 # = - SINX COSZ
053230,000407:
053231,000408: 10,2157 00006 EXTEND
053232,000409: 10,2160 30162 DCA MPAC +5
053233,000410: 10,2161 50141 INDEX TEM1
053234,000411: 10,2162 52021 DXCH 20 # = COSX COSY - SINX SINY SINZ
053235,000412:
053236,000413: 10,2163 30141 CA TEM1
053237,000414: 10,2164 54116 TS ADDRWD
053238,000415: 10,2165 00006 EXTEND
053239,000416: 10,2166 30006 DCA Z
053240,000417: 10,2167 64751 AD FOUR
053241,000418: 10,2170 52165 DXCH LOC
053242,000419: 10,2171 34744 CAF BIT8
053243,000420: 10,2172 54023 TS EDOP
053244,000421: 10,2173 17460 TCF VXV
053245,000422: 10,2174 52155 DXCH MPAC
053246,000423: 10,2175 20001 DDOUBL
053247,000424: 10,2176 50141 INDEX TEM1
053248,000425: 10,2177 52007 DXCH 6
053249,000426:
053250,000427: 10,2200 52160 DXCH MPAC +3
053251,000428: 10,2201 20001 DDOUBL
053252,000429: 10,2202 50141 INDEX TEM1
053253,000430: 10,2203 52011 DXCH 10
053254,000431:
053255,000432: 10,2204 52162 DXCH MPAC +5
053256,000433: 10,2205 20001 DDOUBL
053257,000434: 10,2206 50141 INDEX TEM1
053258,000435: 10,2207 52013 DXCH 12
053259,000436:
053260,000437: 10,2210 30142 CA TEM2
053261,000438: 10,2211 54003 TS EBANK
053262,000439: 10,2212 14631 TCF SWRETURN
053263,000440:
End of include-file POWERED_FLIGHT_SUBROUTINES.agc. Parent file is MAIN.agc