Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 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.
|
051872,000002: ## Copyright: Public domain.
051873,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
051874,000004: ## Purpose: A section of Comanche revision 067.
051875,000005: ## It is part of the reconstructed source code for the flight
051876,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
051877,000007: ## (AGC) for Apollo 12. No original listings of this program are
051878,000008: ## available; instead, this file was created via dissassembly of
051879,000009: ## dumps of Comanche 067 core rope modules and comparison with
051880,000010: ## other AGC programs.
051881,000011: ## Assembler: yaYUL
051882,000012: ## Contact: Ron Burkey <info@sandroid.org>.
051883,000013: ## Website: www.ibiblio.org/apollo/index.html
051884,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
051885,000015:
051886,000016: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
051887,000017: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
051888,000018: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
051889,000019: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
051890,000020: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
051891,000021: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
051892,000022: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
051893,000023:
051894,000024: # INPUT
051895,000025: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
051896,000026: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
051897,000027: # VARIANCE = VARIANCE (SCALAR)
051898,000028: # DELTAQ = MEASURED DEVIATION (SCALAR)
051899,000029: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
051900,000030:
051901,000031: # OUTPUT
051902,000032: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
051903,000033: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
051904,000034: # GAMMA = SCALAR
051905,000035: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
051906,000036:
051907,000037: # CALLING SEQUENCE
051908,000038: # L CALL INCORP1
051909,000039:
051910,000040: # NORMAL EXIT
051911,000041: # L+1 OF CALLING SEQUENCE
051912,000042:
051913,000043: 37,3776 BANK 37
051914,000044: 36,2000 SETLOC MEASINC
051915,000045: 36,2000 BANK
051916,000046:
051917,000047: 36,3254 COUNT* $$/INCOR
051918,000048:
051919,000049: 36,3254 E5,1400 EBANK= W
051920,000050:
051921,000051: 36,3254 77620 INCORP1 STQ
051922,000052: 36,3255 02317 EGRESS
051923,000053: 36,3256 66370 AXT,1 SSP
051924,000054: 36,3257 00066 54D
051925,000055: 36,3260 00051 S1
051926,000056: 36,3261 00022 18D # IX1 = 54 S1= 18
051927,000057: 36,3262 66374 AXT,2 SSP
051928,000058: 36,3263 00022 18D
051929,000059: 36,3264 00052 S2
051930,000060: 36,3265 00006 6 # IX2 = 18 S2=6
051931,000061: 36,3266 63775 Z123 VLOAD MXV*
051932,000062: 36,3267 03502 BVECTOR # BVECTOR (0)
051933,000063: 36,3270 02467 W +54D,1
051934,000064: 36,3271 12745 STORE ZI +18D,2
051935,000065: 36,3272 77775 VLOAD
051936,000066: 36,3273 03510 BVECTOR +6 # BVECTOR (1)
051937,000067: 36,3274 52717 MXV* VAD*
051938,000068: 36,3275 02555 W +108D,1
051939,000069: 36,3276 75032 ZI +18D,2
051940,000070: 36,3277 12745 STORE ZI +18D,2
051941,000071: 36,3300 77775 VLOAD
051942,000072: 36,3301 03516 BVECTOR +12D # BVECTOR (2)
051943,000073: 36,3302 52717 MXV* VAD*
051944,000074: 36,3303 02643 W +162D,1
051945,000075: 36,3304 75032 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
051946,000076: 36,3305 12745 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
051947,000077: 36,3306 77700 TIX,1
051948,000078: 36,3307 75310 INCOR1
051949,000079: 36,3310 43104 INCOR1 TIX,2 BON
051950,000080: 36,3311 75266 Z123 # LOOP FOR Z1,Z2,Z3
051951,000081: 36,3312 02706 DMENFLG
051952,000082: 36,3313 75317 INCOR1A
051953,000083: 36,3314 77775 VLOAD
051954,000084: 36,3315 15334 ZEROVECS
051955,000085: 36,3316 02737 STORE ZI +12D
051956,000086: 36,3317 77201 INCOR1A SETPD VLOAD
051957,000087: 36,3320 00001 0
051958,000088: 36,3321 02723 ZI
051959,000089: 36,3322 47036 VSQ RTB
051960,000090: 36,3323 45565 TPMODE
051961,000091: 36,3324 47515 PDVL VSQ
051962,000092: 36,3325 02731 ZI +6
051963,000093: 36,3326 76234 RTB TAD
051964,000094: 36,3327 45565 TPMODE
051965,000095: 36,3330 47515 PDVL VSQ
051966,000096: 36,3331 02737 ZI +12D
051967,000097: 36,3332 76234 RTB TAD
051968,000098: 36,3333 45565 TPMODE
051969,000099: 36,3334 77171 TAD AXT,2
051970,000100: 36,3335 03526 VARIANCE
051971,000101: 36,3336 00000 0
051972,000102: 36,3337 01257 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
051973,000103: 36,3340 40151 TLOAD BOV
051974,000104: 36,3341 03526 VARIANCE # CLEAR OVFIND
051975,000105: 36,3342 75343 +1
051976,000106: 36,3343 01262 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
051977,000107: 36,3344 77654 BZE
051978,000108: 36,3345 75354 INCOR1C
051979,000109: 36,3346 40112 INCOR1B SL2 BOV
051980,000110: 36,3347 75354 INCOR1C
051981,000111: 36,3350 01262 STORE TEMPVAR
051982,000112: 36,3351 52114 INCR,2 GOTO
051983,000113: 36,3352 00001 DEC 1 B-14
051984,000114: 36,3353 75346 INCOR1B
051985,000115: 36,3354 61551 INCOR1C TLOAD ROUND
051986,000116: 36,3355 01257 TRIPA
051987,000117: 36,3356 75405 DMP SQRT
051988,000118: 36,3357 01262 TEMPVAR
051989,000119: 36,3360 76257 SL* TAD
051990,000120: 36,3361 57576 0,2
051991,000121: 36,3362 01257 TRIPA
051992,000122: 36,3363 63101 NORM INCR,2
051993,000123: 36,3364 00050 X2
051994,000124: 36,3365 77775 DEC -2 B-14
051995,000125: 36,3366 77134 SXA,2 AXT,2
051996,000126: 36,3367 02215 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
051997,000127: 36,3370 00242 162D
051998,000128: 36,3371 40265 BDDV SETPD
051999,000129: 36,3372 15324 DP1/4TH
052000,000130: 36,3373 00001 0
052001,000131: 36,3374 03456 STORE GAMMA
052002,000132: 36,3375 60351 TLOAD NORM
052003,000133: 36,3376 01257 TRIPA
052004,000134: 36,3377 00047 X1
052005,000135: 36,3400 65345 DLOAD PDDL # PD 0-1 = NORM (A)
052006,000136: 36,3401 00155 MPAC
052007,000137: 36,3402 03524 DELTAQ
052008,000138: 36,3403 77701 NORM
052009,000139: 36,3404 00051 S1
052010,000140: 36,3405 70460 XSU,1 SR1
052011,000141: 36,3406 00050 S1
052012,000142: 36,3407 41471 DDV PUSH # PD 0-1 = DELTAQ/A
052013,000143: 36,3410 77650 GOTO
052014,000144: 36,3411 31401 NEWZCOMP
052015,000145: 36,3412 77731 -3 SSP
052016,000146: 36,3413 00052 S2
052017,000147: 36,3414 00066 54D
052018,000148: 36,3415 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
052019,000149: 36,3416 02723 ZI
052020,000150: 36,3417 75134 W +162D,2
052021,000151: 36,3420 77206 PUSH VLOAD
052022,000152: 36,3421 02731 ZI +6
052023,000153: 36,3422 53303 VXM* VAD
052024,000154: 36,3423 75112 W +180D,2
052025,000155: 36,3424 77206 PUSH VLOAD
052026,000156: 36,3425 02737 ZI +12D
052027,000157: 36,3426 53303 VXM* VAD
052028,000158: 36,3427 75070 W +198D,2
052029,000159: 36,3430 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
052030,000160: 36,3431 75415 INCOR2
052031,000161: 36,3432 45575 VLOAD STADR
052032,000162: 36,3433 74303 STORE OMEGA +12D
052033,000163: 36,3434 45575 VLOAD STADR
052034,000164: 36,3435 74311 STORE OMEGA +6
052035,000165: 36,3436 45575 VLOAD STADR
052036,000166: 36,3437 74317 STORE OMEGA
052037,000167: 36,3440 77214 BON VLOAD
052038,000168: 36,3441 02706 DMENFLG
052039,000169: 36,3442 75445 INCOR2AB
052040,000170: 36,3443 15334 ZEROVECS
052041,000171: 36,3444 03474 STORE OMEGA +12D
052042,000172: 36,3445 66374 INCOR2AB AXT,2 SSP
052043,000173: 36,3446 00022 18D
052044,000174: 36,3447 00052 S2
052045,000175: 36,3450 00006 6
052046,000176: 36,3451 77773 INCOR3 VLOAD*
052047,000177: 36,3452 74275 OMEGA +18D,2
052048,000178: 36,3453 53761 VXSC VSL*
052049,000179: 36,3454 00001 0 # DELTAQ/A
052050,000180: 36,3455 20201 0,1
052051,000181: 36,3456 11301 STORE DELTAX +18D,2
052052,000182: 36,3457 77304 TIX,2 VLOAD
052053,000183: 36,3460 75451 INCOR3
052054,000184: 36,3461 01265 DELTAX +6
052055,000185: 36,3462 77732 VSL3
052056,000186: 36,3463 01265 STORE DELTAX +6
052057,000187: 36,3464 77650 GOTO
052058,000188: 36,3465 02317 EGRESS
052059,000189:
052060,000190: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
052061,000191: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
052062,000192: # LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
052063,000193:
052064,000194: # INPUT
052065,000195: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
052066,000196: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
052067,000197: # W = ERROR TRANSITION MATRIX
052068,000198: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
052069,000199: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
052070,000200: # GAMMA = SCALAR FOR INCORPORATION
052071,000201: # ZI = VECTOR USED IN INCORPORATION
052072,000202: # OMEGA = WEIGHTING VECTOR
052073,000203:
052074,000204: # OUTPUT
052075,000205: # UPDATED PERMANENT STATE VECTOR
052076,000206:
052077,000207: # CALLING SEQUENCE
052078,000208: # L CALL INCORP2
052079,000209:
052080,000210: # NORMAL EXIT
052081,000211: # L+1 OF CALLING SEQUENCE
052082,000212:
052083,000213:
052084,000214: 36,2000 SETLOC MEASINC1
052085,000215: 36,2000 BANK
052086,000216:
052087,000217: 36,3466 COUNT* $$/INCOR
052088,000218:
052089,000219: 36,3466 45020 INCORP2 STQ CALL
052090,000220: 36,3467 02317 EGRESS
052091,000221: 36,3470 27452 INTSTALL
052092,000222: 36,3471 74375 VLOAD VXSC # CALC. GAMMA*OMEGA1,2,3
052093,000223: 36,3472 03460 OMEGA
052094,000224: 36,3473 03456 GAMMA
052095,000225: 36,3474 26643 STOVL OMEGAM1
052096,000226: 36,3475 03466 OMEGA +6
052097,000227: 36,3476 77761 VXSC
052098,000228: 36,3477 03456 GAMMA
052099,000229: 36,3500 26651 STOVL OMEGAM2
052100,000230: 36,3501 03474 OMEGA +12D
052101,000231: 36,3502 77761 VXSC
052102,000232: 36,3503 03456 GAMMA
052103,000233: 36,3504 02657 STORE OMEGAM3
052104,000234: 36,3505 77776 EXIT
052105,000235: 36,3506 33767 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
052106,000236: 36,3507 55252 TS WIXA
052107,000237: 36,3510 55253 TS WIXB
052108,000238: 36,3511 35035 CAF ZERO
052109,000239: 36,3512 55254 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
052110,000240: 36,3513 55255 TS ZIXB
052111,000241: 36,3514 05426 FAZA TC PHASCHNG
052112,000242: 36,3515 04022 OCT 04022
052113,000243: 36,3516 05562 TC UPFLAG
052114,000244: 36,3517 00236 ADRES REINTFLG
052115,000245: 36,3520 31253 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
052116,000246: 36,3521 55252 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
052117,000247: 36,3522 31255 CA ZIXB
052118,000248: 36,3523 55254 TS ZIXA
052119,000249: 36,3524 06006 TC INTPRET
052120,000250: 36,3525 73150 LXA,1 LXA,2
052121,000251: 36,3526 01252 WIXA
052122,000252: 36,3527 01254 ZIXA
052123,000253: 36,3530 70731 SSP DLOAD*
052124,000254: 36,3531 00051 S1
052125,000255: 36,3532 00006 6
052126,000256: 36,3533 75054 ZI,2
052127,000257: 36,3534 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
052128,000258: 36,3535 00052 S2
052129,000259: 36,3536 65161 VXSC XCHX,2
052130,000260: 36,3537 02643 OMEGAM1
052131,000261: 36,3540 00051 S2
052132,000262: 36,3541 57144 LXC,2 XAD,2
052133,000263: 36,3542 00047 X2
052134,000264: 36,3543 02215 NORMGAM
052135,000265: 36,3544 65057 VSL* XCHX,2
052136,000266: 36,3545 57576 0,2
052137,000267: 36,3546 00051 S2
052138,000268: 36,3547 77653 VAD*
052139,000269: 36,3550 02467 W +54D,1
052140,000270: 36,3551 02665 STORE HOLDW
052141,000271: 36,3552 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
052142,000272: 36,3553 75054 ZI,2
052143,000273: 36,3554 74301 NORM VXSC
052144,000274: 36,3555 00052 S2
052145,000275: 36,3556 02651 OMEGAM2
052146,000276: 36,3557 71124 XCHX,2 LXC,2
052147,000277: 36,3560 00051 S2
052148,000278: 36,3561 00047 X2
052149,000279: 36,3562 53674 XAD,2 VSL*
052150,000280: 36,3563 02215 NORMGAM
052151,000281: 36,3564 57576 0,2
052152,000282: 36,3565 52724 XCHX,2 VAD*
052153,000283: 36,3566 00051 S2
052154,000284: 36,3567 02555 W +108D,1
052155,000285: 36,3570 02673 STORE HOLDW +6
052156,000286: 36,3571 77614 BOFF
052157,000287: 36,3572 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
052158,000288: 36,3573 75613 FAZB
052159,000289: 36,3574 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
052160,000290: 36,3575 75054 ZI,2
052161,000291: 36,3576 74301 NORM VXSC
052162,000292: 36,3577 00052 S2
052163,000293: 36,3600 02657 OMEGAM3
052164,000294: 36,3601 71124 XCHX,2 LXC,2
052165,000295: 36,3602 00051 S2
052166,000296: 36,3603 00047 X2
052167,000297: 36,3604 53674 XAD,2 VSL*
052168,000298: 36,3605 02215 NORMGAM
052169,000299: 36,3606 57576 0,2
052170,000300: 36,3607 52724 XCHX,2 VAD*
052171,000301: 36,3610 00051 S2
052172,000302: 36,3611 02643 W +162D,1
052173,000303: 36,3612 02701 STORE HOLDW +12D
052174,000304: 36,3613 77624 FAZB CALL
052175,000305: 36,3614 56751 GRP2PC
052176,000306: 36,3615 77776 EXIT
052177,000307: 36,3616 31252 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
052178,000308: 36,3617 63770 AD 6DD # TEMP REG TO PERM W MATRIX
052179,000309: 36,3620 55253 TS WIXB
052180,000310: 36,3621 31254 CA ZIXA
052181,000311: 36,3622 67715 AD MINUS2
052182,000312: 36,3623 55255 TS ZIXB
052183,000313: 36,3624 06006 TC INTPRET
052184,000314: 36,3625 66350 LXA,1 SSP
052185,000315: 36,3626 01252 WIXA
052186,000316: 36,3627 00051 S1
052187,000317: 36,3630 00006 6
052188,000318: 36,3631 77775 VLOAD
052189,000319: 36,3632 02665 HOLDW
052190,000320: 36,3633 06467 STORE W +54D,1
052191,000321: 36,3634 77775 VLOAD
052192,000322: 36,3635 02673 HOLDW +6
052193,000323: 36,3636 06555 STORE W +108D,1
052194,000324: 36,3637 77214 BOFF VLOAD
052195,000325: 36,3640 02746 DMENFLG
052196,000326: 36,3641 75651 FAZB5
052197,000327: 36,3642 02701 HOLDW +12D
052198,000328: 36,3643 06643 STORE W +162D,1
052199,000329: 36,3644 52100 FAZB2 TIX,1 GOTO
052200,000330: 36,3645 75647 +2
052201,000331: 36,3646 75657 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
052202,000332: 36,3647 77634 RTB
052203,000333: 36,3650 75514 FAZA
052204,000334: 36,3651 43335 FAZB5 SLOAD DAD
052205,000335: 36,3652 01256 ZIXB
052206,000336: 36,3653 35772 12DD
052207,000337: 36,3654 52030 BHIZ GOTO
052208,000338: 36,3655 75657 FAZC
052209,000339: 36,3656 75644 FAZB2
052210,000340: 36,3657 77624 FAZC CALL
052211,000341: 36,3660 56751 GRP2PC
052212,000342: 36,3661 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
052213,000343: 36,3662 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
052214,000344: 36,3663 01273 DELTAX +12D # INCORPORATION FOR X789
052215,000345: 36,3664 03450 STORE TX789
052216,000346: 36,3665 47014 BON RTB
052217,000347: 36,3666 00707 VEHUPFLG
052218,000348: 36,3667 75757 DOCSM
052219,000349: 36,3670 27024 MOVEPLEM
052220,000350: 36,3671 77004 FAZAB BOVB AXT,2
052221,000351: 36,3672 57353 TCDANZIG
052222,000352: 36,3673 00000 0
052223,000353: 36,3674 77014 BOFF AXT,2
052224,000354: 36,3675 04343 MOONTHIS
052225,000355: 36,3676 75700 +2
052226,000356: 36,3677 00002 2
052227,000357: 36,3700 53775 VLOAD VSR*
052228,000358: 36,3701 01257 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
052229,000359: 36,3702 57205 0 -7,2
052230,000360: 36,3703 40055 VAD BOV
052231,000361: 36,3704 01521 TDELTAV
052232,000362: 36,3705 75717 FAZAB1
052233,000363: 36,3706 25521 STOVL TDELTAV
052234,000364: 36,3707 01265 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
052235,000365: 36,3710 53257 VSR* VAD
052236,000366: 36,3711 57202 0 -4,2
052237,000367: 36,3712 01527 TNUV
052238,000368: 36,3713 77600 BOV
052239,000369: 36,3714 75723 FAZAB2
052240,000370: 36,3715 35527 STCALL TNUV
052241,000371: 36,3716 75732 FAZAB3
052242,000372: 36,3717 53375 FAZAB1 VLOAD VAD
052243,000373: 36,3720 01535 RCV
052244,000374: 36,3721 01257 DELTAX
052245,000375: 36,3722 01535 STORE RCV
052246,000376: 36,3723 53375 FAZAB2 VLOAD VAD
052247,000377: 36,3724 01543 VCV
052248,000378: 36,3725 01265 DELTAX +6
052249,000379: 36,3726 01543 STORE VCV
052250,000380: 36,3727 45134 SXA,2 CALL
052251,000381: 36,3730 02150 PBODY
052252,000382: 36,3731 23403 RECTIFY
052253,000383: 36,3732 77624 FAZAB3 CALL
052254,000384: 36,3733 56751 GRP2PC
052255,000385: 36,3734 47014 BON RTB
052256,000386: 36,3735 00707 VEHUPFLG
052257,000387: 36,3736 75762 DOCSM1
052258,000388: 36,3737 27003 MOVEALEM
052259,000389: 36,3740 77624 CALL
052260,000390: 36,3741 20263 SVDWN2 # STORE DOWNLINK STATE VECTOR
052261,000391: 36,3742 77624 FAZAB4 CALL
052262,000392: 36,3743 56751 GRP2PC # PHASE CHANGE
052263,000393: 36,3744 77214 BOFF VLOAD
052264,000394: 36,3745 02746 DMENFLG
052265,000395: 36,3746 75751 FAZAB5 # 6 DIMENSIONAL
052266,000396: 36,3747 03450 TX789 # 9 DIMENSIONAL
052267,000397: 36,3750 01701 STORE X789
052268,000398: 36,3751 66150 FAZAB5 LXA,1 SXA,1
052269,000399: 36,3752 02317 EGRESS
052270,000400: 36,3753 00052 QPRET
052271,000401: 36,3754 77776 EXIT
052272,000402: 36,3755 04715 TC POSTJUMP # EXIT
052273,000403: 36,3756 27467 CADR INTWAKE
052274,000404: 36,3757 52034 DOCSM RTB GOTO
052275,000405: 36,3760 26757 MOVEPCSM
052276,000406: 36,3761 75671 FAZAB
052277,000407: 36,3762 45034 DOCSM1 RTB CALL
052278,000408: 36,3763 26730 MOVEACSM
052279,000409: 36,3764 20237 SVDWN1 # STORE DOWNLINK STATE VECTOR
052280,000410: 36,3765 77650 GOTO
052281,000411: 36,3766 75742 FAZAB4
052282,000412: 36,3767 26,3333 ZEROO = ZEROVECS
052283,000413: 36,3767 00066 54DD DEC 54 B-14
052284,000414: 36,3770 77771 6DD DEC -6 B-14
052285,000415: 36,3771 00014 12DD DEC 12 B-14
052286,000416: 14,2000 SETLOC MEASINC2
052287,000417: 14,2000 BANK
052288,000418: 14,3401 COUNT* $$/INCOR
052289,000419:
052290,000420: 14,3401 51575 NEWZCOMP VLOAD ABVAL
052291,000421: 14,3402 02723 ZI
052292,000422: 14,3403 24045 STOVL NORMZI
052293,000423: 14,3404 02731 ZI +6
052294,000424: 14,3405 41446 ABVAL PUSH
052295,000425: 14,3406 50025 DSU BMN
052296,000426: 14,3407 00045 NORMZI
052297,000427: 14,3410 31413 +3
052298,000428: 14,3411 45545 DLOAD STADR
052299,000429: 14,3412 77732 STORE NORMZI
052300,000430: 14,3413 51575 VLOAD ABVAL
052301,000431: 14,3414 02737 ZI +12D
052302,000432: 14,3415 45206 PUSH DSU
052303,000433: 14,3416 00045 NORMZI
052304,000434: 14,3417 71240 BMN DLOAD
052305,000435: 14,3420 73635 NEWZCMP1
052306,000436: 14,3421 77626 STADR
052307,000437: 14,3422 43732 STCALL NORMZI # LARGEST ABVAL
052308,000438: 14,3423 73635 NEWZCMP1
052309,000439:
052310,000440: 35,2000 SETLOC MEASINC3
052311,000441: 35,2000 BANK
052312,000442:
052313,000443: 35,3635 66145 NEWZCMP1 DLOAD SXA,1
052314,000444: 35,3636 00045 NORMZI
052315,000445: 35,3637 00044 NORMZI # SAVE X1
052316,000446: 35,3640 62101 NORM INCR,1
052317,000447: 35,3641 00047 X1
052318,000448: 35,3642 00002 DEC 2 B-14
052319,000449: 35,3643 53775 VLOAD VSL*
052320,000450: 35,3644 02723 ZI
052321,000451: 35,3645 20201 0,1
052322,000452: 35,3646 26723 STOVL ZI
052323,000453: 35,3647 02731 ZI +6
052324,000454: 35,3650 77657 VSL*
052325,000455: 35,3651 20201 0,1
052326,000456: 35,3652 26731 STOVL ZI +6
052327,000457: 35,3653 02737 ZI +12D
052328,000458: 35,3654 66057 VSL* SXA,1
052329,000459: 35,3655 20201 0,1
052330,000460: 35,3656 00045 NORMZI +1 # SAVE SHIFT
052331,000461: 35,3657 02737 STORE ZI +12D
052332,000462: 35,3660 54150 LXA,1 XSU,1
052333,000463: 35,3661 02215 NORMGAM
052334,000464: 35,3662 00045 NORMZI +1
052335,000465: 35,3663 77660 XSU,1
052336,000466: 35,3664 00045 NORMZI +1
052337,000467: 35,3665 70130 SXA,1 LXC,1
052338,000468: 35,3666 02215 NORMGAM
052339,000469: 35,3667 00045 NORMZI +1
052340,000470: 35,3670 40270 XAD,1 SETPD
052341,000471: 35,3671 00044 NORMZI
052342,000472: 35,3672 00003 2D
052343,000473: 35,3673 77650 GOTO
052344,000474: 35,3674 75412 INCOR2 -3
052345,000475: 35,3675 NORMZI = 36D
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc