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