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