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.
|
052548,000002: ## Copyright: Public domain.
052549,000003: ## Filename: POWERED_FLIGHT_SUBROUTINES.agc
052550,000004: ## Purpose: A section of Luminary revision 98.
052551,000005: ## It is part of the reconstructed source code for the a
052552,000006: ## development version of the flight software for the Lunar
052553,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
052554,000008: ## The code has been recreated from a copy of Luminary 99
052555,000009: ## revision 001, using asterisks indicating changed lines in
052556,000010: ## the listing and Luminary Memo #85, which lists changes between
052557,000011: ## Luminary 98 and 99.
052558,000012: ## Reference: pp. 1259-1267
052559,000013: ## Assembler: yaYUL
052560,000014: ## Contact: Ron Burkey <info@sandroid.org>.
052561,000015: ## Website: www.ibiblio.org/apollo/index.html
052562,000016: ## Mod history: 2019-07-28 MAS Created from Luminary 99.
052563,000017: ## 2021-05-30 ABS SINSLOC -> SINESLOC
052564,000018:
|
|
Page 1259
|
052566,000020: 14,3774 BANK 14 # SAME FBANK AS THE FINDCDUD SUB-PROGRAM
052567,000021: 23,2000 SETLOC POWFLITE
052568,000022: 23,2000 BANK
052569,000023:
052570,000024: 23,3537 0142 EBANK= DEXDEX
052571,000025: 23,3537 COUNT* $$/POWFL
052572,000026:
052573,000027: # CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*TR*GS ALL COMPUTE THE SINES AND
052574,000028: # COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE
052575,000029: # PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU. AN
052576,000030: # ADDITIONAL OUTPUT IS THE 1'S COMPLEMENT ANGLES AT CDUSPOT. THESE
052577,000031: # ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT,
052578,000032: # EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2. THEY DIFFER ONLY IN
052579,000033: # WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING.
052580,000034:
052581,000035: # CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE
052582,000036: # SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS.
052583,000037: # THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY
052584,000038: # CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS.
052585,000039:
052586,000040: # CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC.
052587,000041:
052588,000042: # CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP. THIS
052589,000043: # ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL
052590,000044: # ANGLES IN AN ORDER OTHER THAN X Y Z. A CALL TO THIS ROUTINE IS
052591,000045: # NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO
052592,000046: # MODES (SMNB OR NBSM). SINCE AX*SR*T EXPECTS TO FIND THE SINES AND
052593,000047: # COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT
052594,000048: # IN THIS ORDER. CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED
052595,000049: # MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED. NOTE THAT SINCE
052596,000050: # IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE
052597,000051: # CALLED USING BANKCALL. SORRY.
052598,000052:
052599,000053: # CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN
052600,000054: # INTERPRETIVE.
052601,000055:
052602,000056: 23,3537 77776 CDUTRIG EXIT
052603,000057: 23,3540 03547 TC CDUTRIGS
052604,000058: 23,3541 06037 TC INTPRET
052605,000059: 23,3542 77616 RVQ
052606,000060:
052607,000061: 23,3543 77776 CD*TR*G EXIT
052608,000062: 23,3544 03555 TC CD*TR*GS
052609,000063: 23,3545 06037 TC INTPRET
052610,000064: 23,3546 77616 RVQ
052611,000065:
052612,000066: 23,3547 30032 CDUTRIGS CA CDUX
052613,000067: 23,3550 54772 TS CDUSPOT +4
052614,000068: 23,3551 30033 CA CDUY
052615,000069: 23,3552 54766 TS CDUSPOT
|
|
Page 1260
|
052617,000071: 23,3553 30034 CA CDUZ
052618,000072: 23,3554 54770 TS CDUSPOT +2
052619,000073:
052620,000074: 23,3555 00006 CD*TR*GS EXTEND
052621,000075: 23,3556 22142 QXCH TEM2
052622,000076: 23,3557 34751 CAF FOUR
052623,000077: 23,3560 76242 TR*GL**P MASK SIX # MAKE IT EVEN AND SMALLER
052624,000078: 23,3561 54143 TS TEM3
052625,000079: 23,3562 50143 INDEX TEM3
052626,000080: 23,3563 30766 CA CDUSPOT
052627,000081: 23,3564 52155 DXCH MPAC # STORING 2'S COMP ANGLE, LOADING MPAC
052628,000082: 23,3565 52127 DXCH VBUF +4 # STORING MPAC FOR LATER RESTORATION
052629,000083: 23,3566 04713 TC USPRCADR
052630,000084: 23,3567 21576 CADR CDULOGIC
052631,000085: 23,3570 00006 EXTEND
052632,000086: 23,3571 30155 DCA MPAC
052633,000087: 23,3572 50143 INDEX TEM3
052634,000088: 23,3573 52767 DXCH CDUSPOT # STORING 1'S COMPLEMENT ANGLE
052635,000089: 23,3574 04713 TC USPRCADR
052636,000090: 23,3575 01517 CADR COSINE
052637,000091: 23,3576 52155 DXCH MPAC
052638,000092: 23,3577 50143 INDEX TEM3
052639,000093: 23,3600 52745 DXCH COSCDU # STORING COSINE
052640,000094: 23,3601 00006 EXTEND
052641,000095: 23,3602 50143 INDEX TEM3
052642,000096: 23,3603 30767 DCA CDUSPOT # LOADING 1'S COMPLEMENT ANGLE
052643,000097: 23,3604 04713 TC USPRCADR
052644,000098: 23,3605 01531 CADR SINE +1 # SINE +1 EXPECTS ARGUMENT IN A AND L
052645,000099: 23,3606 52127 DXCH VBUF +4 # BRINGING UP PRIOR MPAC TO BE RESTORED
052646,000100: 23,3607 52155 DXCH MPAC
052647,000101: 23,3610 50143 INDEX TEM3
052648,000102: 23,3611 52737 DXCH SINCDU
052649,000103: 23,3612 10143 CCS TEM3
052650,000104: 23,3613 13560 TCF TR*GL**P
052651,000105: 23,3614 00142 TC TEM2
|
|
Page 1261
|
052653,000107: # ****************************************************************************************************************
052654,000108: # QUICTRIG, INTENDED FOR GUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS.
052655,000109: # QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2,
052656,000110: # AND CDUSPOT +4. UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN
052657,000111: # CDUSPOT. QUICTRIG'S EXECUTION TIME IS 4.1 MS; THIS IS 10 TIMES AS FAST AS CD*TR*GS. QUICTRIG MAY BE
052658,000112: # CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL.
052659,000113:
052660,000114: 23,3615 00004 QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS
052661,000115: 23,3616 00006 EXTEND
052662,000116: 23,3617 22061 QXCH ITEMP1
052663,000117: 23,3620 34751 CAF FOUR
052664,000118: 23,3621 76242 +4 MASK SIX
052665,000119: 23,3622 54062 TS ITEMP2
052666,000120: 23,3623 50062 INDEX ITEMP2
052667,000121: 23,3624 30766 CA CDUSPOT
052668,000122: 23,3625 05033 TC SPSIN
052669,000123: 23,3626 00006 EXTEND
052670,000124: 23,3627 74736 MP BIT14 # SCALE DOWN TO MATCH INTERPRETER OUTPUTS
052671,000125: 23,3630 50062 INDEX ITEMP2
052672,000126: 23,3631 52737 DXCH SINCDU
052673,000127: 23,3632 50062 INDEX ITEMP2
052674,000128: 23,3633 30766 CA CDUSPOT
052675,000129: 23,3634 05032 TC SPCOS
052676,000130: 23,3635 00006 EXTEND
052677,000131: 23,3636 74736 MP BIT14
052678,000132: 23,3637 50062 INDEX ITEMP2
052679,000133: 23,3640 52745 DXCH COSCDU
052680,000134: 23,3641 10062 CCS ITEMP2
052681,000135: 23,3642 13621 TCF QUICTRIG +4
052682,000136: 23,3643 30061 CA ITEMP1
052683,000137: 23,3644 00003 RELINT
052684,000138: 23,3645 00000 TC A
052685,000139:
|
|
Page 1262
|
052687,000141: # ****************************************************************************************************************
052688,000142: # THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN
052689,000143: # INTERPRETIVE. LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED.
052690,000144:
052691,000145: # THESE INTERFACE ROUTINES ARE PERMANENT. ALL RESTORE USER'S EBANK
052692,000146: # SETTING. ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL",
052693,000147: # RETURNING VIA QPRET. ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFOR-
052694,000148: # MED INTERPRETER-STYLE IN MPAC; COMPONENTS AT MPAC, MPAC +3, AND MPAC +5.
052695,000149:
052696,000150: # TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES
052697,000151: # AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4; ODD
052698,000152: # LOCATIONS NEED NOT BE ZEROED). TRG*NBSM DOES THE NB TO SM TRANSFOR-
052699,000153: # MATION; TRG*SMNB, VICE VERSA.
052700,000154:
052701,000155: # CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF
052702,000156: # THE CDU COUNTERS. OTHERWISE IT IS LIKE TRG*NBSM.
052703,000157:
052704,000158: # CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM.
052705,000159:
052706,000160: 23,3646 77776 CDU*SMNB EXIT
052707,000161: 23,3647 03547 TC CDUTRIGS
052708,000162: 23,3650 13653 TCF C*MM*N1
052709,000163:
052710,000164: 23,3651 77776 TRG*SMNB EXIT
052711,000165: 23,3652 03555 TC CD*TR*GS
052712,000166: 23,3653 07532 C*MM*N1 TC MPACVBUF # AX*SR*T EXPECTS VECTOR IN VBUF
052713,000167: 23,3654 46245 CS THREE # SIGNAL FOR SM TO NB TRANSFORMATION
052714,000168: 23,3655 03675 C*MM*N2 TC AX*SR*T
052715,000169: 23,3656 06037 TC INTPRET
052716,000170: 23,3657 43575 VLOAD RVQ
052717,000171: 23,3660 00123 VBUF
052718,000172:
052719,000173: 23,3661 77776 CDU*NBSM EXIT
052720,000174: 23,3662 03547 TC CDUTRIGS
052721,000175: 23,3663 13666 TCF C*MM*N3
052722,000176:
052723,000177: 23,3664 77776 TRG*NBSM EXIT
052724,000178: 23,3665 03555 TC CD*TR*GS
052725,000179: 23,3666 07532 C*MM*N3 TC MPACVBUF # FOR AX*SR*T
052726,000180: 23,3667 36245 CA THREE # SIGNAL FOR NB TO SM TRANSFORMATION
052727,000181: 23,3670 13655 TCF C*MM*N2
052728,000182:
052729,000183: # *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU
052730,000184: # AND COSCDU) RATHER THAN THE ANGLES THEMSELVES. OTHERWISE THEY ARE
052731,000185: # LIKE TRG*NBSM AND TRG*SMNB.
052732,000186:
052733,000187: # NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES
052734,000188: # OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM
|
|
Page 1263
|
052736,000190: # AND TRG*SMNB NEED BE CALLED FOR EACH SERIES. FOR SUBSEQUENT TRANSFOR-
052737,000191: # MATIONS USE *NBSM* AND *SMNB*.
052738,000192:
052739,000193: 23,3671 77776 *SMNB* EXIT
052740,000194: 23,3672 13653 TCF C*MM*N1
052741,000195:
052742,000196: 23,3673 77776 *NBSM* EXIT
052743,000197: 23,3674 13666 TCF C*MM*N3
052744,000198:
052745,000199: # AX*SR*T COMBINES THE OLD SMNB AND NBSM. FOR THE NB TO SM
052746,000200: # TRANSFORMATION, ENTER WITH +3 IN A. FOR SM TO NB, ENTER WITH -3.
052747,000201: # THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF.
052748,000202: # AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION
052749,000203: # AT SINCDU AND COSCDU, IN THE ORDER Y Z X. A CALL TO CD*TR*GS, WITH
052750,000204: # THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF
052751,000205: # THIS. HERE IS A SAMPLE CALLING SEQUENCE:-
052752,000206: # TC CDUTRIGS
052753,000207: # CS THREE ("CA THREE" FOR NBSM)
052754,000208: # TC AX*SR*T
052755,000209: # THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE
052756,000210: # THAN ONCE, UNLESS THE ANGLES HAVE CHANGED.
052757,000211:
052758,000212: # AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN
052759,000213: # UNITY. A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE
052760,000214: # HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS-
052761,000215: # FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED.
052762,000216:
052763,000217: 23,3675 54142 AX*SR*T TS DEXDEX # WHERE IT BECOMES THE INDEX OF INDEXES
052764,000218: 23,3676 00006 EXTEND
052765,000219: 23,3677 22145 QXCH RTNSAVER
052766,000220:
052767,000221: 23,3700 10142 R*TL**P CCS DEXDEX # +3 --> 0 -3 --> 2
052768,000222: 23,3701 40142 CS DEXDEX # THUS: +2 --> 1 -2 --> 1
052769,000223: 23,3702 66245 AD THREE # +1 --> 2 -1 --> 0
052770,000224: 23,3703 00006 EXTEND
052771,000225: 23,3704 50000 INDEX A
052772,000226: 23,3705 33764 DCA INDEXI
052773,000227: 23,3706 52144 DXCH DEXI
052774,000228:
052775,000229: 23,3707 34753 CA ONE
052776,000230: 23,3710 54130 TS BUF
052777,000231: 23,3711 00006 EXTEND
052778,000232: 23,3712 50143 INDEX DEX1
052779,000233: 23,3713 40123 DCS VBUF
052780,000234: 23,3714 13716 TCF LOOP1 # REALLY BE A SUBTRACT, AND VICE VERSA
052781,000235:
052782,000236: 23,3715 52131 LOOP2 DXCH BUF # LOADING VECTOR COMPONENT, STORING INDEX
|
|
Page 1264
|
052784,000238: 23,3716 52155 LOOP1 DXCH MPAC
052785,000239: 23,3717 33762 CA SINESLOC
052786,000240: 23,3720 60143 AD DEX1
052787,000241: 23,3721 54116 TS ADDRWD
052788,000242:
052789,000243: 23,3722 07107 TC DMPSUB # MULTIPLY BY SIN(CDUANGLE)
052790,000244: 23,3723 10142 CCS DEXDEX
052791,000245: 23,3724 52155 DXCH MPAC # NBSM CASE
052792,000246: 23,3725 13730 TCF +3
052793,000247: 23,3726 00006 EXTEND # SMNB CASE
052794,000248: 23,3727 40155 DCS MPAC
052795,000249: 23,3730 52160 DXCH TERM1TMP
052796,000250:
052797,000251: 23,3731 36242 CA SIX # SINCDU AND COSCDU (EACH 6 WORDS) MUST
052798,000252: 23,3732 26116 ADS ADDRWD # BE CONSECUTIVE AND IN THAT ORDER
052799,000253:
052800,000254: 23,3733 00006 EXTEND
052801,000255: 23,3734 50130 INDEX BUF
052802,000256: 23,3735 50143 INDEX DEX1
052803,000257: 23,3736 30123 DCA VBUF
052804,000258: 23,3737 52155 DXCH MPAC
052805,000259: 23,3740 07107 TC DMPSUB # MULTIPLY BY COS(CDUANGLE)
052806,000260: 23,3741 52155 DXCH MPAC
052807,000261: 23,3742 20160 DAS TERM1TMP
052808,000262: 23,3743 52160 DXCH TERM1TMP
052809,000263: 23,3744 20001 DDOUBL
052810,000264: 23,3745 50130 INDEX BUF
052811,000265: 23,3746 50143 INDEX DEX1
052812,000266: 23,3747 52123 DXCH VBUF
052813,000267: 23,3750 52131 DXCH BUF # LOADING INDEX, STORING VECTOR COMPONENT
052814,000268:
052815,000269: 23,3751 10000 CCS A # 'CAUSE THAT'S WHERE THE INDEX NOW IS
052816,000270: 23,3752 13715 TCF LOOP2
052817,000271:
052818,000272: 23,3753 00006 EXTEND
052819,000273: 23,3754 26142 DIM DEXDEX # DECREMENT MAGNITUDE PRESERVING SIGN
052820,000274:
052821,000275: 23,3755 10142 TSTPOINT CCS DEXDEX # ONLY THE BRANCHING FUNCTION IS USED
052822,000276: 23,3756 13700 TCF R*TL**P
052823,000277: 23,3757 00145 TC RTNSAVER
052824,000278: 23,3760 13700 TCF R*TL**P
052825,000279: 23,3761 00145 TC RTNSAVER
052826,000280:
052827,000281: 23,3762 00736 SINESLOC ADRES SINCDU # FOR USE IN SETTING ADDRWD
052828,000282:
052829,000283: 23,3763 00004 INDEXI DEC 4 B-14 # ********** DON'T **********
052830,000284: 23,3764 00002 DEC 2 B-14 # ********** TOUCH **********
052831,000285: 23,3765 00000 DEC 0 B-14 # ********** THESE **********
|
|
Page 1265
|
052833,000287: 23,3766 00004 DEC 4 B-14 # ********** CONSTANTS **********
052834,000288:
052835,000289: # ****************************************************************************************************************
052836,000290:
052837,000291: 10,2030 BANK 10
052838,000292: 10,2000 SETLOC FLESHLOC
052839,000293: 10,2000 BANK
052840,000294: 10,2030 COUNT* $$/POWFL
052841,000295:
052842,000296: # ROUTINE FLESHPOT COMPUTES THE BODY-STABLE MEMBER TRANSFORMATION MATRIX (COMMONLY CALLED XNB) AND STORES
052843,000297: # IT IN THE LOCATIONS SPECIFIED BY THE ECADR ENTERING IN A.
052844,000298:
052845,000299: 10,2030 77776 CALCSMSC EXIT
052846,000300: 10,2031 04616 TC BANKCALL
052847,000301: 10,2032 20036 CADR FLESHPOT -1
052848,000302: 10,2033 06037 TC INTPRET
052849,000303: 10,2034 77616 RVQ
052850,000304:
052851,000305: 10,2035 02664 XNBECADR ECADR XNB
052852,000306:
052853,000307: 10,2036 32035 -1 CAF XNBECADR
052854,000308:
052855,000309: 10,2037 54142 FLESHPOT TS TEM2
052856,000310: 10,2040 56003 XCH EBANK
052857,000311: 10,2041 56142 XCH TEM2
052858,000312: 10,2042 74357 MASK LOW8
052859,000313: 10,2043 65007 AD OCT1400
052860,000314: 10,2044 54141 TS TEM1
052861,000315:
052862,000316: 10,2045 00006 EXTEND
052863,000317: 10,2046 30745 DCA COSCDUY
052864,000318: 10,2047 52155 DXCH MPAC
052865,000319: 10,2050 07103 TC DMP
052866,000320: 10,2051 00746 ADRES COSCDUZ
052867,000321: 10,2052 52155 DXCH MPAC
052868,000322: 10,2053 20001 DDOUBL
052869,000323: 10,2054 50141 INDEX TEM1
052870,000324: 10,2055 52001 DXCH 0 # = COSY COSZ
052871,000325:
052872,000326: 10,2056 00006 EXTEND
052873,000327: 10,2057 30741 DCA SINCDUZ
052874,000328: 10,2060 50141 INDEX TEM1
052875,000329: 10,2061 52003 DXCH 2 # = SINZ
052876,000330:
052877,000331: 10,2062 00006 EXTEND
052878,000332: 10,2063 40737 DCS SINCDUY
052879,000333: 10,2064 52155 DXCH MPAC
052880,000334: 10,2065 07107 TC DMPSUB # ADDRWD SET TO COSCDUZ
|
|
Page 1266
|
052882,000336: 10,2066 52155 DXCH MPAC
052883,000337: 10,2067 20001 DDOUBL
052884,000338: 10,2070 50141 INDEX TEM1
052885,000339: 10,2071 52005 DXCH 4 # = - SINY COSZ
052886,000340:
052887,000341: 10,2072 00006 EXTEND
052888,000342: 10,2073 40743 DCS SINCDUX
052889,000343: 10,2074 52155 DXCH MPAC
052890,000344: 10,2075 07107 TC DMPSUB # ADDRWD SET TO COSCDUZ STILL
052891,000345: 10,2076 52155 DXCH MPAC
052892,000346: 10,2077 20001 DDOUBL
052893,000347: 10,2100 52160 DXCH MPAC +3
052894,000348:
052895,000349: 10,2101 00006 EXTEND
052896,000350: 10,2102 40743 DCS SINCDUX
052897,000351: 10,2103 52155 DXCH MPAC
052898,000352: 10,2104 07103 TC DMP
052899,000353: 10,2105 00740 ADRES SINCDUZ
052900,000354: 10,2106 00006 EXTEND
052901,000355: 10,2107 40155 DCS MPAC
052902,000356: 10,2110 52162 DXCH MPAC +5
052903,000357: 10,2111 07103 TC DMP
052904,000358: 10,2112 00736 ADRES SINCDUY
052905,000359: 10,2113 52155 DXCH MPAC
052906,000360: 10,2114 20001 DDOUBL
052907,000361: 10,2115 20001 DDOUBL
052908,000362: 10,2116 52162 DXCH MPAC +5
052909,000363:
052910,000364: 10,2117 52155 DXCH MPAC
052911,000365: 10,2120 07103 TC DMP
052912,000366: 10,2121 00744 ADRES COSCDUY
052913,000367: 10,2122 52155 DXCH MPAC
052914,000368: 10,2123 20001 DDOUBL
052915,000369: 10,2124 20001 DDOUBL
052916,000370: 10,2125 52131 DXCH BUF
052917,000371:
052918,000372: 10,2126 00006 EXTEND
052919,000373: 10,2127 30745 DCA COSCDUY
052920,000374: 10,2130 52155 DXCH MPAC
052921,000375: 10,2131 07103 TC DMP
052922,000376: 10,2132 00750 ADRES COSCDUX
052923,000377: 10,2133 52155 DXCH MPAC
052924,000378: 10,2134 20001 DDOUBL
052925,000379: 10,2135 20162 DAS MPAC +5
052926,000380:
052927,000381: 10,2136 00006 EXTEND
052928,000382: 10,2137 30737 DCA SINCDUY
052929,000383: 10,2140 52155 DXCH MPAC
052930,000384: 10,2141 07107 TC DMPSUB # ADDRWD SET TO COSCDUX
052931,000385: 10,2142 52155 DXCH MPAC
052932,000386:
|
|
Page 1267
|
052934,000388: 10,2143 20001 DDOUBL
052935,000389: 10,2144 20131 DAS BUF
052936,000390:
052937,000391: 10,2145 52131 DXCH BUF
052938,000392: 10,2146 52155 DXCH MPAC
052939,000393:
052940,000394: 10,2147 00006 EXTEND
052941,000395: 10,2150 30155 DCA MPAC
052942,000396: 10,2151 50141 INDEX TEM1
052943,000397: 10,2152 52015 DXCH 14 # = SINY COSX + SINX SINZ COSY
052944,000398:
052945,000399: 10,2153 00006 EXTEND
052946,000400: 10,2154 30160 DCA MPAC +3
052947,000401: 10,2155 50141 INDEX TEM1
052948,000402: 10,2156 52017 DXCH 16 # = - SINX COSZ
052949,000403:
052950,000404: 10,2157 00006 EXTEND
052951,000405: 10,2160 30162 DCA MPAC +5
052952,000406: 10,2161 50141 INDEX TEM1
052953,000407: 10,2162 52021 DXCH 20 # = COSX COSY - SINX SINY SINZ
052954,000408:
052955,000409: 10,2163 30141 CA TEM1
052956,000410: 10,2164 54116 TS ADDRWD
052957,000411: 10,2165 00006 EXTEND
052958,000412: 10,2166 30006 DCA Z
052959,000413: 10,2167 64751 AD FOUR
052960,000414: 10,2170 52165 DXCH LOC
052961,000415: 10,2171 34744 CAF BIT8
052962,000416: 10,2172 54023 TS EDOP
052963,000417: 10,2173 17460 TCF VXV
052964,000418: 10,2174 52155 DXCH MPAC
052965,000419: 10,2175 20001 DDOUBL
052966,000420: 10,2176 50141 INDEX TEM1
052967,000421: 10,2177 52007 DXCH 6
052968,000422:
052969,000423: 10,2200 52160 DXCH MPAC +3
052970,000424: 10,2201 20001 DDOUBL
052971,000425: 10,2202 50141 INDEX TEM1
052972,000426: 10,2203 52011 DXCH 10
052973,000427:
052974,000428: 10,2204 52162 DXCH MPAC +5
052975,000429: 10,2205 20001 DDOUBL
052976,000430: 10,2206 50141 INDEX TEM1
052977,000431: 10,2207 52013 DXCH 12
052978,000432:
052979,000433: 10,2210 30142 CA TEM2
052980,000434: 10,2211 54003 TS EBANK
052981,000435: 10,2212 14631 TCF SWRETURN
052982,000436:
End of include-file POWERED_FLIGHT_SUBROUTINES.agc. Parent file is MAIN.agc