Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
049372,000002: ## Copyright: Public domain.
049373,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
049374,000004: ## Purpose: The main source file for Luminary revision 069.
049375,000005: ## It is part of the source code for the original release
049376,000006: ## of the flight software for the Lunar Module's (LM) Apollo
049377,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
049378,000008: ## version was Luminary 69 revision 2, which included a
049379,000009: ## newer lunar gravity model and only affected module 2.
049380,000010: ## This file is intended to be a faithful transcription, except
049381,000011: ## that the code format has been changed to conform to the
049382,000012: ## requirements of the yaYUL assembler rather than the
049383,000013: ## original YUL assembler.
049384,000014: ## Reference: pp. 1144-1153
049385,000015: ## Assembler: yaYUL
049386,000016: ## Contact: Ron Burkey <info@sandroid.org>.
049387,000017: ## Website: www.ibiblio.org/apollo/index.html
049388,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
049389,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
049390,000020: ## 2017-01-17 RRB Updated for Luminary 69.
049391,000021: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
049392,000022: ## but no errors found.
049393,000023:
![]() |
Page 1144 |
049395,000025: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
049396,000026: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
049397,000027: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
049398,000028: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
049399,000029: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
049400,000030: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
049401,000031: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
049402,000032:
049403,000033: # INPUT
049404,000034: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1=9DIMENSIONAL
049405,000035: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
049406,000036: # VARIANCE = VARIANCE (SCALAR)
049407,000037: # DELTAQ = MEASURED DEVIATION (SCALAR)
049408,000038: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
049409,000039:
049410,000040: # OUTPUT
049411,000041: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
049412,000042: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
049413,000043: # GAMMA = SCALAR
049414,000044: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
049415,000045: # CALLING SEQUENCE
049416,000046: # L CALL INCORP1
049417,000047:
049418,000048: # NORMAL EXIT
049419,000049: # L+1 OF CALLING SEQUENCE
049420,000050:
049421,000051: 37,3641 BANK 37
049422,000052: 23,2000 SETLOC MEASINC
049423,000053: 23,2000 BANK
049424,000054:
049425,000055: 23,2433 COUNT* $$/INCOR
049426,000056:
049427,000057: 23,2433 E5,1400 EBANK= W
049428,000058:
049429,000059: 23,2433 77620 INCORP1 STQ
049430,000060: 23,2434 02772 EGRESS
049431,000061: 23,2435 66370 AXT,1 SSP
049432,000062: 23,2436 00066 54D
049433,000063: 23,2437 00051 S1
049434,000064: 23,2440 00022 18D # IX1 = 54 S1= 18
049435,000065: 23,2441 66374 AXT,2 SSP
049436,000066: 23,2442 00022 18D
049437,000067: 23,2443 00052 S2
049438,000068: 23,2444 00006 6 # IX2 = 18 S2=6
049439,000069: 23,2445 63775 Z123 VLOAD MXV*
049440,000070: 23,2446 03523 BVECTOR # BVECTOR (0)
049441,000071: 23,2447 02467 W +54D,1
049442,000072: 23,2450 12665 STORE ZI +18D,2
049443,000073: 23,2451 77775 VLOAD
049444,000074: 23,2452 03531 BVECTOR +6 # BVECTOR (1)
![]() |
Page 1145 |
049446,000076: 23,2453 52717 MXV* VAD*
049447,000077: 23,2454 02555 W +108D,1
049448,000078: 23,2455 75112 ZI +18D,2
049449,000079: 23,2456 12665 STORE ZI +18D,2
049450,000080: 23,2457 77775 VLOAD
049451,000081: 23,2460 03537 BVECTOR +12D # BVECTOR (2)
049452,000082: 23,2461 52717 MXV* VAD*
049453,000083: 23,2462 02643 W +162D,1
049454,000084: 23,2463 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
049455,000085: 23,2464 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
049456,000086: 23,2465 77700 TIX,1
049457,000087: 23,2466 46467 INCOR1
049458,000088: 23,2467 43104 INCOR1 TIX,2 BON
049459,000089: 23,2470 46445 Z123 # LOOP FOR Z1,Z2,Z3
049460,000090: 23,2471 02706 DMENFLG
049461,000091: 23,2472 46476 INCOR1A
049462,000092: 23,2473 77775 VLOAD
049463,000093: 23,2474 06424 ZEROVECS
049464,000094: 23,2475 02657 STORE ZI +12D
049465,000095: 23,2476 77201 INCOR1A SETPD VLOAD
049466,000096: 23,2477 00001 0
049467,000097: 23,2500 02643 ZI
049468,000098: 23,2501 47036 VSQ RTB
049469,000099: 23,2502 21537 TPMODE
049470,000100: 23,2503 47515 PDVL VSQ
049471,000101: 23,2504 02651 ZI +6
049472,000102: 23,2505 76234 RTB TAD
049473,000103: 23,2506 21537 TPMODE
049474,000104: 23,2507 47515 PDVL VSQ
049475,000105: 23,2510 02657 ZI +12D
049476,000106: 23,2511 76234 RTB TAD
049477,000107: 23,2512 21537 TPMODE
049478,000108: 23,2513 77171 TAD AXT,2
049479,000109: 23,2514 02707 VARIANCE
049480,000110: 23,2515 00000 0
049481,000111: 23,2516 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
049482,000112: 23,2517 40151 TLOAD BOV
049483,000113: 23,2520 02707 VARIANCE # CLEAR OVFIND
049484,000114: 23,2521 46522 +1
049485,000115: 23,2522 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
049486,000116: 23,2523 77654 BZE
049487,000117: 23,2524 46533 INCOR1C
049488,000118: 23,2525 40112 INCOR1B SL2 BOV
049489,000119: 23,2526 46533 INCOR1C
049490,000120: 23,2527 02670 STORE TEMPVAR
049491,000121: 23,2530 52114 INCR,2 GOTO
049492,000122: 23,2531 00001 DEC 1 B-14
049493,000123: 23,2532 46525 INCOR1B
049494,000124: 23,2533 61551 INCOR1C TLOAD ROUND
049495,000125: 23,2534 02665 TRIPA
![]() |
Page 1146 |
049497,000127: 23,2535 75405 DMP SQRT
049498,000128: 23,2536 02670 TEMPVAR
049499,000129: 23,2537 76257 SL* TAD
049500,000130: 23,2540 57576 0,2
049501,000131: 23,2541 02665 TRIPA
049502,000132: 23,2542 63101 NORM INCR,2
049503,000133: 23,2543 00050 X2
049504,000134: 23,2544 77775 DEC -2 B-14
049505,000135: 23,2545 77134 SXA,2 AXT,2
049506,000136: 23,2546 02103 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
049507,000137: 23,2547 00242 162D
049508,000138: 23,2550 40265 BDDV SETPD
049509,000139: 23,2551 06414 DP1/4TH
049510,000140: 23,2552 00001 0
049511,000141: 23,2553 03476 STORE GAMMA
049512,000142: 23,2554 60351 TLOAD NORM
049513,000143: 23,2555 02665 TRIPA
049514,000144: 23,2556 00047 X1
049515,000145: 23,2557 65345 DLOAD PDDL # PD 0-1 = NORM (A)
049516,000146: 23,2560 00155 MPAC
049517,000147: 23,2561 03545 DELTAQ
049518,000148: 23,2562 77701 NORM
049519,000149: 23,2563 00051 S1
049520,000150: 23,2564 70460 XSU,1 SR1
049521,000151: 23,2565 00050 S1
049522,000152: 23,2566 41471 DDV PUSH # PD 0-1 = DELTAQ/A
049523,000153: 23,2567 77650 GOTO
049524,000154: 23,2570 45647 NEWZCOMP
049525,000155: 23,2571 77731 -3 SSP
049526,000156: 23,2572 00052 S2
049527,000157: 23,2573 00066 54D
049528,000158: 23,2574 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
049529,000159: 23,2575 02643 ZI
049530,000160: 23,2576 75134 W +162D,2
049531,000161: 23,2577 77206 PUSH VLOAD
049532,000162: 23,2600 02651 ZI +6
049533,000163: 23,2601 53303 VXM* VAD
049534,000164: 23,2602 75112 W +180D,2
049535,000165: 23,2603 77206 PUSH VLOAD
049536,000166: 23,2604 02657 ZI +12D
049537,000167: 23,2605 53303 VXM* VAD
049538,000168: 23,2606 75070 W +198D,2
049539,000169: 23,2607 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
049540,000170: 23,2610 46574 INCOR2
049541,000171: 23,2611 45575 VLOAD STADR
049542,000172: 23,2612 74262 STORE OMEGA +12D
049543,000173: 23,2613 45575 VLOAD STADR
049544,000174: 23,2614 74270 STORE OMEGA +6
049545,000175: 23,2615 45575 VLOAD STADR
049546,000176: 23,2616 74276 STORE OMEGA
![]() |
Page 1147 |
049548,000178: 23,2617 77214 BON VLOAD
049549,000179: 23,2620 02706 DMENFLG
049550,000180: 23,2621 46624 INCOR2AB
049551,000181: 23,2622 06424 ZEROVECS
049552,000182: 23,2623 03515 STORE OMEGA +12D
049553,000183: 23,2624 66374 INCOR2AB AXT,2 SSP
049554,000184: 23,2625 00022 18D
049555,000185: 23,2626 00052 S2
049556,000186: 23,2627 00006 6
049557,000187: 23,2630 77773 INCOR3 VLOAD*
049558,000188: 23,2631 74254 OMEGA +18D,2
049559,000189: 23,2632 53761 VXSC VSL*
049560,000190: 23,2633 00001 0 # DELTAQ/A
049561,000191: 23,2634 20201 0,1
049562,000192: 23,2635 12707 STORE DELTAX +18D,2
049563,000193: 23,2636 77304 TIX,2 VLOAD
049564,000194: 23,2637 46630 INCOR3
049565,000195: 23,2640 02673 DELTAX +6
049566,000196: 23,2641 77732 VSL3
049567,000197: 23,2642 02673 STORE DELTAX +6
049568,000198: 23,2643 77650 GOTO
049569,000199: 23,2644 02772 EGRESS
049570,000200:
![]() |
Page 1148 |
049572,000202: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
049573,000203: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
049574,000204: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
049575,000205:
049576,000206: # INPUT
049577,000207: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
049578,000208: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
049579,000209: # W = ERROR TRANSITION MATRIX
049580,000210: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
049581,000211: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
049582,000212: # GAMMA = SCALAR FOR INCORPORATION
049583,000213: # ZI = VECTOR USED IN INCORPORATION
049584,000214: # OMEGA = WEIGHTING VECTOR
049585,000215:
049586,000216: # OUTPUT
049587,000217: # UPDATED PERMANENT STATE VECTOR
049588,000218:
049589,000219: # CALLING SEQUENCE
049590,000220: # L CALL INCORP2
049591,000221:
049592,000222: # NORMAL EXIT
049593,000223: # L+1 OF CALLING SEQUENCE
049594,000224:
049595,000225:
049596,000226: 23,2000 SETLOC MEASINC1
049597,000227: 23,2000 BANK
049598,000228:
049599,000229: 23,2645 COUNT* $$/INCOR
049600,000230:
049601,000231: 23,2645 45020 INCORP2 STQ CALL
049602,000232: 23,2646 02772 EGRESS
049603,000233: 23,2647 27412 INTSTALL
049604,000234: 23,2650 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
049605,000235: 23,2651 03501 OMEGA
049606,000236: 23,2652 03476 GAMMA
049607,000237: 23,2653 26713 STOVL OMEGAM1
049608,000238: 23,2654 03507 OMEGA +6
049609,000239: 23,2655 77761 VXSC
049610,000240: 23,2656 03476 GAMMA
049611,000241: 23,2657 26721 STOVL OMEGAM2
049612,000242: 23,2660 03515 OMEGA +12D
049613,000243: 23,2661 77761 VXSC
049614,000244: 23,2662 03476 GAMMA
049615,000245: 23,2663 02727 STORE OMEGAM3
049616,000246: 23,2664 77776 EXIT
049617,000247: 23,2665 33146 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
049618,000248: 23,2666 55320 TS WIXA
049619,000249: 23,2667 55321 TS WIXB
049620,000250: 23,2670 34755 CAF ZERO
049621,000251: 23,2671 55322 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
049622,000252: 23,2672 55323 TS ZIXB
049623,000253: 23,2673 05353 FAZA TC PHASCHNG
![]() |
Page 1149 |
049625,000255: 23,2674 04022 OCT 04022
049626,000256: 23,2675 05504 TC UPFLAG
049627,000257: 23,2676 00236 ADRES REINTFLG
049628,000258: 23,2677 31321 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
049629,000259: 23,2700 55320 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
049630,000260: 23,2701 31323 CA ZIXB
049631,000261: 23,2702 55322 TS ZIXA
049632,000262: 23,2703 06036 TC INTPRET
049633,000263: 23,2704 73150 LXA,1 LXA,2
049634,000264: 23,2705 01320 WIXA
049635,000265: 23,2706 01322 ZIXA
049636,000266: 23,2707 70731 SSP DLOAD*
049637,000267: 23,2710 00051 S1
049638,000268: 23,2711 00006 6
049639,000269: 23,2712 75134 ZI,2
049640,000270: 23,2713 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
049641,000271: 23,2714 00052 S2
049642,000272: 23,2715 65161 VXSC XCHX,2
049643,000273: 23,2716 02713 OMEGAM1
049644,000274: 23,2717 00051 S2
049645,000275: 23,2720 57144 LXC,2 XAD,2
049646,000276: 23,2721 00047 X2
049647,000277: 23,2722 02103 NORMGAM
049648,000278: 23,2723 65057 VSL* XCHX,2
049649,000279: 23,2724 57576 0,2
049650,000280: 23,2725 00051 S2
049651,000281: 23,2726 77653 VAD*
049652,000282: 23,2727 02467 W +54D,1
049653,000283: 23,2730 02735 STORE HOLDW
049654,000284: 23,2731 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
049655,000285: 23,2732 75134 ZI,2
049656,000286: 23,2733 74301 NORM VXSC
049657,000287: 23,2734 00052 S2
049658,000288: 23,2735 02721 OMEGAM2
049659,000289: 23,2736 71124 XCHX,2 LXC,2
049660,000290: 23,2737 00051 S2
049661,000291: 23,2740 00047 X2
049662,000292: 23,2741 53674 XAD,2 VSL*
049663,000293: 23,2742 02103 NORMGAM
049664,000294: 23,2743 57576 0,2
049665,000295: 23,2744 52724 XCHX,2 VAD*
049666,000296: 23,2745 00051 S2
049667,000297: 23,2746 02555 W +108D,1
049668,000298: 23,2747 02743 STORE HOLDW +6
049669,000299: 23,2750 77614 BOFF
049670,000300: 23,2751 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
049671,000301: 23,2752 46772 FAZB
049672,000302: 23,2753 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
049673,000303: 23,2754 75134 ZI,2
049674,000304: 23,2755 74301 NORM VXSC
![]() |
Page 1150 |
049676,000306: 23,2756 00052 S2
049677,000307: 23,2757 02727 OMEGAM3
049678,000308: 23,2760 71124 XCHX,2 LXC,2
049679,000309: 23,2761 00051 S2
049680,000310: 23,2762 00047 X2
049681,000311: 23,2763 53674 XAD,2 VSL*
049682,000312: 23,2764 02103 NORMGAM
049683,000313: 23,2765 57576 0,2
049684,000314: 23,2766 52724 XCHX,2 VAD*
049685,000315: 23,2767 00051 S2
049686,000316: 23,2770 02643 W +162D,1
049687,000317: 23,2771 02751 STORE HOLDW +12D
049688,000318: 23,2772 77624 FAZB CALL
049689,000319: 23,2773 11165 GRP2PC
049690,000320: 23,2774 77776 EXIT
049691,000321: 23,2775 31320 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
049692,000322: 23,2776 63147 AD 6DD # TEMP REG TO PERM W MATRIX
049693,000323: 23,2777 55321 TS WIXB
049694,000324: 23,3000 31322 CA ZIXA
049695,000325: 23,3001 67745 AD MINUS2
049696,000326: 23,3002 55323 TS ZIXB
049697,000327: 23,3003 06036 TC INTPRET
049698,000328: 23,3004 66350 LXA,1 SSP
049699,000329: 23,3005 01320 WIXA
049700,000330: 23,3006 00051 S1
049701,000331: 23,3007 00006 6
049702,000332: 23,3010 77775 VLOAD
049703,000333: 23,3011 02735 HOLDW
049704,000334: 23,3012 06467 STORE W +54D,1
049705,000335: 23,3013 77775 VLOAD
049706,000336: 23,3014 02743 HOLDW +6
049707,000337: 23,3015 06555 STORE W +108D,1
049708,000338: 23,3016 77214 BOFF VLOAD
049709,000339: 23,3017 02746 DMENFLG
049710,000340: 23,3020 47030 FAZB5
049711,000341: 23,3021 02751 HOLDW +12D
049712,000342: 23,3022 06643 STORE W +162D,1
049713,000343: 23,3023 52100 FAZB2 TIX,1 GOTO
049714,000344: 23,3024 47026 +2
049715,000345: 23,3025 47036 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
049716,000346: 23,3026 77634 RTB
049717,000347: 23,3027 46673 FAZA
049718,000348: 23,3030 43335 FAZB5 SLOAD DAD
049719,000349: 23,3031 01324 ZIXB
049720,000350: 23,3032 07151 12DD
049721,000351: 23,3033 52030 BHIZ GOTO
049722,000352: 23,3034 47036 FAZC
049723,000353: 23,3035 47023 FAZB2
049724,000354: 23,3036 77624 FAZC CALL
049725,000355: 23,3037 11165 GRP2PC
![]() |
Page 1151 |
049727,000357: 23,3040 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
049728,000358: 23,3041 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
049729,000359: 23,3042 02701 DELTAX +12D # INCORPORATION FOR X789
049730,000360: 23,3043 03470 STORE TX789
049731,000361: 23,3044 47014 BON RTB
049732,000362: 23,3045 00707 VEHUPFLG
049733,000363: 23,3046 47136 DOCSM
049734,000364: 23,3047 26770 MOVEPLEM
049735,000365: 23,3050 77004 FAZAB BOVB AXT,2
049736,000366: 23,3051 57725 TCDANZIG
049737,000367: 23,3052 00000 0
049738,000368: 23,3053 77014 BOFF AXT,2
049739,000369: 23,3054 04344 MOONTHIS
049740,000370: 23,3055 47057 +2
049741,000371: 23,3056 00002 2
049742,000372: 23,3057 53775 VLOAD VSR*
049743,000373: 23,3060 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
049744,000374: 23,3061 57205 0 -7,2
049745,000375: 23,3062 40055 VAD BOV
049746,000376: 23,3063 01521 TDELTAV
049747,000377: 23,3064 47076 FAZAB1
049748,000378: 23,3065 25521 STOVL TDELTAV
049749,000379: 23,3066 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
049750,000380: 23,3067 53257 VSR* VAD
049751,000381: 23,3070 57202 0 -4,2
049752,000382: 23,3071 01527 TNUV
049753,000383: 23,3072 77600 BOV
049754,000384: 23,3073 47102 FAZAB2
049755,000385: 23,3074 35527 STCALL TNUV
049756,000386: 23,3075 47111 FAZAB3
049757,000387: 23,3076 53375 FAZAB1 VLOAD VAD
049758,000388: 23,3077 01535 RCV
049759,000389: 23,3100 02665 DELTAX
049760,000390: 23,3101 01535 STORE RCV
049761,000391: 23,3102 53375 FAZAB2 VLOAD VAD
049762,000392: 23,3103 01543 VCV
049763,000393: 23,3104 02673 DELTAX +6
049764,000394: 23,3105 01543 STORE VCV
049765,000395: 23,3106 45134 SXA,2 CALL
049766,000396: 23,3107 02030 PBODY
049767,000397: 23,3110 23345 RECTIFY
049768,000398: 23,3111 77624 FAZAB3 CALL
049769,000399: 23,3112 11165 GRP2PC
049770,000400: 23,3113 47014 BON RTB
049771,000401: 23,3114 00707 VEHUPFLG
049772,000402: 23,3115 47141 DOCSM1
049773,000403: 23,3116 26747 MOVEALEM
049774,000404: 23,3117 77624 CALL
049775,000405: 23,3120 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR
049776,000406: 23,3121 77624 FAZAB4 CALL
![]() |
Page 1152 |
049778,000408: 23,3122 11165 GRP2PC # PHASE CHANGE
049779,000409: 23,3123 77214 BOFF VLOAD
049780,000410: 23,3124 02746 DMENFLG
049781,000411: 23,3125 47130 FAZAB5 # 6 DIMENSIONAL
049782,000412: 23,3126 03470 TX789 # 9 DIMENSIONAL
049783,000413: 23,3127 01701 STORE X789
049784,000414: 23,3130 66150 FAZAB5 LXA,1 SXA,1
049785,000415: 23,3131 02772 EGRESS
049786,000416: 23,3132 00052 QPRET
049787,000417: 23,3133 77776 EXIT
049788,000418: 23,3134 04635 TC POSTJUMP # EXIT
049789,000419: 23,3135 27427 CADR INTWAKE
049790,000420: 23,3136 52034 DOCSM RTB GOTO
049791,000421: 23,3137 26723 MOVEPCSM
049792,000422: 23,3140 47050 FAZAB
049793,000423: 23,3141 45034 DOCSM1 RTB CALL
049794,000424: 23,3142 26674 MOVEACSM
049795,000425: 23,3143 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR
049796,000426: 23,3144 77650 GOTO
049797,000427: 23,3145 47121 FAZAB4
049798,000428: 23,3146 23,2423 ZEROO = ZEROVECS
049799,000429: 23,3146 00066 54DD DEC 54 B-14
049800,000430: 23,3147 77771 6DD DEC -6 B-14
049801,000431: 23,3150 00014 12DD DEC 12 B-14
049802,000432:
049803,000433: 22,2000 SETLOC RENDEZ
049804,000434: 22,2000 BANK
049805,000435: 22,3647 COUNT* $$/INCOR
049806,000436:
049807,000437: 22,3647 51575 NEWZCOMP VLOAD ABVAL
049808,000438: 22,3650 02643 ZI
049809,000439: 22,3651 24045 STOVL NORMZI
049810,000440: 22,3652 02651 ZI +6
049811,000441: 22,3653 41446 ABVAL PUSH
049812,000442: 22,3654 50025 DSU BMN
049813,000443: 22,3655 00045 NORMZI
049814,000444: 22,3656 45661 +3
049815,000445: 22,3657 45545 DLOAD STADR
049816,000446: 22,3660 77732 STORE NORMZI
049817,000447: 22,3661 51575 VLOAD ABVAL
049818,000448: 22,3662 02657 ZI +12D
049819,000449: 22,3663 45206 PUSH DSU
049820,000450: 22,3664 00045 NORMZI
049821,000451: 22,3665 71240 BMN DLOAD
049822,000452: 22,3666 45671 +3
049823,000453: 22,3667 77626 STADR
049824,000454: 22,3670 77732 STORE NORMZI # LARGEST ABVAL
049825,000455: 22,3671 66145 DLOAD SXA,1
049826,000456: 22,3672 00045 NORMZI
049827,000457: 22,3673 00044 NORMZI # SAVE X1
049828,000458: 22,3674 62101 NORM INCR,1
![]() |
Page 1153 |
049830,000460: 22,3675 00047 X1
049831,000461: 22,3676 00002 DEC 2 B-14
049832,000462: 22,3677 53775 VLOAD VSL*
049833,000463: 22,3700 02643 ZI
049834,000464: 22,3701 20201 0,1
049835,000465: 22,3702 26643 STOVL ZI
049836,000466: 22,3703 02651 ZI +6
049837,000467: 22,3704 77657 VSL*
049838,000468: 22,3705 20201 0,1
049839,000469: 22,3706 26651 STOVL ZI +6
049840,000470: 22,3707 02657 ZI +12D
049841,000471: 22,3710 66057 VSL* SXA,1
049842,000472: 22,3711 20201 0,1
049843,000473: 22,3712 00045 NORMZI +1 # SAVE SHIFT
049844,000474: 22,3713 02657 STORE ZI +12D
049845,000475: 22,3714 54150 LXA,1 XSU,1
049846,000476: 22,3715 02103 NORMGAM
049847,000477: 22,3716 00045 NORMZI +1
049848,000478: 22,3717 77660 XSU,1
049849,000479: 22,3720 00045 NORMZI +1
049850,000480: 22,3721 70130 SXA,1 LXC,1
049851,000481: 22,3722 02103 NORMGAM
049852,000482: 22,3723 00045 NORMZI +1
049853,000483: 22,3724 40270 XAD,1 SETPD
049854,000484: 22,3725 00044 NORMZI
049855,000485: 22,3726 00003 2D
049856,000486: 22,3727 77650 GOTO
049857,000487: 22,3730 46571 INCOR2 -3
049858,000488: 22,3731 NORMZI = 36D
049859,000489:
049860,000490:
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc