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