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