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