Source Code
![]() |
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
054511,000002: ## Copyright: Public domain.
054512,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
054513,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
054514,000005: ## It is part of the source code for the Command Module's (CM)
054515,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
054516,000007: ## Assembler: yaYUL
054517,000008: ## Contact: Ron Burkey <info@sandroid.org>.
054518,000009: ## Website: www.ibiblio.org/apollo.
054519,000010: ## Pages: 1252-1261
054520,000011: ## Mod history: 2009-05-14 RSB Adapted from the Colossus249/ file of the
054521,000012: ## same name, using Comanche055 page images.
054522,000013: ## 2010-08-24 JL Fixed some indentation.
054523,000014: ## 2016-12-21 RSB Proofed comment text using octopus/ProoferComments
054524,000015: ## and corrected the errors found.
054525,000016: ## 2017-01-15 RSB Fixed comment-text errors identified in
054526,000017: ## diff'ing against Colossus 249.
054527,000018: ##
054528,000019: ## This source code has been transcribed or otherwise adapted from digitized
054529,000020: ## images of a hardcopy from the MIT Museum. The digitization was performed
054530,000021: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
054531,000022: ## thanks to both. The images (with suitable reduction in storage size and
054532,000023: ## consequent reduction in image quality as well) are available online at
054533,000024: ## www.ibiblio.org/apollo. If for some reason you find that the images are
054534,000025: ## illegible, contact me at info@sandroid.org about getting access to the
054535,000026: ## (much) higher-quality images which Paul actually created.
054536,000027: ##
054537,000028: ## Notations on the hardcopy document read, in part:
054538,000029: ##
054539,000030: ## Assemble revision 055 of AGC program Comanche by NASA
054540,000031: ## 2021113-051. 10:28 APR. 1, 1969
054541,000032: ##
054542,000033: ## This AGC program shall also be referred to as
054543,000034: ## Colossus 2A
054544,000035:
![]() |
Page 1252 |
054546,000037: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
054547,000038: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
054548,000039: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
054549,000040: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
054550,000041: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
054551,000042: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
054552,000043: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
054553,000044:
054554,000045: # INPUT
054555,000046: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
054556,000047: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
054557,000048: # VARIANCE = VARIANCE (SCALAR)
054558,000049: # DELTAQ = MEASURED DEVIATION (SCALAR)
054559,000050: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
054560,000051:
054561,000052: # OUTPUT
054562,000053: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
054563,000054: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
054564,000055: # GAMMA = SCALAR
054565,000056: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
054566,000057:
054567,000058: # CALLING SEQUENCE
054568,000059: # L CALL INCORP1
054569,000060:
054570,000061: # NORMAL EXIT
054571,000062: # L+1 OF CALLING SEQUENCE
054572,000063:
054573,000064: 37,3773 BANK 37
054574,000065: 36,2000 SETLOC MEASINC
054575,000066: 36,2000 BANK
054576,000067:
054577,000068: 36,3254 COUNT* $$/INCOR
054578,000069:
054579,000070: 36,3254 E5,1400 EBANK= W
054580,000071:
054581,000072: 36,3254 77620 INCORP1 STQ
054582,000073: 36,3255 02317 EGRESS
054583,000074: 36,3256 66370 AXT,1 SSP
054584,000075: 36,3257 00066 54D
054585,000076: 36,3260 00051 S1
054586,000077: 36,3261 00022 18D # IX1 = 54 S1= 18
054587,000078: 36,3262 66374 AXT,2 SSP
054588,000079: 36,3263 00022 18D
054589,000080: 36,3264 00052 S2
054590,000081: 36,3265 00006 6 # IX2 = 18 S2=6
054591,000082: 36,3266 63775 Z123 VLOAD MXV*
054592,000083: 36,3267 03502 BVECTOR # BVECTOR (0)
054593,000084: 36,3270 02467 W +54D,1
054594,000085: 36,3271 12745 STORE ZI +18D,2
054595,000086: 36,3272 77775 VLOAD
054596,000087: 36,3273 03510 BVECTOR +6 # BVECTOR (1)
![]() |
Page 1253 |
054598,000089: 36,3274 52717 MXV* VAD*
054599,000090: 36,3275 02555 W +108D,1
054600,000091: 36,3276 75032 ZI +18D,2
054601,000092: 36,3277 12745 STORE ZI +18D,2
054602,000093: 36,3300 77775 VLOAD
054603,000094: 36,3301 03516 BVECTOR +12D # BVECTOR (2)
054604,000095: 36,3302 52717 MXV* VAD*
054605,000096: 36,3303 02643 W +162D,1
054606,000097: 36,3304 75032 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
054607,000098: 36,3305 12745 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
054608,000099: 36,3306 77700 TIX,1
054609,000100: 36,3307 75310 INCOR1
054610,000101: 36,3310 43104 INCOR1 TIX,2 BON
054611,000102: 36,3311 75266 Z123 # LOOP FOR Z1,Z2,Z3
054612,000103: 36,3312 02706 DMENFLG
054613,000104: 36,3313 75317 INCOR1A
054614,000105: 36,3314 77775 VLOAD
054615,000106: 36,3315 15335 ZEROVECS
054616,000107: 36,3316 02737 STORE ZI +12D
054617,000108: 36,3317 77201 INCOR1A SETPD VLOAD
054618,000109: 36,3320 00001 0
054619,000110: 36,3321 02723 ZI
054620,000111: 36,3322 47036 VSQ RTB
054621,000112: 36,3323 45565 TPMODE
054622,000113: 36,3324 47515 PDVL VSQ
054623,000114: 36,3325 02731 ZI +6
054624,000115: 36,3326 76234 RTB TAD
054625,000116: 36,3327 45565 TPMODE
054626,000117: 36,3330 47515 PDVL VSQ
054627,000118: 36,3331 02737 ZI +12D
054628,000119: 36,3332 76234 RTB TAD
054629,000120: 36,3333 45565 TPMODE
054630,000121: 36,3334 77171 TAD AXT,2
054631,000122: 36,3335 03526 VARIANCE
054632,000123: 36,3336 00000 0
054633,000124: 36,3337 01257 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
054634,000125: 36,3340 40151 TLOAD BOV
054635,000126: 36,3341 03526 VARIANCE # CLEAR OVFIND
054636,000127: 36,3342 75343 +1
054637,000128: 36,3343 01262 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
054638,000129: 36,3344 77654 BZE
054639,000130: 36,3345 75354 INCOR1C
054640,000131: 36,3346 40112 INCOR1B SL2 BOV
054641,000132: 36,3347 75354 INCOR1C
054642,000133: 36,3350 01262 STORE TEMPVAR
054643,000134: 36,3351 52114 INCR,2 GOTO
054644,000135: 36,3352 00001 DEC 1 B-14
054645,000136: 36,3353 75346 INCOR1B
054646,000137: 36,3354 61551 INCOR1C TLOAD ROUND
054647,000138: 36,3355 01257 TRIPA
![]() |
Page 1254 |
054649,000140: 36,3356 75405 DMP SQRT
054650,000141: 36,3357 01262 TEMPVAR
054651,000142: 36,3360 76257 SL* TAD
054652,000143: 36,3361 57576 0,2
054653,000144: 36,3362 01257 TRIPA
054654,000145: 36,3363 63101 NORM INCR,2
054655,000146: 36,3364 00050 X2
054656,000147: 36,3365 77775 DEC -2 B-14
054657,000148: 36,3366 77134 SXA,2 AXT,2
054658,000149: 36,3367 02215 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
054659,000150: 36,3370 00242 162D
054660,000151: 36,3371 40265 BDDV SETPD
054661,000152: 36,3372 15325 DP1/4TH
054662,000153: 36,3373 00001 0
054663,000154: 36,3374 03456 STORE GAMMA
054664,000155: 36,3375 60351 TLOAD NORM
054665,000156: 36,3376 01257 TRIPA
054666,000157: 36,3377 00047 X1
054667,000158: 36,3400 65345 DLOAD PDDL # PD 0-1 = NORM (A)
054668,000159: 36,3401 00155 MPAC
054669,000160: 36,3402 03524 DELTAQ
054670,000161: 36,3403 77701 NORM
054671,000162: 36,3404 00051 S1
054672,000163: 36,3405 70460 XSU,1 SR1
054673,000164: 36,3406 00050 S1
054674,000165: 36,3407 41471 DDV PUSH # PD 0-1 = DELTAQ/A
054675,000166: 36,3410 77650 GOTO
054676,000167: 36,3411 31377 NEWZCOMP
054677,000168: 36,3412 77731 -3 SSP
054678,000169: 36,3413 00052 S2
054679,000170: 36,3414 00066 54D
054680,000171: 36,3415 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
054681,000172: 36,3416 02723 ZI
054682,000173: 36,3417 75134 W +162D,2
054683,000174: 36,3420 77206 PUSH VLOAD
054684,000175: 36,3421 02731 ZI +6
054685,000176: 36,3422 53303 VXM* VAD
054686,000177: 36,3423 75112 W +180D,2
054687,000178: 36,3424 77206 PUSH VLOAD
054688,000179: 36,3425 02737 ZI +12D
054689,000180: 36,3426 53303 VXM* VAD
054690,000181: 36,3427 75070 W +198D,2
054691,000182: 36,3430 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
054692,000183: 36,3431 75415 INCOR2
054693,000184: 36,3432 45575 VLOAD STADR
054694,000185: 36,3433 74303 STORE OMEGA +12D
054695,000186: 36,3434 45575 VLOAD STADR
054696,000187: 36,3435 74311 STORE OMEGA +6
054697,000188: 36,3436 45575 VLOAD STADR
054698,000189: 36,3437 74317 STORE OMEGA
![]() |
Page 1255 |
054700,000191: 36,3440 77214 BON VLOAD
054701,000192: 36,3441 02706 DMENFLG
054702,000193: 36,3442 75445 INCOR2AB
054703,000194: 36,3443 15335 ZEROVECS
054704,000195: 36,3444 03474 STORE OMEGA +12D
054705,000196: 36,3445 66374 INCOR2AB AXT,2 SSP
054706,000197: 36,3446 00022 18D
054707,000198: 36,3447 00052 S2
054708,000199: 36,3450 00006 6
054709,000200: 36,3451 77773 INCOR3 VLOAD*
054710,000201: 36,3452 74275 OMEGA +18D,2
054711,000202: 36,3453 53761 VXSC VSL*
054712,000203: 36,3454 00001 0 # DELTAQ/A
054713,000204: 36,3455 20201 0,1
054714,000205: 36,3456 11301 STORE DELTAX +18D,2
054715,000206: 36,3457 77304 TIX,2 VLOAD
054716,000207: 36,3460 75451 INCOR3
054717,000208: 36,3461 01265 DELTAX +6
054718,000209: 36,3462 77732 VSL3
054719,000210: 36,3463 01265 STORE DELTAX +6
054720,000211: 36,3464 77650 GOTO
054721,000212: 36,3465 02317 EGRESS
054722,000213:
![]() |
Page 1256 |
054724,000215: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
054725,000216: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
054726,000217: # LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
054727,000218:
054728,000219: # INPUT
054729,000220: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
054730,000221: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
054731,000222: # W = ERROR TRANSITION MATRIX
054732,000223: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
054733,000224: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
054734,000225: # GAMMA = SCALAR FOR INCORPORATION
054735,000226: # ZI = VECTOR USED IN INCORPORATION
054736,000227: # OMEGA = WEIGHTING VECTOR
054737,000228:
054738,000229: # OUTPUT
054739,000230: # UPDATED PERMANENT STATE VECTOR
054740,000231:
054741,000232: # CALLING SEQUENCE
054742,000233: # L CALL INCORP2
054743,000234:
054744,000235: # NORMAL EXIT
054745,000236: # L+1 OF CALLING SEQUENCE
054746,000237:
054747,000238:
054748,000239: 36,2000 SETLOC MEASINC1
054749,000240: 36,2000 BANK
054750,000241:
054751,000242: 36,3466 COUNT* $$/INCOR
054752,000243:
054753,000244: 36,3466 45020 INCORP2 STQ CALL
054754,000245: 36,3467 02317 EGRESS
054755,000246: 36,3470 27442 INTSTALL
054756,000247: 36,3471 74375 VLOAD VXSC # CALC. GAMMA*OMEGA1,2,3
054757,000248: 36,3472 03460 OMEGA
054758,000249: 36,3473 03456 GAMMA
054759,000250: 36,3474 26643 STOVL OMEGAM1
054760,000251: 36,3475 03466 OMEGA +6
054761,000252: 36,3476 77761 VXSC
054762,000253: 36,3477 03456 GAMMA
054763,000254: 36,3500 26651 STOVL OMEGAM2
054764,000255: 36,3501 03474 OMEGA +12D
054765,000256: 36,3502 77761 VXSC
054766,000257: 36,3503 03456 GAMMA
054767,000258: 36,3504 02657 STORE OMEGAM3
054768,000259: 36,3505 77776 EXIT
054769,000260: 36,3506 33767 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
054770,000261: 36,3507 55252 TS WIXA
054771,000262: 36,3510 55253 TS WIXB
054772,000263: 36,3511 35021 CAF ZERO
054773,000264: 36,3512 55254 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
054774,000265: 36,3513 55255 TS ZIXB
054775,000266: 36,3514 05412 FAZA TC PHASCHNG
![]() |
Page 1257 |
054777,000268: 36,3515 04022 OCT 04022
054778,000269: 36,3516 05546 TC UPFLAG
054779,000270: 36,3517 00236 ADRES REINTFLG
054780,000271: 36,3520 31253 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
054781,000272: 36,3521 55252 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
054782,000273: 36,3522 31255 CA ZIXB
054783,000274: 36,3523 55254 TS ZIXA
054784,000275: 36,3524 06006 TC INTPRET
054785,000276: 36,3525 73150 LXA,1 LXA,2
054786,000277: 36,3526 01252 WIXA
054787,000278: 36,3527 01254 ZIXA
054788,000279: 36,3530 70731 SSP DLOAD*
054789,000280: 36,3531 00051 S1
054790,000281: 36,3532 00006 6
054791,000282: 36,3533 75054 ZI,2
054792,000283: 36,3534 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
054793,000284: 36,3535 00052 S2
054794,000285: 36,3536 65161 VXSC XCHX,2
054795,000286: 36,3537 02643 OMEGAM1
054796,000287: 36,3540 00051 S2
054797,000288: 36,3541 57144 LXC,2 XAD,2
054798,000289: 36,3542 00047 X2
054799,000290: 36,3543 02215 NORMGAM
054800,000291: 36,3544 65057 VSL* XCHX,2
054801,000292: 36,3545 57576 0,2
054802,000293: 36,3546 00051 S2
054803,000294: 36,3547 77653 VAD*
054804,000295: 36,3550 02467 W +54D,1
054805,000296: 36,3551 02665 STORE HOLDW
054806,000297: 36,3552 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
054807,000298: 36,3553 75054 ZI,2
054808,000299: 36,3554 74301 NORM VXSC
054809,000300: 36,3555 00052 S2
054810,000301: 36,3556 02651 OMEGAM2
054811,000302: 36,3557 71124 XCHX,2 LXC,2
054812,000303: 36,3560 00051 S2
054813,000304: 36,3561 00047 X2
054814,000305: 36,3562 53674 XAD,2 VSL*
054815,000306: 36,3563 02215 NORMGAM
054816,000307: 36,3564 57576 0,2
054817,000308: 36,3565 52724 XCHX,2 VAD*
054818,000309: 36,3566 00051 S2
054819,000310: 36,3567 02555 W +108D,1
054820,000311: 36,3570 02673 STORE HOLDW +6
054821,000312: 36,3571 77614 BOFF
054822,000313: 36,3572 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
054823,000314: 36,3573 75613 FAZB
054824,000315: 36,3574 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
054825,000316: 36,3575 75054 ZI,2
054826,000317: 36,3576 74301 NORM VXSC
![]() |
Page 1258 |
054828,000319: 36,3577 00052 S2
054829,000320: 36,3600 02657 OMEGAM3
054830,000321: 36,3601 71124 XCHX,2 LXC,2
054831,000322: 36,3602 00051 S2
054832,000323: 36,3603 00047 X2
054833,000324: 36,3604 53674 XAD,2 VSL*
054834,000325: 36,3605 02215 NORMGAM
054835,000326: 36,3606 57576 0,2
054836,000327: 36,3607 52724 XCHX,2 VAD*
054837,000328: 36,3610 00051 S2
054838,000329: 36,3611 02643 W +162D,1
054839,000330: 36,3612 02701 STORE HOLDW +12D
054840,000331: 36,3613 77624 FAZB CALL
054841,000332: 36,3614 56750 GRP2PC
054842,000333: 36,3615 77776 EXIT
054843,000334: 36,3616 31252 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
054844,000335: 36,3617 63770 AD 6DD # TEMP REG TO PERM W MATRIX
054845,000336: 36,3620 55253 TS WIXB
054846,000337: 36,3621 31254 CA ZIXA
054847,000338: 36,3622 67715 AD MINUS2
054848,000339: 36,3623 55255 TS ZIXB
054849,000340: 36,3624 06006 TC INTPRET
054850,000341: 36,3625 66350 LXA,1 SSP
054851,000342: 36,3626 01252 WIXA
054852,000343: 36,3627 00051 S1
054853,000344: 36,3630 00006 6
054854,000345: 36,3631 77775 VLOAD
054855,000346: 36,3632 02665 HOLDW
054856,000347: 36,3633 06467 STORE W +54D,1
054857,000348: 36,3634 77775 VLOAD
054858,000349: 36,3635 02673 HOLDW +6
054859,000350: 36,3636 06555 STORE W +108D,1
054860,000351: 36,3637 77214 BOFF VLOAD
054861,000352: 36,3640 02746 DMENFLG
054862,000353: 36,3641 75651 FAZB5
054863,000354: 36,3642 02701 HOLDW +12D
054864,000355: 36,3643 06643 STORE W +162D,1
054865,000356: 36,3644 52100 FAZB2 TIX,1 GOTO
054866,000357: 36,3645 75647 +2
054867,000358: 36,3646 75657 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
054868,000359: 36,3647 77634 RTB
054869,000360: 36,3650 75514 FAZA
054870,000361: 36,3651 43335 FAZB5 SLOAD DAD
054871,000362: 36,3652 01256 ZIXB
054872,000363: 36,3653 35772 12DD
054873,000364: 36,3654 52030 BHIZ GOTO
054874,000365: 36,3655 75657 FAZC
054875,000366: 36,3656 75644 FAZB2
054876,000367: 36,3657 77624 FAZC CALL
054877,000368: 36,3660 56750 GRP2PC
![]() |
Page 1259 |
054879,000370: 36,3661 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
054880,000371: 36,3662 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
054881,000372: 36,3663 01273 DELTAX +12D # INCORPORATION FOR X789
054882,000373: 36,3664 03450 STORE TX789
054883,000374: 36,3665 47014 BON RTB
054884,000375: 36,3666 00707 VEHUPFLG
054885,000376: 36,3667 75757 DOCSM
054886,000377: 36,3670 27014 MOVEPLEM
054887,000378: 36,3671 77004 FAZAB BOVB AXT,2
054888,000379: 36,3672 57352 TCDANZIG
054889,000380: 36,3673 00000 0
054890,000381: 36,3674 77014 BOFF AXT,2
054891,000382: 36,3675 04343 MOONTHIS
054892,000383: 36,3676 75700 +2
054893,000384: 36,3677 00002 2
054894,000385: 36,3700 53775 VLOAD VSR*
054895,000386: 36,3701 01257 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
054896,000387: 36,3702 57205 0 -7,2
054897,000388: 36,3703 40055 VAD BOV
054898,000389: 36,3704 01521 TDELTAV
054899,000390: 36,3705 75717 FAZAB1
054900,000391: 36,3706 25521 STOVL TDELTAV
054901,000392: 36,3707 01265 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
054902,000393: 36,3710 53257 VSR* VAD
054903,000394: 36,3711 57202 0 -4,2
054904,000395: 36,3712 01527 TNUV
054905,000396: 36,3713 77600 BOV
054906,000397: 36,3714 75723 FAZAB2
054907,000398: 36,3715 35527 STCALL TNUV
054908,000399: 36,3716 75732 FAZAB3
054909,000400: 36,3717 53375 FAZAB1 VLOAD VAD
054910,000401: 36,3720 01535 RCV
054911,000402: 36,3721 01257 DELTAX
054912,000403: 36,3722 01535 STORE RCV
054913,000404: 36,3723 53375 FAZAB2 VLOAD VAD
054914,000405: 36,3724 01543 VCV
054915,000406: 36,3725 01265 DELTAX +6
054916,000407: 36,3726 01543 STORE VCV
054917,000408: 36,3727 45134 SXA,2 CALL
054918,000409: 36,3730 02150 PBODY
054919,000410: 36,3731 23421 RECTIFY
054920,000411: 36,3732 77624 FAZAB3 CALL
054921,000412: 36,3733 56750 GRP2PC
054922,000413: 36,3734 47014 BON RTB
054923,000414: 36,3735 00707 VEHUPFLG
054924,000415: 36,3736 75762 DOCSM1
054925,000416: 36,3737 26773 MOVEALEM
054926,000417: 36,3740 77624 CALL
054927,000418: 36,3741 20263 SVDWN2 # STORE DOWNLINK STATE VECTOR
054928,000419: 36,3742 77624 FAZAB4 CALL
![]() |
Page 1260 |
054930,000421: 36,3743 56750 GRP2PC # PHASE CHANGE
054931,000422: 36,3744 77214 BOFF VLOAD
054932,000423: 36,3745 02746 DMENFLG
054933,000424: 36,3746 75751 FAZAB5 # 6 DIMENSIONAL
054934,000425: 36,3747 03450 TX789 # 9 DIMENSIONAL
054935,000426: 36,3750 01701 STORE X789
054936,000427: 36,3751 66150 FAZAB5 LXA,1 SXA,1
054937,000428: 36,3752 02317 EGRESS
054938,000429: 36,3753 00052 QPRET
054939,000430: 36,3754 77776 EXIT
054940,000431: 36,3755 04701 TC POSTJUMP # EXIT
054941,000432: 36,3756 27457 CADR INTWAKE
054942,000433: 36,3757 52034 DOCSM RTB GOTO
054943,000434: 36,3760 26747 MOVEPCSM
054944,000435: 36,3761 75671 FAZAB
054945,000436: 36,3762 45034 DOCSM1 RTB CALL
054946,000437: 36,3763 26720 MOVEACSM
054947,000438: 36,3764 20237 SVDWN1 # STORE DOWNLINK STATE VECTOR
054948,000439: 36,3765 77650 GOTO
054949,000440: 36,3766 75742 FAZAB4
054950,000441: 36,3767 26,3334 ZEROD = ZEROVECS
054951,000442: 36,3767 00066 54DD DEC 54 B-14
054952,000443: 36,3770 77771 6DD DEC -6 B-14
054953,000444: 36,3771 00014 12DD DEC 12 B-14
054954,000445: 14,2000 SETLOC MEASINC2
054955,000446: 14,2000 BANK
054956,000447: 14,3377 COUNT* $$/INCOR
054957,000448:
054958,000449: 14,3377 51575 NEWZCOMP VLOAD ABVAL
054959,000450: 14,3400 02723 ZI
054960,000451: 14,3401 24045 STOVL NORMZI
054961,000452: 14,3402 02731 ZI +6
054962,000453: 14,3403 41446 ABVAL PUSH
054963,000454: 14,3404 50025 DSU BMN
054964,000455: 14,3405 00045 NORMZI
054965,000456: 14,3406 31411 +3
054966,000457: 14,3407 45545 DLOAD STADR
054967,000458: 14,3410 77732 STORE NORMZI
054968,000459: 14,3411 51575 VLOAD ABVAL
054969,000460: 14,3412 02737 ZI +12D
054970,000461: 14,3413 45206 PUSH DSU
054971,000462: 14,3414 00045 NORMZI
054972,000463: 14,3415 71240 BMN DLOAD
054973,000464: 14,3416 73635 NEWZCMP1
054974,000465: 14,3417 77626 STADR
054975,000466: 14,3420 43732 STCALL NORMZI # LARGEST ABVAL
054976,000467: 14,3421 73635 NEWZCMP1
054977,000468:
054978,000469: 35,2000 SETLOC MEASINC3
054979,000470: 35,2000 BANK
054980,000471:
![]() |
Page 1261 |
054982,000473: 35,3635 66145 NEWZCMP1 DLOAD SXA,1
054983,000474: 35,3636 00045 NORMZI
054984,000475: 35,3637 00044 NORMZI # SAVE X1
054985,000476: 35,3640 62101 NORM INCR,1
054986,000477: 35,3641 00047 X1
054987,000478: 35,3642 00002 DEC 2 B-14
054988,000479: 35,3643 53775 VLOAD VSL*
054989,000480: 35,3644 02723 ZI
054990,000481: 35,3645 20201 0,1
054991,000482: 35,3646 26723 STOVL ZI
054992,000483: 35,3647 02731 ZI +6
054993,000484: 35,3650 77657 VSL*
054994,000485: 35,3651 20201 0,1
054995,000486: 35,3652 26731 STOVL ZI +6
054996,000487: 35,3653 02737 ZI +12D
054997,000488: 35,3654 66057 VSL* SXA,1
054998,000489: 35,3655 20201 0,1
054999,000490: 35,3656 00045 NORMZI +1 # SAVE SHIFT
055000,000491: 35,3657 02737 STORE ZI +12D
055001,000492: 35,3660 54150 LXA,1 XSU,1
055002,000493: 35,3661 02215 NORMGAM
055003,000494: 35,3662 00045 NORMZI +1
055004,000495: 35,3663 77660 XSU,1
055005,000496: 35,3664 00045 NORMZI +1
055006,000497: 35,3665 70130 SXA,1 LXC,1
055007,000498: 35,3666 02215 NORMGAM
055008,000499: 35,3667 00045 NORMZI +1
055009,000500: 35,3670 40270 XAD,1 SETPD
055010,000501: 35,3671 00044 NORMZI
055011,000502: 35,3672 00003 2D
055012,000503: 35,3673 77650 GOTO
055013,000504: 35,3674 75412 INCOR2 -3
055014,000505: 35,3675 NORMZI = 36D
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc