Source Code

047296,000001: # Copyright: Public domain. 047297,000002: # Filename: MEASUREMENT_INCORPORATION.agc 047298,000003: # Purpose: A section of Luminary 1C, revision 131. 047299,000004: # It is part of the source code for the Lunar Module's (LM) 047300,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 047301,000006: # This file is intended to be a faithful transcription, except 047302,000007: # that the code format has been changed to conform to the 047303,000008: # requirements of the yaYUL assembler rather than the 047304,000009: # original YUL assembler. 047305,000010: # Reference: pp. 1148-1157 of 1729.pdf. 047306,000011: # Contact: Ron Burkey <info@sandroid.org>. 047307,000012: # Website: www.ibiblio.org/apollo/index.html 047308,000013: # Mod history: 06/01/03 RSB. Began transcribing. 047309,000014: # 05/14/05 RSB Corrected website reference above. 047310,000015: # 2010-10-25 JL Indentation fixes. 047311,000016: 047312,000017: # Page 1148 047313,000018: # INCORP1 -- PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITION 047314,000019: # AND VELOCITY OR THE NINE-DIMENSIONAL DEVIATION OF POSITION, VELOCITY, AND 047315,000020: # RADAR OR LANDMARK BIAS. THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH THE 047316,000021: # ERROR TRANSITION MATRIX (2) ARE USED AS INPU TO THE ROUTINE. THE DEVIATION 047317,000022: # IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE 047318,000023: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMENT 047319,000024: # AND APPLYING A STATISTICAL WEIGHTING VECTOR. 047320,000025: 047321,000026: # INPUT 047322,000027: # DMENFLG = 0 (6-DIMENSIONAL BVECTOR), =1 (9-DIMENSIONAL) 047323,000028: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9 047324,000029: # VARIANCE = VARIANCE (SCALAR) 047325,000030: # DELTAQ = MEASURED DEVIATION (SCALAR) 047326,000031: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR 047327,000032: 047328,000033: # OUTPUT 047329,000034: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL 047330,000035: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL 047331,000036: # GAMMA = SCALAR 047332,000037: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENSIONAL 047333,000038: 047334,000039: # CALLING SEQUENCE 047335,000040: # L CALL INCORP1 047336,000041: 047337,000042: # NORMAL EXIT 047338,000043: # L+1 OF CALLING SEQUENCE 047339,000044: 047340,000045: 37,3652 BANK 37 047341,000046: 23,2000 SETLOC MEASINC 047342,000047: 23,2000 BANK 047343,000048: 047344,000049: 23,2533 COUNT* $$/INCOR 047345,000050: 047346,000051: 23,2533 E5,1400 EBANK= W 047347,000052: 047348,000053: 23,2533 77620 INCORP1 STQ 047349,000054: 23,2534 02772 EGRESS 047350,000055: 23,2535 66370 AXT,1 SSP 047351,000056: 23,2536 00066 54D 047352,000057: 23,2537 00051 S1 047353,000058: 23,2540 00022 18D # IX1 = 54 S1= 18 047354,000059: 23,2541 66374 AXT,2 SSP 047355,000060: 23,2542 00022 18D 047356,000061: 23,2543 00052 S2 047357,000062: 23,2544 00006 6 # IX2 = 18 S2=6 047358,000063: 23,2545 63775 Z123 VLOAD MXV* 047359,000064: 23,2546 03525 BVECTOR # BVECTOR (0) 047360,000065: 23,2547 02467 W +54D,1 047361,000066: 23,2550 12665 STORE ZI +18D,2 047362,000067: 23,2551 77775 VLOAD 047363,000068: 23,2552 03533 BVECTOR +6 # BVECTOR (1) 047364,000069: # Page 1149 047365,000070: 23,2553 52717 MXV* VAD* 047366,000071: 23,2554 02555 W +108D,1 047367,000072: 23,2555 75112 ZI +18D,2 047368,000073: 23,2556 12665 STORE ZI +18D,2 047369,000074: 23,2557 77775 VLOAD 047370,000075: 23,2560 03541 BVECTOR +12D # BVECTOR (2) 047371,000076: 23,2561 52717 MXV* VAD* 047372,000077: 23,2562 02643 W +162D,1 047373,000078: 23,2563 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PASS 047374,000079: 23,2564 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3 047375,000080: 23,2565 77700 TIX,1 047376,000081: 23,2566 46567 INCOR1 047377,000082: 23,2567 43104 INCOR1 TIX,2 BON 047378,000083: 23,2570 46545 Z123 # LOOP FOR Z1,Z2,Z3 047379,000084: 23,2571 02706 DMENFLG 047380,000085: 23,2572 46576 INCOR1A 047381,000086: 23,2573 77775 VLOAD 047382,000087: 23,2574 06524 ZEROVECS 047383,000088: 23,2575 02657 STORE ZI +12D 047384,000089: 23,2576 77201 INCOR1A SETPD VLOAD 047385,000090: 23,2577 00001 0 047386,000091: 23,2600 02643 ZI 047387,000092: 23,2601 47036 VSQ RTB 047388,000093: 23,2602 21634 TPMODE 047389,000094: 23,2603 47515 PDVL VSQ 047390,000095: 23,2604 02651 ZI +6 047391,000096: 23,2605 76234 RTB TAD 047392,000097: 23,2606 21634 TPMODE 047393,000098: 23,2607 47515 PDVL VSQ 047394,000099: 23,2610 02657 ZI +12D 047395,000100: 23,2611 76234 RTB TAD 047396,000101: 23,2612 21634 TPMODE 047397,000102: 23,2613 77171 TAD AXT,2 047398,000103: 23,2614 02707 VARIANCE 047399,000104: 23,2615 00000 0 047400,000105: 23,2616 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE 047401,000106: 23,2617 40151 TLOAD BOV 047402,000107: 23,2620 02707 VARIANCE # CLEAR OVFIND 047403,000108: 23,2621 46622 +1 047404,000109: 23,2622 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE 047405,000110: 23,2623 77654 BZE 047406,000111: 23,2624 46633 INCOR1C 047407,000112: 23,2625 40112 INCOR1B SL2 BOV 047408,000113: 23,2626 46633 INCOR1C 047409,000114: 23,2627 02670 STORE TEMPVAR 047410,000115: 23,2630 52114 INCR,2 GOTO 047411,000116: 23,2631 00001 DEC 1 B-14 047412,000117: 23,2632 46625 INCOR1B 047413,000118: 23,2633 61551 INCOR1C TLOAD ROUND 047414,000119: 23,2634 02665 TRIPA 047415,000120: # Page 1150 047416,000121: 23,2635 75405 DMP SQRT 047417,000122: 23,2636 02670 TEMPVAR 047418,000123: 23,2637 76257 SL* TAD 047419,000124: 23,2640 57576 0,2 047420,000125: 23,2641 02665 TRIPA 047421,000126: 23,2642 63101 NORM INCR,2 047422,000127: 23,2643 00050 X2 047423,000128: 23,2644 77775 DEC -2 B-14 047424,000129: 23,2645 77134 SXA,2 AXT,2 047425,000130: 23,2646 02103 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA 047426,000131: 23,2647 00242 162D 047427,000132: 23,2650 40265 BDDV SETPD 047428,000133: 23,2651 06514 DP1/4TH 047429,000134: 23,2652 00001 0 047430,000135: 23,2653 03500 STORE GAMMA 047431,000136: 23,2654 60351 TLOAD NORM 047432,000137: 23,2655 02665 TRIPA 047433,000138: 23,2656 00047 X1 047434,000139: 23,2657 65345 DLOAD PDDL # PD 0-1 = NORM (A) 047435,000140: 23,2660 00155 MPAC 047436,000141: 23,2661 03547 DELTAQ 047437,000142: 23,2662 77701 NORM 047438,000143: 23,2663 00051 S1 047439,000144: 23,2664 70460 XSU,1 SR1 047440,000145: 23,2665 00050 S1 047441,000146: 23,2666 41471 DDV PUSH # PD 0-1 = DELTAQ/A 047442,000147: 23,2667 77650 GOTO 047443,000148: 23,2670 45711 NEWZCOMP 047444,000149: 23,2671 77731 -3 SSP 047445,000150: 23,2672 00052 S2 047446,000151: 23,2673 00066 54D 047447,000152: 23,2674 60775 INCOR2 VLOAD VXM* # COMPUT OMEGA1,2,3 047448,000153: 23,2675 02643 ZI 047449,000154: 23,2676 75134 W +162D,2 047450,000155: 23,2677 77206 PUSH VLOAD 047451,000156: 23,2700 02651 ZI +6 047452,000157: 23,2701 53303 VXM* VAD 047453,000158: 23,2702 75112 W +180D,2 047454,000159: 23,2703 77206 PUSH VLOAD 047455,000160: 23,2704 02657 ZI +12D 047456,000161: 23,2705 53303 VXM* VAD 047457,000162: 23,2706 75070 W +198D,2 047458,000163: 23,2707 61006 PUSH TIX,2 # PD 2-7=OMEGA1, -13=OMEGA2, 14-19=OMEGA3 047459,000164: 23,2710 46674 INCOR2 047460,000165: 23,2711 45575 VLOAD STADR 047461,000166: 23,2712 74260 STORE OMEGA +12D 047462,000167: 23,2713 45575 VLOAD STADR 047463,000168: 23,2714 74266 STORE OMEGA +6 047464,000169: 23,2715 45575 VLOAD STADR 047465,000170: 23,2716 74274 STORE OMEGA 047466,000171: # Page 1151 047467,000172: 23,2717 77214 BON VLOAD 047468,000173: 23,2720 02706 DMENFLG 047469,000174: 23,2721 46724 INCOR2AB 047470,000175: 23,2722 06524 ZEROVECS 047471,000176: 23,2723 03517 STORE OMEGA +12D 047472,000177: 23,2724 66374 INCOR2AB AXT,2 SSP 047473,000178: 23,2725 00022 18D 047474,000179: 23,2726 00052 S2 047475,000180: 23,2727 00006 6 047476,000181: 23,2730 77773 INCOR3 VLOAD* 047477,000182: 23,2731 74252 OMEGA +18D,2 047478,000183: 23,2732 53761 VXSC VSL* 047479,000184: 23,2733 00001 0 # DELTAQ/A 047480,000185: 23,2734 20201 0,1 047481,000186: 23,2735 12707 STORE DELTAX +18D,2 047482,000187: 23,2736 77304 TIX,2 VLOAD 047483,000188: 23,2737 46730 INCOR3 047484,000189: 23,2740 02673 DELTAX +6 047485,000190: 23,2741 77732 VSL3 047486,000191: 23,2742 02673 STORE DELTAX +6 047487,000192: 23,2743 77650 GOTO 047488,000193: 23,2744 02772 EGRESS 047489,000194: 047490,000195: # Page 1152 047491,000196: # INCORP2 -- INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE 047492,000197: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE 047493,000198: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM) 047494,000199: 047495,000200: # INPUT 047496,000201: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM 047497,000202: # VEHUPFLG = UPDATE VEHICLE C=LEM 1=CSM 047498,000203: # W = ERROR TRANSITION MATRIX 047499,000204: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS 047500,000205: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9) 047501,000206: # GAMMA = SCALAR FOR INCORPORATION 047502,000207: # ZI = VECTOR USED IN INCORPORATION 047503,000208: # OMEGA = WEIGHTING VECTOR 047504,000209: 047505,000210: # OUTPUT 047506,000211: # UPDATED PERMANENT STATE VECTOR 047507,000212: 047508,000213: # CALLING SEQUENCE 047509,000214: # L CALL INCORP2 047510,000215: 047511,000216: # NORMAL EXIT 047512,000217: # L+1 OF CALLING SEQUENCE 047513,000218: 047514,000219: 047515,000220: 23,2000 SETLOC MEASINC1 047516,000221: 23,2000 BANK 047517,000222: 047518,000223: 23,2745 COUNT* $$/INCOR 047519,000224: 047520,000225: 23,2745 45020 INCORP2 STQ CALL 047521,000226: 23,2746 02772 EGRESS 047522,000227: 23,2747 27410 INTSTALL 047523,000228: 23,2750 74375 VLOAD VXSC # CALC. GAMMA*OMEGA1,2,3 047524,000229: 23,2751 03503 OMEGA 047525,000230: 23,2752 03500 GAMMA 047526,000231: 23,2753 26713 STOVL OMEGAM1 047527,000232: 23,2754 03511 OMEGA +6 047528,000233: 23,2755 77761 VXSC 047529,000234: 23,2756 03500 GAMMA 047530,000235: 23,2757 26721 STOVL OMEGAM2 047531,000236: 23,2760 03517 OMEGA +12D 047532,000237: 23,2761 77761 VXSC 047533,000238: 23,2762 03500 GAMMA 047534,000239: 23,2763 02727 STORE OMEGAM3 047535,000240: 23,2764 77776 EXIT 047536,000241: 23,2765 33246 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX 047537,000242: 23,2766 55315 TS WIXA 047538,000243: 23,2767 55316 TS WIXB 047539,000244: 23,2770 34755 CAF ZERO 047540,000245: 23,2771 55317 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT 047541,000246: 23,2772 55320 TS ZIXB 047542,000247: 23,2773 05353 FAZA TC PHASCHNG 047543,000248: # Page 1153 047544,000249: 23,2774 04022 OCT 04022 047545,000250: 23,2775 05504 TC UPFLAG 047546,000251: 23,2776 00236 ADRES REINTFLG 047547,000252: 23,2777 31316 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2 047548,000253: 23,3000 55315 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP 047549,000254: 23,3001 31320 CA ZIXB 047550,000255: 23,3002 55317 TS ZIXA 047551,000256: 23,3003 06042 TC INTPRET 047552,000257: 23,3004 73150 LXA,1 LXA,2 047553,000258: 23,3005 01315 WIXA 047554,000259: 23,3006 01317 ZIXA 047555,000260: 23,3007 70731 SSP DLOAD* 047556,000261: 23,3010 00051 S1 047557,000262: 23,3011 00006 6 047558,000263: 23,3012 75134 ZI,2 047559,000264: 23,3013 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX 047560,000265: 23,3014 00052 S2 047561,000266: 23,3015 65161 VXSC XCHX,2 047562,000267: 23,3016 02713 OMEGAM1 047563,000268: 23,3017 00051 S2 047564,000269: 23,3020 57144 LXC,2 XAD,2 047565,000270: 23,3021 00047 X2 047566,000271: 23,3022 02103 NORMGAM 047567,000272: 23,3023 65057 VSL* XCHX,2 047568,000273: 23,3024 57576 0,2 047569,000274: 23,3025 00051 S2 047570,000275: 23,3026 77653 VAD* 047571,000276: 23,3027 02467 W +54D,1 047572,000277: 23,3030 02735 STORE HOLDW 047573,000278: 23,3031 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX 047574,000279: 23,3032 75134 ZI,2 047575,000280: 23,3033 74301 NORM VXSC 047576,000281: 23,3034 00052 S2 047577,000282: 23,3035 02721 OMEGAM2 047578,000283: 23,3036 71124 XCHX,2 LXC,2 047579,000284: 23,3037 00051 S2 047580,000285: 23,3040 00047 X2 047581,000286: 23,3041 53674 XAD,2 VSL* 047582,000287: 23,3042 02103 NORMGAM 047583,000288: 23,3043 57576 0,2 047584,000289: 23,3044 52724 XCHX,2 VAD* 047585,000290: 23,3045 00051 S2 047586,000291: 23,3046 02555 W +108D,1 047587,000292: 23,3047 02743 STORE HOLDW +6 047588,000293: 23,3050 77614 BOFF 047589,000294: 23,3051 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL 047590,000295: 23,3052 47072 FAZB 047591,000296: 23,3053 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX 047592,000297: 23,3054 75134 ZI,2 047593,000298: 23,3055 74301 NORM VXSC 047594,000299: # Page 1154 047595,000300: 23,3056 00052 S2 047596,000301: 23,3057 02727 OMEGAM3 047597,000302: 23,3060 71124 XCHX,2 LXC,2 047598,000303: 23,3061 00051 S2 047599,000304: 23,3062 00047 X2 047600,000305: 23,3063 53674 XAD,2 VSL* 047601,000306: 23,3064 02103 NORMGAM 047602,000307: 23,3065 57576 0,2 047603,000308: 23,3066 52724 XCHX,2 VAD* 047604,000309: 23,3067 00051 S2 047605,000310: 23,3070 02643 W +162D,1 047606,000311: 23,3071 02751 STORE HOLDW +12D 047607,000312: 23,3072 77624 FAZB CALL 047608,000313: 23,3073 11210 GRP2PC 047609,000314: 23,3074 77776 EXIT 047610,000315: 23,3075 31315 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER 047611,000316: 23,3076 63247 AD 6DD # TEMP REG TO PERM W MATRIX 047612,000317: 23,3077 55316 TS WIXB 047613,000318: 23,3100 31317 CA ZIXA 047614,000319: 23,3101 67751 AD MINUS2 047615,000320: 23,3102 55320 TS ZIXB 047616,000321: 23,3103 06042 TC INTPRET 047617,000322: 23,3104 66350 LXA,1 SSP 047618,000323: 23,3105 01315 WIXA 047619,000324: 23,3106 00051 S1 047620,000325: 23,3107 00006 6 047621,000326: 23,3110 77775 VLOAD 047622,000327: 23,3111 02735 HOLDW 047623,000328: 23,3112 06467 STORE W +54D,1 047624,000329: 23,3113 77775 VLOAD 047625,000330: 23,3114 02743 HOLDW +6 047626,000331: 23,3115 06555 STORE W +108D,1 047627,000332: 23,3116 77214 BOFF VLOAD 047628,000333: 23,3117 02746 DMENFLG 047629,000334: 23,3120 47130 FAZB5 047630,000335: 23,3121 02751 HOLDW +12D 047631,000336: 23,3122 06643 STORE W +162D,1 047632,000337: 23,3123 52100 FAZB2 TIX,1 GOTO 047633,000338: 23,3124 47126 +2 047634,000339: 23,3125 47136 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR 047635,000340: 23,3126 77634 RTB 047636,000341: 23,3127 46773 FAZA 047637,000342: 23,3130 43335 FAZB5 SLOAD DAD 047638,000343: 23,3131 01321 ZIXB 047639,000344: 23,3132 07251 12DD 047640,000345: 23,3133 52030 BHIZ GOTO 047641,000346: 23,3134 47136 FAZC 047642,000347: 23,3135 47123 FAZB2 047643,000348: 23,3136 77624 FAZC CALL 047644,000349: 23,3137 11210 GRP2PC 047645,000350: # Page 1155 047646,000351: 23,3140 53375 VLOAD VAD # START 3RD PHASE OF INCORP2 047647,000352: 23,3141 01701 X789 # 7TH, 8TH, 9TH COMPONENTN OF STATE VECTOR 047648,000353: 23,3142 02701 DELTAX +12D # INCORPORATION FOR X789 047649,000354: 23,3143 03472 STORE TX789 047650,000355: 23,3144 47014 BON RTB 047651,000356: 23,3145 00707 VEHUPFLG 047652,000357: 23,3146 47236 DOCSM 047653,000358: 23,3147 26767 MOVEPLEM 047654,000359: 23,3150 77004 FAZAB BOVB AXT,2 047655,000360: 23,3151 57754 TCDANZIG 047656,000361: 23,3152 00000 0 047657,000362: 23,3153 77014 BOFF AXT,2 047658,000363: 23,3154 04344 MOONTHIS 047659,000364: 23,3155 47157 +2 047660,000365: 23,3156 00002 2 047661,000366: 23,3157 53775 VLOAD VSR* 047662,000367: 23,3160 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH 047663,000368: 23,3161 57205 0 -7,2 047664,000369: 23,3162 40055 VAD BOV 047665,000370: 23,3163 01521 TDELTAV 047666,000371: 23,3164 47176 FAZAB1 047667,000372: 23,3165 25521 STOVL TDELTAV 047668,000373: 23,3166 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH 047669,000374: 23,3167 53257 VSR* VAD 047670,000375: 23,3170 57202 0 -4,2 047671,000376: 23,3171 01527 TNUV 047672,000377: 23,3172 77600 BOV 047673,000378: 23,3173 47202 FAZAB2 047674,000379: 23,3174 35527 STCALL TNUV 047675,000380: 23,3175 47211 FAZAB3 047676,000381: 23,3176 53375 FAZAB1 VLOAD VAD 047677,000382: 23,3177 01535 RCV 047678,000383: 23,3200 02665 DELTAX 047679,000384: 23,3201 01535 STORE RCV 047680,000385: 23,3202 53375 FAZAB2 VLOAD VAD 047681,000386: 23,3203 01543 VCV 047682,000387: 23,3204 02673 DELTAX +6 047683,000388: 23,3205 01543 STORE VCV 047684,000389: 23,3206 45134 SXA,2 CALL 047685,000390: 23,3207 02030 PBODY 047686,000391: 23,3210 27671 RECTIFY 047687,000392: 23,3211 77624 FAZAB3 CALL 047688,000393: 23,3212 11210 GRP2PC 047689,000394: 23,3213 47014 BON RTB 047690,000395: 23,3214 00707 VEHUPFLG 047691,000396: 23,3215 47241 DOCSM1 047692,000397: 23,3216 26746 MOVEALEM 047693,000398: 23,3217 77624 CALL 047694,000399: 23,3220 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR 047695,000400: 23,3221 77624 FAZAB4 CALL 047696,000401: # Page 1156 047697,000402: 23,3222 11210 GRP2PC # PHASE CHANGE 047698,000403: 23,3223 77214 BOFF VLOAD 047699,000404: 23,3224 02746 DMENFLG 047700,000405: 23,3225 47230 FAZAB5 # 6 DIMENSIONAL 047701,000406: 23,3226 03472 TX789 # 9 DIMENSIONAL 047702,000407: 23,3227 01701 STORE X789 047703,000408: 23,3230 66150 FAZAB5 LXA,1 SXA,1 047704,000409: 23,3231 02772 EGRESS 047705,000410: 23,3232 00052 QPRET 047706,000411: 23,3233 77776 EXIT 047707,000412: 23,3234 04635 TC POSTJUMP # EXIT 047708,000413: 23,3235 27421 CADR INTWAKE 047709,000414: 23,3236 52034 DOCSM RTB GOTO 047710,000415: 23,3237 26722 MOVEPCSM 047711,000416: 23,3240 47150 FAZAB 047712,000417: 23,3241 45034 DOCSM1 RTB CALL 047713,000418: 23,3242 26673 MOVEACSM 047714,000419: 23,3243 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR 047715,000420: 23,3244 77650 GOTO 047716,000421: 23,3245 47221 FAZAB4 047717,000422: 23,3246 23,2523 ZEROD = ZEROVECS 047718,000423: 23,3246 00066 54DD DEC 54 B-14 047719,000424: 23,3247 77771 6DD DEC -6 B-14 047720,000425: 23,3250 00014 12DD DEC 12 B-14 047721,000426: 047722,000427: 22,2000 SETLOC RENDEZ 047723,000428: 22,2000 BANK 047724,000429: 22,3711 COUNT* $$/INCOR 047725,000430: 047726,000431: 22,3711 51575 NEWZCOMP VLOAD ABVAL 047727,000432: 22,3712 02643 ZI 047728,000433: 22,3713 24045 STOVL NORMZI 047729,000434: 22,3714 02651 ZI +6 047730,000435: 22,3715 41446 ABVAL PUSH 047731,000436: 22,3716 50025 DSU BMN 047732,000437: 22,3717 00045 NORMZI 047733,000438: 22,3720 45723 +3 047734,000439: 22,3721 45545 DLOAD STADR 047735,000440: 22,3722 77732 STORE NORMZI 047736,000441: 22,3723 51575 VLOAD ABVAL 047737,000442: 22,3724 02657 ZI +12D 047738,000443: 22,3725 45206 PUSH DSU 047739,000444: 22,3726 00045 NORMZI 047740,000445: 22,3727 71240 BMN DLOAD 047741,000446: 22,3730 45733 +3 047742,000447: 22,3731 77626 STADR 047743,000448: 22,3732 77732 STORE NORMZI # LARGEST ABVAL 047744,000449: 22,3733 66145 DLOAD SXA,1 047745,000450: 22,3734 00045 NORMZI 047746,000451: 22,3735 00044 NORMZI # SAVE X1 047747,000452: 22,3736 62101 NORM INCR,1 047748,000453: # Page 1157 047749,000454: 22,3737 00047 X1 047750,000455: 22,3740 00002 DEC 2 B-14 047751,000456: 22,3741 53775 VLOAD VSL* 047752,000457: 22,3742 02643 ZI 047753,000458: 22,3743 20201 0,1 047754,000459: 22,3744 26643 STOVL ZI 047755,000460: 22,3745 02651 ZI +6 047756,000461: 22,3746 77657 VSL* 047757,000462: 22,3747 20201 0,1 047758,000463: 22,3750 26651 STOVL ZI +6 047759,000464: 22,3751 02657 ZI +12D 047760,000465: 22,3752 66057 VSL* SXA,1 047761,000466: 22,3753 20201 0,1 047762,000467: 22,3754 00045 NORMZI +1 # SAVE SHIFT 047763,000468: 22,3755 02657 STORE ZI +12D 047764,000469: 22,3756 54150 LXA,1 XSU,1 047765,000470: 22,3757 02103 NORMGAM 047766,000471: 22,3760 00045 NORMZI +1 047767,000472: 22,3761 77660 XSU,1 047768,000473: 22,3762 00045 NORMZI +1 047769,000474: 22,3763 70130 SXA,1 LXC,1 047770,000475: 22,3764 02103 NORMGAM 047771,000476: 22,3765 00045 NORMZI +1 047772,000477: 22,3766 40270 XAD,1 SETPD 047773,000478: 22,3767 00044 NORMZI 047774,000479: 22,3770 00003 2D 047775,000480: 22,3771 77650 GOTO 047776,000481: 22,3772 46671 INCOR2 -3 047777,000482: 22,3773 NORMZI = 36D 047778,000483: 047779,000484: End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc