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