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