Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3),
the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72
source code was then modified by incorporating changes known from contemporary documentation to have
been made between revisions 72 and 72/3. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72/3 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.
|
052205,000002: ## Copyright: Public domain.
052206,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
052207,000004: ## Purpose: A section of Manche72 revision 3.
052208,000005: ## It is part of the reconstructed source code for the final, flown
052209,000006: ## release of the software for the Command Module's (CM) Apollo
052210,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
052211,000008: ## of this program are available; instead, this file was recreated
052212,000009: ## from a reconstructed copy of Comanche 072. It has been adapted
052213,000010: ## such that the resulting bugger words exactly match those
052214,000011: ## specified for Manche72 revision 3 in NASA drawing 2021153G,
052215,000012: ## which gives relatively high confidence that the reconstruction
052216,000013: ## is correct.
052217,000014: ## Assembler: yaYUL
052218,000015: ## Contact: Ron Burkey <info@sandroid.org>.
052219,000016: ## Website: www.ibiblio.org/apollo/index.html
052220,000017: ## Mod history: 2024-05-19 MAS Created from Comanche 072.
052221,000018:
052222,000019: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
052223,000020: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
052224,000021: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
052225,000022: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
052226,000023: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
052227,000024: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
052228,000025: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
052229,000026:
052230,000027: # INPUT
052231,000028: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
052232,000029: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
052233,000030: # VARIANCE = VARIANCE (SCALAR)
052234,000031: # DELTAQ = MEASURED DEVIATION (SCALAR)
052235,000032: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
052236,000033:
052237,000034: # OUTPUT
052238,000035: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
052239,000036: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
052240,000037: # GAMMA = SCALAR
052241,000038: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
052242,000039:
052243,000040: # CALLING SEQUENCE
052244,000041: # L CALL INCORP1
052245,000042:
052246,000043: # NORMAL EXIT
052247,000044: # L+1 OF CALLING SEQUENCE
052248,000045:
052249,000046: 37,3776 BANK 37
052250,000047: 36,2000 SETLOC MEASINC
052251,000048: 36,2000 BANK
052252,000049:
052253,000050: 36,3260 COUNT* $$/INCOR
052254,000051:
052255,000052: 36,3260 E5,1400 EBANK= W
052256,000053:
052257,000054: 36,3260 77620 INCORP1 STQ
052258,000055: 36,3261 02317 EGRESS
052259,000056: 36,3262 66370 AXT,1 SSP
052260,000057: 36,3263 00066 54D
052261,000058: 36,3264 00051 S1
052262,000059: 36,3265 00022 18D # IX1 = 54 S1= 18
052263,000060: 36,3266 66374 AXT,2 SSP
052264,000061: 36,3267 00022 18D
052265,000062: 36,3270 00052 S2
052266,000063: 36,3271 00006 6 # IX2 = 18 S2=6
052267,000064: 36,3272 63775 Z123 VLOAD MXV*
052268,000065: 36,3273 03502 BVECTOR # BVECTOR (0)
052269,000066: 36,3274 02467 W +54D,1
052270,000067: 36,3275 12745 STORE ZI +18D,2
052271,000068: 36,3276 77775 VLOAD
052272,000069: 36,3277 03510 BVECTOR +6 # BVECTOR (1)
052273,000070: 36,3300 52717 MXV* VAD*
052274,000071: 36,3301 02555 W +108D,1
052275,000072: 36,3302 75032 ZI +18D,2
052276,000073: 36,3303 12745 STORE ZI +18D,2
052277,000074: 36,3304 77775 VLOAD
052278,000075: 36,3305 03516 BVECTOR +12D # BVECTOR (2)
052279,000076: 36,3306 52717 MXV* VAD*
052280,000077: 36,3307 02643 W +162D,1
052281,000078: 36,3310 75032 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
052282,000079: 36,3311 12745 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
052283,000080: 36,3312 77700 TIX,1
052284,000081: 36,3313 75314 INCOR1
052285,000082: 36,3314 43104 INCOR1 TIX,2 BON
052286,000083: 36,3315 75272 Z123 # LOOP FOR Z1,Z2,Z3
052287,000084: 36,3316 02706 DMENFLG
052288,000085: 36,3317 75323 INCOR1A
052289,000086: 36,3320 77775 VLOAD
052290,000087: 36,3321 15334 ZEROVECS
052291,000088: 36,3322 02737 STORE ZI +12D
052292,000089: 36,3323 77201 INCOR1A SETPD VLOAD
052293,000090: 36,3324 00001 0
052294,000091: 36,3325 02723 ZI
052295,000092: 36,3326 47036 VSQ RTB
052296,000093: 36,3327 45565 TPMODE
052297,000094: 36,3330 47515 PDVL VSQ
052298,000095: 36,3331 02731 ZI +6
052299,000096: 36,3332 76234 RTB TAD
052300,000097: 36,3333 45565 TPMODE
052301,000098: 36,3334 47515 PDVL VSQ
052302,000099: 36,3335 02737 ZI +12D
052303,000100: 36,3336 76234 RTB TAD
052304,000101: 36,3337 45565 TPMODE
052305,000102: 36,3340 77171 TAD AXT,2
052306,000103: 36,3341 03526 VARIANCE
052307,000104: 36,3342 00000 0
052308,000105: 36,3343 01257 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
052309,000106: 36,3344 40151 TLOAD BOV
052310,000107: 36,3345 03526 VARIANCE # CLEAR OVFIND
052311,000108: 36,3346 75347 +1
052312,000109: 36,3347 01262 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
052313,000110: 36,3350 77654 BZE
052314,000111: 36,3351 75360 INCOR1C
052315,000112: 36,3352 40112 INCOR1B SL2 BOV
052316,000113: 36,3353 75360 INCOR1C
052317,000114: 36,3354 01262 STORE TEMPVAR
052318,000115: 36,3355 52114 INCR,2 GOTO
052319,000116: 36,3356 00001 DEC 1 B-14
052320,000117: 36,3357 75352 INCOR1B
052321,000118: 36,3360 61551 INCOR1C TLOAD ROUND
052322,000119: 36,3361 01257 TRIPA
052323,000120: 36,3362 75405 DMP SQRT
052324,000121: 36,3363 01262 TEMPVAR
052325,000122: 36,3364 76257 SL* TAD
052326,000123: 36,3365 57576 0,2
052327,000124: 36,3366 01257 TRIPA
052328,000125: 36,3367 63101 NORM INCR,2
052329,000126: 36,3370 00050 X2
052330,000127: 36,3371 77775 DEC -2 B-14
052331,000128: 36,3372 77134 SXA,2 AXT,2
052332,000129: 36,3373 02215 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
052333,000130: 36,3374 00242 162D
052334,000131: 36,3375 40265 BDDV SETPD
052335,000132: 36,3376 15324 DP1/4TH
052336,000133: 36,3377 00001 0
052337,000134: 36,3400 03456 STORE GAMMA
052338,000135: 36,3401 60351 TLOAD NORM
052339,000136: 36,3402 01257 TRIPA
052340,000137: 36,3403 00047 X1
052341,000138: 36,3404 65345 DLOAD PDDL # PD 0-1 = NORM (A)
052342,000139: 36,3405 00155 MPAC
052343,000140: 36,3406 03524 DELTAQ
052344,000141: 36,3407 77701 NORM
052345,000142: 36,3410 00051 S1
052346,000143: 36,3411 70460 XSU,1 SR1
052347,000144: 36,3412 00050 S1
052348,000145: 36,3413 41471 DDV PUSH # PD 0-1 = DELTAQ/A
052349,000146: 36,3414 77650 GOTO
052350,000147: 36,3415 31403 NEWZCOMP
052351,000148: 36,3416 77731 -3 SSP
052352,000149: 36,3417 00052 S2
052353,000150: 36,3420 00066 54D
052354,000151: 36,3421 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
052355,000152: 36,3422 02723 ZI
052356,000153: 36,3423 75134 W +162D,2
052357,000154: 36,3424 77206 PUSH VLOAD
052358,000155: 36,3425 02731 ZI +6
052359,000156: 36,3426 53303 VXM* VAD
052360,000157: 36,3427 75112 W +180D,2
052361,000158: 36,3430 77206 PUSH VLOAD
052362,000159: 36,3431 02737 ZI +12D
052363,000160: 36,3432 53303 VXM* VAD
052364,000161: 36,3433 75070 W +198D,2
052365,000162: 36,3434 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
052366,000163: 36,3435 75421 INCOR2
052367,000164: 36,3436 45575 VLOAD STADR
052368,000165: 36,3437 74303 STORE OMEGA +12D
052369,000166: 36,3440 45575 VLOAD STADR
052370,000167: 36,3441 74311 STORE OMEGA +6
052371,000168: 36,3442 45575 VLOAD STADR
052372,000169: 36,3443 74317 STORE OMEGA
052373,000170: 36,3444 77214 BON VLOAD
052374,000171: 36,3445 02706 DMENFLG
052375,000172: 36,3446 75451 INCOR2AB
052376,000173: 36,3447 15334 ZEROVECS
052377,000174: 36,3450 03474 STORE OMEGA +12D
052378,000175: 36,3451 66374 INCOR2AB AXT,2 SSP
052379,000176: 36,3452 00022 18D
052380,000177: 36,3453 00052 S2
052381,000178: 36,3454 00006 6
052382,000179: 36,3455 77773 INCOR3 VLOAD*
052383,000180: 36,3456 74275 OMEGA +18D,2
052384,000181: 36,3457 53761 VXSC VSL*
052385,000182: 36,3460 00001 0 # DELTAQ/A
052386,000183: 36,3461 20201 0,1
052387,000184: 36,3462 11301 STORE DELTAX +18D,2
052388,000185: 36,3463 77304 TIX,2 VLOAD
052389,000186: 36,3464 75455 INCOR3
052390,000187: 36,3465 01265 DELTAX +6
052391,000188: 36,3466 77732 VSL3
052392,000189: 36,3467 01265 STORE DELTAX +6
052393,000190: 36,3470 77650 GOTO
052394,000191: 36,3471 02317 EGRESS
052395,000192:
052396,000193: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
052397,000194: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
052398,000195: # LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
052399,000196:
052400,000197: # INPUT
052401,000198: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
052402,000199: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
052403,000200: # W = ERROR TRANSITION MATRIX
052404,000201: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
052405,000202: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
052406,000203: # GAMMA = SCALAR FOR INCORPORATION
052407,000204: # ZI = VECTOR USED IN INCORPORATION
052408,000205: # OMEGA = WEIGHTING VECTOR
052409,000206:
052410,000207: # OUTPUT
052411,000208: # UPDATED PERMANENT STATE VECTOR
052412,000209:
052413,000210: # CALLING SEQUENCE
052414,000211: # L CALL INCORP2
052415,000212:
052416,000213: # NORMAL EXIT
052417,000214: # L+1 OF CALLING SEQUENCE
052418,000215:
052419,000216:
052420,000217: 36,2000 SETLOC MEASINC1
052421,000218: 36,2000 BANK
052422,000219:
052423,000220: 36,3472 COUNT* $$/INCOR
052424,000221:
052425,000222: 36,3472 45020 INCORP2 STQ CALL
052426,000223: 36,3473 02317 EGRESS
052427,000224: 36,3474 27446 INTSTALL
052428,000225: 36,3475 74375 VLOAD VXSC # CALC. GAMMA*OMEGA1,2,3
052429,000226: 36,3476 03460 OMEGA
052430,000227: 36,3477 03456 GAMMA
052431,000228: 36,3500 26643 STOVL OMEGAM1
052432,000229: 36,3501 03466 OMEGA +6
052433,000230: 36,3502 77761 VXSC
052434,000231: 36,3503 03456 GAMMA
052435,000232: 36,3504 26651 STOVL OMEGAM2
052436,000233: 36,3505 03474 OMEGA +12D
052437,000234: 36,3506 77761 VXSC
052438,000235: 36,3507 03456 GAMMA
052439,000236: 36,3510 02657 STORE OMEGAM3
052440,000237: 36,3511 77776 EXIT
052441,000238: 36,3512 33773 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
052442,000239: 36,3513 55252 TS WIXA
052443,000240: 36,3514 55253 TS WIXB
052444,000241: 36,3515 35035 CAF ZERO
052445,000242: 36,3516 55254 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
052446,000243: 36,3517 55255 TS ZIXB
052447,000244: 36,3520 05426 FAZA TC PHASCHNG
052448,000245: 36,3521 04022 OCT 04022
052449,000246: 36,3522 05562 TC UPFLAG
052450,000247: 36,3523 00236 ADRES REINTFLG
052451,000248: 36,3524 31253 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
052452,000249: 36,3525 55252 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
052453,000250: 36,3526 31255 CA ZIXB
052454,000251: 36,3527 55254 TS ZIXA
052455,000252: 36,3530 06006 TC INTPRET
052456,000253: 36,3531 73150 LXA,1 LXA,2
052457,000254: 36,3532 01252 WIXA
052458,000255: 36,3533 01254 ZIXA
052459,000256: 36,3534 70731 SSP DLOAD*
052460,000257: 36,3535 00051 S1
052461,000258: 36,3536 00006 6
052462,000259: 36,3537 75054 ZI,2
052463,000260: 36,3540 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
052464,000261: 36,3541 00052 S2
052465,000262: 36,3542 65161 VXSC XCHX,2
052466,000263: 36,3543 02643 OMEGAM1
052467,000264: 36,3544 00051 S2
052468,000265: 36,3545 57144 LXC,2 XAD,2
052469,000266: 36,3546 00047 X2
052470,000267: 36,3547 02215 NORMGAM
052471,000268: 36,3550 65057 VSL* XCHX,2
052472,000269: 36,3551 57576 0,2
052473,000270: 36,3552 00051 S2
052474,000271: 36,3553 77653 VAD*
052475,000272: 36,3554 02467 W +54D,1
052476,000273: 36,3555 02665 STORE HOLDW
052477,000274: 36,3556 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
052478,000275: 36,3557 75054 ZI,2
052479,000276: 36,3560 74301 NORM VXSC
052480,000277: 36,3561 00052 S2
052481,000278: 36,3562 02651 OMEGAM2
052482,000279: 36,3563 71124 XCHX,2 LXC,2
052483,000280: 36,3564 00051 S2
052484,000281: 36,3565 00047 X2
052485,000282: 36,3566 53674 XAD,2 VSL*
052486,000283: 36,3567 02215 NORMGAM
052487,000284: 36,3570 57576 0,2
052488,000285: 36,3571 52724 XCHX,2 VAD*
052489,000286: 36,3572 00051 S2
052490,000287: 36,3573 02555 W +108D,1
052491,000288: 36,3574 02673 STORE HOLDW +6
052492,000289: 36,3575 77614 BOFF
052493,000290: 36,3576 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
052494,000291: 36,3577 75617 FAZB
052495,000292: 36,3600 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
052496,000293: 36,3601 75054 ZI,2
052497,000294: 36,3602 74301 NORM VXSC
052498,000295: 36,3603 00052 S2
052499,000296: 36,3604 02657 OMEGAM3
052500,000297: 36,3605 71124 XCHX,2 LXC,2
052501,000298: 36,3606 00051 S2
052502,000299: 36,3607 00047 X2
052503,000300: 36,3610 53674 XAD,2 VSL*
052504,000301: 36,3611 02215 NORMGAM
052505,000302: 36,3612 57576 0,2
052506,000303: 36,3613 52724 XCHX,2 VAD*
052507,000304: 36,3614 00051 S2
052508,000305: 36,3615 02643 W +162D,1
052509,000306: 36,3616 02701 STORE HOLDW +12D
052510,000307: 36,3617 77624 FAZB CALL
052511,000308: 36,3620 56751 GRP2PC
052512,000309: 36,3621 77776 EXIT
052513,000310: 36,3622 31252 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
052514,000311: 36,3623 63774 AD 6DD # TEMP REG TO PERM W MATRIX
052515,000312: 36,3624 55253 TS WIXB
052516,000313: 36,3625 31254 CA ZIXA
052517,000314: 36,3626 67715 AD MINUS2
052518,000315: 36,3627 55255 TS ZIXB
052519,000316: 36,3630 06006 TC INTPRET
052520,000317: 36,3631 66350 LXA,1 SSP
052521,000318: 36,3632 01252 WIXA
052522,000319: 36,3633 00051 S1
052523,000320: 36,3634 00006 6
052524,000321: 36,3635 77775 VLOAD
052525,000322: 36,3636 02665 HOLDW
052526,000323: 36,3637 06467 STORE W +54D,1
052527,000324: 36,3640 77775 VLOAD
052528,000325: 36,3641 02673 HOLDW +6
052529,000326: 36,3642 06555 STORE W +108D,1
052530,000327: 36,3643 77214 BOFF VLOAD
052531,000328: 36,3644 02746 DMENFLG
052532,000329: 36,3645 75655 FAZB5
052533,000330: 36,3646 02701 HOLDW +12D
052534,000331: 36,3647 06643 STORE W +162D,1
052535,000332: 36,3650 52100 FAZB2 TIX,1 GOTO
052536,000333: 36,3651 75653 +2
052537,000334: 36,3652 75663 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
052538,000335: 36,3653 77634 RTB
052539,000336: 36,3654 75520 FAZA
052540,000337: 36,3655 43335 FAZB5 SLOAD DAD
052541,000338: 36,3656 01256 ZIXB
052542,000339: 36,3657 35776 12DD
052543,000340: 36,3660 52030 BHIZ GOTO
052544,000341: 36,3661 75663 FAZC
052545,000342: 36,3662 75650 FAZB2
052546,000343: 36,3663 77624 FAZC CALL
052547,000344: 36,3664 56751 GRP2PC
052548,000345: 36,3665 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
052549,000346: 36,3666 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
052550,000347: 36,3667 01273 DELTAX +12D # INCORPORATION FOR X789
052551,000348: 36,3670 03450 STORE TX789
052552,000349: 36,3671 47014 BON RTB
052553,000350: 36,3672 00707 VEHUPFLG
052554,000351: 36,3673 75763 DOCSM
052555,000352: 36,3674 27023 MOVEPLEM
052556,000353: 36,3675 77004 FAZAB BOVB AXT,2
052557,000354: 36,3676 57353 TCDANZIG
052558,000355: 36,3677 00000 0
052559,000356: 36,3700 77014 BOFF AXT,2
052560,000357: 36,3701 04343 MOONTHIS
052561,000358: 36,3702 75704 +2
052562,000359: 36,3703 00002 2
052563,000360: 36,3704 53775 VLOAD VSR*
052564,000361: 36,3705 01257 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
052565,000362: 36,3706 57205 0 -7,2
052566,000363: 36,3707 40055 VAD BOV
052567,000364: 36,3710 01521 TDELTAV
052568,000365: 36,3711 75723 FAZAB1
052569,000366: 36,3712 25521 STOVL TDELTAV
052570,000367: 36,3713 01265 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
052571,000368: 36,3714 53257 VSR* VAD
052572,000369: 36,3715 57202 0 -4,2
052573,000370: 36,3716 01527 TNUV
052574,000371: 36,3717 77600 BOV
052575,000372: 36,3720 75727 FAZAB2
052576,000373: 36,3721 35527 STCALL TNUV
052577,000374: 36,3722 75736 FAZAB3
052578,000375: 36,3723 53375 FAZAB1 VLOAD VAD
052579,000376: 36,3724 01535 RCV
052580,000377: 36,3725 01257 DELTAX
052581,000378: 36,3726 01535 STORE RCV
052582,000379: 36,3727 53375 FAZAB2 VLOAD VAD
052583,000380: 36,3730 01543 VCV
052584,000381: 36,3731 01265 DELTAX +6
052585,000382: 36,3732 01543 STORE VCV
052586,000383: 36,3733 45134 SXA,2 CALL
052587,000384: 36,3734 02150 PBODY
052588,000385: 36,3735 23403 RECTIFY
052589,000386: 36,3736 77624 FAZAB3 CALL
052590,000387: 36,3737 56751 GRP2PC
052591,000388: 36,3740 47014 BON RTB
052592,000389: 36,3741 00707 VEHUPFLG
052593,000390: 36,3742 75766 DOCSM1
052594,000391: 36,3743 27002 MOVEALEM
052595,000392: 36,3744 77624 CALL
052596,000393: 36,3745 20263 SVDWN2 # STORE DOWNLINK STATE VECTOR
052597,000394: 36,3746 77624 FAZAB4 CALL
052598,000395: 36,3747 56751 GRP2PC # PHASE CHANGE
052599,000396: 36,3750 77214 BOFF VLOAD
052600,000397: 36,3751 02746 DMENFLG
052601,000398: 36,3752 75755 FAZAB5 # 6 DIMENSIONAL
052602,000399: 36,3753 03450 TX789 # 9 DIMENSIONAL
052603,000400: 36,3754 01701 STORE X789
052604,000401: 36,3755 66150 FAZAB5 LXA,1 SXA,1
052605,000402: 36,3756 02317 EGRESS
052606,000403: 36,3757 00052 QPRET
052607,000404: 36,3760 77776 EXIT
052608,000405: 36,3761 04715 TC POSTJUMP # EXIT
052609,000406: 36,3762 27463 CADR INTWAKE
052610,000407: 36,3763 52034 DOCSM RTB GOTO
052611,000408: 36,3764 26756 MOVEPCSM
052612,000409: 36,3765 75675 FAZAB
052613,000410: 36,3766 45034 DOCSM1 RTB CALL
052614,000411: 36,3767 26727 MOVEACSM
052615,000412: 36,3770 20237 SVDWN1 # STORE DOWNLINK STATE VECTOR
052616,000413: 36,3771 77650 GOTO
052617,000414: 36,3772 75746 FAZAB4
052618,000415: 36,3773 26,3333 ZEROO = ZEROVECS
052619,000416: 36,3773 00066 54DD DEC 54 B-14
052620,000417: 36,3774 77771 6DD DEC -6 B-14
052621,000418: 36,3775 00014 12DD DEC 12 B-14
052622,000419: 14,2000 SETLOC MEASINC2
052623,000420: 14,2000 BANK
052624,000421: 14,3403 COUNT* $$/INCOR
052625,000422:
052626,000423: 14,3403 51575 NEWZCOMP VLOAD ABVAL
052627,000424: 14,3404 02723 ZI
052628,000425: 14,3405 24045 STOVL NORMZI
052629,000426: 14,3406 02731 ZI +6
052630,000427: 14,3407 41446 ABVAL PUSH
052631,000428: 14,3410 50025 DSU BMN
052632,000429: 14,3411 00045 NORMZI
052633,000430: 14,3412 31415 +3
052634,000431: 14,3413 45545 DLOAD STADR
052635,000432: 14,3414 77732 STORE NORMZI
052636,000433: 14,3415 51575 VLOAD ABVAL
052637,000434: 14,3416 02737 ZI +12D
052638,000435: 14,3417 45206 PUSH DSU
052639,000436: 14,3420 00045 NORMZI
052640,000437: 14,3421 71240 BMN DLOAD
052641,000438: 14,3422 73635 NEWZCMP1
052642,000439: 14,3423 77626 STADR
052643,000440: 14,3424 43732 STCALL NORMZI # LARGEST ABVAL
052644,000441: 14,3425 73635 NEWZCMP1
052645,000442:
052646,000443: 35,2000 SETLOC MEASINC3
052647,000444: 35,2000 BANK
052648,000445:
052649,000446: 35,3635 66145 NEWZCMP1 DLOAD SXA,1
052650,000447: 35,3636 00045 NORMZI
052651,000448: 35,3637 00044 NORMZI # SAVE X1
052652,000449: 35,3640 62101 NORM INCR,1
052653,000450: 35,3641 00047 X1
052654,000451: 35,3642 00002 DEC 2 B-14
052655,000452: 35,3643 53775 VLOAD VSL*
052656,000453: 35,3644 02723 ZI
052657,000454: 35,3645 20201 0,1
052658,000455: 35,3646 26723 STOVL ZI
052659,000456: 35,3647 02731 ZI +6
052660,000457: 35,3650 77657 VSL*
052661,000458: 35,3651 20201 0,1
052662,000459: 35,3652 26731 STOVL ZI +6
052663,000460: 35,3653 02737 ZI +12D
052664,000461: 35,3654 66057 VSL* SXA,1
052665,000462: 35,3655 20201 0,1
052666,000463: 35,3656 00045 NORMZI +1 # SAVE SHIFT
052667,000464: 35,3657 02737 STORE ZI +12D
052668,000465: 35,3660 54150 LXA,1 XSU,1
052669,000466: 35,3661 02215 NORMGAM
052670,000467: 35,3662 00045 NORMZI +1
052671,000468: 35,3663 77660 XSU,1
052672,000469: 35,3664 00045 NORMZI +1
052673,000470: 35,3665 70130 SXA,1 LXC,1
052674,000471: 35,3666 02215 NORMGAM
052675,000472: 35,3667 00045 NORMZI +1
052676,000473: 35,3670 40270 XAD,1 SETPD
052677,000474: 35,3671 00044 NORMZI
052678,000475: 35,3672 00003 2D
052679,000476: 35,3673 77650 GOTO
052680,000477: 35,3674 75416 INCOR2 -3
052681,000478: 35,3675 NORMZI = 36D
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc