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