Source Code

052775,000001: # Copyright: Public domain. 052776,000002: # Filename: MEASUREMENT_INCORPORATION.agc 052777,000003: # Purpose: Part of the source code for Colossus, build 249. 052778,000004: # It is part of the source code for the Command Module's (CM) 052779,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 052780,000006: # Assembler: yaYUL 052781,000007: # Reference: Begins on p. 1234 of 1701.pdf. 052782,000008: # Contact: Ron Burkey <info@sandroid.org>. 052783,000009: # Website: www.ibiblio.org/apollo. 052784,000010: # Mod history: 08/28/04 RSB. Adapted from corresponding Luminary131 file. 052785,000011: # 2010-10-24 JL Indentation fixes. 052786,000012: 052787,000013: # The contents of the "Colossus249" files, in general, are transcribed 052788,000014: # from a scanned document obtained from MIT's website, 052789,000015: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 052790,000016: # document read, in part: 052791,000017: 052792,000018: # Assemble revision 249 of AGC program Colossus by NASA 052793,000019: # 2021111-041. October 28, 1968. 052794,000020: 052795,000021: # This AGC program shall also be referred to as 052796,000022: # Colossus 1A 052797,000023: 052798,000024: # Prepared by 052799,000025: # Massachusetts Institute of Technology 052800,000026: # 75 Cambridge Parkway 052801,000027: # Cambridge, Massachusetts 052802,000028: # under NASA contract NAS 9-4065. 052803,000029: 052804,000030: # Refer directly to the online document mentioned above for further information. 052805,000031: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 052806,000032: 052807,000033: # In some cases, where the source code for Luminary 131 overlaps that of 052808,000034: # Colossus 249, this code is instead copied from the corresponding Luminary 131 052809,000035: # source file, and then is proofed to incorporate any changes. 052810,000036: 052811,000037: # Page 1234 052812,000038: # INCORP1 -- PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITION 052813,000039: # AND VELOCITY OR THE NINE-DIMENSIONAL DEVIATION OF POSITION, VELOCITY, AND 052814,000040: # RADAR OR LANDMARK BIAS. THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH THE 052815,000041: # ERROR TRANSITION MATRIX (2) ARE USED AS INPU TO THE ROUTINE. THE DEVIATION 052816,000042: # IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE 052817,000043: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMENT 052818,000044: # AND APPLYING A STATISTICAL WEIGHTING VECTOR. 052819,000045: 052820,000046: # INPUT 052821,000047: # DMENFLG = 0 (6-DIMENSIONAL BVECTOR), =1 (9-DIMENSIONAL) 052822,000048: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9 052823,000049: # VARIANCE = VARIANCE (SCALAR) 052824,000050: # DELTAQ = MEASURED DEVIATION (SCALAR) 052825,000051: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR 052826,000052: 052827,000053: # OUTPUT 052828,000054: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL 052829,000055: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL 052830,000056: # GAMMA = SCALAR 052831,000057: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENSIONAL 052832,000058: 052833,000059: # CALLING SEQUENCE 052834,000060: # L CALL INCORP1 052835,000061: 052836,000062: # NORMAL EXIT 052837,000063: # L+1 OF CALLING SEQUENCE 052838,000064: 052839,000065: 37,3676 BANK 37 052840,000066: 36,2000 SETLOC MEASINC 052841,000067: 36,2000 BANK 052842,000068: 052843,000069: 36,3250 COUNT* $$/INCOR 052844,000070: 052845,000071: 36,3250 0002400 EBANK= W 052846,000072: 052847,000073: 36,3250 77620 INCORP1 STQ 052848,000074: 36,3251 02317 EGRESS 052849,000075: 36,3252 66370 AXT,1 SSP 052850,000076: 36,3253 00066 54D 052851,000077: 36,3254 00051 S1 052852,000078: 36,3255 00022 18D # IX1 = 54 S1= 18 052853,000079: 36,3256 66374 AXT,2 SSP 052854,000080: 36,3257 00022 18D 052855,000081: 36,3260 00052 S2 052856,000082: 36,3261 00006 6 # IX2 = 18 S2=6 052857,000083: 36,3262 63775 Z123 VLOAD MXV* 052858,000084: 36,3263 03502 BVECTOR # BVECTOR (0) 052859,000085: 36,3264 02467 W +54D,1 052860,000086: 36,3265 12745 STORE ZI +18D,2 052861,000087: 36,3266 77775 VLOAD 052862,000088: 36,3267 03510 BVECTOR +6 # BVECTOR (1) 052863,000089: # Page 1235 052864,000090: 36,3270 52717 MXV* VAD* 052865,000091: 36,3271 02555 W +108D,1 052866,000092: 36,3272 75032 ZI +18D,2 052867,000093: 36,3273 12745 STORE ZI +18D,2 052868,000094: 36,3274 77775 VLOAD 052869,000095: 36,3275 03516 BVECTOR +12D # BVECTOR (2) 052870,000096: 36,3276 52717 MXV* VAD* 052871,000097: 36,3277 02643 W +162D,1 052872,000098: 36,3300 75032 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PASS 052873,000099: 36,3301 12745 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3 052874,000100: 36,3302 77700 TIX,1 052875,000101: 36,3303 75304 INCOR1 052876,000102: 36,3304 43104 INCOR1 TIX,2 BON 052877,000103: 36,3305 75262 Z123 # LOOP FOR Z1,Z2,Z3 052878,000104: 36,3306 02706 DMENFLG 052879,000105: 36,3307 75313 INCOR1A 052880,000106: 36,3310 77775 VLOAD 052881,000107: 36,3311 15332 ZEROVECS 052882,000108: 36,3312 02737 STORE ZI +12D 052883,000109: 36,3313 77201 INCOR1A SETPD VLOAD 052884,000110: 36,3314 00001 0 052885,000111: 36,3315 02723 ZI 052886,000112: 36,3316 47036 VSQ RTB 052887,000113: 36,3317 45562 TPMODE 052888,000114: 36,3320 47515 PDVL VSQ 052889,000115: 36,3321 02731 ZI +6 052890,000116: 36,3322 76234 RTB TAD 052891,000117: 36,3323 45562 TPMODE 052892,000118: 36,3324 47515 PDVL VSQ 052893,000119: 36,3325 02737 ZI +12D 052894,000120: 36,3326 76234 RTB TAD 052895,000121: 36,3327 45562 TPMODE 052896,000122: 36,3330 77171 TAD AXT,2 052897,000123: 36,3331 03526 VARIANCE 052898,000124: 36,3332 00000 0 052899,000125: 36,3333 01257 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE 052900,000126: 36,3334 40151 TLOAD BOV 052901,000127: 36,3335 03526 VARIANCE # CLEAR OVFIND 052902,000128: 36,3336 75337 +1 052903,000129: 36,3337 01262 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE 052904,000130: 36,3340 77654 BZE 052905,000131: 36,3341 75350 INCOR1C 052906,000132: 36,3342 40112 INCOR1B SL2 BOV 052907,000133: 36,3343 75350 INCOR1C 052908,000134: 36,3344 01262 STORE TEMPVAR 052909,000135: 36,3345 52114 INCR,2 GOTO 052910,000136: 36,3346 00001 DEC 1 B-14 052911,000137: 36,3347 75342 INCOR1B 052912,000138: 36,3350 61551 INCOR1C TLOAD ROUND 052913,000139: 36,3351 01257 TRIPA 052914,000140: # Page 1236 052915,000141: 36,3352 75405 DMP SQRT 052916,000142: 36,3353 01262 TEMPVAR 052917,000143: 36,3354 76257 SL* TAD 052918,000144: 36,3355 57576 0,2 052919,000145: 36,3356 01257 TRIPA 052920,000146: 36,3357 63101 NORM INCR,2 052921,000147: 36,3360 00050 X2 052922,000148: 36,3361 77775 DEC -2 B-14 052923,000149: 36,3362 77134 SXA,2 AXT,2 052924,000150: 36,3363 02215 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA 052925,000151: 36,3364 00242 162D 052926,000152: 36,3365 40265 BDDV SETPD 052927,000153: 36,3366 15322 DP1/4TH 052928,000154: 36,3367 00001 0 052929,000155: 36,3370 03456 STORE GAMMA 052930,000156: 36,3371 60351 TLOAD NORM 052931,000157: 36,3372 01257 TRIPA 052932,000158: 36,3373 00047 X1 052933,000159: 36,3374 65345 DLOAD PDDL # PD 0-1 = NORM (A) 052934,000160: 36,3375 00155 MPAC 052935,000161: 36,3376 03524 DELTAQ 052936,000162: 36,3377 77701 NORM 052937,000163: 36,3400 00051 S1 052938,000164: 36,3401 70460 XSU,1 SR1 052939,000165: 36,3402 00050 S1 052940,000166: 36,3403 41471 DDV PUSH # PD 0-1 = DELTAQ/A 052941,000167: 36,3404 77650 GOTO 052942,000168: 36,3405 77676 NEWZCOMP 052943,000169: 36,3406 77731 -3 SSP 052944,000170: 36,3407 00052 S2 052945,000171: 36,3410 00066 54D 052946,000172: 36,3411 60775 INCOR2 VLOAD VXM* # COMPUT OMEGA1,2,3 052947,000173: 36,3412 02723 ZI 052948,000174: 36,3413 75134 W +162D,2 052949,000175: 36,3414 77206 PUSH VLOAD 052950,000176: 36,3415 02731 ZI +6 052951,000177: 36,3416 53303 VXM* VAD 052952,000178: 36,3417 75112 W +180D,2 052953,000179: 36,3420 77206 PUSH VLOAD 052954,000180: 36,3421 02737 ZI +12D 052955,000181: 36,3422 53303 VXM* VAD 052956,000182: 36,3423 75070 W +198D,2 052957,000183: 36,3424 61006 PUSH TIX,2 # PD 2-7=OMEGA1, -13=OMEGA2, 14-19=OMEGA3 052958,000184: 36,3425 75411 INCOR2 052959,000185: 36,3426 45575 VLOAD STADR 052960,000186: 36,3427 74303 STORE OMEGA +12D 052961,000187: 36,3430 45575 VLOAD STADR 052962,000188: 36,3431 74311 STORE OMEGA +6 052963,000189: 36,3432 45575 VLOAD STADR 052964,000190: 36,3433 74317 STORE OMEGA 052965,000191: # Page 1237 052966,000192: 36,3434 77214 BON VLOAD 052967,000193: 36,3435 02706 DMENFLG 052968,000194: 36,3436 75441 INCOR2AB 052969,000195: 36,3437 15332 ZEROVECS 052970,000196: 36,3440 03474 STORE OMEGA +12D 052971,000197: 36,3441 66374 INCOR2AB AXT,2 SSP 052972,000198: 36,3442 00022 18D 052973,000199: 36,3443 00052 S2 052974,000200: 36,3444 00006 6 052975,000201: 36,3445 77773 INCOR3 VLOAD* 052976,000202: 36,3446 74275 OMEGA +18D,2 052977,000203: 36,3447 53761 VXSC VSL* 052978,000204: 36,3450 00001 0 # DELTAQ/A 052979,000205: 36,3451 20201 0,1 052980,000206: 36,3452 11301 STORE DELTAX +18D,2 052981,000207: 36,3453 77304 TIX,2 VLOAD 052982,000208: 36,3454 75445 INCOR3 052983,000209: 36,3455 01265 DELTAX +6 052984,000210: 36,3456 77732 VSL3 052985,000211: 36,3457 01265 STORE DELTAX +6 052986,000212: 36,3460 77650 GOTO 052987,000213: 36,3461 02317 EGRESS 052988,000214: 052989,000215: # Page 1238 052990,000216: # INCORP2 -- INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE 052991,000217: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE 052992,000218: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM) 052993,000219: 052994,000220: # INPUT 052995,000221: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM 052996,000222: # VEHUPFLG = UPDATE VEHICLE C=LEM 1=CSM 052997,000223: # W = ERROR TRANSITION MATRIX 052998,000224: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS 052999,000225: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9) 053000,000226: # GAMMA = SCALAR FOR INCORPORATION 053001,000227: # ZI = VECTOR USED IN INCORPORATION 053002,000228: # OMEGA = WEIGHTING VECTOR 053003,000229: 053004,000230: # OUTPUT 053005,000231: # UPDATED PERMANENT STATE VECTOR 053006,000232: 053007,000233: # CALLING SEQUENCE 053008,000234: # L CALL INCORP2 053009,000235: 053010,000236: # NORMAL EXIT 053011,000237: # L+1 OF CALLING SEQUENCE 053012,000238: 053013,000239: 053014,000240: 36,2000 SETLOC MEASINC1 053015,000241: 36,2000 BANK 053016,000242: 053017,000243: 36,3462 COUNT* $$/INCOR 053018,000244: 053019,000245: 36,3462 45020 INCORP2 STQ CALL 053020,000246: 36,3463 02317 EGRESS 053021,000247: 36,3464 27371 INTSTALL 053022,000248: 36,3465 74375 VLOAD VXSC # CALC. GAMMA*OMEGA1,2,3 053023,000249: 36,3466 03460 OMEGA 053024,000250: 36,3467 03456 GAMMA 053025,000251: 36,3470 26643 STOVL OMEGAM1 053026,000252: 36,3471 03466 OMEGA +6 053027,000253: 36,3472 77761 VXSC 053028,000254: 36,3473 03456 GAMMA 053029,000255: 36,3474 26651 STOVL OMEGAM2 053030,000256: 36,3475 03474 OMEGA +12D 053031,000257: 36,3476 77761 VXSC 053032,000258: 36,3477 03456 GAMMA 053033,000259: 36,3500 02657 STORE OMEGAM3 053034,000260: 36,3501 77776 EXIT 053035,000261: 36,3502 33763 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX 053036,000262: 36,3503 55252 TS WIXA 053037,000263: 36,3504 55253 TS WIXB 053038,000264: 36,3505 34714 CAF ZERO 053039,000265: 36,3506 55254 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT 053040,000266: 36,3507 55255 TS ZIXB 053041,000267: 36,3510 05301 FAZA TC PHASCHNG 053042,000268: # Page 1239 053043,000269: 36,3511 04022 OCT 04022 053044,000270: 36,3512 05435 TC UPFLAG 053045,000271: 36,3513 00236 ADRES REINTFLG 053046,000272: 36,3514 31253 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2 053047,000273: 36,3515 55252 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP 053048,000274: 36,3516 31255 CA ZIXB 053049,000275: 36,3517 55254 TS ZIXA 053050,000276: 36,3520 06006 TC INTPRET 053051,000277: 36,3521 73150 LXA,1 LXA,2 053052,000278: 36,3522 01252 WIXA 053053,000279: 36,3523 01254 ZIXA 053054,000280: 36,3524 70731 SSP DLOAD* 053055,000281: 36,3525 00051 S1 053056,000282: 36,3526 00006 6 053057,000283: 36,3527 75054 ZI,2 053058,000284: 36,3530 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX 053059,000285: 36,3531 00052 S2 053060,000286: 36,3532 65161 VXSC XCHX,2 053061,000287: 36,3533 02643 OMEGAM1 053062,000288: 36,3534 00051 S2 053063,000289: 36,3535 57144 LXC,2 XAD,2 053064,000290: 36,3536 00047 X2 053065,000291: 36,3537 02215 NORMGAM 053066,000292: 36,3540 65057 VSL* XCHX,2 053067,000293: 36,3541 57576 0,2 053068,000294: 36,3542 00051 S2 053069,000295: 36,3543 77653 VAD* 053070,000296: 36,3544 02467 W +54D,1 053071,000297: 36,3545 02665 STORE HOLDW 053072,000298: 36,3546 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX 053073,000299: 36,3547 75054 ZI,2 053074,000300: 36,3550 74301 NORM VXSC 053075,000301: 36,3551 00052 S2 053076,000302: 36,3552 02651 OMEGAM2 053077,000303: 36,3553 71124 XCHX,2 LXC,2 053078,000304: 36,3554 00051 S2 053079,000305: 36,3555 00047 X2 053080,000306: 36,3556 53674 XAD,2 VSL* 053081,000307: 36,3557 02215 NORMGAM 053082,000308: 36,3560 57576 0,2 053083,000309: 36,3561 52724 XCHX,2 VAD* 053084,000310: 36,3562 00051 S2 053085,000311: 36,3563 02555 W +108D,1 053086,000312: 36,3564 02673 STORE HOLDW +6 053087,000313: 36,3565 77614 BOFF 053088,000314: 36,3566 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL 053089,000315: 36,3567 75607 FAZB 053090,000316: 36,3570 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX 053091,000317: 36,3571 75054 ZI,2 053092,000318: 36,3572 74301 NORM VXSC 053093,000319: # Page 1240 053094,000320: 36,3573 00052 S2 053095,000321: 36,3574 02657 OMEGAM3 053096,000322: 36,3575 71124 XCHX,2 LXC,2 053097,000323: 36,3576 00051 S2 053098,000324: 36,3577 00047 X2 053099,000325: 36,3600 53674 XAD,2 VSL* 053100,000326: 36,3601 02215 NORMGAM 053101,000327: 36,3602 57576 0,2 053102,000328: 36,3603 52724 XCHX,2 VAD* 053103,000329: 36,3604 00051 S2 053104,000330: 36,3605 02643 W +162D,1 053105,000331: 36,3606 02701 STORE HOLDW +12D 053106,000332: 36,3607 77624 FAZB CALL 053107,000333: 36,3610 56741 GRP2PC 053108,000334: 36,3611 77776 EXIT 053109,000335: 36,3612 31252 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER 053110,000336: 36,3613 63764 AD 6DD # TEMP REG TO PERM W MATRIX 053111,000337: 36,3614 55253 TS WIXB 053112,000338: 36,3615 31254 CA ZIXA 053113,000339: 36,3616 67715 AD MINUS2 053114,000340: 36,3617 55255 TS ZIXB 053115,000341: 36,3620 06006 TC INTPRET 053116,000342: 36,3621 66350 LXA,1 SSP 053117,000343: 36,3622 01252 WIXA 053118,000344: 36,3623 00051 S1 053119,000345: 36,3624 00006 6 053120,000346: 36,3625 77775 VLOAD 053121,000347: 36,3626 02665 HOLDW 053122,000348: 36,3627 06467 STORE W +54D,1 053123,000349: 36,3630 77775 VLOAD 053124,000350: 36,3631 02673 HOLDW +6 053125,000351: 36,3632 06555 STORE W +108D,1 053126,000352: 36,3633 77214 BOFF VLOAD 053127,000353: 36,3634 02746 DMENFLG 053128,000354: 36,3635 75645 FAZB5 053129,000355: 36,3636 02701 HOLDW +12D 053130,000356: 36,3637 06643 STORE W +162D,1 053131,000357: 36,3640 52100 FAZB2 TIX,1 GOTO 053132,000358: 36,3641 75643 +2 053133,000359: 36,3642 75653 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR 053134,000360: 36,3643 77634 RTB 053135,000361: 36,3644 75510 FAZA 053136,000362: 36,3645 43335 FAZB5 SLOAD DAD 053137,000363: 36,3646 01256 ZIXB 053138,000364: 36,3647 35766 12DD 053139,000365: 36,3650 52030 BHIZ GOTO 053140,000366: 36,3651 75653 FAZC 053141,000367: 36,3652 75640 FAZB2 053142,000368: 36,3653 77624 FAZC CALL 053143,000369: 36,3654 56741 GRP2PC 053144,000370: # Page 1241 053145,000371: 36,3655 53375 VLOAD VAD # START 3RD PHASE OF INCORP2 053146,000372: 36,3656 01701 X789 # 7TH, 8TH, 9TH COMPONENTN OF STATE VECTOR 053147,000373: 36,3657 01273 DELTAX +12D # INCORPORATION FOR X789 053148,000374: 36,3660 03450 STORE TX789 053149,000375: 36,3661 47014 BON RTB 053150,000376: 36,3662 00707 VEHUPFLG 053151,000377: 36,3663 75753 DOCSM 053152,000378: 36,3664 26745 MOVEPLEM 053153,000379: 36,3665 77004 FAZAB BOVB AXT,2 053154,000380: 36,3666 57343 TCDANZIG 053155,000381: 36,3667 00000 0 053156,000382: 36,3670 77014 BOFF AXT,2 053157,000383: 36,3671 04343 MOONTHIS 053158,000384: 36,3672 75674 +2 053159,000385: 36,3673 00002 2 053160,000386: 36,3674 53775 VLOAD VSR* 053161,000387: 36,3675 01257 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH 053162,000388: 36,3676 57205 0 -7,2 053163,000389: 36,3677 40055 VAD BOV 053164,000390: 36,3700 01521 TDELTAV 053165,000391: 36,3701 75713 FAZAB1 053166,000392: 36,3702 25521 STOVL TDELTAV 053167,000393: 36,3703 01265 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH 053168,000394: 36,3704 53257 VSR* VAD 053169,000395: 36,3705 57202 0 -4,2 053170,000396: 36,3706 01527 TNUV 053171,000397: 36,3707 77600 BOV 053172,000398: 36,3710 75717 FAZAB2 053173,000399: 36,3711 35527 STCALL TNUV 053174,000400: 36,3712 75726 FAZAB3 053175,000401: 36,3713 53375 FAZAB1 VLOAD VAD 053176,000402: 36,3714 01535 RCV 053177,000403: 36,3715 01257 DELTAX 053178,000404: 36,3716 01535 STORE RCV 053179,000405: 36,3717 53375 FAZAB2 VLOAD VAD 053180,000406: 36,3720 01543 VCV 053181,000407: 36,3721 01265 DELTAX +6 053182,000408: 36,3722 01543 STORE VCV 053183,000409: 36,3723 45134 SXA,2 CALL 053184,000410: 36,3724 02150 PBODY 053185,000411: 36,3725 23344 RECTIFY 053186,000412: 36,3726 77624 FAZAB3 CALL 053187,000413: 36,3727 56741 GRP2PC 053188,000414: 36,3730 47014 BON RTB 053189,000415: 36,3731 00707 VEHUPFLG 053190,000416: 36,3732 75756 DOCSM1 053191,000417: 36,3733 26724 MOVEALEM 053192,000418: 36,3734 77624 CALL 053193,000419: 36,3735 20263 SVDWN2 # STORE DOWNLINK STATE VECTOR 053194,000420: 36,3736 77624 FAZAB4 CALL 053195,000421: # Page 1242 053196,000422: 36,3737 56741 GRP2PC # PHASE CHANGE 053197,000423: 36,3740 77214 BOFF VLOAD 053198,000424: 36,3741 02746 DMENFLG 053199,000425: 36,3742 75745 FAZAB5 # 6 DIMENSIONAL 053200,000426: 36,3743 03450 TX789 # 9 DIMENSIONAL 053201,000427: 36,3744 01701 STORE X789 053202,000428: 36,3745 66150 FAZAB5 LXA,1 SXA,1 053203,000429: 36,3746 02317 EGRESS 053204,000430: 36,3747 00052 QPRET 053205,000431: 36,3750 77776 EXIT 053206,000432: 36,3751 04574 TC POSTJUMP # EXIT 053207,000433: 36,3752 27406 CADR INTWAKE 053208,000434: 36,3753 52034 DOCSM RTB GOTO 053209,000435: 36,3754 26700 MOVEPCSM 053210,000436: 36,3755 75665 FAZAB 053211,000437: 36,3756 45034 DOCSM1 RTB CALL 053212,000438: 36,3757 26651 MOVEACSM 053213,000439: 36,3760 20237 SVDWN1 # STORE DOWNLINK STATE VECTOR 053214,000440: 36,3761 77650 GOTO 053215,000441: 36,3762 75736 FAZAB4 053216,000442: 36,3763 26,3331 ZEROD = ZEROVECS 053217,000443: 36,3763 00066 54DD DEC 54 B-14 053218,000444: 36,3764 77771 6DD DEC -6 B-14 053219,000445: 36,3765 00014 12DD DEC 12 B-14 053220,000446: 053221,000447: 37,2000 SETLOC RENDEZ 053222,000448: 37,2000 BANK 053223,000449: 37,3676 COUNT* $$/INCOR 053224,000450: 053225,000451: 37,3676 51575 NEWZCOMP VLOAD ABVAL 053226,000452: 37,3677 02723 ZI 053227,000453: 37,3700 24045 STOVL NORMZI 053228,000454: 37,3701 02731 ZI +6 053229,000455: 37,3702 41446 ABVAL PUSH 053230,000456: 37,3703 50025 DSU BMN 053231,000457: 37,3704 00045 NORMZI 053232,000458: 37,3705 77710 +3 053233,000459: 37,3706 45545 DLOAD STADR 053234,000460: 37,3707 77732 STORE NORMZI 053235,000461: 37,3710 51575 VLOAD ABVAL 053236,000462: 37,3711 02737 ZI +12D 053237,000463: 37,3712 45206 PUSH DSU 053238,000464: 37,3713 00045 NORMZI 053239,000465: 37,3714 71240 BMN DLOAD 053240,000466: 37,3715 77720 +3 053241,000467: 37,3716 77626 STADR 053242,000468: 37,3717 77732 STORE NORMZI # LARGEST ABVAL 053243,000469: 37,3720 66145 DLOAD SXA,1 053244,000470: 37,3721 00045 NORMZI 053245,000471: 37,3722 00044 NORMZI # SAVE X1 053246,000472: 37,3723 62101 NORM INCR,1 053247,000473: # Page 1243 053248,000474: 37,3724 00047 X1 053249,000475: 37,3725 00002 DEC 2 B-14 053250,000476: 37,3726 53775 VLOAD VSL* 053251,000477: 37,3727 02723 ZI 053252,000478: 37,3730 20201 0,1 053253,000479: 37,3731 26723 STOVL ZI 053254,000480: 37,3732 02731 ZI +6 053255,000481: 37,3733 77657 VSL* 053256,000482: 37,3734 20201 0,1 053257,000483: 37,3735 26731 STOVL ZI +6 053258,000484: 37,3736 02737 ZI +12D 053259,000485: 37,3737 66057 VSL* SXA,1 053260,000486: 37,3740 20201 0,1 053261,000487: 37,3741 00045 NORMZI +1 # SAVE SHIFT 053262,000488: 37,3742 02737 STORE ZI +12D 053263,000489: 37,3743 54150 LXA,1 XSU,1 053264,000490: 37,3744 02215 NORMGAM 053265,000491: 37,3745 00045 NORMZI +1 053266,000492: 37,3746 77660 XSU,1 053267,000493: 37,3747 00045 NORMZI +1 053268,000494: 37,3750 70130 SXA,1 LXC,1 053269,000495: 37,3751 02215 NORMGAM 053270,000496: 37,3752 00045 NORMZI +1 053271,000497: 37,3753 40270 XAD,1 SETPD 053272,000498: 37,3754 00044 NORMZI 053273,000499: 37,3755 00003 2D 053274,000500: 37,3756 77650 GOTO 053275,000501: 37,3757 75406 INCOR2 -3 053276,000502: 37,3760 NORMZI = 36D 053277,000503: 053278,000504: 053279,000505: 053280,000506: End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc