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