Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
054502,000002: ## Copyright: Public domain.
054503,000003: ## Filename: POWERED_FLIGHT_SUBROUTINES.agc
054504,000004: ## Purpose: A log section of Zerlina 56, the final revision of
054505,000005: ## Don Eyles's offline development program for the variable
054506,000006: ## guidance period servicer. It also includes a new P66 with LPD
054507,000007: ## (Landing Point Designator) capability, based on an idea of John
054508,000008: ## Young's. Neither of these advanced features were actually flown,
054509,000009: ## but Zerlina was also the birthplace of other big improvements to
054510,000010: ## Luminary including the terrain model and new (Luminary 1E)
054511,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
054512,000012: ## and revision 56 includes all changes up to and including Luminary
054513,000013: ## 183. It is therefore quite close to the Apollo 14 program,
054514,000014: ## Luminary 178, where not modified with new features.
054515,000015: ## Reference: pp. 1248-1256
054516,000016: ## Assembler: yaYUL
054517,000017: ## Contact: Ron Burkey <info@sandroid.org>.
054518,000018: ## Website: www.ibiblio.org/apollo/index.html
054519,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
054520,000020: ## 2017-08-29 RSB Transcribed.
054521,000021:
![]() |
Page 1248 |
054523,000023: 14,3775 BANK 14 # SAME FBANK AS THE FINDCDUD SUB-PROGRAM
054524,000024: 23,2000 SETLOC POWFLITE
054525,000025: 23,2000 BANK
054526,000026:
054527,000027: 23,3535 0142 EBANK= DEXDEX
054528,000028: 23,3535 COUNT* $$/POWFL
054529,000029:
054530,000030: # CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*TR*GS ALL COMPUTE THE SINES AND
054531,000031: # COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE
054532,000032: # PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU. AN
054533,000033: # ADDITIONAL OUTPUT IS THE 1'S COMPLEMENT ANGLES AT CDUSPOT. THESE
054534,000034: # ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT,
054535,000035: # EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2. THEY DIFFER ONLY IN
054536,000036: # WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING.
054537,000037:
054538,000038: # CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE
054539,000039: # SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS.
054540,000040: # THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY
054541,000041: # CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS.
054542,000042:
054543,000043: # CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC.
054544,000044:
054545,000045: # CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP. THIS
054546,000046: # ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL
054547,000047: # ANGLES IN AN ORDER OTHER THAN X Y Z. A CALL TO THIS ROUTINE IS
054548,000048: # NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO
054549,000049: # MODES (SMNB OR NBSM). SINCE AX*SR*T EXPECTS TO FIND THE SINES AND
054550,000050: # COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT
054551,000051: # IN THIS ORDER. CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED
054552,000052: # MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED. NOTE THAT SINCE
054553,000053: # IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE
054554,000054: # CALLED USING BANKCALL. SORRY.
054555,000055:
054556,000056: # CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN
054557,000057: # INTERPRETIVE.
054558,000058:
054559,000059: 23,3535 77776 CDUTRIG EXIT
054560,000060: 23,3536 03545 TC CDUTRIGS
054561,000061: 23,3537 06051 TC INTPRET
054562,000062: 23,3540 77616 RVQ
054563,000063:
054564,000064: 23,3541 77776 CD*TR*G EXIT
054565,000065: 23,3542 03553 TC CD*TR*GS
054566,000066: 23,3543 06051 TC INTPRET
054567,000067: 23,3544 77616 RVQ
054568,000068:
054569,000069: 23,3545 30032 CDUTRIGS CA CDUX
054570,000070: 23,3546 54771 TS CDUSPOT +4
054571,000071: 23,3547 30033 CA CDUY
054572,000072: 23,3550 54765 TS CDUSPOT
![]() |
Page 1249 |
054574,000074: 23,3551 30034 CA CDUZ
054575,000075: 23,3552 54767 TS CDUSPOT +2
054576,000076:
054577,000077: 23,3553 00006 CD*TR*GS EXTEND
054578,000078: 23,3554 22142 QXCH TEM2
054579,000079: 23,3555 34751 CAF FOUR
054580,000080: 23,3556 76254 TR*GL**P MASK SIX # MAKE IT EVEN AND SMALLER
054581,000081: 23,3557 54143 TS TEM3
054582,000082: 23,3560 50143 INDEX TEM3
054583,000083: 23,3561 30765 CA CDUSPOT
054584,000084: 23,3562 52155 DXCH MPAC # STORING 2'S COMP ANGLE, LOADING MPAC
054585,000085: 23,3563 52127 DXCH VBUF +4 # STORING MPAC FOR LATER RESTORATION
054586,000086: 23,3564 04713 TC USPRCADR
054587,000087: 23,3565 21560 CADR CDULOGIC
054588,000088: 23,3566 00006 EXTEND
054589,000089: 23,3567 30155 DCA MPAC
054590,000090: 23,3570 50143 INDEX TEM3
054591,000091: 23,3571 52766 DXCH CDUSPOT # STORING 1'S COMPLEMENT ANGLE
054592,000092: 23,3572 04713 TC USPRCADR
054593,000093: 23,3573 01517 CADR COSINE
054594,000094: 23,3574 52155 DXCH MPAC
054595,000095: 23,3575 50143 INDEX TEM3
054596,000096: 23,3576 52744 DXCH COSCDU # STORING COSINE
054597,000097: 23,3577 00006 EXTEND
054598,000098: 23,3600 50143 INDEX TEM3
054599,000099: 23,3601 30766 DCA CDUSPOT # LOADING 1'S COMPLEMENT ANGLE
054600,000100: 23,3602 04713 TC USPRCADR
054601,000101: 23,3603 01531 CADR SINE +1 # SINE +1 EXPECTS ARGUMENT IN A AND L
054602,000102: 23,3604 52127 DXCH VBUF +4 # BRINGING UP PRIOR MPAC TO BE RESTORED
054603,000103: 23,3605 52155 DXCH MPAC
054604,000104: 23,3606 50143 INDEX TEM3
054605,000105: 23,3607 52736 DXCH SINCDU
054606,000106: 23,3610 10143 CCS TEM3
054607,000107: 23,3611 13556 TCF TR*GL**P
054608,000108: 23,3612 00142 TC TEM2
![]() |
Page 1250 |
054610,000110: # ****************************************************************************************************************
054611,000111:
054612,000112: # QUICTRIG, INTENDED FOR GUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS.
054613,000113: # QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2,
054614,000114: # AND CDUSPOT +4. UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN
054615,000115: # CDUSPOT. QUICTRIG'S EXECUTION TIME IS 4.1 MS; THIS IS 10 TIMES AS FAST AS CD*TR*GS. QUICTRIG MAY BE
054616,000116: # CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL.
054617,000117:
054618,000118: 23,3613 00004 QTPROLOG INHINT
054619,000119: 23,3614 30032 CA CDUX
054620,000120: 23,3615 54771 TS CDUSPOTX
054621,000121: 23,3616 30033 CA CDUY
054622,000122: 23,3617 54765 TS CDUSPOTY
054623,000123: 23,3620 30034 CA CDUZ
054624,000124: 23,3621 54767 TS CDUSPOTZ
054625,000125:
054626,000126: 23,3622 00004 QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS
054627,000127: 23,3623 00006 EXTEND
054628,000128: 23,3624 22061 QXCH ITEMP1
054629,000129: 23,3625 34751 CAF FOUR
054630,000130: 23,3626 76254 +4 MASK SIX
054631,000131: 23,3627 54062 TS ITEMP2
054632,000132: 23,3630 50062 INDEX ITEMP2
054633,000133: 23,3631 30765 CA CDUSPOT
054634,000134: 23,3632 05033 TC SPSIN
054635,000135: 23,3633 00006 EXTEND
054636,000136: 23,3634 74736 MP BIT14 # SCALE DOWN TO MATCH INTERPRETER OUTPUTS
054637,000137: 23,3635 50062 INDEX ITEMP2
054638,000138: 23,3636 52736 DXCH SINCDU
054639,000139: 23,3637 50062 INDEX ITEMP2
054640,000140: 23,3640 30765 CA CDUSPOT
054641,000141: 23,3641 05032 TC SPCOS
054642,000142: 23,3642 00006 EXTEND
054643,000143: 23,3643 74736 MP BIT14
054644,000144: 23,3644 50062 INDEX ITEMP2
054645,000145: 23,3645 52744 DXCH COSCDU
054646,000146: 23,3646 10062 CCS ITEMP2
054647,000147: 23,3647 13626 TCF QUICTRIG +4
054648,000148: 23,3650 30061 CA ITEMP1
054649,000149: 23,3651 00003 RELINT
054650,000150: 23,3652 00000 TC A
054651,000151:
![]() |
Page 1251 |
054653,000153: # ****************************************************************************************************************
054654,000154: # THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN
054655,000155: # INTERPRETIVE. LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED.
054656,000156:
054657,000157: # THESE INTERFACE ROUTINES ARE PERMANENT. ALL RESTORE USER'S EBANK
054658,000158: # SETTING. ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL",
054659,000159: # RETURNING VIA QPRET. ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFOR-
054660,000160: # MED INTERPRETER-STYLE IN MPAC; COMPONENTS AT MPAC, MPAC +3, AND MPAC +5.
054661,000161:
054662,000162: # TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES
054663,000163: # AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4; ODD
054664,000164: # LOCATIONS NEED NOT BE ZEROED). TRG*NBSM DOES THE NB TO SM TRANSFOR-
054665,000165: # MATION; TRG*SMNB, VICE VERSA.
054666,000166:
054667,000167: # CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF
054668,000168: # THE CDU COUNTERS. OTHERWISE IT IS LIKE TRG*NBSM.
054669,000169:
054670,000170: # CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM.
054671,000171:
054672,000172: 23,3653 77776 CDU*SMNB EXIT
054673,000173: 23,3654 03545 TC CDUTRIGS
054674,000174: 23,3655 13660 TCF C*MM*N1
054675,000175:
054676,000176: 23,3656 77776 TRG*SMNB EXIT
054677,000177: 23,3657 03553 TC CD*TR*GS
054678,000178: 23,3660 07544 C*MM*N1 TC MPACVBUF # AX*SR*T EXPECTS VECTOR IN VBUF
054679,000179: 23,3661 46257 CS THREE # SIGNAL FOR SM TO NB TRANSFORMATION
054680,000180: 23,3662 03702 C*MM*N2 TC AX*SR*T
054681,000181: 23,3663 06051 TC INTPRET
054682,000182: 23,3664 43575 VLOAD RVQ
054683,000183: 23,3665 00123 VBUF
054684,000184:
054685,000185: 23,3666 77776 CDU*NBSM EXIT
054686,000186: 23,3667 03545 TC CDUTRIGS
054687,000187: 23,3670 13673 TCF C*MM*N3
054688,000188:
054689,000189: 23,3671 77776 TRG*NBSM EXIT
054690,000190: 23,3672 03553 TC CD*TR*GS
054691,000191: 23,3673 07544 C*MM*N3 TC MPACVBUF # FOR AX*SR*T
054692,000192: 23,3674 36257 CA THREE # SIGNAL FOR NB TO SM TRANSFORMATION
054693,000193: 23,3675 13662 TCF C*MM*N2
054694,000194:
054695,000195: # *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU
054696,000196: # AND COSCDU) RATHER THAN THE ANGLES THEMSELVES. OTHERWISE THEY ARE
054697,000197: # LIKE TRG*NBSM AND TRG*SMNB.
054698,000198:
054699,000199: # NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES
054700,000200: # OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM
![]() |
Page 1252 |
054702,000202: # AND TRG*SMNB NEED BE CALLED FOR EACH SERIES. FOR SUBSEQUENT TRANSFOR-
054703,000203: # MATIONS USE *NBSM* AND *SMNB*.
054704,000204:
054705,000205: 23,3676 77776 *SMNB* EXIT
054706,000206: 23,3677 13660 TCF C*MM*N1
054707,000207:
054708,000208: 23,3700 77776 *NBSM* EXIT
054709,000209: 23,3701 13673 TCF C*MM*N3
054710,000210:
054711,000211: # AX*SR*T COMBINES THE OLD SMNB AND NBSM. FOR THE NB TO SM
054712,000212: # TRANSFORMATION, ENTER WITH +3 IN A. FOR SM TO NB, ENTER WITH -3.
054713,000213: # THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF.
054714,000214: # AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION
054715,000215: # AT SINCDU AND COSCDU, IN THE ORDER Y Z X. A CALL TO CD*TR*GS, WITH
054716,000216: # THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF
054717,000217: # THIS. HERE IS A SAMPLE CALLING SEQUENCE:-
054718,000218:
054719,000219: # TC CDUTRIGS
054720,000220: # CS THREE ("CA THREE" FOR NBSM)
054721,000221: # TC AX*SR*T
054722,000222:
054723,000223: # THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE
054724,000224: # THAN ONCE, UNLESS THE ANGLES HAVE CHANGED.
054725,000225:
054726,000226: # AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN
054727,000227: # UNITY. A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE
054728,000228: # HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS-
054729,000229: # FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED.
054730,000230:
054731,000231: 23,3702 54142 AX*SR*T TS DEXDEX # WHERE IT BECOMES THE INDEX OF INDEXES
054732,000232: 23,3703 00006 EXTEND
054733,000233: 23,3704 22145 QXCH RTNSAVER
054734,000234:
054735,000235: 23,3705 10142 R*TL**P CCS DEXDEX # +3 --> 0 -3 --> 2
054736,000236: 23,3706 40142 CS DEXDEX # THUS: +2 --> 1 -2 --> 1
054737,000237: 23,3707 66257 AD THREE # +1 --> 2 -1 --> 0
054738,000238: 23,3710 00006 EXTEND
054739,000239: 23,3711 50000 INDEX A
054740,000240: 23,3712 33771 DCA INDEXI
054741,000241: 23,3713 52144 DXCH DEXI
054742,000242:
054743,000243: 23,3714 34753 CA ONE
054744,000244: 23,3715 54130 TS BUF
054745,000245: 23,3716 00006 EXTEND
054746,000246: 23,3717 50143 INDEX DEX1
054747,000247: 23,3720 40123 DCS VBUF
054748,000248: 23,3721 13723 TCF LOOP1 # REALLY BE A SUBTRACT, AND VICE VERSA
054749,000249:
054750,000250: 23,3722 52131 LOOP2 DXCH BUF # LOADING VECTOR COMPONENT, STORING INDEX
![]() |
Page 1253 |
054752,000252: 23,3723 52155 LOOP1 DXCH MPAC
054753,000253: 23,3724 33767 CA SINSLOC
054754,000254: 23,3725 60143 AD DEX1
054755,000255: 23,3726 54116 TS ADDRWD
054756,000256:
054757,000257: 23,3727 07121 TC DMPSUB # MULTIPLY BY SIN(CDUANGLE)
054758,000258: 23,3730 10142 CCS DEXDEX
054759,000259: 23,3731 52155 DXCH MPAC # NBSM CASE
054760,000260: 23,3732 13735 TCF +3
054761,000261: 23,3733 00006 EXTEND # SMNB CASE
054762,000262: 23,3734 40155 DCS MPAC
054763,000263: 23,3735 52160 DXCH TERM1TMP
054764,000264:
054765,000265: 23,3736 36254 CA SIX # SINCDU AND COSCDU (EACH 6 WORDS) MUST
054766,000266: 23,3737 26116 ADS ADDRWD # BE CONSECUTIVE AND IN THAT ORDER
054767,000267:
054768,000268: 23,3740 00006 EXTEND
054769,000269: 23,3741 50130 INDEX BUF
054770,000270: 23,3742 50143 INDEX DEX1
054771,000271: 23,3743 30123 DCA VBUF
054772,000272: 23,3744 52155 DXCH MPAC
054773,000273: 23,3745 07121 TC DMPSUB # MULTIPLY BY COS(CDUANGLE)
054774,000274: 23,3746 52155 DXCH MPAC
054775,000275: 23,3747 20160 DAS TERM1TMP
054776,000276: 23,3750 52160 DXCH TERM1TMP
054777,000277: 23,3751 20001 DDOUBL
054778,000278: 23,3752 50130 INDEX BUF
054779,000279: 23,3753 50143 INDEX DEX1
054780,000280: 23,3754 52123 DXCH VBUF
054781,000281: 23,3755 52131 DXCH BUF # LOADING INDEX, STORING VECTOR COMPONENT
054782,000282:
054783,000283: 23,3756 10000 CCS A # 'CAUSE THAT'S WHERE THE INDEX NOW IS
054784,000284: 23,3757 13722 TCF LOOP2
054785,000285:
054786,000286: 23,3760 00006 EXTEND
054787,000287: 23,3761 26142 DIM DEXDEX # DECREMENT MAGNITUDE PRESERVING SIGN
054788,000288:
054789,000289: 23,3762 10142 TSTPOINT CCS DEXDEX # ONLY THE BRANCHING FUNCTION IS USED
054790,000290: 23,3763 13705 TCF R*TL**P
054791,000291: 23,3764 00145 TC RTNSAVER
054792,000292: 23,3765 13705 TCF R*TL**P
054793,000293: 23,3766 00145 TC RTNSAVER
054794,000294:
054795,000295: 23,3767 00735 SINSLOC ADRES SINCDU # FOR USE IN SETTING ADDRWD
054796,000296:
054797,000297: 23,3770 00004 INDEXI DEC 4 B-14 # ********** DON'T **********
054798,000298: 23,3771 00002 DEC 2 B-14 # ********** TOUCH **********
054799,000299: 23,3772 00000 DEC 0 B-14 # ********** THESE **********
![]() |
Page 1254 |
054801,000301: 23,3773 00004 DEC 4 B-14 # ********** CONSTANTS **********
054802,000302:
054803,000303: # ****************************************************************************************************************
054804,000304:
054805,000305: 10,2030 BANK 10
054806,000306: 10,2000 SETLOC FLESHLOC
054807,000307: 10,2000 BANK
054808,000308: 10,2030 COUNT* $$/POWFL
054809,000309:
054810,000310: # ROUTINE FLESHPOT COMPUTES THE BODY-STABLE MEMBER TRANSFORMATION MATRIX (COMMONLY CALLED XNB) AND STORES
054811,000311: # IT IN THE LOCATIONS SPECIFIED BY THE ECADR ENTERING IN A.
054812,000312:
054813,000313: 10,2030 77776 CALCSMSC EXIT
054814,000314: 10,2031 04616 TC BANKCALL
054815,000315: 10,2032 20036 CADR FLESHPOT -1
054816,000316: 10,2033 06051 TC INTPRET
054817,000317: 10,2034 77616 RVQ
054818,000318:
054819,000319: 10,2035 02664 XNBECADR ECADR XNB
054820,000320:
054821,000321: 10,2036 32035 -1 CAF XNBECADR
054822,000322:
054823,000323: 10,2037 54142 FLESHPOT TS TEM2
054824,000324: 10,2040 56003 XCH EBANK
054825,000325: 10,2041 56142 XCH TEM2
054826,000326: 10,2042 74357 MASK LOW8
054827,000327: 10,2043 65007 AD OCT1400
054828,000328: 10,2044 54141 TS TEM1
054829,000329:
054830,000330: 10,2045 00006 EXTEND
054831,000331: 10,2046 30744 DCA COSCDUY
054832,000332: 10,2047 52155 DXCH MPAC
054833,000333: 10,2050 07115 TC DMP
054834,000334: 10,2051 00745 ADRES COSCDUZ
054835,000335: 10,2052 52155 DXCH MPAC
054836,000336: 10,2053 20001 DDOUBL
054837,000337: 10,2054 50141 INDEX TEM1
054838,000338: 10,2055 52001 DXCH 0 # = COSY COSZ
054839,000339:
054840,000340: 10,2056 00006 EXTEND
054841,000341: 10,2057 30740 DCA SINCDUZ
054842,000342: 10,2060 50141 INDEX TEM1
054843,000343: 10,2061 52003 DXCH 2 # = SINZ
054844,000344:
054845,000345: 10,2062 00006 EXTEND
054846,000346: 10,2063 40736 DCS SINCDUY
054847,000347: 10,2064 52155 DXCH MPAC
054848,000348: 10,2065 07121 TC DMPSUB # ADDRWD SET TO COSCDUZ
![]() |
Page 1255 |
054850,000350: 10,2066 52155 DXCH MPAC
054851,000351: 10,2067 20001 DDOUBL
054852,000352: 10,2070 50141 INDEX TEM1
054853,000353: 10,2071 52005 DXCH 4 # = - SINY COSZ
054854,000354:
054855,000355: 10,2072 00006 EXTEND
054856,000356: 10,2073 40742 DCS SINCDUX
054857,000357: 10,2074 52155 DXCH MPAC
054858,000358: 10,2075 07121 TC DMPSUB # ADDRWD SET TO COSCDUZ STILL
054859,000359: 10,2076 52155 DXCH MPAC
054860,000360: 10,2077 20001 DDOUBL
054861,000361: 10,2100 52160 DXCH MPAC +3
054862,000362:
054863,000363: 10,2101 00006 EXTEND
054864,000364: 10,2102 40742 DCS SINCDUX
054865,000365: 10,2103 52155 DXCH MPAC
054866,000366: 10,2104 07115 TC DMP
054867,000367: 10,2105 00737 ADRES SINCDUZ
054868,000368: 10,2106 00006 EXTEND
054869,000369: 10,2107 40155 DCS MPAC
054870,000370: 10,2110 52162 DXCH MPAC +5
054871,000371: 10,2111 07115 TC DMP
054872,000372: 10,2112 00735 ADRES SINCDUY
054873,000373: 10,2113 52155 DXCH MPAC
054874,000374: 10,2114 20001 DDOUBL
054875,000375: 10,2115 20001 DDOUBL
054876,000376: 10,2116 52162 DXCH MPAC +5
054877,000377:
054878,000378: 10,2117 52155 DXCH MPAC
054879,000379: 10,2120 07115 TC DMP
054880,000380: 10,2121 00743 ADRES COSCDUY
054881,000381: 10,2122 52155 DXCH MPAC
054882,000382: 10,2123 20001 DDOUBL
054883,000383: 10,2124 20001 DDOUBL
054884,000384: 10,2125 52131 DXCH BUF
054885,000385:
054886,000386: 10,2126 00006 EXTEND
054887,000387: 10,2127 30744 DCA COSCDUY
054888,000388: 10,2130 52155 DXCH MPAC
054889,000389: 10,2131 07115 TC DMP
054890,000390: 10,2132 00747 ADRES COSCDUX
054891,000391: 10,2133 52155 DXCH MPAC
054892,000392: 10,2134 20001 DDOUBL
054893,000393: 10,2135 20162 DAS MPAC +5
054894,000394:
054895,000395: 10,2136 00006 EXTEND
054896,000396: 10,2137 30736 DCA SINCDUY
054897,000397: 10,2140 52155 DXCH MPAC
054898,000398: 10,2141 07121 TC DMPSUB # ADDRWD SET TO COSCDUX
054899,000399: 10,2142 52155 DXCH MPAC
054900,000400:
![]() |
Page 1256 |
054902,000402: 10,2143 20001 DDOUBL
054903,000403: 10,2144 20131 DAS BUF
054904,000404:
054905,000405: 10,2145 52131 DXCH BUF
054906,000406: 10,2146 52155 DXCH MPAC
054907,000407:
054908,000408: 10,2147 00006 EXTEND
054909,000409: 10,2150 30155 DCA MPAC
054910,000410: 10,2151 50141 INDEX TEM1
054911,000411: 10,2152 52015 DXCH 14 # = SINY COSX + SINX SINZ COSY
054912,000412:
054913,000413: 10,2153 00006 EXTEND
054914,000414: 10,2154 30160 DCA MPAC +3
054915,000415: 10,2155 50141 INDEX TEM1
054916,000416: 10,2156 52017 DXCH 16 # = - SINX COSZ
054917,000417:
054918,000418: 10,2157 00006 EXTEND
054919,000419: 10,2160 30162 DCA MPAC +5
054920,000420: 10,2161 50141 INDEX TEM1
054921,000421: 10,2162 52021 DXCH 20 # = COSX COSY - SINX SINY SINZ
054922,000422:
054923,000423: 10,2163 30141 CA TEM1
054924,000424: 10,2164 54116 TS ADDRWD
054925,000425: 10,2165 00006 EXTEND
054926,000426: 10,2166 30006 DCA Z
054927,000427: 10,2167 64751 AD FOUR
054928,000428: 10,2170 52165 DXCH LOC
054929,000429: 10,2171 34744 CAF BIT8
054930,000430: 10,2172 54023 TS EDOP
054931,000431: 10,2173 17472 TCF VXV
054932,000432: 10,2174 52155 DXCH MPAC
054933,000433: 10,2175 20001 DDOUBL
054934,000434: 10,2176 50141 INDEX TEM1
054935,000435: 10,2177 52007 DXCH 6
054936,000436:
054937,000437: 10,2200 52160 DXCH MPAC +3
054938,000438: 10,2201 20001 DDOUBL
054939,000439: 10,2202 50141 INDEX TEM1
054940,000440: 10,2203 52011 DXCH 10
054941,000441:
054942,000442: 10,2204 52162 DXCH MPAC +5
054943,000443: 10,2205 20001 DDOUBL
054944,000444: 10,2206 50141 INDEX TEM1
054945,000445: 10,2207 52013 DXCH 12
054946,000446:
054947,000447: 10,2210 30142 CA TEM2
054948,000448: 10,2211 54003 TS EBANK
054949,000449: 10,2212 14631 TCF SWRETURN
054950,000450:
End of include-file POWERED_FLIGHT_SUBROUTINES.agc. Parent file is MAIN.agc