Source Code
|
These source-code files are part of a reconstructed copy of Luminary 178, the
final release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Zerlina 56, Luminary 210, and
Luminary 131, previously transcribed from digitized copies of those programs.
The code was created by combining the three, using Zerlina 56 as a base, since
it was based off of Luminary 183. The differences between the three were
carefully merged using the Luminary memos as a guide, with all changes made
after Luminary 178 being backed out. 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 178 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.
|
053260,000002: ## Copyright: Public domain.
053261,000003: ## Filename: POWERED_FLIGHT_SUBROUTINES.agc
053262,000004: ## Purpose: A section of Luminary revision 178.
053263,000005: ## It is part of the reconstructed source code for the final
053264,000006: ## release of the flight software for the Lunar Module's
053265,000007: ## (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
053266,000008: ## code has been recreated from copies of Zerlina 56, Luminary
053267,000009: ## 210, and Luminary 131, as well as many Luminary memos.
053268,000010: ## It has been adapted such that the resulting bugger words
053269,000011: ## exactly match those specified for Luminary 178 in NASA
053270,000012: ## drawing 2021152N, which gives relatively high confidence
053271,000013: ## that the reconstruction is correct.
053272,000014: ## Reference: pp. 1248-1256
053273,000015: ## Assembler: yaYUL
053274,000016: ## Contact: Ron Burkey <info@sandroid.org>.
053275,000017: ## Website: www.ibiblio.org/apollo/index.html
053276,000018: ## Mod history: 2019-08-14 MAS Created from Zerlina 56.
053277,000019:
|
|
Page 1248
|
053279,000021: 14,3775 BANK 14 # SAME FBANK AS THE FINDCDUD SUB-PROGRAM
053280,000022: 23,2000 SETLOC POWFLITE
053281,000023: 23,2000 BANK
053282,000024:
053283,000025: 23,3505 0142 EBANK= DEXDEX
053284,000026: 23,3505 COUNT* $$/POWFL
053285,000027:
053286,000028: # CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*TR*GS ALL COMPUTE THE SINES AND
053287,000029: # COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE
053288,000030: # PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU. AN
053289,000031: # ADDITIONAL OUTPUT IS THE 1'S COMPLEMENT ANGLES AT CDUSPOT. THESE
053290,000032: # ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT,
053291,000033: # EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2. THEY DIFFER ONLY IN
053292,000034: # WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING.
053293,000035:
053294,000036: # CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE
053295,000037: # SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS.
053296,000038: # THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY
053297,000039: # CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS.
053298,000040:
053299,000041: # CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC.
053300,000042:
053301,000043: # CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP. THIS
053302,000044: # ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL
053303,000045: # ANGLES IN AN ORDER OTHER THAN X Y Z. A CALL TO THIS ROUTINE IS
053304,000046: # NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO
053305,000047: # MODES (SMNB OR NBSM). SINCE AX*SR*T EXPECTS TO FIND THE SINES AND
053306,000048: # COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT
053307,000049: # IN THIS ORDER. CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED
053308,000050: # MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED. NOTE THAT SINCE
053309,000051: # IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE
053310,000052: # CALLED USING BANKCALL. SORRY.
053311,000053:
053312,000054: # CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN
053313,000055: # INTERPRETIVE.
053314,000056:
053315,000057: 23,3505 77776 CDUTRIG EXIT
053316,000058: 23,3506 03515 TC CDUTRIGS
053317,000059: 23,3507 06042 TC INTPRET
053318,000060: 23,3510 77616 RVQ
053319,000061:
053320,000062: 23,3511 77776 CD*TR*G EXIT
053321,000063: 23,3512 03523 TC CD*TR*GS
053322,000064: 23,3513 06042 TC INTPRET
053323,000065: 23,3514 77616 RVQ
053324,000066:
053325,000067: 23,3515 30032 CDUTRIGS CA CDUX
053326,000068: 23,3516 54771 TS CDUSPOT +4
053327,000069: 23,3517 30033 CA CDUY
053328,000070: 23,3520 54765 TS CDUSPOT
|
|
Page 1249
|
053330,000072: 23,3521 30034 CA CDUZ
053331,000073: 23,3522 54767 TS CDUSPOT +2
053332,000074:
053333,000075: 23,3523 00006 CD*TR*GS EXTEND
053334,000076: 23,3524 22142 QXCH TEM2
053335,000077: 23,3525 34751 CAF FOUR
053336,000078: 23,3526 76245 TR*GL**P MASK SIX # MAKE IT EVEN AND SMALLER
053337,000079: 23,3527 54143 TS TEM3
053338,000080: 23,3530 50143 INDEX TEM3
053339,000081: 23,3531 30765 CA CDUSPOT
053340,000082: 23,3532 52155 DXCH MPAC # STORING 2'S COMP ANGLE, LOADING MPAC
053341,000083: 23,3533 52127 DXCH VBUF +4 # STORING MPAC FOR LATER RESTORATION
053342,000084: 23,3534 04713 TC USPRCADR
053343,000085: 23,3535 21577 CADR CDULOGIC
053344,000086: 23,3536 00006 EXTEND
053345,000087: 23,3537 30155 DCA MPAC
053346,000088: 23,3540 50143 INDEX TEM3
053347,000089: 23,3541 52766 DXCH CDUSPOT # STORING 1'S COMPLEMENT ANGLE
053348,000090: 23,3542 04713 TC USPRCADR
053349,000091: 23,3543 01517 CADR COSINE
053350,000092: 23,3544 52155 DXCH MPAC
053351,000093: 23,3545 50143 INDEX TEM3
053352,000094: 23,3546 52744 DXCH COSCDU # STORING COSINE
053353,000095: 23,3547 00006 EXTEND
053354,000096: 23,3550 50143 INDEX TEM3
053355,000097: 23,3551 30766 DCA CDUSPOT # LOADING 1'S COMPLEMENT ANGLE
053356,000098: 23,3552 04713 TC USPRCADR
053357,000099: 23,3553 01531 CADR SINE +1 # SINE +1 EXPECTS ARGUMENT IN A AND L
053358,000100: 23,3554 52127 DXCH VBUF +4 # BRINGING UP PRIOR MPAC TO BE RESTORED
053359,000101: 23,3555 52155 DXCH MPAC
053360,000102: 23,3556 50143 INDEX TEM3
053361,000103: 23,3557 52736 DXCH SINCDU
053362,000104: 23,3560 10143 CCS TEM3
053363,000105: 23,3561 13526 TCF TR*GL**P
053364,000106: 23,3562 00142 TC TEM2
|
|
Page 1250
|
053366,000108: # ****************************************************************************************************************
053367,000109:
053368,000110: # QUICTRIG, INTENDED FOR GUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS.
053369,000111: # QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2,
053370,000112: # AND CDUSPOT +4. UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN
053371,000113: # CDUSPOT. QUICTRIG'S EXECUTION TIME IS 4.1 MS; THIS IS 10 TIMES AS FAST AS CD*TR*GS. QUICTRIG MAY BE
053372,000114: # CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL.
053373,000115:
053374,000116: 23,3563 00004 QTPROLOG INHINT
053375,000117: 23,3564 30032 CA CDUX
053376,000118: 23,3565 54771 TS CDUSPOTX
053377,000119: 23,3566 30033 CA CDUY
053378,000120: 23,3567 54765 TS CDUSPOTY
053379,000121: 23,3570 30034 CA CDUZ
053380,000122: 23,3571 54767 TS CDUSPOTZ
053381,000123:
053382,000124: 23,3572 00004 QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS
053383,000125: 23,3573 00006 EXTEND
053384,000126: 23,3574 22061 QXCH ITEMP1
053385,000127: 23,3575 34751 CAF FOUR
053386,000128: 23,3576 76245 +4 MASK SIX
053387,000129: 23,3577 54062 TS ITEMP2
053388,000130: 23,3600 50062 INDEX ITEMP2
053389,000131: 23,3601 30765 CA CDUSPOT
053390,000132: 23,3602 05033 TC SPSIN
053391,000133: 23,3603 00006 EXTEND
053392,000134: 23,3604 74736 MP BIT14 # SCALE DOWN TO MATCH INTERPRETER OUTPUTS
053393,000135: 23,3605 50062 INDEX ITEMP2
053394,000136: 23,3606 52736 DXCH SINCDU
053395,000137: 23,3607 50062 INDEX ITEMP2
053396,000138: 23,3610 30765 CA CDUSPOT
053397,000139: 23,3611 05032 TC SPCOS
053398,000140: 23,3612 00006 EXTEND
053399,000141: 23,3613 74736 MP BIT14
053400,000142: 23,3614 50062 INDEX ITEMP2
053401,000143: 23,3615 52744 DXCH COSCDU
053402,000144: 23,3616 10062 CCS ITEMP2
053403,000145: 23,3617 13576 TCF QUICTRIG +4
053404,000146: 23,3620 30061 CA ITEMP1
053405,000147: 23,3621 00003 RELINT
053406,000148: 23,3622 00000 TC A
053407,000149:
|
|
Page 1251
|
053409,000151: # ****************************************************************************************************************
053410,000152: # THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN
053411,000153: # INTERPRETIVE. LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED.
053412,000154:
053413,000155: # THESE INTERFACE ROUTINES ARE PERMANENT. ALL RESTORE USER'S EBANK
053414,000156: # SETTING. ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL",
053415,000157: # RETURNING VIA QPRET. ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFOR-
053416,000158: # MED INTERPRETER-STYLE IN MPAC; COMPONENTS AT MPAC, MPAC +3, AND MPAC +5.
053417,000159:
053418,000160: # TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES
053419,000161: # AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4; ODD
053420,000162: # LOCATIONS NEED NOT BE ZEROED). TRG*NBSM DOES THE NB TO SM TRANSFOR-
053421,000163: # MATION; TRG*SMNB, VICE VERSA.
053422,000164:
053423,000165: # CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF
053424,000166: # THE CDU COUNTERS. OTHERWISE IT IS LIKE TRG*NBSM.
053425,000167:
053426,000168: # CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM.
053427,000169:
053428,000170: 23,3623 77776 CDU*SMNB EXIT
053429,000171: 23,3624 03515 TC CDUTRIGS
053430,000172: 23,3625 13630 TCF C*MM*N1
053431,000173:
053432,000174: 23,3626 77776 TRG*SMNB EXIT
053433,000175: 23,3627 03523 TC CD*TR*GS
053434,000176: 23,3630 07535 C*MM*N1 TC MPACVBUF # AX*SR*T EXPECTS VECTOR IN VBUF
053435,000177: 23,3631 46250 CS THREE # SIGNAL FOR SM TO NB TRANSFORMATION
053436,000178: 23,3632 03652 C*MM*N2 TC AX*SR*T
053437,000179: 23,3633 06042 TC INTPRET
053438,000180: 23,3634 43575 VLOAD RVQ
053439,000181: 23,3635 00123 VBUF
053440,000182:
053441,000183: 23,3636 77776 CDU*NBSM EXIT
053442,000184: 23,3637 03515 TC CDUTRIGS
053443,000185: 23,3640 13643 TCF C*MM*N3
053444,000186:
053445,000187: 23,3641 77776 TRG*NBSM EXIT
053446,000188: 23,3642 03523 TC CD*TR*GS
053447,000189: 23,3643 07535 C*MM*N3 TC MPACVBUF # FOR AX*SR*T
053448,000190: 23,3644 36250 CA THREE # SIGNAL FOR NB TO SM TRANSFORMATION
053449,000191: 23,3645 13632 TCF C*MM*N2
053450,000192:
053451,000193: # *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU
053452,000194: # AND COSCDU) RATHER THAN THE ANGLES THEMSELVES. OTHERWISE THEY ARE
053453,000195: # LIKE TRG*NBSM AND TRG*SMNB.
053454,000196:
053455,000197: # NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES
053456,000198: # OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM
|
|
Page 1252
|
053458,000200: # AND TRG*SMNB NEED BE CALLED FOR EACH SERIES. FOR SUBSEQUENT TRANSFOR-
053459,000201: # MATIONS USE *NBSM* AND *SMNB*.
053460,000202:
053461,000203: 23,3646 77776 *SMNB* EXIT
053462,000204: 23,3647 13630 TCF C*MM*N1
053463,000205:
053464,000206: 23,3650 77776 *NBSM* EXIT
053465,000207: 23,3651 13643 TCF C*MM*N3
053466,000208:
053467,000209: # AX*SR*T COMBINES THE OLD SMNB AND NBSM. FOR THE NB TO SM
053468,000210: # TRANSFORMATION, ENTER WITH +3 IN A. FOR SM TO NB, ENTER WITH -3.
053469,000211: # THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF.
053470,000212: # AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION
053471,000213: # AT SINCDU AND COSCDU, IN THE ORDER Y Z X. A CALL TO CD*TR*GS, WITH
053472,000214: # THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF
053473,000215: # THIS. HERE IS A SAMPLE CALLING SEQUENCE:-
053474,000216:
053475,000217: # TC CDUTRIGS
053476,000218: # CS THREE ("CA THREE" FOR NBSM)
053477,000219: # TC AX*SR*T
053478,000220:
053479,000221: # THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE
053480,000222: # THAN ONCE, UNLESS THE ANGLES HAVE CHANGED.
053481,000223:
053482,000224: # AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN
053483,000225: # UNITY. A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE
053484,000226: # HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS-
053485,000227: # FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED.
053486,000228:
053487,000229: 23,3652 54142 AX*SR*T TS DEXDEX # WHERE IT BECOMES THE INDEX OF INDEXES
053488,000230: 23,3653 00006 EXTEND
053489,000231: 23,3654 22145 QXCH RTNSAVER
053490,000232:
053491,000233: 23,3655 10142 R*TL**P CCS DEXDEX # +3 --> 0 -3 --> 2
053492,000234: 23,3656 40142 CS DEXDEX # THUS: +2 --> 1 -2 --> 1
053493,000235: 23,3657 66250 AD THREE # +1 --> 2 -1 --> 0
053494,000236: 23,3660 00006 EXTEND
053495,000237: 23,3661 50000 INDEX A
053496,000238: 23,3662 33741 DCA INDEXI
053497,000239: 23,3663 52144 DXCH DEXI
053498,000240:
053499,000241: 23,3664 34753 CA ONE
053500,000242: 23,3665 54130 TS BUF
053501,000243: 23,3666 00006 EXTEND
053502,000244: 23,3667 50143 INDEX DEX1
053503,000245: 23,3670 40123 DCS VBUF
053504,000246: 23,3671 13673 TCF LOOP1 # REALLY BE A SUBTRACT, AND VICE VERSA
053505,000247:
053506,000248: 23,3672 52131 LOOP2 DXCH BUF # LOADING VECTOR COMPONENT, STORING INDEX
|
|
Page 1253
|
053508,000250: 23,3673 52155 LOOP1 DXCH MPAC
053509,000251: 23,3674 33737 CA SINSLOC
053510,000252: 23,3675 60143 AD DEX1
053511,000253: 23,3676 54116 TS ADDRWD
053512,000254:
053513,000255: 23,3677 07112 TC DMPSUB # MULTIPLY BY SIN(CDUANGLE)
053514,000256: 23,3700 10142 CCS DEXDEX
053515,000257: 23,3701 52155 DXCH MPAC # NBSM CASE
053516,000258: 23,3702 13705 TCF +3
053517,000259: 23,3703 00006 EXTEND # SMNB CASE
053518,000260: 23,3704 40155 DCS MPAC
053519,000261: 23,3705 52160 DXCH TERM1TMP
053520,000262:
053521,000263: 23,3706 36245 CA SIX # SINCDU AND COSCDU (EACH 6 WORDS) MUST
053522,000264: 23,3707 26116 ADS ADDRWD # BE CONSECUTIVE AND IN THAT ORDER
053523,000265:
053524,000266: 23,3710 00006 EXTEND
053525,000267: 23,3711 50130 INDEX BUF
053526,000268: 23,3712 50143 INDEX DEX1
053527,000269: 23,3713 30123 DCA VBUF
053528,000270: 23,3714 52155 DXCH MPAC
053529,000271: 23,3715 07112 TC DMPSUB # MULTIPLY BY COS(CDUANGLE)
053530,000272: 23,3716 52155 DXCH MPAC
053531,000273: 23,3717 20160 DAS TERM1TMP
053532,000274: 23,3720 52160 DXCH TERM1TMP
053533,000275: 23,3721 20001 DDOUBL
053534,000276: 23,3722 50130 INDEX BUF
053535,000277: 23,3723 50143 INDEX DEX1
053536,000278: 23,3724 52123 DXCH VBUF
053537,000279: 23,3725 52131 DXCH BUF # LOADING INDEX, STORING VECTOR COMPONENT
053538,000280:
053539,000281: 23,3726 10000 CCS A # 'CAUSE THAT'S WHERE THE INDEX NOW IS
053540,000282: 23,3727 13672 TCF LOOP2
053541,000283:
053542,000284: 23,3730 00006 EXTEND
053543,000285: 23,3731 26142 DIM DEXDEX # DECREMENT MAGNITUDE PRESERVING SIGN
053544,000286:
053545,000287: 23,3732 10142 TSTPOINT CCS DEXDEX # ONLY THE BRANCHING FUNCTION IS USED
053546,000288: 23,3733 13655 TCF R*TL**P
053547,000289: 23,3734 00145 TC RTNSAVER
053548,000290: 23,3735 13655 TCF R*TL**P
053549,000291: 23,3736 00145 TC RTNSAVER
053550,000292:
053551,000293: 23,3737 00735 SINSLOC ADRES SINCDU # FOR USE IN SETTING ADDRWD
053552,000294:
053553,000295: 23,3740 00004 INDEXI DEC 4 B-14 # ********** DON'T **********
053554,000296: 23,3741 00002 DEC 2 B-14 # ********** TOUCH **********
053555,000297: 23,3742 00000 DEC 0 B-14 # ********** THESE **********
|
|
Page 1254
|
053557,000299: 23,3743 00004 DEC 4 B-14 # ********** CONSTANTS **********
053558,000300:
053559,000301: # ****************************************************************************************************************
053560,000302:
053561,000303: 10,2030 BANK 10
053562,000304: 10,2000 SETLOC FLESHLOC
053563,000305: 10,2000 BANK
053564,000306: 10,2030 COUNT* $$/POWFL
053565,000307:
053566,000308: # ROUTINE FLESHPOT COMPUTES THE BODY-STABLE MEMBER TRANSFORMATION MATRIX (COMMONLY CALLED XNB) AND STORES
053567,000309: # IT IN THE LOCATIONS SPECIFIED BY THE ECADR ENTERING IN A.
053568,000310:
053569,000311: 10,2030 77776 CALCSMSC EXIT
053570,000312: 10,2031 04616 TC BANKCALL
053571,000313: 10,2032 20036 CADR FLESHPOT -1
053572,000314: 10,2033 06042 TC INTPRET
053573,000315: 10,2034 77616 RVQ
053574,000316:
053575,000317: 10,2035 02664 XNBECADR ECADR XNB
053576,000318:
053577,000319: 10,2036 32035 -1 CAF XNBECADR
053578,000320:
053579,000321: 10,2037 54142 FLESHPOT TS TEM2
053580,000322: 10,2040 56003 XCH EBANK
053581,000323: 10,2041 56142 XCH TEM2
053582,000324: 10,2042 74357 MASK LOW8
053583,000325: 10,2043 65007 AD OCT1400
053584,000326: 10,2044 54141 TS TEM1
053585,000327:
053586,000328: 10,2045 00006 EXTEND
053587,000329: 10,2046 30744 DCA COSCDUY
053588,000330: 10,2047 52155 DXCH MPAC
053589,000331: 10,2050 07106 TC DMP
053590,000332: 10,2051 00745 ADRES COSCDUZ
053591,000333: 10,2052 52155 DXCH MPAC
053592,000334: 10,2053 20001 DDOUBL
053593,000335: 10,2054 50141 INDEX TEM1
053594,000336: 10,2055 52001 DXCH 0 # = COSY COSZ
053595,000337:
053596,000338: 10,2056 00006 EXTEND
053597,000339: 10,2057 30740 DCA SINCDUZ
053598,000340: 10,2060 50141 INDEX TEM1
053599,000341: 10,2061 52003 DXCH 2 # = SINZ
053600,000342:
053601,000343: 10,2062 00006 EXTEND
053602,000344: 10,2063 40736 DCS SINCDUY
053603,000345: 10,2064 52155 DXCH MPAC
053604,000346: 10,2065 07112 TC DMPSUB # ADDRWD SET TO COSCDUZ
|
|
Page 1255
|
053606,000348: 10,2066 52155 DXCH MPAC
053607,000349: 10,2067 20001 DDOUBL
053608,000350: 10,2070 50141 INDEX TEM1
053609,000351: 10,2071 52005 DXCH 4 # = - SINY COSZ
053610,000352:
053611,000353: 10,2072 00006 EXTEND
053612,000354: 10,2073 40742 DCS SINCDUX
053613,000355: 10,2074 52155 DXCH MPAC
053614,000356: 10,2075 07112 TC DMPSUB # ADDRWD SET TO COSCDUZ STILL
053615,000357: 10,2076 52155 DXCH MPAC
053616,000358: 10,2077 20001 DDOUBL
053617,000359: 10,2100 52160 DXCH MPAC +3
053618,000360:
053619,000361: 10,2101 00006 EXTEND
053620,000362: 10,2102 40742 DCS SINCDUX
053621,000363: 10,2103 52155 DXCH MPAC
053622,000364: 10,2104 07106 TC DMP
053623,000365: 10,2105 00737 ADRES SINCDUZ
053624,000366: 10,2106 00006 EXTEND
053625,000367: 10,2107 40155 DCS MPAC
053626,000368: 10,2110 52162 DXCH MPAC +5
053627,000369: 10,2111 07106 TC DMP
053628,000370: 10,2112 00735 ADRES SINCDUY
053629,000371: 10,2113 52155 DXCH MPAC
053630,000372: 10,2114 20001 DDOUBL
053631,000373: 10,2115 20001 DDOUBL
053632,000374: 10,2116 52162 DXCH MPAC +5
053633,000375:
053634,000376: 10,2117 52155 DXCH MPAC
053635,000377: 10,2120 07106 TC DMP
053636,000378: 10,2121 00743 ADRES COSCDUY
053637,000379: 10,2122 52155 DXCH MPAC
053638,000380: 10,2123 20001 DDOUBL
053639,000381: 10,2124 20001 DDOUBL
053640,000382: 10,2125 52131 DXCH BUF
053641,000383:
053642,000384: 10,2126 00006 EXTEND
053643,000385: 10,2127 30744 DCA COSCDUY
053644,000386: 10,2130 52155 DXCH MPAC
053645,000387: 10,2131 07106 TC DMP
053646,000388: 10,2132 00747 ADRES COSCDUX
053647,000389: 10,2133 52155 DXCH MPAC
053648,000390: 10,2134 20001 DDOUBL
053649,000391: 10,2135 20162 DAS MPAC +5
053650,000392:
053651,000393: 10,2136 00006 EXTEND
053652,000394: 10,2137 30736 DCA SINCDUY
053653,000395: 10,2140 52155 DXCH MPAC
053654,000396: 10,2141 07112 TC DMPSUB # ADDRWD SET TO COSCDUX
053655,000397: 10,2142 52155 DXCH MPAC
053656,000398:
|
|
Page 1256
|
053658,000400: 10,2143 20001 DDOUBL
053659,000401: 10,2144 20131 DAS BUF
053660,000402:
053661,000403: 10,2145 52131 DXCH BUF
053662,000404: 10,2146 52155 DXCH MPAC
053663,000405:
053664,000406: 10,2147 00006 EXTEND
053665,000407: 10,2150 30155 DCA MPAC
053666,000408: 10,2151 50141 INDEX TEM1
053667,000409: 10,2152 52015 DXCH 14 # = SINY COSX + SINX SINZ COSY
053668,000410:
053669,000411: 10,2153 00006 EXTEND
053670,000412: 10,2154 30160 DCA MPAC +3
053671,000413: 10,2155 50141 INDEX TEM1
053672,000414: 10,2156 52017 DXCH 16 # = - SINX COSZ
053673,000415:
053674,000416: 10,2157 00006 EXTEND
053675,000417: 10,2160 30162 DCA MPAC +5
053676,000418: 10,2161 50141 INDEX TEM1
053677,000419: 10,2162 52021 DXCH 20 # = COSX COSY - SINX SINY SINZ
053678,000420:
053679,000421: 10,2163 30141 CA TEM1
053680,000422: 10,2164 54116 TS ADDRWD
053681,000423: 10,2165 00006 EXTEND
053682,000424: 10,2166 30006 DCA Z
053683,000425: 10,2167 64751 AD FOUR
053684,000426: 10,2170 52165 DXCH LOC
053685,000427: 10,2171 34744 CAF BIT8
053686,000428: 10,2172 54023 TS EDOP
053687,000429: 10,2173 17463 TCF VXV
053688,000430: 10,2174 52155 DXCH MPAC
053689,000431: 10,2175 20001 DDOUBL
053690,000432: 10,2176 50141 INDEX TEM1
053691,000433: 10,2177 52007 DXCH 6
053692,000434:
053693,000435: 10,2200 52160 DXCH MPAC +3
053694,000436: 10,2201 20001 DDOUBL
053695,000437: 10,2202 50141 INDEX TEM1
053696,000438: 10,2203 52011 DXCH 10
053697,000439:
053698,000440: 10,2204 52162 DXCH MPAC +5
053699,000441: 10,2205 20001 DDOUBL
053700,000442: 10,2206 50141 INDEX TEM1
053701,000443: 10,2207 52013 DXCH 12
053702,000444:
053703,000445: 10,2210 30142 CA TEM2
053704,000446: 10,2211 54003 TS EBANK
053705,000447: 10,2212 14631 TCF SWRETURN
053706,000448:
End of include-file POWERED_FLIGHT_SUBROUTINES.agc. Parent file is MAIN.agc