Source Code
|
These source-code files are part of a reconstructed copy of Comanche 051, the
original release of the Apollo 11 Command Module (CM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Comanche 055 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes related to the R-2 lunar potential model, using hints from program
comments and change-indicating asterisks in the Comanche 055 listing as a guide.
The reconstruction was verified by matching memory-bank checksums to those listed
in drawing 2021153D. Note that page numbers in the reconstructed code match those
on the Comanche 055 printout, although the added code would likely have changed page
numbers for a real Comanche 051 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
053148,000002: ## Copyright: Public domain.
053149,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
053150,000004: ## Purpose: A section of Comanche revision 051.
053151,000005: ## It is part of the reconstructed source code for the
053152,000006: ## original release of the flight software for the Command
053153,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
053154,000008: ## The code has been recreated from a copy of Comanche 055. It
053155,000009: ## has been adapted such that the resulting bugger words
053156,000010: ## exactly match those specified for Comanche 51 in NASA drawing
053157,000011: ## 2021153D, which gives relatively high confidence that the
053158,000012: ## reconstruction is correct.
053159,000013: ## Reference: pp. 1252-1261
053160,000014: ## Assembler: yaYUL
053161,000015: ## Contact: Ron Burkey <info@sandroid.org>.
053162,000016: ## Website: www.ibiblio.org/apollo/index.html
053163,000017: ## Mod history: 2019-07-30 MAS Created from Comanche 55.
053164,000018:
|
|
Page 1252
|
053166,000020: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
053167,000021: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
053168,000022: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
053169,000023: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
053170,000024: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
053171,000025: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
053172,000026: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
053173,000027:
053174,000028: # INPUT
053175,000029: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
053176,000030: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
053177,000031: # VARIANCE = VARIANCE (SCALAR)
053178,000032: # DELTAQ = MEASURED DEVIATION (SCALAR)
053179,000033: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
053180,000034:
053181,000035: # OUTPUT
053182,000036: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
053183,000037: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
053184,000038: # GAMMA = SCALAR
053185,000039: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
053186,000040:
053187,000041: # CALLING SEQUENCE
053188,000042: # L CALL INCORP1
053189,000043:
053190,000044: # NORMAL EXIT
053191,000045: # L+1 OF CALLING SEQUENCE
053192,000046:
053193,000047: 37,3773 BANK 37
053194,000048: 36,2000 SETLOC MEASINC
053195,000049: 36,2000 BANK
053196,000050:
053197,000051: 36,3254 COUNT* $$/INCOR
053198,000052:
053199,000053: 36,3254 E5,1400 EBANK= W
053200,000054:
053201,000055: 36,3254 77620 INCORP1 STQ
053202,000056: 36,3255 02317 EGRESS
053203,000057: 36,3256 66370 AXT,1 SSP
053204,000058: 36,3257 00066 54D
053205,000059: 36,3260 00051 S1
053206,000060: 36,3261 00022 18D # IX1 = 54 S1= 18
053207,000061: 36,3262 66374 AXT,2 SSP
053208,000062: 36,3263 00022 18D
053209,000063: 36,3264 00052 S2
053210,000064: 36,3265 00006 6 # IX2 = 18 S2=6
053211,000065: 36,3266 63775 Z123 VLOAD MXV*
053212,000066: 36,3267 03502 BVECTOR # BVECTOR (0)
053213,000067: 36,3270 02467 W +54D,1
053214,000068: 36,3271 12745 STORE ZI +18D,2
053215,000069: 36,3272 77775 VLOAD
053216,000070: 36,3273 03510 BVECTOR +6 # BVECTOR (1)
|
|
Page 1253
|
053218,000072: 36,3274 52717 MXV* VAD*
053219,000073: 36,3275 02555 W +108D,1
053220,000074: 36,3276 75032 ZI +18D,2
053221,000075: 36,3277 12745 STORE ZI +18D,2
053222,000076: 36,3300 77775 VLOAD
053223,000077: 36,3301 03516 BVECTOR +12D # BVECTOR (2)
053224,000078: 36,3302 52717 MXV* VAD*
053225,000079: 36,3303 02643 W +162D,1
053226,000080: 36,3304 75032 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
053227,000081: 36,3305 12745 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
053228,000082: 36,3306 77700 TIX,1
053229,000083: 36,3307 75310 INCOR1
053230,000084: 36,3310 43104 INCOR1 TIX,2 BON
053231,000085: 36,3311 75266 Z123 # LOOP FOR Z1,Z2,Z3
053232,000086: 36,3312 02706 DMENFLG
053233,000087: 36,3313 75317 INCOR1A
053234,000088: 36,3314 77775 VLOAD
053235,000089: 36,3315 15335 ZEROVECS
053236,000090: 36,3316 02737 STORE ZI +12D
053237,000091: 36,3317 77201 INCOR1A SETPD VLOAD
053238,000092: 36,3320 00001 0
053239,000093: 36,3321 02723 ZI
053240,000094: 36,3322 47036 VSQ RTB
053241,000095: 36,3323 45565 TPMODE
053242,000096: 36,3324 47515 PDVL VSQ
053243,000097: 36,3325 02731 ZI +6
053244,000098: 36,3326 76234 RTB TAD
053245,000099: 36,3327 45565 TPMODE
053246,000100: 36,3330 47515 PDVL VSQ
053247,000101: 36,3331 02737 ZI +12D
053248,000102: 36,3332 76234 RTB TAD
053249,000103: 36,3333 45565 TPMODE
053250,000104: 36,3334 77171 TAD AXT,2
053251,000105: 36,3335 03526 VARIANCE
053252,000106: 36,3336 00000 0
053253,000107: 36,3337 01257 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
053254,000108: 36,3340 40151 TLOAD BOV
053255,000109: 36,3341 03526 VARIANCE # CLEAR OVFIND
053256,000110: 36,3342 75343 +1
053257,000111: 36,3343 01262 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
053258,000112: 36,3344 77654 BZE
053259,000113: 36,3345 75354 INCOR1C
053260,000114: 36,3346 40112 INCOR1B SL2 BOV
053261,000115: 36,3347 75354 INCOR1C
053262,000116: 36,3350 01262 STORE TEMPVAR
053263,000117: 36,3351 52114 INCR,2 GOTO
053264,000118: 36,3352 00001 DEC 1 B-14
053265,000119: 36,3353 75346 INCOR1B
053266,000120: 36,3354 61551 INCOR1C TLOAD ROUND
053267,000121: 36,3355 01257 TRIPA
|
|
Page 1254
|
053269,000123: 36,3356 75405 DMP SQRT
053270,000124: 36,3357 01262 TEMPVAR
053271,000125: 36,3360 76257 SL* TAD
053272,000126: 36,3361 57576 0,2
053273,000127: 36,3362 01257 TRIPA
053274,000128: 36,3363 63101 NORM INCR,2
053275,000129: 36,3364 00050 X2
053276,000130: 36,3365 77775 DEC -2 B-14
053277,000131: 36,3366 77134 SXA,2 AXT,2
053278,000132: 36,3367 02215 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
053279,000133: 36,3370 00242 162D
053280,000134: 36,3371 40265 BDDV SETPD
053281,000135: 36,3372 15325 DP1/4TH
053282,000136: 36,3373 00001 0
053283,000137: 36,3374 03456 STORE GAMMA
053284,000138: 36,3375 60351 TLOAD NORM
053285,000139: 36,3376 01257 TRIPA
053286,000140: 36,3377 00047 X1
053287,000141: 36,3400 65345 DLOAD PDDL # PD 0-1 = NORM (A)
053288,000142: 36,3401 00155 MPAC
053289,000143: 36,3402 03524 DELTAQ
053290,000144: 36,3403 77701 NORM
053291,000145: 36,3404 00051 S1
053292,000146: 36,3405 70460 XSU,1 SR1
053293,000147: 36,3406 00050 S1
053294,000148: 36,3407 41471 DDV PUSH # PD 0-1 = DELTAQ/A
053295,000149: 36,3410 77650 GOTO
053296,000150: 36,3411 31377 NEWZCOMP
053297,000151: 36,3412 77731 -3 SSP
053298,000152: 36,3413 00052 S2
053299,000153: 36,3414 00066 54D
053300,000154: 36,3415 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
053301,000155: 36,3416 02723 ZI
053302,000156: 36,3417 75134 W +162D,2
053303,000157: 36,3420 77206 PUSH VLOAD
053304,000158: 36,3421 02731 ZI +6
053305,000159: 36,3422 53303 VXM* VAD
053306,000160: 36,3423 75112 W +180D,2
053307,000161: 36,3424 77206 PUSH VLOAD
053308,000162: 36,3425 02737 ZI +12D
053309,000163: 36,3426 53303 VXM* VAD
053310,000164: 36,3427 75070 W +198D,2
053311,000165: 36,3430 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
053312,000166: 36,3431 75415 INCOR2
053313,000167: 36,3432 45575 VLOAD STADR
053314,000168: 36,3433 74303 STORE OMEGA +12D
053315,000169: 36,3434 45575 VLOAD STADR
053316,000170: 36,3435 74311 STORE OMEGA +6
053317,000171: 36,3436 45575 VLOAD STADR
053318,000172: 36,3437 74317 STORE OMEGA
|
|
Page 1255
|
053320,000174: 36,3440 77214 BON VLOAD
053321,000175: 36,3441 02706 DMENFLG
053322,000176: 36,3442 75445 INCOR2AB
053323,000177: 36,3443 15335 ZEROVECS
053324,000178: 36,3444 03474 STORE OMEGA +12D
053325,000179: 36,3445 66374 INCOR2AB AXT,2 SSP
053326,000180: 36,3446 00022 18D
053327,000181: 36,3447 00052 S2
053328,000182: 36,3450 00006 6
053329,000183: 36,3451 77773 INCOR3 VLOAD*
053330,000184: 36,3452 74275 OMEGA +18D,2
053331,000185: 36,3453 53761 VXSC VSL*
053332,000186: 36,3454 00001 0 # DELTAQ/A
053333,000187: 36,3455 20201 0,1
053334,000188: 36,3456 11301 STORE DELTAX +18D,2
053335,000189: 36,3457 77304 TIX,2 VLOAD
053336,000190: 36,3460 75451 INCOR3
053337,000191: 36,3461 01265 DELTAX +6
053338,000192: 36,3462 77732 VSL3
053339,000193: 36,3463 01265 STORE DELTAX +6
053340,000194: 36,3464 77650 GOTO
053341,000195: 36,3465 02317 EGRESS
053342,000196:
|
|
Page 1256
|
053344,000198: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
053345,000199: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
053346,000200: # LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
053347,000201:
053348,000202: # INPUT
053349,000203: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
053350,000204: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
053351,000205: # W = ERROR TRANSITION MATRIX
053352,000206: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
053353,000207: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
053354,000208: # GAMMA = SCALAR FOR INCORPORATION
053355,000209: # ZI = VECTOR USED IN INCORPORATION
053356,000210: # OMEGA = WEIGHTING VECTOR
053357,000211:
053358,000212: # OUTPUT
053359,000213: # UPDATED PERMANENT STATE VECTOR
053360,000214:
053361,000215: # CALLING SEQUENCE
053362,000216: # L CALL INCORP2
053363,000217:
053364,000218: # NORMAL EXIT
053365,000219: # L+1 OF CALLING SEQUENCE
053366,000220:
053367,000221:
053368,000222: 36,2000 SETLOC MEASINC1
053369,000223: 36,2000 BANK
053370,000224:
053371,000225: 36,3466 COUNT* $$/INCOR
053372,000226:
053373,000227: 36,3466 45020 INCORP2 STQ CALL
053374,000228: 36,3467 02317 EGRESS
053375,000229: 36,3470 27442 INTSTALL
053376,000230: 36,3471 74375 VLOAD VXSC # CALC. GAMMA*OMEGA1,2,3
053377,000231: 36,3472 03460 OMEGA
053378,000232: 36,3473 03456 GAMMA
053379,000233: 36,3474 26643 STOVL OMEGAM1
053380,000234: 36,3475 03466 OMEGA +6
053381,000235: 36,3476 77761 VXSC
053382,000236: 36,3477 03456 GAMMA
053383,000237: 36,3500 26651 STOVL OMEGAM2
053384,000238: 36,3501 03474 OMEGA +12D
053385,000239: 36,3502 77761 VXSC
053386,000240: 36,3503 03456 GAMMA
053387,000241: 36,3504 02657 STORE OMEGAM3
053388,000242: 36,3505 77776 EXIT
053389,000243: 36,3506 33767 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
053390,000244: 36,3507 55252 TS WIXA
053391,000245: 36,3510 55253 TS WIXB
053392,000246: 36,3511 35021 CAF ZERO
053393,000247: 36,3512 55254 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
053394,000248: 36,3513 55255 TS ZIXB
053395,000249: 36,3514 05412 FAZA TC PHASCHNG
|
|
Page 1257
|
053397,000251: 36,3515 04022 OCT 04022
053398,000252: 36,3516 05546 TC UPFLAG
053399,000253: 36,3517 00236 ADRES REINTFLG
053400,000254: 36,3520 31253 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
053401,000255: 36,3521 55252 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
053402,000256: 36,3522 31255 CA ZIXB
053403,000257: 36,3523 55254 TS ZIXA
053404,000258: 36,3524 06006 TC INTPRET
053405,000259: 36,3525 73150 LXA,1 LXA,2
053406,000260: 36,3526 01252 WIXA
053407,000261: 36,3527 01254 ZIXA
053408,000262: 36,3530 70731 SSP DLOAD*
053409,000263: 36,3531 00051 S1
053410,000264: 36,3532 00006 6
053411,000265: 36,3533 75054 ZI,2
053412,000266: 36,3534 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
053413,000267: 36,3535 00052 S2
053414,000268: 36,3536 65161 VXSC XCHX,2
053415,000269: 36,3537 02643 OMEGAM1
053416,000270: 36,3540 00051 S2
053417,000271: 36,3541 57144 LXC,2 XAD,2
053418,000272: 36,3542 00047 X2
053419,000273: 36,3543 02215 NORMGAM
053420,000274: 36,3544 65057 VSL* XCHX,2
053421,000275: 36,3545 57576 0,2
053422,000276: 36,3546 00051 S2
053423,000277: 36,3547 77653 VAD*
053424,000278: 36,3550 02467 W +54D,1
053425,000279: 36,3551 02665 STORE HOLDW
053426,000280: 36,3552 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
053427,000281: 36,3553 75054 ZI,2
053428,000282: 36,3554 74301 NORM VXSC
053429,000283: 36,3555 00052 S2
053430,000284: 36,3556 02651 OMEGAM2
053431,000285: 36,3557 71124 XCHX,2 LXC,2
053432,000286: 36,3560 00051 S2
053433,000287: 36,3561 00047 X2
053434,000288: 36,3562 53674 XAD,2 VSL*
053435,000289: 36,3563 02215 NORMGAM
053436,000290: 36,3564 57576 0,2
053437,000291: 36,3565 52724 XCHX,2 VAD*
053438,000292: 36,3566 00051 S2
053439,000293: 36,3567 02555 W +108D,1
053440,000294: 36,3570 02673 STORE HOLDW +6
053441,000295: 36,3571 77614 BOFF
053442,000296: 36,3572 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
053443,000297: 36,3573 75613 FAZB
053444,000298: 36,3574 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
053445,000299: 36,3575 75054 ZI,2
053446,000300: 36,3576 74301 NORM VXSC
|
|
Page 1258
|
053448,000302: 36,3577 00052 S2
053449,000303: 36,3600 02657 OMEGAM3
053450,000304: 36,3601 71124 XCHX,2 LXC,2
053451,000305: 36,3602 00051 S2
053452,000306: 36,3603 00047 X2
053453,000307: 36,3604 53674 XAD,2 VSL*
053454,000308: 36,3605 02215 NORMGAM
053455,000309: 36,3606 57576 0,2
053456,000310: 36,3607 52724 XCHX,2 VAD*
053457,000311: 36,3610 00051 S2
053458,000312: 36,3611 02643 W +162D,1
053459,000313: 36,3612 02701 STORE HOLDW +12D
053460,000314: 36,3613 77624 FAZB CALL
053461,000315: 36,3614 56750 GRP2PC
053462,000316: 36,3615 77776 EXIT
053463,000317: 36,3616 31252 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
053464,000318: 36,3617 63770 AD 6DD # TEMP REG TO PERM W MATRIX
053465,000319: 36,3620 55253 TS WIXB
053466,000320: 36,3621 31254 CA ZIXA
053467,000321: 36,3622 67715 AD MINUS2
053468,000322: 36,3623 55255 TS ZIXB
053469,000323: 36,3624 06006 TC INTPRET
053470,000324: 36,3625 66350 LXA,1 SSP
053471,000325: 36,3626 01252 WIXA
053472,000326: 36,3627 00051 S1
053473,000327: 36,3630 00006 6
053474,000328: 36,3631 77775 VLOAD
053475,000329: 36,3632 02665 HOLDW
053476,000330: 36,3633 06467 STORE W +54D,1
053477,000331: 36,3634 77775 VLOAD
053478,000332: 36,3635 02673 HOLDW +6
053479,000333: 36,3636 06555 STORE W +108D,1
053480,000334: 36,3637 77214 BOFF VLOAD
053481,000335: 36,3640 02746 DMENFLG
053482,000336: 36,3641 75651 FAZB5
053483,000337: 36,3642 02701 HOLDW +12D
053484,000338: 36,3643 06643 STORE W +162D,1
053485,000339: 36,3644 52100 FAZB2 TIX,1 GOTO
053486,000340: 36,3645 75647 +2
053487,000341: 36,3646 75657 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
053488,000342: 36,3647 77634 RTB
053489,000343: 36,3650 75514 FAZA
053490,000344: 36,3651 43335 FAZB5 SLOAD DAD
053491,000345: 36,3652 01256 ZIXB
053492,000346: 36,3653 35772 12DD
053493,000347: 36,3654 52030 BHIZ GOTO
053494,000348: 36,3655 75657 FAZC
053495,000349: 36,3656 75644 FAZB2
053496,000350: 36,3657 77624 FAZC CALL
053497,000351: 36,3660 56750 GRP2PC
|
|
Page 1259
|
053499,000353: 36,3661 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
053500,000354: 36,3662 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
053501,000355: 36,3663 01273 DELTAX +12D # INCORPORATION FOR X789
053502,000356: 36,3664 03450 STORE TX789
053503,000357: 36,3665 47014 BON RTB
053504,000358: 36,3666 00707 VEHUPFLG
053505,000359: 36,3667 75757 DOCSM
053506,000360: 36,3670 27014 MOVEPLEM
053507,000361: 36,3671 77004 FAZAB BOVB AXT,2
053508,000362: 36,3672 57352 TCDANZIG
053509,000363: 36,3673 00000 0
053510,000364: 36,3674 77014 BOFF AXT,2
053511,000365: 36,3675 04343 MOONTHIS
053512,000366: 36,3676 75700 +2
053513,000367: 36,3677 00002 2
053514,000368: 36,3700 53775 VLOAD VSR*
053515,000369: 36,3701 01257 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
053516,000370: 36,3702 57205 0 -7,2
053517,000371: 36,3703 40055 VAD BOV
053518,000372: 36,3704 01521 TDELTAV
053519,000373: 36,3705 75717 FAZAB1
053520,000374: 36,3706 25521 STOVL TDELTAV
053521,000375: 36,3707 01265 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
053522,000376: 36,3710 53257 VSR* VAD
053523,000377: 36,3711 57202 0 -4,2
053524,000378: 36,3712 01527 TNUV
053525,000379: 36,3713 77600 BOV
053526,000380: 36,3714 75723 FAZAB2
053527,000381: 36,3715 35527 STCALL TNUV
053528,000382: 36,3716 75732 FAZAB3
053529,000383: 36,3717 53375 FAZAB1 VLOAD VAD
053530,000384: 36,3720 01535 RCV
053531,000385: 36,3721 01257 DELTAX
053532,000386: 36,3722 01535 STORE RCV
053533,000387: 36,3723 53375 FAZAB2 VLOAD VAD
053534,000388: 36,3724 01543 VCV
053535,000389: 36,3725 01265 DELTAX +6
053536,000390: 36,3726 01543 STORE VCV
053537,000391: 36,3727 45134 SXA,2 CALL
053538,000392: 36,3730 02150 PBODY
053539,000393: 36,3731 23421 RECTIFY
053540,000394: 36,3732 77624 FAZAB3 CALL
053541,000395: 36,3733 56750 GRP2PC
053542,000396: 36,3734 47014 BON RTB
053543,000397: 36,3735 00707 VEHUPFLG
053544,000398: 36,3736 75762 DOCSM1
053545,000399: 36,3737 26773 MOVEALEM
053546,000400: 36,3740 77624 CALL
053547,000401: 36,3741 20263 SVDWN2 # STORE DOWNLINK STATE VECTOR
053548,000402: 36,3742 77624 FAZAB4 CALL
|
|
Page 1260
|
053550,000404: 36,3743 56750 GRP2PC # PHASE CHANGE
053551,000405: 36,3744 77214 BOFF VLOAD
053552,000406: 36,3745 02746 DMENFLG
053553,000407: 36,3746 75751 FAZAB5 # 6 DIMENSIONAL
053554,000408: 36,3747 03450 TX789 # 9 DIMENSIONAL
053555,000409: 36,3750 01701 STORE X789
053556,000410: 36,3751 66150 FAZAB5 LXA,1 SXA,1
053557,000411: 36,3752 02317 EGRESS
053558,000412: 36,3753 00052 QPRET
053559,000413: 36,3754 77776 EXIT
053560,000414: 36,3755 04701 TC POSTJUMP # EXIT
053561,000415: 36,3756 27457 CADR INTWAKE
053562,000416: 36,3757 52034 DOCSM RTB GOTO
053563,000417: 36,3760 26747 MOVEPCSM
053564,000418: 36,3761 75671 FAZAB
053565,000419: 36,3762 45034 DOCSM1 RTB CALL
053566,000420: 36,3763 26720 MOVEACSM
053567,000421: 36,3764 20237 SVDWN1 # STORE DOWNLINK STATE VECTOR
053568,000422: 36,3765 77650 GOTO
053569,000423: 36,3766 75742 FAZAB4
053570,000424: 36,3767 26,3334 ZEROD = ZEROVECS
053571,000425: 36,3767 00066 54DD DEC 54 B-14
053572,000426: 36,3770 77771 6DD DEC -6 B-14
053573,000427: 36,3771 00014 12DD DEC 12 B-14
053574,000428: 14,2000 SETLOC MEASINC2
053575,000429: 14,2000 BANK
053576,000430: 14,3377 COUNT* $$/INCOR
053577,000431:
053578,000432: 14,3377 51575 NEWZCOMP VLOAD ABVAL
053579,000433: 14,3400 02723 ZI
053580,000434: 14,3401 24045 STOVL NORMZI
053581,000435: 14,3402 02731 ZI +6
053582,000436: 14,3403 41446 ABVAL PUSH
053583,000437: 14,3404 50025 DSU BMN
053584,000438: 14,3405 00045 NORMZI
053585,000439: 14,3406 31411 +3
053586,000440: 14,3407 45545 DLOAD STADR
053587,000441: 14,3410 77732 STORE NORMZI
053588,000442: 14,3411 51575 VLOAD ABVAL
053589,000443: 14,3412 02737 ZI +12D
053590,000444: 14,3413 45206 PUSH DSU
053591,000445: 14,3414 00045 NORMZI
053592,000446: 14,3415 71240 BMN DLOAD
053593,000447: 14,3416 73635 NEWZCMP1
053594,000448: 14,3417 77626 STADR
053595,000449: 14,3420 43732 STCALL NORMZI # LARGEST ABVAL
053596,000450: 14,3421 73635 NEWZCMP1
053597,000451:
053598,000452: 35,2000 SETLOC MEASINC3
053599,000453: 35,2000 BANK
053600,000454:
|
|
Page 1261
|
053602,000456: 35,3635 66145 NEWZCMP1 DLOAD SXA,1
053603,000457: 35,3636 00045 NORMZI
053604,000458: 35,3637 00044 NORMZI # SAVE X1
053605,000459: 35,3640 62101 NORM INCR,1
053606,000460: 35,3641 00047 X1
053607,000461: 35,3642 00002 DEC 2 B-14
053608,000462: 35,3643 53775 VLOAD VSL*
053609,000463: 35,3644 02723 ZI
053610,000464: 35,3645 20201 0,1
053611,000465: 35,3646 26723 STOVL ZI
053612,000466: 35,3647 02731 ZI +6
053613,000467: 35,3650 77657 VSL*
053614,000468: 35,3651 20201 0,1
053615,000469: 35,3652 26731 STOVL ZI +6
053616,000470: 35,3653 02737 ZI +12D
053617,000471: 35,3654 66057 VSL* SXA,1
053618,000472: 35,3655 20201 0,1
053619,000473: 35,3656 00045 NORMZI +1 # SAVE SHIFT
053620,000474: 35,3657 02737 STORE ZI +12D
053621,000475: 35,3660 54150 LXA,1 XSU,1
053622,000476: 35,3661 02215 NORMGAM
053623,000477: 35,3662 00045 NORMZI +1
053624,000478: 35,3663 77660 XSU,1
053625,000479: 35,3664 00045 NORMZI +1
053626,000480: 35,3665 70130 SXA,1 LXC,1
053627,000481: 35,3666 02215 NORMGAM
053628,000482: 35,3667 00045 NORMZI +1
053629,000483: 35,3670 40270 XAD,1 SETPD
053630,000484: 35,3671 00044 NORMZI
053631,000485: 35,3672 00003 2D
053632,000486: 35,3673 77650 GOTO
053633,000487: 35,3674 75412 INCOR2 -3
053634,000488: 35,3675 NORMZI = 36D
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc