Source Code
054152,000001: # Copyright: Public domain.
054153,000002: # Filename: MEASUREMENT_INCORPORATION.agc
054154,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
054155,000004: # It is part of the source code for the Command Module's (CM)
054156,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
054157,000006: # Assembler: yaYUL
054158,000007: # Contact: Ron Burkey <info@sandroid.org>.
054159,000008: # Website: www.ibiblio.org/apollo.
054160,000009: # Pages: 1252-1261
054161,000010: # Mod history: 2009-05-14 RSB Adapted from the Colossus249/ file of the
054162,000011: # same name, using Comanche055 page images.
054163,000012:
054164,000013: # This source code has been transcribed or otherwise adapted from digitized
054165,000014: # images of a hardcopy from the MIT Museum. The digitization was performed
054166,000015: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
054167,000016: # thanks to both. The images (with suitable reduction in storage size and
054168,000017: # consequent reduction in image quality as well) are available online at
054169,000018: # www.ibiblio.org/apollo. If for some reason you find that the images are
054170,000019: # illegible, contact me at info@sandroid.org about getting access to the
054171,000020: # (much) higher-quality images which Paul actually created.
054172,000021:
054173,000022: # Notations on the hardcopy document read, in part:
054174,000023:
054175,000024: # Assemble revision 055 of AGC program Comanche by NASA
054176,000025: # 2021113-051. 10:28 APR. 1, 1969
054177,000026:
054178,000027: # This AGC program shall also be referred to as
054179,000028: # Colossus 2A
054180,000029:
054181,000030: # Page 1252
054182,000031: # INCORP1 -- PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITION
054183,000032: # AND VELOCITY OR THE NINE-DIMENSIONAL DEVIATION OF POSITION, VELOCITY, AND
054184,000033: # RADAR OR LANDMARK BIAS. THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH THE
054185,000034: # ERROR TRANSITION MATRIX (W) ARE USED AS INPUT TO THE ROUTINE. THE DEVIATION
054186,000035: # IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
054187,000036: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMENT
054188,000037: # AND APPLYING A STATISTICAL WEIGHTING VECTOR.
054189,000038:
054190,000039: # INPUT
054191,000040: # DMENFLG = 0 (6-DIMENSIONAL BVECTOR), =1 (9-DIMENSIONAL)
054192,000041: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
054193,000042: # VARIANCE = VARIANCE (SCALAR)
054194,000043: # DELTAQ = MEASURED DEVIATION (SCALAR)
054195,000044: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
054196,000045:
054197,000046: # OUTPUT
054198,000047: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
054199,000048: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
054200,000049: # GAMMA = SCALAR
054201,000050: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENSIONAL
054202,000051:
054203,000052: # CALLING SEQUENCE
054204,000053: # L CALL INCORP1
054205,000054:
054206,000055: # NORMAL EXIT
054207,000056: # L+1 OF CALLING SEQUENCE
054208,000057:
054209,000058: 37,3773 BANK 37
054210,000059: 36,2000 SETLOC MEASINC
054211,000060: 36,2000 BANK
054212,000061:
054213,000062: 36,3254 COUNT* $$/INCOR
054214,000063:
054215,000064: 36,3254 E5,1400 EBANK= W
054216,000065:
054217,000066: 36,3254 77620 INCORP1 STQ
054218,000067: 36,3255 02317 EGRESS
054219,000068: 36,3256 66370 AXT,1 SSP
054220,000069: 36,3257 00066 54D
054221,000070: 36,3260 00051 S1
054222,000071: 36,3261 00022 18D # IX1 = 54 S1= 18
054223,000072: 36,3262 66374 AXT,2 SSP
054224,000073: 36,3263 00022 18D
054225,000074: 36,3264 00052 S2
054226,000075: 36,3265 00006 6 # IX2 = 18 S2=6
054227,000076: 36,3266 63775 Z123 VLOAD MXV*
054228,000077: 36,3267 03502 BVECTOR # BVECTOR (0)
054229,000078: 36,3270 02467 W +54D,1
054230,000079: 36,3271 12745 STORE ZI +18D,2
054231,000080: 36,3272 77775 VLOAD
054232,000081: 36,3273 03510 BVECTOR +6 # BVECTOR (1)
054233,000082: # Page 1253
054234,000083: 36,3274 52717 MXV* VAD*
054235,000084: 36,3275 02555 W +108D,1
054236,000085: 36,3276 75032 ZI +18D,2
054237,000086: 36,3277 12745 STORE ZI +18D,2
054238,000087: 36,3300 77775 VLOAD
054239,000088: 36,3301 03516 BVECTOR +12D # BVECTOR (2)
054240,000089: 36,3302 52717 MXV* VAD*
054241,000090: 36,3303 02643 W +162D,1
054242,000091: 36,3304 75032 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PASS
054243,000092: 36,3305 12745 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
054244,000093: 36,3306 77700 TIX,1
054245,000094: 36,3307 75310 INCOR1
054246,000095: 36,3310 43104 INCOR1 TIX,2 BON
054247,000096: 36,3311 75266 Z123 # LOOP FOR Z1,Z2,Z3
054248,000097: 36,3312 02706 DMENFLG
054249,000098: 36,3313 75317 INCOR1A
054250,000099: 36,3314 77775 VLOAD
054251,000100: 36,3315 15335 ZEROVECS
054252,000101: 36,3316 02737 STORE ZI +12D
054253,000102: 36,3317 77201 INCOR1A SETPD VLOAD
054254,000103: 36,3320 00001 0
054255,000104: 36,3321 02723 ZI
054256,000105: 36,3322 47036 VSQ RTB
054257,000106: 36,3323 45565 TPMODE
054258,000107: 36,3324 47515 PDVL VSQ
054259,000108: 36,3325 02731 ZI +6
054260,000109: 36,3326 76234 RTB TAD
054261,000110: 36,3327 45565 TPMODE
054262,000111: 36,3330 47515 PDVL VSQ
054263,000112: 36,3331 02737 ZI +12D
054264,000113: 36,3332 76234 RTB TAD
054265,000114: 36,3333 45565 TPMODE
054266,000115: 36,3334 77171 TAD AXT,2
054267,000116: 36,3335 03526 VARIANCE
054268,000117: 36,3336 00000 0
054269,000118: 36,3337 01257 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
054270,000119: 36,3340 40151 TLOAD BOV
054271,000120: 36,3341 03526 VARIANCE # CLEAR OVFIND
054272,000121: 36,3342 75343 +1
054273,000122: 36,3343 01262 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
054274,000123: 36,3344 77654 BZE
054275,000124: 36,3345 75354 INCOR1C
054276,000125: 36,3346 40112 INCOR1B SL2 BOV
054277,000126: 36,3347 75354 INCOR1C
054278,000127: 36,3350 01262 STORE TEMPVAR
054279,000128: 36,3351 52114 INCR,2 GOTO
054280,000129: 36,3352 00001 DEC 1 B-14
054281,000130: 36,3353 75346 INCOR1B
054282,000131: 36,3354 61551 INCOR1C TLOAD ROUND
054283,000132: 36,3355 01257 TRIPA
054284,000133: # Page 1254
054285,000134: 36,3356 75405 DMP SQRT
054286,000135: 36,3357 01262 TEMPVAR
054287,000136: 36,3360 76257 SL* TAD
054288,000137: 36,3361 57576 0,2
054289,000138: 36,3362 01257 TRIPA
054290,000139: 36,3363 63101 NORM INCR,2
054291,000140: 36,3364 00050 X2
054292,000141: 36,3365 77775 DEC -2 B-14
054293,000142: 36,3366 77134 SXA,2 AXT,2
054294,000143: 36,3367 02215 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
054295,000144: 36,3370 00242 162D
054296,000145: 36,3371 40265 BDDV SETPD
054297,000146: 36,3372 15325 DP1/4TH
054298,000147: 36,3373 00001 0
054299,000148: 36,3374 03456 STORE GAMMA
054300,000149: 36,3375 60351 TLOAD NORM
054301,000150: 36,3376 01257 TRIPA
054302,000151: 36,3377 00047 X1
054303,000152: 36,3400 65345 DLOAD PDDL # PD 0-1 = NORM (A)
054304,000153: 36,3401 00155 MPAC
054305,000154: 36,3402 03524 DELTAQ
054306,000155: 36,3403 77701 NORM
054307,000156: 36,3404 00051 S1
054308,000157: 36,3405 70460 XSU,1 SR1
054309,000158: 36,3406 00050 S1
054310,000159: 36,3407 41471 DDV PUSH # PD 0-1 = DELTAQ/A
054311,000160: 36,3410 77650 GOTO
054312,000161: 36,3411 31377 NEWZCOMP
054313,000162: 36,3412 77731 -3 SSP
054314,000163: 36,3413 00052 S2
054315,000164: 36,3414 00066 54D
054316,000165: 36,3415 60775 INCOR2 VLOAD VXM* # COMPUT OMEGA1,2,3
054317,000166: 36,3416 02723 ZI
054318,000167: 36,3417 75134 W +162D,2
054319,000168: 36,3420 77206 PUSH VLOAD
054320,000169: 36,3421 02731 ZI +6
054321,000170: 36,3422 53303 VXM* VAD
054322,000171: 36,3423 75112 W +180D,2
054323,000172: 36,3424 77206 PUSH VLOAD
054324,000173: 36,3425 02737 ZI +12D
054325,000174: 36,3426 53303 VXM* VAD
054326,000175: 36,3427 75070 W +198D,2
054327,000176: 36,3430 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
054328,000177: 36,3431 75415 INCOR2
054329,000178: 36,3432 45575 VLOAD STADR
054330,000179: 36,3433 74303 STORE OMEGA +12D
054331,000180: 36,3434 45575 VLOAD STADR
054332,000181: 36,3435 74311 STORE OMEGA +6
054333,000182: 36,3436 45575 VLOAD STADR
054334,000183: 36,3437 74317 STORE OMEGA
054335,000184: # Page 1255
054336,000185: 36,3440 77214 BON VLOAD
054337,000186: 36,3441 02706 DMENFLG
054338,000187: 36,3442 75445 INCOR2AB
054339,000188: 36,3443 15335 ZEROVECS
054340,000189: 36,3444 03474 STORE OMEGA +12D
054341,000190: 36,3445 66374 INCOR2AB AXT,2 SSP
054342,000191: 36,3446 00022 18D
054343,000192: 36,3447 00052 S2
054344,000193: 36,3450 00006 6
054345,000194: 36,3451 77773 INCOR3 VLOAD*
054346,000195: 36,3452 74275 OMEGA +18D,2
054347,000196: 36,3453 53761 VXSC VSL*
054348,000197: 36,3454 00001 0 # DELTAQ/A
054349,000198: 36,3455 20201 0,1
054350,000199: 36,3456 11301 STORE DELTAX +18D,2
054351,000200: 36,3457 77304 TIX,2 VLOAD
054352,000201: 36,3460 75451 INCOR3
054353,000202: 36,3461 01265 DELTAX +6
054354,000203: 36,3462 77732 VSL3
054355,000204: 36,3463 01265 STORE DELTAX +6
054356,000205: 36,3464 77650 GOTO
054357,000206: 36,3465 02317 EGRESS
054358,000207:
054359,000208: # Page 1256
054360,000209: # INCORP2 -- INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
054361,000210: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
054362,000211: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
054363,000212:
054364,000213: # INPUT
054365,000214: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
054366,000215: # VEHUPFLG = UPDATE VEHICLE C=LEM 1=CSM
054367,000216: # W = ERROR TRANSITION MATRIX
054368,000217: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
054369,000218: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
054370,000219: # GAMMA = SCALAR FOR INCORPORATION
054371,000220: # ZI = VECTOR USED IN INCORPORATION
054372,000221: # OMEGA = WEIGHTING VECTOR
054373,000222:
054374,000223: # OUTPUT
054375,000224: # UPDATED PERMANENT STATE VECTOR
054376,000225:
054377,000226: # CALLING SEQUENCE
054378,000227: # L CALL INCORP2
054379,000228:
054380,000229: # NORMAL EXIT
054381,000230: # L+1 OF CALLING SEQUENCE
054382,000231:
054383,000232:
054384,000233: 36,2000 SETLOC MEASINC1
054385,000234: 36,2000 BANK
054386,000235:
054387,000236: 36,3466 COUNT* $$/INCOR
054388,000237:
054389,000238: 36,3466 45020 INCORP2 STQ CALL
054390,000239: 36,3467 02317 EGRESS
054391,000240: 36,3470 27442 INTSTALL
054392,000241: 36,3471 74375 VLOAD VXSC # CALC. GAMMA*OMEGA1,2,3
054393,000242: 36,3472 03460 OMEGA
054394,000243: 36,3473 03456 GAMMA
054395,000244: 36,3474 26643 STOVL OMEGAM1
054396,000245: 36,3475 03466 OMEGA +6
054397,000246: 36,3476 77761 VXSC
054398,000247: 36,3477 03456 GAMMA
054399,000248: 36,3500 26651 STOVL OMEGAM2
054400,000249: 36,3501 03474 OMEGA +12D
054401,000250: 36,3502 77761 VXSC
054402,000251: 36,3503 03456 GAMMA
054403,000252: 36,3504 02657 STORE OMEGAM3
054404,000253: 36,3505 77776 EXIT
054405,000254: 36,3506 33767 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
054406,000255: 36,3507 55252 TS WIXA
054407,000256: 36,3510 55253 TS WIXB
054408,000257: 36,3511 35021 CAF ZERO
054409,000258: 36,3512 55254 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
054410,000259: 36,3513 55255 TS ZIXB
054411,000260: 36,3514 05412 FAZA TC PHASCHNG
054412,000261: # Page 1257
054413,000262: 36,3515 04022 OCT 04022
054414,000263: 36,3516 05546 TC UPFLAG
054415,000264: 36,3517 00236 ADRES REINTFLG
054416,000265: 36,3520 31253 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
054417,000266: 36,3521 55252 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
054418,000267: 36,3522 31255 CA ZIXB
054419,000268: 36,3523 55254 TS ZIXA
054420,000269: 36,3524 06006 TC INTPRET
054421,000270: 36,3525 73150 LXA,1 LXA,2
054422,000271: 36,3526 01252 WIXA
054423,000272: 36,3527 01254 ZIXA
054424,000273: 36,3530 70731 SSP DLOAD*
054425,000274: 36,3531 00051 S1
054426,000275: 36,3532 00006 6
054427,000276: 36,3533 75054 ZI,2
054428,000277: 36,3534 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
054429,000278: 36,3535 00052 S2
054430,000279: 36,3536 65161 VXSC XCHX,2
054431,000280: 36,3537 02643 OMEGAM1
054432,000281: 36,3540 00051 S2
054433,000282: 36,3541 57144 LXC,2 XAD,2
054434,000283: 36,3542 00047 X2
054435,000284: 36,3543 02215 NORMGAM
054436,000285: 36,3544 65057 VSL* XCHX,2
054437,000286: 36,3545 57576 0,2
054438,000287: 36,3546 00051 S2
054439,000288: 36,3547 77653 VAD*
054440,000289: 36,3550 02467 W +54D,1
054441,000290: 36,3551 02665 STORE HOLDW
054442,000291: 36,3552 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
054443,000292: 36,3553 75054 ZI,2
054444,000293: 36,3554 74301 NORM VXSC
054445,000294: 36,3555 00052 S2
054446,000295: 36,3556 02651 OMEGAM2
054447,000296: 36,3557 71124 XCHX,2 LXC,2
054448,000297: 36,3560 00051 S2
054449,000298: 36,3561 00047 X2
054450,000299: 36,3562 53674 XAD,2 VSL*
054451,000300: 36,3563 02215 NORMGAM
054452,000301: 36,3564 57576 0,2
054453,000302: 36,3565 52724 XCHX,2 VAD*
054454,000303: 36,3566 00051 S2
054455,000304: 36,3567 02555 W +108D,1
054456,000305: 36,3570 02673 STORE HOLDW +6
054457,000306: 36,3571 77614 BOFF
054458,000307: 36,3572 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
054459,000308: 36,3573 75613 FAZB
054460,000309: 36,3574 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
054461,000310: 36,3575 75054 ZI,2
054462,000311: 36,3576 74301 NORM VXSC
054463,000312: # Page 1258
054464,000313: 36,3577 00052 S2
054465,000314: 36,3600 02657 OMEGAM3
054466,000315: 36,3601 71124 XCHX,2 LXC,2
054467,000316: 36,3602 00051 S2
054468,000317: 36,3603 00047 X2
054469,000318: 36,3604 53674 XAD,2 VSL*
054470,000319: 36,3605 02215 NORMGAM
054471,000320: 36,3606 57576 0,2
054472,000321: 36,3607 52724 XCHX,2 VAD*
054473,000322: 36,3610 00051 S2
054474,000323: 36,3611 02643 W +162D,1
054475,000324: 36,3612 02701 STORE HOLDW +12D
054476,000325: 36,3613 77624 FAZB CALL
054477,000326: 36,3614 56750 GRP2PC
054478,000327: 36,3615 77776 EXIT
054479,000328: 36,3616 31252 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
054480,000329: 36,3617 63770 AD 6DD # TEMP REG TO PERM W MATRIX
054481,000330: 36,3620 55253 TS WIXB
054482,000331: 36,3621 31254 CA ZIXA
054483,000332: 36,3622 67715 AD MINUS2
054484,000333: 36,3623 55255 TS ZIXB
054485,000334: 36,3624 06006 TC INTPRET
054486,000335: 36,3625 66350 LXA,1 SSP
054487,000336: 36,3626 01252 WIXA
054488,000337: 36,3627 00051 S1
054489,000338: 36,3630 00006 6
054490,000339: 36,3631 77775 VLOAD
054491,000340: 36,3632 02665 HOLDW
054492,000341: 36,3633 06467 STORE W +54D,1
054493,000342: 36,3634 77775 VLOAD
054494,000343: 36,3635 02673 HOLDW +6
054495,000344: 36,3636 06555 STORE W +108D,1
054496,000345: 36,3637 77214 BOFF VLOAD
054497,000346: 36,3640 02746 DMENFLG
054498,000347: 36,3641 75651 FAZB5
054499,000348: 36,3642 02701 HOLDW +12D
054500,000349: 36,3643 06643 STORE W +162D,1
054501,000350: 36,3644 52100 FAZB2 TIX,1 GOTO
054502,000351: 36,3645 75647 +2
054503,000352: 36,3646 75657 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
054504,000353: 36,3647 77634 RTB
054505,000354: 36,3650 75514 FAZA
054506,000355: 36,3651 43335 FAZB5 SLOAD DAD
054507,000356: 36,3652 01256 ZIXB
054508,000357: 36,3653 35772 12DD
054509,000358: 36,3654 52030 BHIZ GOTO
054510,000359: 36,3655 75657 FAZC
054511,000360: 36,3656 75644 FAZB2
054512,000361: 36,3657 77624 FAZC CALL
054513,000362: 36,3660 56750 GRP2PC
054514,000363: # Page 1259
054515,000364: 36,3661 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
054516,000365: 36,3662 01701 X789 # 7TH, 8TH, 9TH COMPONENTN OF STATE VECTOR
054517,000366: 36,3663 01273 DELTAX +12D # INCORPORATION FOR X789
054518,000367: 36,3664 03450 STORE TX789
054519,000368: 36,3665 47014 BON RTB
054520,000369: 36,3666 00707 VEHUPFLG
054521,000370: 36,3667 75757 DOCSM
054522,000371: 36,3670 27014 MOVEPLEM
054523,000372: 36,3671 77004 FAZAB BOVB AXT,2
054524,000373: 36,3672 57352 TCDANZIG
054525,000374: 36,3673 00000 0
054526,000375: 36,3674 77014 BOFF AXT,2
054527,000376: 36,3675 04343 MOONTHIS
054528,000377: 36,3676 75700 +2
054529,000378: 36,3677 00002 2
054530,000379: 36,3700 53775 VLOAD VSR*
054531,000380: 36,3701 01257 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
054532,000381: 36,3702 57205 0 -7,2
054533,000382: 36,3703 40055 VAD BOV
054534,000383: 36,3704 01521 TDELTAV
054535,000384: 36,3705 75717 FAZAB1
054536,000385: 36,3706 25521 STOVL TDELTAV
054537,000386: 36,3707 01265 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
054538,000387: 36,3710 53257 VSR* VAD
054539,000388: 36,3711 57202 0 -4,2
054540,000389: 36,3712 01527 TNUV
054541,000390: 36,3713 77600 BOV
054542,000391: 36,3714 75723 FAZAB2
054543,000392: 36,3715 35527 STCALL TNUV
054544,000393: 36,3716 75732 FAZAB3
054545,000394: 36,3717 53375 FAZAB1 VLOAD VAD
054546,000395: 36,3720 01535 RCV
054547,000396: 36,3721 01257 DELTAX
054548,000397: 36,3722 01535 STORE RCV
054549,000398: 36,3723 53375 FAZAB2 VLOAD VAD
054550,000399: 36,3724 01543 VCV
054551,000400: 36,3725 01265 DELTAX +6
054552,000401: 36,3726 01543 STORE VCV
054553,000402: 36,3727 45134 SXA,2 CALL
054554,000403: 36,3730 02150 PBODY
054555,000404: 36,3731 23421 RECTIFY
054556,000405: 36,3732 77624 FAZAB3 CALL
054557,000406: 36,3733 56750 GRP2PC
054558,000407: 36,3734 47014 BON RTB
054559,000408: 36,3735 00707 VEHUPFLG
054560,000409: 36,3736 75762 DOCSM1
054561,000410: 36,3737 26773 MOVEALEM
054562,000411: 36,3740 77624 CALL
054563,000412: 36,3741 20263 SVDWN2 # STORE DOWNLINK STATE VECTOR
054564,000413: 36,3742 77624 FAZAB4 CALL
054565,000414: # Page 1260
054566,000415: 36,3743 56750 GRP2PC # PHASE CHANGE
054567,000416: 36,3744 77214 BOFF VLOAD
054568,000417: 36,3745 02746 DMENFLG
054569,000418: 36,3746 75751 FAZAB5 # 6 DIMENSIONAL
054570,000419: 36,3747 03450 TX789 # 9 DIMENSIONAL
054571,000420: 36,3750 01701 STORE X789
054572,000421: 36,3751 66150 FAZAB5 LXA,1 SXA,1
054573,000422: 36,3752 02317 EGRESS
054574,000423: 36,3753 00052 QPRET
054575,000424: 36,3754 77776 EXIT
054576,000425: 36,3755 04701 TC POSTJUMP # EXIT
054577,000426: 36,3756 27457 CADR INTWAKE
054578,000427: 36,3757 52034 DOCSM RTB GOTO
054579,000428: 36,3760 26747 MOVEPCSM
054580,000429: 36,3761 75671 FAZAB
054581,000430: 36,3762 45034 DOCSM1 RTB CALL
054582,000431: 36,3763 26720 MOVEACSM
054583,000432: 36,3764 20237 SVDWN1 # STORE DOWNLINK STATE VECTOR
054584,000433: 36,3765 77650 GOTO
054585,000434: 36,3766 75742 FAZAB4
054586,000435: 36,3767 26,3334 ZEROD = ZEROVECS
054587,000436: 36,3767 00066 54DD DEC 54 B-14
054588,000437: 36,3770 77771 6DD DEC -6 B-14
054589,000438: 36,3771 00014 12DD DEC 12 B-14
054590,000439: 14,2000 SETLOC MEASINC2
054591,000440: 14,2000 BANK
054592,000441: 14,3377 COUNT* $$/INCOR
054593,000442:
054594,000443: 14,3377 51575 NEWZCOMP VLOAD ABVAL
054595,000444: 14,3400 02723 ZI
054596,000445: 14,3401 24045 STOVL NORMZI
054597,000446: 14,3402 02731 ZI +6
054598,000447: 14,3403 41446 ABVAL PUSH
054599,000448: 14,3404 50025 DSU BMN
054600,000449: 14,3405 00045 NORMZI
054601,000450: 14,3406 31411 +3
054602,000451: 14,3407 45545 DLOAD STADR
054603,000452: 14,3410 77732 STORE NORMZI
054604,000453: 14,3411 51575 VLOAD ABVAL
054605,000454: 14,3412 02737 ZI +12D
054606,000455: 14,3413 45206 PUSH DSU
054607,000456: 14,3414 00045 NORMZI
054608,000457: 14,3415 71240 BMN DLOAD
054609,000458: 14,3416 73635 NEWZCMP1
054610,000459: 14,3417 77626 STADR
054611,000460: 14,3420 43732 STCALL NORMZI # LARGEST ABVAL
054612,000461: 14,3421 73635 NEWZCMP1
054613,000462:
054614,000463: 35,2000 SETLOC MEASINC3
054615,000464: 35,2000 BANK
054616,000465:
054617,000466: # Page 1261
054618,000467: 35,3635 66145 NEWZCMP1 DLOAD SXA,1
054619,000468: 35,3636 00045 NORMZI
054620,000469: 35,3637 00044 NORMZI # SAVE X1
054621,000470: 35,3640 62101 NORM INCR,1
054622,000471: 35,3641 00047 X1
054623,000472: 35,3642 00002 DEC 2 B-14
054624,000473: 35,3643 53775 VLOAD VSL*
054625,000474: 35,3644 02723 ZI
054626,000475: 35,3645 20201 0,1
054627,000476: 35,3646 26723 STOVL ZI
054628,000477: 35,3647 02731 ZI +6
054629,000478: 35,3650 77657 VSL*
054630,000479: 35,3651 20201 0,1
054631,000480: 35,3652 26731 STOVL ZI +6
054632,000481: 35,3653 02737 ZI +12D
054633,000482: 35,3654 66057 VSL* SXA,1
054634,000483: 35,3655 20201 0,1
054635,000484: 35,3656 00045 NORMZI +1 # SAVE SHIFT
054636,000485: 35,3657 02737 STORE ZI +12D
054637,000486: 35,3660 54150 LXA,1 XSU,1
054638,000487: 35,3661 02215 NORMGAM
054639,000488: 35,3662 00045 NORMZI +1
054640,000489: 35,3663 77660 XSU,1
054641,000490: 35,3664 00045 NORMZI +1
054642,000491: 35,3665 70130 SXA,1 LXC,1
054643,000492: 35,3666 02215 NORMGAM
054644,000493: 35,3667 00045 NORMZI +1
054645,000494: 35,3670 40270 XAD,1 SETPD
054646,000495: 35,3671 00044 NORMZI
054647,000496: 35,3672 00003 2D
054648,000497: 35,3673 77650 GOTO
054649,000498: 35,3674 75412 INCOR2 -3
054650,000499: 35,3675 NORMZI = 36D
054651,000500:
054652,000501:
054653,000502:
054654,000503:
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc