Source Code
|
These source-code files are part of a reconstructed copy of Comanche 44, the
initial release (though not the final mission release) of the Apollo 10
Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases
were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction
is believed to be exactly accurate, but in the absence of an actual Apollo-era
listing of Comanche 44, some explanation of the reconstruction process is needed
to insure confidence in that accuracy.
The starting point was the source code of Comanche 51
(separately previously reconstructed from an Apollo-era listing of Comanche 55,
flown on Apollo 11). Comanche 51 source code was then modified
by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed
Comanche 44 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 printout,
although the source code would likely have different page numbers in a contemporary
Comanche 44 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 51. Here's a guide to the Apollo documentation referenced
in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the
explanatory annotations, there is also
a step-by-step 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.
|
053722,000002: ## Copyright: Public domain.
053723,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
053724,000004: ## Purpose: A section of Comanche revision 044.
053725,000005: ## It is part of the reconstructed source code for the
053726,000006: ## original release of the flight software for the Command
053727,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
053728,000008: ## The code has been recreated from a copy of Comanche 055. It
053729,000009: ## has been adapted such that the resulting bugger words
053730,000010: ## exactly match those specified for Comanche 44 in NASA drawing
053731,000011: ## 2021153D, which gives relatively high confidence that the
053732,000012: ## reconstruction is correct.
053733,000013: ## Assembler: yaYUL
053734,000014: ## Contact: Ron Burkey <info@sandroid.org>.
053735,000015: ## Website: www.ibiblio.org/apollo/index.html
053736,000016: ## Mod history: 2020-12-03 MAS Created from Comanche 51.
053737,000017: ## 2021-05-30 ABS ZEROD -> ZEROO
053738,000018:
|
|
Page 1252
|
053740,000020: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
053741,000021: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
053742,000022: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
053743,000023: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
053744,000024: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
053745,000025: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
053746,000026: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
053747,000027:
053748,000028: # INPUT
053749,000029: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
053750,000030: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
053751,000031: # VARIANCE = VARIANCE (SCALAR)
053752,000032: # DELTAQ = MEASURED DEVIATION (SCALAR)
053753,000033: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
053754,000034:
053755,000035: # OUTPUT
053756,000036: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
053757,000037: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
053758,000038: # GAMMA = SCALAR
053759,000039: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
053760,000040:
053761,000041: # CALLING SEQUENCE
053762,000042: # L CALL INCORP1
053763,000043:
053764,000044: # NORMAL EXIT
053765,000045: # L+1 OF CALLING SEQUENCE
053766,000046:
053767,000047: 37,3772 BANK 37
053768,000048: 36,2000 SETLOC MEASINC
053769,000049: 36,2000 BANK
053770,000050:
053771,000051: 36,3242 COUNT* $$/INCOR
053772,000052:
053773,000053: 36,3242 E5,1400 EBANK= W
053774,000054:
053775,000055: 36,3242 77620 INCORP1 STQ
053776,000056: 36,3243 02317 EGRESS
053777,000057: 36,3244 66370 AXT,1 SSP
053778,000058: 36,3245 00066 54D
053779,000059: 36,3246 00051 S1
053780,000060: 36,3247 00022 18D # IX1 = 54 S1= 18
053781,000061: 36,3250 66374 AXT,2 SSP
053782,000062: 36,3251 00022 18D
053783,000063: 36,3252 00052 S2
053784,000064: 36,3253 00006 6 # IX2 = 18 S2=6
053785,000065: 36,3254 63775 Z123 VLOAD MXV*
053786,000066: 36,3255 03502 BVECTOR # BVECTOR (0)
053787,000067: 36,3256 02467 W +54D,1
053788,000068: 36,3257 12745 STORE ZI +18D,2
053789,000069: 36,3260 77775 VLOAD
053790,000070: 36,3261 03510 BVECTOR +6 # BVECTOR (1)
|
|
Page 1253
|
053792,000072: 36,3262 52717 MXV* VAD*
053793,000073: 36,3263 02555 W +108D,1
053794,000074: 36,3264 75032 ZI +18D,2
053795,000075: 36,3265 12745 STORE ZI +18D,2
053796,000076: 36,3266 77775 VLOAD
053797,000077: 36,3267 03516 BVECTOR +12D # BVECTOR (2)
053798,000078: 36,3270 52717 MXV* VAD*
053799,000079: 36,3271 02643 W +162D,1
053800,000080: 36,3272 75032 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
053801,000081: 36,3273 12745 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
053802,000082: 36,3274 77700 TIX,1
053803,000083: 36,3275 75276 INCOR1
053804,000084: 36,3276 43104 INCOR1 TIX,2 BON
053805,000085: 36,3277 75254 Z123 # LOOP FOR Z1,Z2,Z3
053806,000086: 36,3300 02706 DMENFLG
053807,000087: 36,3301 75305 INCOR1A
053808,000088: 36,3302 77775 VLOAD
053809,000089: 36,3303 15335 ZEROVECS
053810,000090: 36,3304 02737 STORE ZI +12D
053811,000091: 36,3305 77201 INCOR1A SETPD VLOAD
053812,000092: 36,3306 00001 0
053813,000093: 36,3307 02723 ZI
053814,000094: 36,3310 47036 VSQ RTB
053815,000095: 36,3311 45565 TPMODE
053816,000096: 36,3312 47515 PDVL VSQ
053817,000097: 36,3313 02731 ZI +6
053818,000098: 36,3314 76234 RTB TAD
053819,000099: 36,3315 45565 TPMODE
053820,000100: 36,3316 47515 PDVL VSQ
053821,000101: 36,3317 02737 ZI +12D
053822,000102: 36,3320 76234 RTB TAD
053823,000103: 36,3321 45565 TPMODE
053824,000104: 36,3322 77171 TAD AXT,2
053825,000105: 36,3323 03526 VARIANCE
053826,000106: 36,3324 00000 0
053827,000107: 36,3325 01257 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
053828,000108: 36,3326 40151 TLOAD BOV
053829,000109: 36,3327 03526 VARIANCE # CLEAR OVFIND
053830,000110: 36,3330 75331 +1
053831,000111: 36,3331 01262 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
053832,000112: 36,3332 77654 BZE
053833,000113: 36,3333 75342 INCOR1C
053834,000114: 36,3334 40112 INCOR1B SL2 BOV
053835,000115: 36,3335 75342 INCOR1C
053836,000116: 36,3336 01262 STORE TEMPVAR
053837,000117: 36,3337 52114 INCR,2 GOTO
053838,000118: 36,3340 00001 DEC 1 B-14
053839,000119: 36,3341 75334 INCOR1B
053840,000120: 36,3342 61551 INCOR1C TLOAD ROUND
053841,000121: 36,3343 01257 TRIPA
|
|
Page 1254
|
053843,000123: 36,3344 75405 DMP SQRT
053844,000124: 36,3345 01262 TEMPVAR
053845,000125: 36,3346 76257 SL* TAD
053846,000126: 36,3347 57576 0,2
053847,000127: 36,3350 01257 TRIPA
053848,000128: 36,3351 63101 NORM INCR,2
053849,000129: 36,3352 00050 X2
053850,000130: 36,3353 77775 DEC -2 B-14
053851,000131: 36,3354 77134 SXA,2 AXT,2
053852,000132: 36,3355 02215 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
053853,000133: 36,3356 00242 162D
053854,000134: 36,3357 40265 BDDV SETPD
053855,000135: 36,3360 15325 DP1/4TH
053856,000136: 36,3361 00001 0
053857,000137: 36,3362 03456 STORE GAMMA
053858,000138: 36,3363 60351 TLOAD NORM
053859,000139: 36,3364 01257 TRIPA
053860,000140: 36,3365 00047 X1
053861,000141: 36,3366 65345 DLOAD PDDL # PD 0-1 = NORM (A)
053862,000142: 36,3367 00155 MPAC
053863,000143: 36,3370 03524 DELTAQ
053864,000144: 36,3371 77701 NORM
053865,000145: 36,3372 00051 S1
053866,000146: 36,3373 70460 XSU,1 SR1
053867,000147: 36,3374 00050 S1
053868,000148: 36,3375 41471 DDV PUSH # PD 0-1 = DELTAQ/A
053869,000149: 36,3376 77650 GOTO
053870,000150: 36,3377 31400 NEWZCOMP
053871,000151: 36,3400 77731 -3 SSP
053872,000152: 36,3401 00052 S2
053873,000153: 36,3402 00066 54D
053874,000154: 36,3403 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
053875,000155: 36,3404 02723 ZI
053876,000156: 36,3405 75134 W +162D,2
053877,000157: 36,3406 77206 PUSH VLOAD
053878,000158: 36,3407 02731 ZI +6
053879,000159: 36,3410 53303 VXM* VAD
053880,000160: 36,3411 75112 W +180D,2
053881,000161: 36,3412 77206 PUSH VLOAD
053882,000162: 36,3413 02737 ZI +12D
053883,000163: 36,3414 53303 VXM* VAD
053884,000164: 36,3415 75070 W +198D,2
053885,000165: 36,3416 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
053886,000166: 36,3417 75403 INCOR2
053887,000167: 36,3420 45575 VLOAD STADR
053888,000168: 36,3421 74303 STORE OMEGA +12D
053889,000169: 36,3422 45575 VLOAD STADR
053890,000170: 36,3423 74311 STORE OMEGA +6
053891,000171: 36,3424 45575 VLOAD STADR
053892,000172: 36,3425 74317 STORE OMEGA
|
|
Page 1255
|
053894,000174: 36,3426 77214 BON VLOAD
053895,000175: 36,3427 02706 DMENFLG
053896,000176: 36,3430 75433 INCOR2AB
053897,000177: 36,3431 15335 ZEROVECS
053898,000178: 36,3432 03474 STORE OMEGA +12D
053899,000179: 36,3433 66374 INCOR2AB AXT,2 SSP
053900,000180: 36,3434 00022 18D
053901,000181: 36,3435 00052 S2
053902,000182: 36,3436 00006 6
053903,000183: 36,3437 77773 INCOR3 VLOAD*
053904,000184: 36,3440 74275 OMEGA +18D,2
053905,000185: 36,3441 53761 VXSC VSL*
053906,000186: 36,3442 00001 0 # DELTAQ/A
053907,000187: 36,3443 20201 0,1
053908,000188: 36,3444 11301 STORE DELTAX +18D,2
053909,000189: 36,3445 77304 TIX,2 VLOAD
053910,000190: 36,3446 75437 INCOR3
053911,000191: 36,3447 01265 DELTAX +6
053912,000192: 36,3450 77732 VSL3
053913,000193: 36,3451 01265 STORE DELTAX +6
053914,000194: 36,3452 77650 GOTO
053915,000195: 36,3453 02317 EGRESS
053916,000196:
|
|
Page 1256
|
053918,000198: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
053919,000199: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
053920,000200: # LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
053921,000201:
053922,000202: # INPUT
053923,000203: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
053924,000204: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
053925,000205: # W = ERROR TRANSITION MATRIX
053926,000206: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
053927,000207: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
053928,000208: # GAMMA = SCALAR FOR INCORPORATION
053929,000209: # ZI = VECTOR USED IN INCORPORATION
053930,000210: # OMEGA = WEIGHTING VECTOR
053931,000211:
053932,000212: # OUTPUT
053933,000213: # UPDATED PERMANENT STATE VECTOR
053934,000214:
053935,000215: # CALLING SEQUENCE
053936,000216: # L CALL INCORP2
053937,000217:
053938,000218: # NORMAL EXIT
053939,000219: # L+1 OF CALLING SEQUENCE
053940,000220:
053941,000221:
053942,000222: 36,2000 SETLOC MEASINC1
053943,000223: 36,2000 BANK
053944,000224:
053945,000225: 36,3454 COUNT* $$/INCOR
053946,000226:
053947,000227: 36,3454 45020 INCORP2 STQ CALL
053948,000228: 36,3455 02317 EGRESS
053949,000229: 36,3456 27442 INTSTALL
053950,000230: 36,3457 74375 VLOAD VXSC # CALC. GAMMA*OMEGA1,2,3
053951,000231: 36,3460 03460 OMEGA
053952,000232: 36,3461 03456 GAMMA
053953,000233: 36,3462 26643 STOVL OMEGAM1
053954,000234: 36,3463 03466 OMEGA +6
053955,000235: 36,3464 77761 VXSC
053956,000236: 36,3465 03456 GAMMA
053957,000237: 36,3466 26651 STOVL OMEGAM2
053958,000238: 36,3467 03474 OMEGA +12D
053959,000239: 36,3470 77761 VXSC
053960,000240: 36,3471 03456 GAMMA
053961,000241: 36,3472 02657 STORE OMEGAM3
053962,000242: 36,3473 77776 EXIT
053963,000243: 36,3474 33755 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
053964,000244: 36,3475 55252 TS WIXA
053965,000245: 36,3476 55253 TS WIXB
053966,000246: 36,3477 35021 CAF ZERO
053967,000247: 36,3500 55254 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
053968,000248: 36,3501 55255 TS ZIXB
053969,000249: 36,3502 05412 FAZA TC PHASCHNG
|
|
Page 1257
|
053971,000251: 36,3503 04022 OCT 04022
053972,000252: 36,3504 05546 TC UPFLAG
053973,000253: 36,3505 00236 ADRES REINTFLG
053974,000254: 36,3506 31253 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
053975,000255: 36,3507 55252 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
053976,000256: 36,3510 31255 CA ZIXB
053977,000257: 36,3511 55254 TS ZIXA
053978,000258: 36,3512 06006 TC INTPRET
053979,000259: 36,3513 73150 LXA,1 LXA,2
053980,000260: 36,3514 01252 WIXA
053981,000261: 36,3515 01254 ZIXA
053982,000262: 36,3516 70731 SSP DLOAD*
053983,000263: 36,3517 00051 S1
053984,000264: 36,3520 00006 6
053985,000265: 36,3521 75054 ZI,2
053986,000266: 36,3522 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
053987,000267: 36,3523 00052 S2
053988,000268: 36,3524 65161 VXSC XCHX,2
053989,000269: 36,3525 02643 OMEGAM1
053990,000270: 36,3526 00051 S2
053991,000271: 36,3527 57144 LXC,2 XAD,2
053992,000272: 36,3530 00047 X2
053993,000273: 36,3531 02215 NORMGAM
053994,000274: 36,3532 65057 VSL* XCHX,2
053995,000275: 36,3533 57576 0,2
053996,000276: 36,3534 00051 S2
053997,000277: 36,3535 77653 VAD*
053998,000278: 36,3536 02467 W +54D,1
053999,000279: 36,3537 02665 STORE HOLDW
054000,000280: 36,3540 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
054001,000281: 36,3541 75054 ZI,2
054002,000282: 36,3542 74301 NORM VXSC
054003,000283: 36,3543 00052 S2
054004,000284: 36,3544 02651 OMEGAM2
054005,000285: 36,3545 71124 XCHX,2 LXC,2
054006,000286: 36,3546 00051 S2
054007,000287: 36,3547 00047 X2
054008,000288: 36,3550 53674 XAD,2 VSL*
054009,000289: 36,3551 02215 NORMGAM
054010,000290: 36,3552 57576 0,2
054011,000291: 36,3553 52724 XCHX,2 VAD*
054012,000292: 36,3554 00051 S2
054013,000293: 36,3555 02555 W +108D,1
054014,000294: 36,3556 02673 STORE HOLDW +6
054015,000295: 36,3557 77614 BOFF
054016,000296: 36,3560 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
054017,000297: 36,3561 75601 FAZB
054018,000298: 36,3562 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
054019,000299: 36,3563 75054 ZI,2
054020,000300: 36,3564 74301 NORM VXSC
|
|
Page 1258
|
054022,000302: 36,3565 00052 S2
054023,000303: 36,3566 02657 OMEGAM3
054024,000304: 36,3567 71124 XCHX,2 LXC,2
054025,000305: 36,3570 00051 S2
054026,000306: 36,3571 00047 X2
054027,000307: 36,3572 53674 XAD,2 VSL*
054028,000308: 36,3573 02215 NORMGAM
054029,000309: 36,3574 57576 0,2
054030,000310: 36,3575 52724 XCHX,2 VAD*
054031,000311: 36,3576 00051 S2
054032,000312: 36,3577 02643 W +162D,1
054033,000313: 36,3600 02701 STORE HOLDW +12D
054034,000314: 36,3601 77624 FAZB CALL
054035,000315: 36,3602 56750 GRP2PC
054036,000316: 36,3603 77776 EXIT
054037,000317: 36,3604 31252 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
054038,000318: 36,3605 63756 AD 6DD # TEMP REG TO PERM W MATRIX
054039,000319: 36,3606 55253 TS WIXB
054040,000320: 36,3607 31254 CA ZIXA
054041,000321: 36,3610 67715 AD MINUS2
054042,000322: 36,3611 55255 TS ZIXB
054043,000323: 36,3612 06006 TC INTPRET
054044,000324: 36,3613 66350 LXA,1 SSP
054045,000325: 36,3614 01252 WIXA
054046,000326: 36,3615 00051 S1
054047,000327: 36,3616 00006 6
054048,000328: 36,3617 77775 VLOAD
054049,000329: 36,3620 02665 HOLDW
054050,000330: 36,3621 06467 STORE W +54D,1
054051,000331: 36,3622 77775 VLOAD
054052,000332: 36,3623 02673 HOLDW +6
054053,000333: 36,3624 06555 STORE W +108D,1
054054,000334: 36,3625 77214 BOFF VLOAD
054055,000335: 36,3626 02746 DMENFLG
054056,000336: 36,3627 75637 FAZB5
054057,000337: 36,3630 02701 HOLDW +12D
054058,000338: 36,3631 06643 STORE W +162D,1
054059,000339: 36,3632 52100 FAZB2 TIX,1 GOTO
054060,000340: 36,3633 75635 +2
054061,000341: 36,3634 75645 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
054062,000342: 36,3635 77634 RTB
054063,000343: 36,3636 75502 FAZA
054064,000344: 36,3637 43335 FAZB5 SLOAD DAD
054065,000345: 36,3640 01256 ZIXB
054066,000346: 36,3641 35760 12DD
054067,000347: 36,3642 52030 BHIZ GOTO
054068,000348: 36,3643 75645 FAZC
054069,000349: 36,3644 75632 FAZB2
054070,000350: 36,3645 77624 FAZC CALL
054071,000351: 36,3646 56750 GRP2PC
|
|
Page 1259
|
054073,000353: 36,3647 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
054074,000354: 36,3650 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
054075,000355: 36,3651 01273 DELTAX +12D # INCORPORATION FOR X789
054076,000356: 36,3652 03450 STORE TX789
054077,000357: 36,3653 47014 BON RTB
054078,000358: 36,3654 00707 VEHUPFLG
054079,000359: 36,3655 75745 DOCSM
054080,000360: 36,3656 27014 MOVEPLEM
054081,000361: 36,3657 77004 FAZAB BOVB AXT,2
054082,000362: 36,3660 57352 TCDANZIG
054083,000363: 36,3661 00000 0
054084,000364: 36,3662 77014 BOFF AXT,2
054085,000365: 36,3663 04343 MOONTHIS
054086,000366: 36,3664 75666 +2
054087,000367: 36,3665 00002 2
054088,000368: 36,3666 53775 VLOAD VSR*
054089,000369: 36,3667 01257 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
054090,000370: 36,3670 57205 0 -7,2
054091,000371: 36,3671 40055 VAD BOV
054092,000372: 36,3672 01521 TDELTAV
054093,000373: 36,3673 75705 FAZAB1
054094,000374: 36,3674 25521 STOVL TDELTAV
054095,000375: 36,3675 01265 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
054096,000376: 36,3676 53257 VSR* VAD
054097,000377: 36,3677 57202 0 -4,2
054098,000378: 36,3700 01527 TNUV
054099,000379: 36,3701 77600 BOV
054100,000380: 36,3702 75711 FAZAB2
054101,000381: 36,3703 35527 STCALL TNUV
054102,000382: 36,3704 75720 FAZAB3
054103,000383: 36,3705 53375 FAZAB1 VLOAD VAD
054104,000384: 36,3706 01535 RCV
054105,000385: 36,3707 01257 DELTAX
054106,000386: 36,3710 01535 STORE RCV
054107,000387: 36,3711 53375 FAZAB2 VLOAD VAD
054108,000388: 36,3712 01543 VCV
054109,000389: 36,3713 01265 DELTAX +6
054110,000390: 36,3714 01543 STORE VCV
054111,000391: 36,3715 45134 SXA,2 CALL
054112,000392: 36,3716 02150 PBODY
054113,000393: 36,3717 23421 RECTIFY
054114,000394: 36,3720 77624 FAZAB3 CALL
054115,000395: 36,3721 56750 GRP2PC
054116,000396: 36,3722 47014 BON RTB
054117,000397: 36,3723 00707 VEHUPFLG
054118,000398: 36,3724 75750 DOCSM1
054119,000399: 36,3725 26773 MOVEALEM
054120,000400: 36,3726 77624 CALL
054121,000401: 36,3727 20263 SVDWN2 # STORE DOWNLINK STATE VECTOR
054122,000402: 36,3730 77624 FAZAB4 CALL
|
|
Page 1260
|
054124,000404: 36,3731 56750 GRP2PC # PHASE CHANGE
054125,000405: 36,3732 77214 BOFF VLOAD
054126,000406: 36,3733 02746 DMENFLG
054127,000407: 36,3734 75737 FAZAB5 # 6 DIMENSIONAL
054128,000408: 36,3735 03450 TX789 # 9 DIMENSIONAL
054129,000409: 36,3736 01701 STORE X789
054130,000410: 36,3737 66150 FAZAB5 LXA,1 SXA,1
054131,000411: 36,3740 02317 EGRESS
054132,000412: 36,3741 00052 QPRET
054133,000413: 36,3742 77776 EXIT
054134,000414: 36,3743 04701 TC POSTJUMP # EXIT
054135,000415: 36,3744 27457 CADR INTWAKE
054136,000416: 36,3745 52034 DOCSM RTB GOTO
054137,000417: 36,3746 26747 MOVEPCSM
054138,000418: 36,3747 75657 FAZAB
054139,000419: 36,3750 45034 DOCSM1 RTB CALL
054140,000420: 36,3751 26720 MOVEACSM
054141,000421: 36,3752 20237 SVDWN1 # STORE DOWNLINK STATE VECTOR
054142,000422: 36,3753 77650 GOTO
054143,000423: 36,3754 75730 FAZAB4
054144,000424: 36,3755 26,3334 ZEROO = ZEROVECS
054145,000425: 36,3755 00066 54DD DEC 54 B-14
054146,000426: 36,3756 77771 6DD DEC -6 B-14
054147,000427: 36,3757 00014 12DD DEC 12 B-14
054148,000428: 14,2000 SETLOC MEASINC2
054149,000429: 14,2000 BANK
054150,000430: 14,3400 COUNT* $$/INCOR
054151,000431:
054152,000432: 14,3400 51575 NEWZCOMP VLOAD ABVAL
054153,000433: 14,3401 02723 ZI
054154,000434: 14,3402 24045 STOVL NORMZI
054155,000435: 14,3403 02731 ZI +6
054156,000436: 14,3404 41446 ABVAL PUSH
054157,000437: 14,3405 50025 DSU BMN
054158,000438: 14,3406 00045 NORMZI
054159,000439: 14,3407 31412 +3
054160,000440: 14,3410 45545 DLOAD STADR
054161,000441: 14,3411 77732 STORE NORMZI
054162,000442: 14,3412 51575 VLOAD ABVAL
054163,000443: 14,3413 02737 ZI +12D
054164,000444: 14,3414 45206 PUSH DSU
054165,000445: 14,3415 00045 NORMZI
054166,000446: 14,3416 71240 BMN DLOAD
054167,000447: 14,3417 73642 NEWZCMP1
054168,000448: 14,3420 77626 STADR
054169,000449: 14,3421 43732 STCALL NORMZI # LARGEST ABVAL
054170,000450: 14,3422 73642 NEWZCMP1
054171,000451:
054172,000452: 35,2000 SETLOC MEASINC3
054173,000453: 35,2000 BANK
054174,000454:
|
|
Page 1261
|
054176,000456: 35,3642 66145 NEWZCMP1 DLOAD SXA,1
054177,000457: 35,3643 00045 NORMZI
054178,000458: 35,3644 00044 NORMZI # SAVE X1
054179,000459: 35,3645 62101 NORM INCR,1
054180,000460: 35,3646 00047 X1
054181,000461: 35,3647 00002 DEC 2 B-14
054182,000462: 35,3650 53775 VLOAD VSL*
054183,000463: 35,3651 02723 ZI
054184,000464: 35,3652 20201 0,1
054185,000465: 35,3653 26723 STOVL ZI
054186,000466: 35,3654 02731 ZI +6
054187,000467: 35,3655 77657 VSL*
054188,000468: 35,3656 20201 0,1
054189,000469: 35,3657 26731 STOVL ZI +6
054190,000470: 35,3660 02737 ZI +12D
054191,000471: 35,3661 66057 VSL* SXA,1
054192,000472: 35,3662 20201 0,1
054193,000473: 35,3663 00045 NORMZI +1 # SAVE SHIFT
054194,000474: 35,3664 02737 STORE ZI +12D
054195,000475: 35,3665 54150 LXA,1 XSU,1
054196,000476: 35,3666 02215 NORMGAM
054197,000477: 35,3667 00045 NORMZI +1
054198,000478: 35,3670 77660 XSU,1
054199,000479: 35,3671 00045 NORMZI +1
054200,000480: 35,3672 70130 SXA,1 LXC,1
054201,000481: 35,3673 02215 NORMGAM
054202,000482: 35,3674 00045 NORMZI +1
054203,000483: 35,3675 40270 XAD,1 SETPD
054204,000484: 35,3676 00044 NORMZI
054205,000485: 35,3677 00003 2D
054206,000486: 35,3700 77650 GOTO
054207,000487: 35,3701 75400 INCOR2 -3
054208,000488: 35,3702 NORMZI = 36D
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc