Source Code
048674,000001: # Copyright: Public domain.
048675,000002: # Filename: MEASUREMENT_INCORPORATION.agc
048676,000003: # Purpose: Part of the source code for Luminary 1A build 099.
048677,000004: # It is part of the source code for the Lunar Module's (LM)
048678,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
048679,000006:
048680,000007: # Assembler: yaYUL
048681,000008: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
048682,000009: # Website: www.ibiblio.org/apollo.
048683,000010: # Pages: 1149-1158
048684,000011: # Mod history: 2009-05-28 JL Updated from page images.
048685,000012: # 2011-01-06 JL Fixed pseudo-label indentation.
048686,000013:
048687,000014: # This source code has been transcribed or otherwise adapted from digitized
048688,000015: # images of a hardcopy from the MIT Museum. The digitization was performed
048689,000016: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
048690,000017: # thanks to both. The images (with suitable reduction in storage size and
048691,000018: # consequent reduction in image quality as well) are available online at
048692,000019: # www.ibiblio.org/apollo. If for some reason you find that the images are
048693,000020: # illegible, contact me at info@sandroid.org about getting access to the
048694,000021: # (much) higher-quality images which Paul actually created.
048695,000022:
048696,000023: # Notations on the hardcopy document read, in part:
048697,000024:
048698,000025: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
048699,000026: # 16:27 JULY 14, 1969
048700,000027:
048701,000028: # Page 1149
048702,000029: # INCORP1 -- PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITION
048703,000030: # AND VELOCITY OR THE NINE-DIMENSIONAL DEVIATION OF POSITION, VELOCITY, AND
048704,000031: # RADAR OR LANDMARK BIAS. THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH THE
048705,000032: # ERROR TRANSITION MATRIX (W) ARE USED AS INPU TO THE ROUTINE. THE DEVIATION
048706,000033: # IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
048707,000034: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMENT
048708,000035: # AND APPLYING A STATISTICAL WEIGHTING VECTOR.
048709,000036:
048710,000037: # INPUT
048711,000038: # DMENFLG = 0 (6-DIMENSIONAL BVECTOR), =1 (9-DIMENSIONAL)
048712,000039: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
048713,000040: # VARIANCE = VARIANCE (SCALAR)
048714,000041: # DELTAQ = MEASURED DEVIATION (SCALAR)
048715,000042: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
048716,000043:
048717,000044: # OUTPUT
048718,000045: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
048719,000046: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
048720,000047: # GAMMA = SCALAR
048721,000048: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENSIONAL
048722,000049:
048723,000050: # CALLING SEQUENCE
048724,000051: # L CALL INCORP1
048725,000052:
048726,000053: # NORMAL EXIT
048727,000054: # L+1 OF CALLING SEQUENCE
048728,000055:
048729,000056: 37,3655 BANK 37
048730,000057: 23,2000 SETLOC MEASINC
048731,000058: 23,2000 BANK
048732,000059:
048733,000060: 23,2531 COUNT* $$/INCOR
048734,000061:
048735,000062: 23,2531 E5,1400 EBANK= W
048736,000063:
048737,000064: 23,2531 77620 INCORP1 STQ
048738,000065: 23,2532 02772 EGRESS
048739,000066: 23,2533 66370 AXT,1 SSP
048740,000067: 23,2534 00066 54D
048741,000068: 23,2535 00051 S1
048742,000069: 23,2536 00022 18D # IX1 = 54 S1= 18
048743,000070: 23,2537 66374 AXT,2 SSP
048744,000071: 23,2540 00022 18D
048745,000072: 23,2541 00052 S2
048746,000073: 23,2542 00006 6 # IX2 = 18 S2=6
048747,000074: 23,2543 63775 Z123 VLOAD MXV*
048748,000075: 23,2544 03525 BVECTOR # BVECTOR (0)
048749,000076: 23,2545 02467 W +54D,1
048750,000077: 23,2546 12665 STORE ZI +18D,2
048751,000078: 23,2547 77775 VLOAD
048752,000079: 23,2550 03533 BVECTOR +6 # BVECTOR (1)
048753,000080: # Page 1150
048754,000081: 23,2551 52717 MXV* VAD*
048755,000082: 23,2552 02555 W +108D,1
048756,000083: 23,2553 75112 ZI +18D,2
048757,000084: 23,2554 12665 STORE ZI +18D,2
048758,000085: 23,2555 77775 VLOAD
048759,000086: 23,2556 03541 BVECTOR +12D # BVECTOR (2)
048760,000087: 23,2557 52717 MXV* VAD*
048761,000088: 23,2560 02643 W +162D,1
048762,000089: 23,2561 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PASS
048763,000090: 23,2562 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
048764,000091: 23,2563 77700 TIX,1
048765,000092: 23,2564 46565 INCOR1
048766,000093: 23,2565 43104 INCOR1 TIX,2 BON
048767,000094: 23,2566 46543 Z123 # LOOP FOR Z1,Z2,Z3
048768,000095: 23,2567 02706 DMENFLG
048769,000096: 23,2570 46574 INCOR1A
048770,000097: 23,2571 77775 VLOAD
048771,000098: 23,2572 06522 ZEROVECS
048772,000099: 23,2573 02657 STORE ZI +12D
048773,000100: 23,2574 77201 INCOR1A SETPD VLOAD
048774,000101: 23,2575 00001 0
048775,000102: 23,2576 02643 ZI
048776,000103: 23,2577 47036 VSQ RTB
048777,000104: 23,2600 21633 TPMODE
048778,000105: 23,2601 47515 PDVL VSQ
048779,000106: 23,2602 02651 ZI +6
048780,000107: 23,2603 76234 RTB TAD
048781,000108: 23,2604 21633 TPMODE
048782,000109: 23,2605 47515 PDVL VSQ
048783,000110: 23,2606 02657 ZI +12D
048784,000111: 23,2607 76234 RTB TAD
048785,000112: 23,2610 21633 TPMODE
048786,000113: 23,2611 77171 TAD AXT,2
048787,000114: 23,2612 02707 VARIANCE
048788,000115: 23,2613 00000 0
048789,000116: 23,2614 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
048790,000117: 23,2615 40151 TLOAD BOV
048791,000118: 23,2616 02707 VARIANCE # CLEAR OVFIND
048792,000119: 23,2617 46620 +1
048793,000120: 23,2620 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
048794,000121: 23,2621 77654 BZE
048795,000122: 23,2622 46631 INCOR1C
048796,000123: 23,2623 40112 INCOR1B SL2 BOV
048797,000124: 23,2624 46631 INCOR1C
048798,000125: 23,2625 02670 STORE TEMPVAR
048799,000126: 23,2626 52114 INCR,2 GOTO
048800,000127: 23,2627 00001 DEC 1 B-14
048801,000128: 23,2630 46623 INCOR1B
048802,000129: 23,2631 61551 INCOR1C TLOAD ROUND
048803,000130: 23,2632 02665 TRIPA
048804,000131: # Page 1151
048805,000132: 23,2633 75405 DMP SQRT
048806,000133: 23,2634 02670 TEMPVAR
048807,000134: 23,2635 76257 SL* TAD
048808,000135: 23,2636 57576 0,2
048809,000136: 23,2637 02665 TRIPA
048810,000137: 23,2640 63101 NORM INCR,2
048811,000138: 23,2641 00050 X2
048812,000139: 23,2642 77775 DEC -2 B-14
048813,000140: 23,2643 77134 SXA,2 AXT,2
048814,000141: 23,2644 02103 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
048815,000142: 23,2645 00242 162D
048816,000143: 23,2646 40265 BDDV SETPD
048817,000144: 23,2647 06512 DP1/4TH
048818,000145: 23,2650 00001 0
048819,000146: 23,2651 03500 STORE GAMMA
048820,000147: 23,2652 60351 TLOAD NORM
048821,000148: 23,2653 02665 TRIPA
048822,000149: 23,2654 00047 X1
048823,000150: 23,2655 65345 DLOAD PDDL # PD 0-1 = NORM (A)
048824,000151: 23,2656 00155 MPAC
048825,000152: 23,2657 03547 DELTAQ
048826,000153: 23,2660 77701 NORM
048827,000154: 23,2661 00051 S1
048828,000155: 23,2662 70460 XSU,1 SR1
048829,000156: 23,2663 00050 S1
048830,000157: 23,2664 41471 DDV PUSH # PD 0-1 = DELTAQ/A
048831,000158: 23,2665 77650 GOTO
048832,000159: 23,2666 45711 NEWZCOMP
048833,000160: 23,2667 77731 -3 SSP
048834,000161: 23,2670 00052 S2
048835,000162: 23,2671 00066 54D
048836,000163: 23,2672 60775 INCOR2 VLOAD VXM* # COMPUT OMEGA1,2,3
048837,000164: 23,2673 02643 ZI
048838,000165: 23,2674 75134 W +162D,2
048839,000166: 23,2675 77206 PUSH VLOAD
048840,000167: 23,2676 02651 ZI +6
048841,000168: 23,2677 53303 VXM* VAD
048842,000169: 23,2700 75112 W +180D,2
048843,000170: 23,2701 77206 PUSH VLOAD
048844,000171: 23,2702 02657 ZI +12D
048845,000172: 23,2703 53303 VXM* VAD
048846,000173: 23,2704 75070 W +198D,2
048847,000174: 23,2705 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
048848,000175: 23,2706 46672 INCOR2
048849,000176: 23,2707 45575 VLOAD STADR
048850,000177: 23,2710 74260 STORE OMEGA +12D
048851,000178: 23,2711 45575 VLOAD STADR
048852,000179: 23,2712 74266 STORE OMEGA +6
048853,000180: 23,2713 45575 VLOAD STADR
048854,000181: 23,2714 74274 STORE OMEGA
048855,000182: # Page 1152
048856,000183: 23,2715 77214 BON VLOAD
048857,000184: 23,2716 02706 DMENFLG
048858,000185: 23,2717 46722 INCOR2AB
048859,000186: 23,2720 06522 ZEROVECS
048860,000187: 23,2721 03517 STORE OMEGA +12D
048861,000188: 23,2722 66374 INCOR2AB AXT,2 SSP
048862,000189: 23,2723 00022 18D
048863,000190: 23,2724 00052 S2
048864,000191: 23,2725 00006 6
048865,000192: 23,2726 77773 INCOR3 VLOAD*
048866,000193: 23,2727 74252 OMEGA +18D,2
048867,000194: 23,2730 53761 VXSC VSL*
048868,000195: 23,2731 00001 0 # DELTAQ/A
048869,000196: 23,2732 20201 0,1
048870,000197: 23,2733 12707 STORE DELTAX +18D,2
048871,000198: 23,2734 77304 TIX,2 VLOAD
048872,000199: 23,2735 46726 INCOR3
048873,000200: 23,2736 02673 DELTAX +6
048874,000201: 23,2737 77732 VSL3
048875,000202: 23,2740 02673 STORE DELTAX +6
048876,000203: 23,2741 77650 GOTO
048877,000204: 23,2742 02772 EGRESS
048878,000205:
048879,000206: # Page 1153
048880,000207: # INCORP2 - INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
048881,000208: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
048882,000209: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
048883,000210:
048884,000211: # INPUT
048885,000212: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
048886,000213: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
048887,000214: # W = ERROR TRANSITION MATRIX
048888,000215: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
048889,000216: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
048890,000217: # GAMMA = SCALAR FOR INCORPORATION
048891,000218: # ZI = VECTOR USED IN INCORPORATION
048892,000219: # OMEGA = WEIGHTING VECTOR
048893,000220:
048894,000221: # OUTPUT
048895,000222: # UPDATED PERMANENT STATE VECTOR
048896,000223:
048897,000224: # CALLING SEQUENCE
048898,000225: # L CALL INCORP2
048899,000226:
048900,000227: # NORMAL EXIT
048901,000228: # L+1 OF CALLING SEQUENCE
048902,000229:
048903,000230:
048904,000231: 23,2000 SETLOC MEASINC1
048905,000232: 23,2000 BANK
048906,000233:
048907,000234: 23,2743 COUNT* $$/INCOR
048908,000235:
048909,000236: 23,2743 45020 INCORP2 STQ CALL
048910,000237: 23,2744 02772 EGRESS
048911,000238: 23,2745 27414 INTSTALL
048912,000239: 23,2746 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
048913,000240: 23,2747 03503 OMEGA
048914,000241: 23,2750 03500 GAMMA
048915,000242: 23,2751 26713 STOVL OMEGAM1
048916,000243: 23,2752 03511 OMEGA +6
048917,000244: 23,2753 77761 VXSC
048918,000245: 23,2754 03500 GAMMA
048919,000246: 23,2755 26721 STOVL OMEGAM2
048920,000247: 23,2756 03517 OMEGA +12D
048921,000248: 23,2757 77761 VXSC
048922,000249: 23,2760 03500 GAMMA
048923,000250: 23,2761 02727 STORE OMEGAM3
048924,000251: 23,2762 77776 EXIT
048925,000252: 23,2763 33244 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
048926,000253: 23,2764 55320 TS WIXA
048927,000254: 23,2765 55321 TS WIXB
048928,000255: 23,2766 34755 CAF ZERO
048929,000256: 23,2767 55322 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
048930,000257: 23,2770 55323 TS ZIXB
048931,000258: 23,2771 05353 FAZA TC PHASCHNG
048932,000259: # Page 1154
048933,000260: 23,2772 04022 OCT 04022
048934,000261: 23,2773 05504 TC UPFLAG
048935,000262: 23,2774 00236 ADRES REINTFLG
048936,000263: 23,2775 31321 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
048937,000264: 23,2776 55320 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
048938,000265: 23,2777 31323 CA ZIXB
048939,000266: 23,3000 55322 TS ZIXA
048940,000267: 23,3001 06037 TC INTPRET
048941,000268: 23,3002 73150 LXA,1 LXA,2
048942,000269: 23,3003 01320 WIXA
048943,000270: 23,3004 01322 ZIXA
048944,000271: 23,3005 70731 SSP DLOAD*
048945,000272: 23,3006 00051 S1
048946,000273: 23,3007 00006 6
048947,000274: 23,3010 75134 ZI,2
048948,000275: 23,3011 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
048949,000276: 23,3012 00052 S2
048950,000277: 23,3013 65161 VXSC XCHX,2
048951,000278: 23,3014 02713 OMEGAM1
048952,000279: 23,3015 00051 S2
048953,000280: 23,3016 57144 LXC,2 XAD,2
048954,000281: 23,3017 00047 X2
048955,000282: 23,3020 02103 NORMGAM
048956,000283: 23,3021 65057 VSL* XCHX,2
048957,000284: 23,3022 57576 0,2
048958,000285: 23,3023 00051 S2
048959,000286: 23,3024 77653 VAD*
048960,000287: 23,3025 02467 W +54D,1
048961,000288: 23,3026 02735 STORE HOLDW
048962,000289: 23,3027 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
048963,000290: 23,3030 75134 ZI,2
048964,000291: 23,3031 74301 NORM VXSC
048965,000292: 23,3032 00052 S2
048966,000293: 23,3033 02721 OMEGAM2
048967,000294: 23,3034 71124 XCHX,2 LXC,2
048968,000295: 23,3035 00051 S2
048969,000296: 23,3036 00047 X2
048970,000297: 23,3037 53674 XAD,2 VSL*
048971,000298: 23,3040 02103 NORMGAM
048972,000299: 23,3041 57576 0,2
048973,000300: 23,3042 52724 XCHX,2 VAD*
048974,000301: 23,3043 00051 S2
048975,000302: 23,3044 02555 W +108D,1
048976,000303: 23,3045 02743 STORE HOLDW +6
048977,000304: 23,3046 77614 BOFF
048978,000305: 23,3047 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
048979,000306: 23,3050 47070 FAZB
048980,000307: 23,3051 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
048981,000308: 23,3052 75134 ZI,2
048982,000309: 23,3053 74301 NORM VXSC
048983,000310: # Page 1155
048984,000311: 23,3054 00052 S2
048985,000312: 23,3055 02727 OMEGAM3
048986,000313: 23,3056 71124 XCHX,2 LXC,2
048987,000314: 23,3057 00051 S2
048988,000315: 23,3060 00047 X2
048989,000316: 23,3061 53674 XAD,2 VSL*
048990,000317: 23,3062 02103 NORMGAM
048991,000318: 23,3063 57576 0,2
048992,000319: 23,3064 52724 XCHX,2 VAD*
048993,000320: 23,3065 00051 S2
048994,000321: 23,3066 02643 W +162D,1
048995,000322: 23,3067 02751 STORE HOLDW +12D
048996,000323: 23,3070 77624 FAZB CALL
048997,000324: 23,3071 11244 GRP2PC
048998,000325: 23,3072 77776 EXIT
048999,000326: 23,3073 31320 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
049000,000327: 23,3074 63245 AD 6DD # TEMP REG TO PERM W MATRIX
049001,000328: 23,3075 55321 TS WIXB
049002,000329: 23,3076 31322 CA ZIXA
049003,000330: 23,3077 67746 AD MINUS2
049004,000331: 23,3100 55323 TS ZIXB
049005,000332: 23,3101 06037 TC INTPRET
049006,000333: 23,3102 66350 LXA,1 SSP
049007,000334: 23,3103 01320 WIXA
049008,000335: 23,3104 00051 S1
049009,000336: 23,3105 00006 6
049010,000337: 23,3106 77775 VLOAD
049011,000338: 23,3107 02735 HOLDW
049012,000339: 23,3110 06467 STORE W +54D,1
049013,000340: 23,3111 77775 VLOAD
049014,000341: 23,3112 02743 HOLDW +6
049015,000342: 23,3113 06555 STORE W +108D,1
049016,000343: 23,3114 77214 BOFF VLOAD
049017,000344: 23,3115 02746 DMENFLG
049018,000345: 23,3116 47126 FAZB5
049019,000346: 23,3117 02751 HOLDW +12D
049020,000347: 23,3120 06643 STORE W +162D,1
049021,000348: 23,3121 52100 FAZB2 TIX,1 GOTO
049022,000349: 23,3122 47124 +2
049023,000350: 23,3123 47134 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
049024,000351: 23,3124 77634 RTB
049025,000352: 23,3125 46771 FAZA
049026,000353: 23,3126 43335 FAZB5 SLOAD DAD
049027,000354: 23,3127 01324 ZIXB
049028,000355: 23,3130 07247 12DD
049029,000356: 23,3131 52030 BHIZ GOTO
049030,000357: 23,3132 47134 FAZC
049031,000358: 23,3133 47121 FAZB2
049032,000359: 23,3134 77624 FAZC CALL
049033,000360: 23,3135 11244 GRP2PC
049034,000361: # Page 1156
049035,000362: 23,3136 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
049036,000363: 23,3137 01701 X789 # 7TH, 8TH, 9TH COMPONENT OF STATE VECTOR
049037,000364: 23,3140 02701 DELTAX +12D # INCORPORATION FOR X789
049038,000365: 23,3141 03472 STORE TX789
049039,000366: 23,3142 47014 BON RTB
049040,000367: 23,3143 00707 VEHUPFLG
049041,000368: 23,3144 47234 DOCSM
049042,000369: 23,3145 26770 MOVEPLEM
049043,000370: 23,3146 77004 FAZAB BOVB AXT,2
049044,000371: 23,3147 57753 TCDANZIG
049045,000372: 23,3150 00000 0
049046,000373: 23,3151 77014 BOFF AXT,2
049047,000374: 23,3152 04344 MOONTHIS
049048,000375: 23,3153 47155 +2
049049,000376: 23,3154 00002 2
049050,000377: 23,3155 53775 VLOAD VSR*
049051,000378: 23,3156 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
049052,000379: 23,3157 57205 0 -7,2
049053,000380: 23,3160 40055 VAD BOV
049054,000381: 23,3161 01521 TDELTAV
049055,000382: 23,3162 47174 FAZAB1
049056,000383: 23,3163 25521 STOVL TDELTAV
049057,000384: 23,3164 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
049058,000385: 23,3165 53257 VSR* VAD
049059,000386: 23,3166 57202 0 -4,2
049060,000387: 23,3167 01527 TNUV
049061,000388: 23,3170 77600 BOV
049062,000389: 23,3171 47200 FAZAB2
049063,000390: 23,3172 35527 STCALL TNUV
049064,000391: 23,3173 47207 FAZAB3
049065,000392: 23,3174 53375 FAZAB1 VLOAD VAD
049066,000393: 23,3175 01535 RCV
049067,000394: 23,3176 02665 DELTAX
049068,000395: 23,3177 01535 STORE RCV
049069,000396: 23,3200 53375 FAZAB2 VLOAD VAD
049070,000397: 23,3201 01543 VCV
049071,000398: 23,3202 02673 DELTAX +6
049072,000399: 23,3203 01543 STORE VCV
049073,000400: 23,3204 45134 SXA,2 CALL
049074,000401: 23,3205 02030 PBODY
049075,000402: 23,3206 23441 RECTIFY
049076,000403: 23,3207 77624 FAZAB3 CALL
049077,000404: 23,3210 11244 GRP2PC
049078,000405: 23,3211 47014 BON RTB
049079,000406: 23,3212 00707 VEHUPFLG
049080,000407: 23,3213 47237 DOCSM1
049081,000408: 23,3214 26747 MOVEALEM
049082,000409: 23,3215 77624 CALL
049083,000410: 23,3216 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR
049084,000411: 23,3217 77624 FAZAB4 CALL
049085,000412: # Page 1157
049086,000413: 23,3220 11244 GRP2PC # PHASE CHANGE
049087,000414: 23,3221 77214 BOFF VLOAD
049088,000415: 23,3222 02746 DMENFLG
049089,000416: 23,3223 47226 FAZAB5 # 6 DIMENSIONAL
049090,000417: 23,3224 03472 TX789 # 9 DIMENSIONAL
049091,000418: 23,3225 01701 STORE X789
049092,000419: 23,3226 66150 FAZAB5 LXA,1 SXA,1
049093,000420: 23,3227 02772 EGRESS
049094,000421: 23,3230 00052 QPRET
049095,000422: 23,3231 77776 EXIT
049096,000423: 23,3232 04635 TC POSTJUMP # EXIT
049097,000424: 23,3233 27425 CADR INTWAKE
049098,000425: 23,3234 52034 DOCSM RTB GOTO
049099,000426: 23,3235 26723 MOVEPCSM
049100,000427: 23,3236 47146 FAZAB
049101,000428: 23,3237 45034 DOCSM1 RTB CALL
049102,000429: 23,3240 26674 MOVEACSM
049103,000430: 23,3241 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR
049104,000431: 23,3242 77650 GOTO
049105,000432: 23,3243 47217 FAZAB4
049106,000433: 23,3244 23,2521 ZEROD = ZEROVECS
049107,000434: 23,3244 00066 54DD DEC 54 B-14
049108,000435: 23,3245 77771 6DD DEC -6 B-14
049109,000436: 23,3246 00014 12DD DEC 12 B-14
049110,000437:
049111,000438: 22,2000 SETLOC RENDEZ
049112,000439: 22,2000 BANK
049113,000440: 22,3711 COUNT* $$/INCOR
049114,000441:
049115,000442: 22,3711 51575 NEWZCOMP VLOAD ABVAL
049116,000443: 22,3712 02643 ZI
049117,000444: 22,3713 24045 STOVL NORMZI
049118,000445: 22,3714 02651 ZI +6
049119,000446: 22,3715 41446 ABVAL PUSH
049120,000447: 22,3716 50025 DSU BMN
049121,000448: 22,3717 00045 NORMZI
049122,000449: 22,3720 45723 +3
049123,000450: 22,3721 45545 DLOAD STADR
049124,000451: 22,3722 77732 STORE NORMZI
049125,000452: 22,3723 51575 VLOAD ABVAL
049126,000453: 22,3724 02657 ZI +12D
049127,000454: 22,3725 45206 PUSH DSU
049128,000455: 22,3726 00045 NORMZI
049129,000456: 22,3727 71240 BMN DLOAD
049130,000457: 22,3730 45733 +3
049131,000458: 22,3731 77626 STADR
049132,000459: 22,3732 77732 STORE NORMZI # LARGEST ABVAL
049133,000460: 22,3733 66145 DLOAD SXA,1
049134,000461: 22,3734 00045 NORMZI
049135,000462: 22,3735 00044 NORMZI # SAVE X1
049136,000463: 22,3736 62101 NORM INCR,1
049137,000464: # Page 1158
049138,000465: 22,3737 00047 X1
049139,000466: 22,3740 00002 DEC 2 B-14
049140,000467: 22,3741 53775 VLOAD VSL*
049141,000468: 22,3742 02643 ZI
049142,000469: 22,3743 20201 0,1
049143,000470: 22,3744 26643 STOVL ZI
049144,000471: 22,3745 02651 ZI +6
049145,000472: 22,3746 77657 VSL*
049146,000473: 22,3747 20201 0,1
049147,000474: 22,3750 26651 STOVL ZI +6
049148,000475: 22,3751 02657 ZI +12D
049149,000476: 22,3752 66057 VSL* SXA,1
049150,000477: 22,3753 20201 0,1
049151,000478: 22,3754 00045 NORMZI +1 # SAVE SHIFT
049152,000479: 22,3755 02657 STORE ZI +12D
049153,000480: 22,3756 54150 LXA,1 XSU,1
049154,000481: 22,3757 02103 NORMGAM
049155,000482: 22,3760 00045 NORMZI +1
049156,000483: 22,3761 77660 XSU,1
049157,000484: 22,3762 00045 NORMZI +1
049158,000485: 22,3763 70130 SXA,1 LXC,1
049159,000486: 22,3764 02103 NORMGAM
049160,000487: 22,3765 00045 NORMZI +1
049161,000488: 22,3766 40270 XAD,1 SETPD
049162,000489: 22,3767 00044 NORMZI
049163,000490: 22,3770 00003 2D
049164,000491: 22,3771 77650 GOTO
049165,000492: 22,3772 46667 INCOR2 -3
049166,000493: 22,3773 NORMZI = 36D
049167,000494:
049168,000495:
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc