Source Code
|
These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC
(Apollo Guidance Computer) flight software, created from binary dumps of original core rope
program modules, as follows:
Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
044130,000002: ## Copyright: Public domain. 044131,000003: ## Filename: MEASUREMENT_INCORPORATION.agc 044132,000004: ## Purpose: A section of a reconstructed, mixed version of Sundance 044133,000005: ## It is part of the reconstructed source code for the Lunar 044134,000006: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9. 044135,000007: ## No original listings of this program are available; 044136,000008: ## instead, this file was created via disassembly of dumps 044137,000009: ## of various revisions of Sundance core rope modules. 044138,000010: ## Assembler: yaYUL 044139,000011: ## Contact: Ron Burkey <info@sandroid.org>. 044140,000012: ## Website: www.ibiblio.org/apollo/index.html 044141,000013: ## Mod history: 2020-06-17 MAS Created from Luminary 69. 044142,000014: 044143,000015: ## Sundance 302 044144,000016: 044145,000017: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI 044146,000018: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A 044147,000019: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T 044148,000020: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA 044149,000021: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE 044150,000022: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN 044151,000023: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR. 044152,000024: 044153,000025: # INPUT 044154,000026: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1=9DIMENSIONAL 044155,000027: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9 044156,000028: # VARIANCE = VARIANCE (SCALAR) 044157,000029: # DELTAQ = MEASURED DEVIATION (SCALAR) 044158,000030: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR 044159,000031: 044160,000032: # OUTPUT 044161,000033: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL 044162,000034: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL 044163,000035: # GAMMA = SCALAR 044164,000036: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL 044165,000037: # CALLING SEQUENCE 044166,000038: # L CALL INCORP1 044167,000039: 044168,000040: # NORMAL EXIT 044169,000041: # L+1 OF CALLING SEQUENCE 044170,000042: 044171,000043: 37,3507 BANK 37 044172,000044: 23,2000 SETLOC MEASINC 044173,000045: 23,2000 BANK 044174,000046: 044175,000047: 23,2242 COUNT* $$/INCOR 044176,000048: 044177,000049: 23,2242 E5,1400 EBANK= W 044178,000050: 044179,000051: 23,2242 77620 INCORP1 STQ 044180,000052: 23,2243 02772 EGRESS 044181,000053: 23,2244 66370 AXT,1 SSP 044182,000054: 23,2245 00066 54D 044183,000055: 23,2246 00051 S1 044184,000056: 23,2247 00022 18D # IX1 = 54 S1= 18 044185,000057: 23,2250 66374 AXT,2 SSP 044186,000058: 23,2251 00022 18D 044187,000059: 23,2252 00052 S2 044188,000060: 23,2253 00006 6 # IX2 = 18 S2=6 044189,000061: 23,2254 63775 Z123 VLOAD MXV* 044190,000062: 23,2255 03512 BVECTOR # BVECTOR (0) 044191,000063: 23,2256 02467 W +54D,1 044192,000064: 23,2257 12665 STORE ZI +18D,2 044193,000065: 23,2260 77775 VLOAD 044194,000066: 23,2261 03520 BVECTOR +6 # BVECTOR (1) 044195,000067: 23,2262 52717 MXV* VAD* 044196,000068: 23,2263 02555 W +108D,1 044197,000069: 23,2264 75112 ZI +18D,2 044198,000070: 23,2265 12665 STORE ZI +18D,2 044199,000071: 23,2266 77775 VLOAD 044200,000072: 23,2267 03526 BVECTOR +12D # BVECTOR (2) 044201,000073: 23,2270 52717 MXV* VAD* 044202,000074: 23,2271 02643 W +162D,1 044203,000075: 23,2272 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS 044204,000076: 23,2273 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3 044205,000077: 23,2274 77700 TIX,1 044206,000078: 23,2275 46276 INCOR1 044207,000079: 23,2276 43104 INCOR1 TIX,2 BON 044208,000080: 23,2277 46254 Z123 # LOOP FOR Z1,Z2,Z3 044209,000081: 23,2300 02706 DMENFLG 044210,000082: 23,2301 46305 INCOR1A 044211,000083: 23,2302 77775 VLOAD 044212,000084: 23,2303 06233 ZEROVECS 044213,000085: 23,2304 02657 STORE ZI +12D 044214,000086: 23,2305 77201 INCOR1A SETPD VLOAD 044215,000087: 23,2306 00001 0 044216,000088: 23,2307 02643 ZI 044217,000089: 23,2310 47036 VSQ RTB 044218,000090: 23,2311 21531 TPMODE 044219,000091: 23,2312 47515 PDVL VSQ 044220,000092: 23,2313 02651 ZI +6 044221,000093: 23,2314 76234 RTB TAD 044222,000094: 23,2315 21531 TPMODE 044223,000095: 23,2316 47515 PDVL VSQ 044224,000096: 23,2317 02657 ZI +12D 044225,000097: 23,2320 76234 RTB TAD 044226,000098: 23,2321 21531 TPMODE 044227,000099: 23,2322 77171 TAD AXT,2 044228,000100: 23,2323 02707 VARIANCE 044229,000101: 23,2324 00000 0 044230,000102: 23,2325 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE 044231,000103: 23,2326 40151 TLOAD BOV 044232,000104: 23,2327 02707 VARIANCE # CLEAR OVFIND 044233,000105: 23,2330 46331 +1 044234,000106: 23,2331 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE 044235,000107: 23,2332 77654 BZE 044236,000108: 23,2333 46342 INCOR1C 044237,000109: 23,2334 40112 INCOR1B SL2 BOV 044238,000110: 23,2335 46342 INCOR1C 044239,000111: 23,2336 02670 STORE TEMPVAR 044240,000112: 23,2337 52114 INCR,2 GOTO 044241,000113: 23,2340 00001 DEC 1 B-14 044242,000114: 23,2341 46334 INCOR1B 044243,000115: 23,2342 61551 INCOR1C TLOAD ROUND 044244,000116: 23,2343 02665 TRIPA 044245,000117: 23,2344 75405 DMP SQRT 044246,000118: 23,2345 02670 TEMPVAR 044247,000119: 23,2346 76257 SL* TAD 044248,000120: 23,2347 57576 0,2 044249,000121: 23,2350 02665 TRIPA 044250,000122: 23,2351 63101 NORM INCR,2 044251,000123: 23,2352 00050 X2 044252,000124: 23,2353 77775 DEC -2 B-14 044253,000125: 23,2354 77134 SXA,2 AXT,2 044254,000126: 23,2355 02105 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA 044255,000127: 23,2356 00242 162D 044256,000128: 23,2357 40265 BDDV SETPD 044257,000129: 23,2360 06223 DP1/4TH 044258,000130: 23,2361 00001 0 044259,000131: 23,2362 03465 STORE GAMMA 044260,000132: 23,2363 60351 TLOAD NORM 044261,000133: 23,2364 02665 TRIPA 044262,000134: 23,2365 00047 X1 044263,000135: 23,2366 65345 DLOAD PDDL # PD 0-1 = NORM (A) 044264,000136: 23,2367 00155 MPAC 044265,000137: 23,2370 03534 DELTAQ 044266,000138: 23,2371 77701 NORM 044267,000139: 23,2372 00051 S1 044268,000140: 23,2373 70460 XSU,1 SR1 044269,000141: 23,2374 00050 S1 044270,000142: 23,2375 41471 DDV PUSH # PD 0-1 = DELTAQ/A 044271,000143: 23,2376 77731 -3 SSP 044272,000144: 23,2377 00052 S2 044273,000145: 23,2400 00066 54D 044274,000146: 23,2401 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3 044275,000147: 23,2402 02643 ZI 044276,000148: 23,2403 75134 W +162D,2 044277,000149: 23,2404 77206 PUSH VLOAD 044278,000150: 23,2405 02651 ZI +6 044279,000151: 23,2406 53303 VXM* VAD 044280,000152: 23,2407 75112 W +180D,2 044281,000153: 23,2410 77206 PUSH VLOAD 044282,000154: 23,2411 02657 ZI +12D 044283,000155: 23,2412 53303 VXM* VAD 044284,000156: 23,2413 75070 W +198D,2 044285,000157: 23,2414 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3 044286,000158: 23,2415 46401 INCOR2 044287,000159: 23,2416 45575 VLOAD STADR 044288,000160: 23,2417 74273 STORE OMEGA +12D 044289,000161: 23,2420 45575 VLOAD STADR 044290,000162: 23,2421 74301 STORE OMEGA +6 044291,000163: 23,2422 45575 VLOAD STADR 044292,000164: 23,2423 74307 STORE OMEGA 044293,000165: 23,2424 77214 BON VLOAD 044294,000166: 23,2425 02706 DMENFLG 044295,000167: 23,2426 46431 INCOR2AB 044296,000168: 23,2427 06233 ZEROVECS 044297,000169: 23,2430 03504 STORE OMEGA +12D 044298,000170: 23,2431 66374 INCOR2AB AXT,2 SSP 044299,000171: 23,2432 00022 18D 044300,000172: 23,2433 00052 S2 044301,000173: 23,2434 00006 6 044302,000174: 23,2435 77773 INCOR3 VLOAD* 044303,000175: 23,2436 74265 OMEGA +18D,2 044304,000176: 23,2437 53761 VXSC VSL* 044305,000177: 23,2440 00001 0 # DELTAQ/A 044306,000178: 23,2441 20201 0,1 044307,000179: 23,2442 12707 STORE DELTAX +18D,2 044308,000180: 23,2443 77304 TIX,2 VLOAD 044309,000181: 23,2444 46435 INCOR3 044310,000182: 23,2445 02673 DELTAX +6 044311,000183: 23,2446 77732 VSL3 044312,000184: 23,2447 02673 STORE DELTAX +6 044313,000185: 23,2450 77650 GOTO 044314,000186: 23,2451 02772 EGRESS 044315,000187: 044316,000188: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE 044317,000189: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE 044318,000190: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM) 044319,000191: 044320,000192: # INPUT 044321,000193: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM 044322,000194: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM 044323,000195: # W = ERROR TRANSITION MATRIX 044324,000196: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS 044325,000197: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9) 044326,000198: # GAMMA = SCALAR FOR INCORPORATION 044327,000199: # ZI = VECTOR USED IN INCORPORATION 044328,000200: # OMEGA = WEIGHTING VECTOR 044329,000201: 044330,000202: # OUTPUT 044331,000203: # UPDATED PERMANENT STATE VECTOR 044332,000204: 044333,000205: # CALLING SEQUENCE 044334,000206: # L CALL INCORP2 044335,000207: 044336,000208: # NORMAL EXIT 044337,000209: # L+1 OF CALLING SEQUENCE 044338,000210: 044339,000211: 044340,000212: 23,2000 SETLOC MEASINC1 044341,000213: 23,2000 BANK 044342,000214: 044343,000215: 23,2452 COUNT* $$/INCOR 044344,000216: 044345,000217: 23,2452 45020 INCORP2 STQ CALL 044346,000218: 23,2453 02772 EGRESS 044347,000219: 23,2454 27362 INTSTALL 044348,000220: 23,2455 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3 044349,000221: 23,2456 03470 OMEGA 044350,000222: 23,2457 03465 GAMMA 044351,000223: 23,2460 26713 STOVL OMEGAM1 044352,000224: 23,2461 03476 OMEGA +6 044353,000225: 23,2462 77761 VXSC 044354,000226: 23,2463 03465 GAMMA 044355,000227: 23,2464 26721 STOVL OMEGAM2 044356,000228: 23,2465 03504 OMEGA +12D 044357,000229: 23,2466 77761 VXSC 044358,000230: 23,2467 03465 GAMMA 044359,000231: 23,2470 02727 STORE OMEGAM3 044360,000232: 23,2471 77776 EXIT 044361,000233: 23,2472 32754 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX 044362,000234: 23,2473 55324 TS WIXA 044363,000235: 23,2474 55325 TS WIXB 044364,000236: 23,2475 35030 CAF ZERO 044365,000237: 23,2476 55326 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT 044366,000238: 23,2477 55327 TS ZIXB 044367,000239: 23,2500 05413 FAZA TC PHASCHNG 044368,000240: 23,2501 04022 OCT 04022 044369,000241: 23,2502 40774 CS RASFLAG 044370,000242: 23,2503 75020 MASK REINTBIT 044371,000243: 23,2504 26774 ADS RASFLAG 044372,000244: 23,2505 31325 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2 044373,000245: 23,2506 55324 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP 044374,000246: 23,2507 31327 CA ZIXB 044375,000247: 23,2510 55326 TS ZIXA 044376,000248: 23,2511 06014 TC INTPRET 044377,000249: 23,2512 73150 LXA,1 LXA,2 044378,000250: 23,2513 01324 WIXA 044379,000251: 23,2514 01326 ZIXA 044380,000252: 23,2515 70731 SSP DLOAD* 044381,000253: 23,2516 00051 S1 044382,000254: 23,2517 00006 6 044383,000255: 23,2520 75134 ZI,2 044384,000256: 23,2521 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX 044385,000257: 23,2522 00052 S2 044386,000258: 23,2523 65161 VXSC XCHX,2 044387,000259: 23,2524 02713 OMEGAM1 044388,000260: 23,2525 00051 S2 044389,000261: 23,2526 57144 LXC,2 XAD,2 044390,000262: 23,2527 00047 X2 044391,000263: 23,2530 02105 NORMGAM 044392,000264: 23,2531 65057 VSL* XCHX,2 044393,000265: 23,2532 57576 0,2 044394,000266: 23,2533 00051 S2 044395,000267: 23,2534 77653 VAD* 044396,000268: 23,2535 02467 W +54D,1 044397,000269: 23,2536 02735 STORE HOLDW 044398,000270: 23,2537 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX 044399,000271: 23,2540 75134 ZI,2 044400,000272: 23,2541 74301 NORM VXSC 044401,000273: 23,2542 00052 S2 044402,000274: 23,2543 02721 OMEGAM2 044403,000275: 23,2544 71124 XCHX,2 LXC,2 044404,000276: 23,2545 00051 S2 044405,000277: 23,2546 00047 X2 044406,000278: 23,2547 53674 XAD,2 VSL* 044407,000279: 23,2550 02105 NORMGAM 044408,000280: 23,2551 57576 0,2 044409,000281: 23,2552 52724 XCHX,2 VAD* 044410,000282: 23,2553 00051 S2 044411,000283: 23,2554 02555 W +108D,1 044412,000284: 23,2555 02743 STORE HOLDW +6 044413,000285: 23,2556 77614 BOFF 044414,000286: 23,2557 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL 044415,000287: 23,2560 46600 FAZB 044416,000288: 23,2561 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX 044417,000289: 23,2562 75134 ZI,2 044418,000290: 23,2563 74301 NORM VXSC 044419,000291: 23,2564 00052 S2 044420,000292: 23,2565 02727 OMEGAM3 044421,000293: 23,2566 71124 XCHX,2 LXC,2 044422,000294: 23,2567 00051 S2 044423,000295: 23,2570 00047 X2 044424,000296: 23,2571 53674 XAD,2 VSL* 044425,000297: 23,2572 02105 NORMGAM 044426,000298: 23,2573 57576 0,2 044427,000299: 23,2574 52724 XCHX,2 VAD* 044428,000300: 23,2575 00051 S2 044429,000301: 23,2576 02643 W +162D,1 044430,000302: 23,2577 02751 STORE HOLDW +12D 044431,000303: 23,2600 77624 FAZB CALL 044432,000304: 23,2601 11054 GRP2PC 044433,000305: 23,2602 77776 EXIT 044434,000306: 23,2603 31324 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER 044435,000307: 23,2604 62755 AD 6DD # TEMP REG TO PERM W MATRIX 044436,000308: 23,2605 55325 TS WIXB 044437,000309: 23,2606 31326 CA ZIXA 044438,000310: 23,2607 67720 AD MINUS2 044439,000311: 23,2610 55327 TS ZIXB 044440,000312: 23,2611 06014 TC INTPRET 044441,000313: 23,2612 66350 LXA,1 SSP 044442,000314: 23,2613 01324 WIXA 044443,000315: 23,2614 00051 S1 044444,000316: 23,2615 00006 6 044445,000317: 23,2616 77775 VLOAD 044446,000318: 23,2617 02735 HOLDW 044447,000319: 23,2620 06467 STORE W +54D,1 044448,000320: 23,2621 77775 VLOAD 044449,000321: 23,2622 02743 HOLDW +6 044450,000322: 23,2623 06555 STORE W +108D,1 044451,000323: 23,2624 77214 BOFF VLOAD 044452,000324: 23,2625 02746 DMENFLG 044453,000325: 23,2626 46636 FAZB5 044454,000326: 23,2627 02751 HOLDW +12D 044455,000327: 23,2630 06643 STORE W +162D,1 044456,000328: 23,2631 52100 FAZB2 TIX,1 GOTO 044457,000329: 23,2632 46634 +2 044458,000330: 23,2633 46644 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR 044459,000331: 23,2634 77634 RTB 044460,000332: 23,2635 46500 FAZA 044461,000333: 23,2636 43335 FAZB5 SLOAD DAD 044462,000334: 23,2637 01330 ZIXB 044463,000335: 23,2640 06757 12DD 044464,000336: 23,2641 52030 BHIZ GOTO 044465,000337: 23,2642 46644 FAZC 044466,000338: 23,2643 46631 FAZB2 044467,000339: 23,2644 77624 FAZC CALL 044468,000340: 23,2645 11054 GRP2PC 044469,000341: 23,2646 53375 VLOAD VAD # START 3RD PHASE OF INCORP2 044470,000342: 23,2647 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR 044471,000343: 23,2650 02701 DELTAX +12D # INCORPORATION FOR X789 044472,000344: 23,2651 03457 STORE TX789 044473,000345: 23,2652 47014 BON RTB 044474,000346: 23,2653 00707 VEHUPFLG 044475,000347: 23,2654 46744 DOCSM 044476,000348: 23,2655 26740 MOVEPLEM 044477,000349: 23,2656 77004 FAZAB BOVB AXT,2 044478,000350: 23,2657 57702 TCDANZIG 044479,000351: 23,2660 00000 0 044480,000352: 23,2661 77014 BOFF AXT,2 044481,000353: 23,2662 04344 MOONTHIS 044482,000354: 23,2663 46665 +2 044483,000355: 23,2664 00002 2 044484,000356: 23,2665 53775 VLOAD VSR* 044485,000357: 23,2666 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH 044486,000358: 23,2667 57205 0 -7,2 044487,000359: 23,2670 40055 VAD BOV 044488,000360: 23,2671 01521 TDELTAV 044489,000361: 23,2672 46704 FAZAB1 044490,000362: 23,2673 25521 STOVL TDELTAV 044491,000363: 23,2674 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH 044492,000364: 23,2675 53257 VSR* VAD 044493,000365: 23,2676 57202 0 -4,2 044494,000366: 23,2677 01527 TNUV 044495,000367: 23,2700 77600 BOV 044496,000368: 23,2701 46710 FAZAB2 044497,000369: 23,2702 35527 STCALL TNUV 044498,000370: 23,2703 46717 FAZAB3 044499,000371: 23,2704 53375 FAZAB1 VLOAD VAD 044500,000372: 23,2705 01535 RCV 044501,000373: 23,2706 02665 DELTAX 044502,000374: 23,2707 01535 STORE RCV 044503,000375: 23,2710 53375 FAZAB2 VLOAD VAD 044504,000376: 23,2711 01543 VCV 044505,000377: 23,2712 02673 DELTAX +6 044506,000378: 23,2713 01543 STORE VCV 044507,000379: 23,2714 45134 SXA,2 CALL 044508,000380: 23,2715 02032 PBODY 044509,000381: 23,2716 23340 RECTIFY 044510,000382: 23,2717 77624 FAZAB3 CALL 044511,000383: 23,2720 11054 GRP2PC 044512,000384: 23,2721 47014 BON RTB 044513,000385: 23,2722 00707 VEHUPFLG 044514,000386: 23,2723 46747 DOCSM1 044515,000387: 23,2724 26717 MOVEALEM 044516,000388: 23,2725 77624 CALL 044517,000389: 23,2726 26042 SVDWN2 # STORE DOWNLINK STATE VECTOR 044518,000390: 23,2727 77624 FAZAB4 CALL 044519,000391: 23,2730 11054 GRP2PC # PHASE CHANGE 044520,000392: 23,2731 77214 BOFF VLOAD 044521,000393: 23,2732 02746 DMENFLG 044522,000394: 23,2733 46736 FAZAB5 # 6 DIMENSIONAL 044523,000395: 23,2734 03457 TX789 # 9 DIMENSIONAL 044524,000396: 23,2735 01701 STORE X789 044525,000397: 23,2736 66150 FAZAB5 LXA,1 SXA,1 044526,000398: 23,2737 02772 EGRESS 044527,000399: 23,2740 00052 QPRET 044528,000400: 23,2741 77776 EXIT 044529,000401: 23,2742 04674 TC POSTJUMP # EXIT 044530,000402: 23,2743 27400 CADR INTWAKE 044531,000403: 23,2744 52034 DOCSM RTB GOTO 044532,000404: 23,2745 26673 MOVEPCSM 044533,000405: 23,2746 46656 FAZAB 044534,000406: 23,2747 45034 DOCSM1 RTB CALL 044535,000407: 23,2750 26644 MOVEACSM 044536,000408: 23,2751 26066 SVDWN1 # STORE DOWNLINK STATE VECTOR 044537,000409: 23,2752 77650 GOTO 044538,000410: 23,2753 46727 FAZAB4 044539,000411: 23,2754 23,2232 ZEROO = ZEROVECS 044540,000412: 23,2754 00066 54DD DEC 54 B-14 044541,000413: 23,2755 77771 6DD DEC -6 B-14 044542,000414: 23,2756 00014 12DD DEC 12 B-14 044543,000415: 044544,000416: End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc