- B1 — Revision 292
- B2 — Revision 302
- B3 — Revision 302
- B4 — Revision 302
- B5 — Revision 292
- B6 — Revision 306
Source Code
|
|
These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9
LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of
original core rope program modules, as follows:
|
044322,000002: ## Copyright: Public domain.
044323,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
044324,000004: ## Purpose: A section of an attempt to reconstruct Sundance revision 306
044325,000005: ## as closely as possible with available information. Sundance
044326,000006: ## 306 is the source code for the Lunar Module's (LM) Apollo
044327,000007: ## Guidance Computer (AGC) for Apollo 9. This program was created
044328,000008: ## using the mixed-revision SundanceXXX as a starting point, and
044329,000009: ## pulling back features from Luminary 69 believed to have been
044330,000010: ## added based on memos, checklists, observed address changes,
044331,000011: ## or the Sundance GSOPs.
044332,000012: ## Assembler: yaYUL
044333,000013: ## Contact: Ron Burkey <info@sandroid.org>.
044334,000014: ## Website: www.ibiblio.org/apollo/index.html
044335,000015: ## Mod history: 2020-07-24 MAS Created from SundanceXXX.
044336,000016: ## 2020-07-29 MAS Added NEWZCOMP.
044337,000017:
044338,000018:
044339,000019:
044340,000020: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
044341,000021: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
044342,000022: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
044343,000023: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
044344,000024: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
044345,000025: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
044346,000026: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
044347,000027:
044348,000028: # INPUT
044349,000029: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1=9DIMENSIONAL
044350,000030: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
044351,000031: # VARIANCE = VARIANCE (SCALAR)
044352,000032: # DELTAQ = MEASURED DEVIATION (SCALAR)
044353,000033: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
044354,000034:
044355,000035: # OUTPUT
044356,000036: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
044357,000037: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
044358,000038: # GAMMA = SCALAR
044359,000039: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
044360,000040: # CALLING SEQUENCE
044361,000041: # L CALL INCORP1
044362,000042:
044363,000043: # NORMAL EXIT
044364,000044: # L+1 OF CALLING SEQUENCE
044365,000045:
044366,000046: 37,3507 BANK 37
044367,000047: 23,2000 SETLOC MEASINC
044368,000048: 23,2000 BANK
044369,000049:
044370,000050: 23,2242 COUNT* $$/INCOR
044371,000051:
044372,000052: 23,2242 E5,1400 EBANK= W
044373,000053:
044374,000054: 23,2242 77620 INCORP1 STQ
044375,000055: 23,2243 02772 EGRESS
044376,000056: 23,2244 66370 AXT,1 SSP
044377,000057: 23,2245 00066 54D
044378,000058: 23,2246 00051 S1
044379,000059: 23,2247 00022 18D # IX1 = 54 S1= 18
044380,000060: 23,2250 66374 AXT,2 SSP
044381,000061: 23,2251 00022 18D
044382,000062: 23,2252 00052 S2
044383,000063: 23,2253 00006 6 # IX2 = 18 S2=6
044384,000064: 23,2254 63775 Z123 VLOAD MXV*
044385,000065: 23,2255 03512 BVECTOR # BVECTOR (0)
044386,000066: 23,2256 02467 W +54D,1
044387,000067: 23,2257 12665 STORE ZI +18D,2
044388,000068: 23,2260 77775 VLOAD
044389,000069: 23,2261 03520 BVECTOR +6 # BVECTOR (1)
044390,000070: 23,2262 52717 MXV* VAD*
044391,000071: 23,2263 02555 W +108D,1
044392,000072: 23,2264 75112 ZI +18D,2
044393,000073: 23,2265 12665 STORE ZI +18D,2
044394,000074: 23,2266 77775 VLOAD
044395,000075: 23,2267 03526 BVECTOR +12D # BVECTOR (2)
044396,000076: 23,2270 52717 MXV* VAD*
044397,000077: 23,2271 02643 W +162D,1
044398,000078: 23,2272 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
044399,000079: 23,2273 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
044400,000080: 23,2274 77700 TIX,1
044401,000081: 23,2275 46276 INCOR1
044402,000082: 23,2276 43104 INCOR1 TIX,2 BON
044403,000083: 23,2277 46254 Z123 # LOOP FOR Z1,Z2,Z3
044404,000084: 23,2300 02706 DMENFLG
044405,000085: 23,2301 46305 INCOR1A
044406,000086: 23,2302 77775 VLOAD
044407,000087: 23,2303 06233 ZEROVECS
044408,000088: 23,2304 02657 STORE ZI +12D
044409,000089: 23,2305 77201 INCOR1A SETPD VLOAD
044410,000090: 23,2306 00001 0
044411,000091: 23,2307 02643 ZI
044412,000092: 23,2310 47036 VSQ RTB
044413,000093: 23,2311 21531 TPMODE
044414,000094: 23,2312 47515 PDVL VSQ
044415,000095: 23,2313 02651 ZI +6
044416,000096: 23,2314 76234 RTB TAD
044417,000097: 23,2315 21531 TPMODE
044418,000098: 23,2316 47515 PDVL VSQ
044419,000099: 23,2317 02657 ZI +12D
044420,000100: 23,2320 76234 RTB TAD
044421,000101: 23,2321 21531 TPMODE
044422,000102: 23,2322 77171 TAD AXT,2
044423,000103: 23,2323 02707 VARIANCE
044424,000104: 23,2324 00000 0
044425,000105: 23,2325 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
044426,000106: 23,2326 40151 TLOAD BOV
044427,000107: 23,2327 02707 VARIANCE # CLEAR OVFIND
044428,000108: 23,2330 46331 +1
044429,000109: 23,2331 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
044430,000110: 23,2332 77654 BZE
044431,000111: 23,2333 46342 INCOR1C
044432,000112: 23,2334 40112 INCOR1B SL2 BOV
044433,000113: 23,2335 46342 INCOR1C
044434,000114: 23,2336 02670 STORE TEMPVAR
044435,000115: 23,2337 52114 INCR,2 GOTO
044436,000116: 23,2340 00001 DEC 1 B-14
044437,000117: 23,2341 46334 INCOR1B
044438,000118: 23,2342 61551 INCOR1C TLOAD ROUND
044439,000119: 23,2343 02665 TRIPA
044440,000120: 23,2344 75405 DMP SQRT
044441,000121: 23,2345 02670 TEMPVAR
044442,000122: 23,2346 76257 SL* TAD
044443,000123: 23,2347 57576 0,2
044444,000124: 23,2350 02665 TRIPA
044445,000125: 23,2351 63101 NORM INCR,2
044446,000126: 23,2352 00050 X2
044447,000127: 23,2353 77775 DEC -2 B-14
044448,000128: 23,2354 77134 SXA,2 AXT,2
044449,000129: 23,2355 02105 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
044450,000130: 23,2356 00242 162D
044451,000131: 23,2357 40265 BDDV SETPD
044452,000132: 23,2360 06223 DP1/4TH
044453,000133: 23,2361 00001 0
044454,000134: 23,2362 03465 STORE GAMMA
044455,000135: 23,2363 60351 TLOAD NORM
044456,000136: 23,2364 02665 TRIPA
044457,000137: 23,2365 00047 X1
044458,000138: 23,2366 65345 DLOAD PDDL # PD 0-1 = NORM (A)
044459,000139: 23,2367 00155 MPAC
044460,000140: 23,2370 03534 DELTAQ
044461,000141: 23,2371 77701 NORM
044462,000142: 23,2372 00051 S1
044463,000143: 23,2373 70460 XSU,1 SR1
044464,000144: 23,2374 00050 S1
044465,000145: 23,2375 41471 DDV PUSH # PD 0-1 = DELTAQ/A
044466,000146: 23,2376 77650 GOTO
044467,000147: 23,2377 46761 NEWZCOMP
044468,000148: 23,2400 77731 -3 SSP
044469,000149: 23,2401 00052 S2
044470,000150: 23,2402 00066 54D
044471,000151: 23,2403 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
044472,000152: 23,2404 02643 ZI
044473,000153: 23,2405 75134 W +162D,2
044474,000154: 23,2406 77206 PUSH VLOAD
044475,000155: 23,2407 02651 ZI +6
044476,000156: 23,2410 53303 VXM* VAD
044477,000157: 23,2411 75112 W +180D,2
044478,000158: 23,2412 77206 PUSH VLOAD
044479,000159: 23,2413 02657 ZI +12D
044480,000160: 23,2414 53303 VXM* VAD
044481,000161: 23,2415 75070 W +198D,2
044482,000162: 23,2416 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
044483,000163: 23,2417 46403 INCOR2
044484,000164: 23,2420 45575 VLOAD STADR
044485,000165: 23,2421 74273 STORE OMEGA +12D
044486,000166: 23,2422 45575 VLOAD STADR
044487,000167: 23,2423 74301 STORE OMEGA +6
044488,000168: 23,2424 45575 VLOAD STADR
044489,000169: 23,2425 74307 STORE OMEGA
044490,000170: 23,2426 77214 BON VLOAD
044491,000171: 23,2427 02706 DMENFLG
044492,000172: 23,2430 46433 INCOR2AB
044493,000173: 23,2431 06233 ZEROVECS
044494,000174: 23,2432 03504 STORE OMEGA +12D
044495,000175: 23,2433 66374 INCOR2AB AXT,2 SSP
044496,000176: 23,2434 00022 18D
044497,000177: 23,2435 00052 S2
044498,000178: 23,2436 00006 6
044499,000179: 23,2437 77773 INCOR3 VLOAD*
044500,000180: 23,2440 74265 OMEGA +18D,2
044501,000181: 23,2441 53761 VXSC VSL*
044502,000182: 23,2442 00001 0 # DELTAQ/A
044503,000183: 23,2443 20201 0,1
044504,000184: 23,2444 12707 STORE DELTAX +18D,2
044505,000185: 23,2445 77304 TIX,2 VLOAD
044506,000186: 23,2446 46437 INCOR3
044507,000187: 23,2447 02673 DELTAX +6
044508,000188: 23,2450 77732 VSL3
044509,000189: 23,2451 02673 STORE DELTAX +6
044510,000190: 23,2452 77650 GOTO
044511,000191: 23,2453 02772 EGRESS
044512,000192:
044513,000193: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
044514,000194: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
044515,000195: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
044516,000196:
044517,000197: # INPUT
044518,000198: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
044519,000199: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
044520,000200: # W = ERROR TRANSITION MATRIX
044521,000201: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
044522,000202: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
044523,000203: # GAMMA = SCALAR FOR INCORPORATION
044524,000204: # ZI = VECTOR USED IN INCORPORATION
044525,000205: # OMEGA = WEIGHTING VECTOR
044526,000206:
044527,000207: # OUTPUT
044528,000208: # UPDATED PERMANENT STATE VECTOR
044529,000209:
044530,000210: # CALLING SEQUENCE
044531,000211: # L CALL INCORP2
044532,000212:
044533,000213: # NORMAL EXIT
044534,000214: # L+1 OF CALLING SEQUENCE
044535,000215:
044536,000216:
044537,000217: 23,2000 SETLOC MEASINC1
044538,000218: 23,2000 BANK
044539,000219:
044540,000220: 23,2454 COUNT* $$/INCOR
044541,000221:
044542,000222: 23,2454 45020 INCORP2 STQ CALL
044543,000223: 23,2455 02772 EGRESS
044544,000224: 23,2456 27362 INTSTALL
044545,000225: 23,2457 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
044546,000226: 23,2460 03470 OMEGA
044547,000227: 23,2461 03465 GAMMA
044548,000228: 23,2462 26713 STOVL OMEGAM1
044549,000229: 23,2463 03476 OMEGA +6
044550,000230: 23,2464 77761 VXSC
044551,000231: 23,2465 03465 GAMMA
044552,000232: 23,2466 26721 STOVL OMEGAM2
044553,000233: 23,2467 03504 OMEGA +12D
044554,000234: 23,2470 77761 VXSC
044555,000235: 23,2471 03465 GAMMA
044556,000236: 23,2472 02727 STORE OMEGAM3
044557,000237: 23,2473 77776 EXIT
044558,000238: 23,2474 32756 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
044559,000239: 23,2475 55324 TS WIXA
044560,000240: 23,2476 55325 TS WIXB
044561,000241: 23,2477 35030 CAF ZERO
044562,000242: 23,2500 55326 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
044563,000243: 23,2501 55327 TS ZIXB
044564,000244: 23,2502 05423 FAZA TC PHASCHNG
044565,000245: 23,2503 04022 OCT 04022
044566,000246: 23,2504 40774 CS RASFLAG
044567,000247: 23,2505 75020 MASK REINTBIT
044568,000248: 23,2506 26774 ADS RASFLAG
044569,000249: 23,2507 31325 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
044570,000250: 23,2510 55324 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
044571,000251: 23,2511 31327 CA ZIXB
044572,000252: 23,2512 55326 TS ZIXA
044573,000253: 23,2513 06014 TC INTPRET
044574,000254: 23,2514 73150 LXA,1 LXA,2
044575,000255: 23,2515 01324 WIXA
044576,000256: 23,2516 01326 ZIXA
044577,000257: 23,2517 70731 SSP DLOAD*
044578,000258: 23,2520 00051 S1
044579,000259: 23,2521 00006 6
044580,000260: 23,2522 75134 ZI,2
044581,000261: 23,2523 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
044582,000262: 23,2524 00052 S2
044583,000263: 23,2525 65161 VXSC XCHX,2
044584,000264: 23,2526 02713 OMEGAM1
044585,000265: 23,2527 00051 S2
044586,000266: 23,2530 57144 LXC,2 XAD,2
044587,000267: 23,2531 00047 X2
044588,000268: 23,2532 02105 NORMGAM
044589,000269: 23,2533 65057 VSL* XCHX,2
044590,000270: 23,2534 57576 0,2
044591,000271: 23,2535 00051 S2
044592,000272: 23,2536 77653 VAD*
044593,000273: 23,2537 02467 W +54D,1
044594,000274: 23,2540 02735 STORE HOLDW
044595,000275: 23,2541 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
044596,000276: 23,2542 75134 ZI,2
044597,000277: 23,2543 74301 NORM VXSC
044598,000278: 23,2544 00052 S2
044599,000279: 23,2545 02721 OMEGAM2
044600,000280: 23,2546 71124 XCHX,2 LXC,2
044601,000281: 23,2547 00051 S2
044602,000282: 23,2550 00047 X2
044603,000283: 23,2551 53674 XAD,2 VSL*
044604,000284: 23,2552 02105 NORMGAM
044605,000285: 23,2553 57576 0,2
044606,000286: 23,2554 52724 XCHX,2 VAD*
044607,000287: 23,2555 00051 S2
044608,000288: 23,2556 02555 W +108D,1
044609,000289: 23,2557 02743 STORE HOLDW +6
044610,000290: 23,2560 77614 BOFF
044611,000291: 23,2561 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
044612,000292: 23,2562 46602 FAZB
044613,000293: 23,2563 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
044614,000294: 23,2564 75134 ZI,2
044615,000295: 23,2565 74301 NORM VXSC
044616,000296: 23,2566 00052 S2
044617,000297: 23,2567 02727 OMEGAM3
044618,000298: 23,2570 71124 XCHX,2 LXC,2
044619,000299: 23,2571 00051 S2
044620,000300: 23,2572 00047 X2
044621,000301: 23,2573 53674 XAD,2 VSL*
044622,000302: 23,2574 02105 NORMGAM
044623,000303: 23,2575 57576 0,2
044624,000304: 23,2576 52724 XCHX,2 VAD*
044625,000305: 23,2577 00051 S2
044626,000306: 23,2600 02643 W +162D,1
044627,000307: 23,2601 02751 STORE HOLDW +12D
044628,000308: 23,2602 77624 FAZB CALL
044629,000309: 23,2603 11057 GRP2PC
044630,000310: 23,2604 77776 EXIT
044631,000311: 23,2605 31324 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
044632,000312: 23,2606 62757 AD 6DD # TEMP REG TO PERM W MATRIX
044633,000313: 23,2607 55325 TS WIXB
044634,000314: 23,2610 31326 CA ZIXA
044635,000315: 23,2611 67720 AD MINUS2
044636,000316: 23,2612 55327 TS ZIXB
044637,000317: 23,2613 06014 TC INTPRET
044638,000318: 23,2614 66350 LXA,1 SSP
044639,000319: 23,2615 01324 WIXA
044640,000320: 23,2616 00051 S1
044641,000321: 23,2617 00006 6
044642,000322: 23,2620 77775 VLOAD
044643,000323: 23,2621 02735 HOLDW
044644,000324: 23,2622 06467 STORE W +54D,1
044645,000325: 23,2623 77775 VLOAD
044646,000326: 23,2624 02743 HOLDW +6
044647,000327: 23,2625 06555 STORE W +108D,1
044648,000328: 23,2626 77214 BOFF VLOAD
044649,000329: 23,2627 02746 DMENFLG
044650,000330: 23,2630 46640 FAZB5
044651,000331: 23,2631 02751 HOLDW +12D
044652,000332: 23,2632 06643 STORE W +162D,1
044653,000333: 23,2633 52100 FAZB2 TIX,1 GOTO
044654,000334: 23,2634 46636 +2
044655,000335: 23,2635 46646 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
044656,000336: 23,2636 77634 RTB
044657,000337: 23,2637 46502 FAZA
044658,000338: 23,2640 43335 FAZB5 SLOAD DAD
044659,000339: 23,2641 01330 ZIXB
044660,000340: 23,2642 06761 12DD
044661,000341: 23,2643 52030 BHIZ GOTO
044662,000342: 23,2644 46646 FAZC
044663,000343: 23,2645 46633 FAZB2
044664,000344: 23,2646 77624 FAZC CALL
044665,000345: 23,2647 11057 GRP2PC
044666,000346: 23,2650 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
044667,000347: 23,2651 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
044668,000348: 23,2652 02701 DELTAX +12D # INCORPORATION FOR X789
044669,000349: 23,2653 03457 STORE TX789
044670,000350: 23,2654 47014 BON RTB
044671,000351: 23,2655 00707 VEHUPFLG
044672,000352: 23,2656 46746 DOCSM
044673,000353: 23,2657 26740 MOVEPLEM
044674,000354: 23,2660 77004 FAZAB BOVB AXT,2
044675,000355: 23,2661 57702 TCDANZIG
044676,000356: 23,2662 00000 0
044677,000357: 23,2663 77014 BOFF AXT,2
044678,000358: 23,2664 04344 MOONTHIS
044679,000359: 23,2665 46667 +2
044680,000360: 23,2666 00002 2
044681,000361: 23,2667 53775 VLOAD VSR*
044682,000362: 23,2670 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
044683,000363: 23,2671 57205 0 -7,2
044684,000364: 23,2672 40055 VAD BOV
044685,000365: 23,2673 01521 TDELTAV
044686,000366: 23,2674 46706 FAZAB1
044687,000367: 23,2675 25521 STOVL TDELTAV
044688,000368: 23,2676 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
044689,000369: 23,2677 53257 VSR* VAD
044690,000370: 23,2700 57202 0 -4,2
044691,000371: 23,2701 01527 TNUV
044692,000372: 23,2702 77600 BOV
044693,000373: 23,2703 46712 FAZAB2
044694,000374: 23,2704 35527 STCALL TNUV
044695,000375: 23,2705 46721 FAZAB3
044696,000376: 23,2706 53375 FAZAB1 VLOAD VAD
044697,000377: 23,2707 01535 RCV
044698,000378: 23,2710 02665 DELTAX
044699,000379: 23,2711 01535 STORE RCV
044700,000380: 23,2712 53375 FAZAB2 VLOAD VAD
044701,000381: 23,2713 01543 VCV
044702,000382: 23,2714 02673 DELTAX +6
044703,000383: 23,2715 01543 STORE VCV
044704,000384: 23,2716 45134 SXA,2 CALL
044705,000385: 23,2717 02032 PBODY
044706,000386: 23,2720 23340 RECTIFY
044707,000387: 23,2721 77624 FAZAB3 CALL
044708,000388: 23,2722 11057 GRP2PC
044709,000389: 23,2723 47014 BON RTB
044710,000390: 23,2724 00707 VEHUPFLG
044711,000391: 23,2725 46751 DOCSM1
044712,000392: 23,2726 26717 MOVEALEM
044713,000393: 23,2727 77624 CALL
044714,000394: 23,2730 26042 SVDWN2 # STORE DOWNLINK STATE VECTOR
044715,000395: 23,2731 77624 FAZAB4 CALL
044716,000396: 23,2732 11057 GRP2PC # PHASE CHANGE
044717,000397: 23,2733 77214 BOFF VLOAD
044718,000398: 23,2734 02746 DMENFLG
044719,000399: 23,2735 46740 FAZAB5 # 6 DIMENSIONAL
044720,000400: 23,2736 03457 TX789 # 9 DIMENSIONAL
044721,000401: 23,2737 01701 STORE X789
044722,000402: 23,2740 66150 FAZAB5 LXA,1 SXA,1
044723,000403: 23,2741 02772 EGRESS
044724,000404: 23,2742 00052 QPRET
044725,000405: 23,2743 77776 EXIT
044726,000406: 23,2744 04674 TC POSTJUMP # EXIT
044727,000407: 23,2745 27400 CADR INTWAKE
044728,000408: 23,2746 52034 DOCSM RTB GOTO
044729,000409: 23,2747 26673 MOVEPCSM
044730,000410: 23,2750 46660 FAZAB
044731,000411: 23,2751 45034 DOCSM1 RTB CALL
044732,000412: 23,2752 26644 MOVEACSM
044733,000413: 23,2753 26066 SVDWN1 # STORE DOWNLINK STATE VECTOR
044734,000414: 23,2754 77650 GOTO
044735,000415: 23,2755 46731 FAZAB4
044736,000416: 23,2756 23,2232 ZEROO = ZEROVECS
044737,000417: 23,2756 00066 54DD DEC 54 B-14
044738,000418: 23,2757 77771 6DD DEC -6 B-14
044739,000419: 23,2760 00014 12DD DEC 12 B-14
044740,000420:
044741,000421:
044742,000422: 23,2761 51575 NEWZCOMP VLOAD ABVAL
044743,000423: 23,2762 02643 ZI
044744,000424: 23,2763 24045 STOVL NORMZI
044745,000425: 23,2764 02651 ZI +6
044746,000426: 23,2765 41446 ABVAL PUSH
044747,000427: 23,2766 50025 DSU BMN
044748,000428: 23,2767 00045 NORMZI
044749,000429: 23,2770 46773 +3
044750,000430: 23,2771 45545 DLOAD STADR
044751,000431: 23,2772 77732 STORE NORMZI
044752,000432: 23,2773 51575 VLOAD ABVAL
044753,000433: 23,2774 02657 ZI +12D
044754,000434: 23,2775 45206 PUSH DSU
044755,000435: 23,2776 00045 NORMZI
044756,000436: 23,2777 71240 BMN DLOAD
044757,000437: 23,3000 47003 +3
044758,000438: 23,3001 77626 STADR
044759,000439: 23,3002 77732 STORE NORMZI # LARGEST ABVAL
044760,000440: 23,3003 66145 DLOAD SXA,1
044761,000441: 23,3004 00045 NORMZI
044762,000442: 23,3005 00044 NORMZI # SAVE X1
044763,000443: 23,3006 62101 NORM INCR,1
044764,000444: 23,3007 00047 X1
044765,000445: 23,3010 00002 DEC 2 B-14
044766,000446: 23,3011 53775 VLOAD VSL*
044767,000447: 23,3012 02643 ZI
044768,000448: 23,3013 20201 0,1
044769,000449: 23,3014 26643 STOVL ZI
044770,000450: 23,3015 02651 ZI +6
044771,000451: 23,3016 77657 VSL*
044772,000452: 23,3017 20201 0,1
044773,000453: 23,3020 26651 STOVL ZI +6
044774,000454: 23,3021 02657 ZI +12D
044775,000455: 23,3022 66057 VSL* SXA,1
044776,000456: 23,3023 20201 0,1
044777,000457: 23,3024 00045 NORMZI +1 # SAVE SHIFT
044778,000458: 23,3025 02657 STORE ZI +12D
044779,000459: 23,3026 54150 LXA,1 XSU,1
044780,000460: 23,3027 02105 NORMGAM
044781,000461: 23,3030 00045 NORMZI +1
044782,000462: 23,3031 77660 XSU,1
044783,000463: 23,3032 00045 NORMZI +1
044784,000464: 23,3033 70130 SXA,1 LXC,1
044785,000465: 23,3034 02105 NORMGAM
044786,000466: 23,3035 00045 NORMZI +1
044787,000467: 23,3036 40270 XAD,1 SETPD
044788,000468: 23,3037 00044 NORMZI
044789,000469: 23,3040 00003 2D
044790,000470: 23,3041 77650 GOTO
044791,000471: 23,3042 46400 INCOR2 -3
044792,000472: 23,3043 NORMZI = 36D
044793,000473:
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc