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