Source Code
|
These source-code files are part of a reconstructed copy of Luminary 173, the
second (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 178. Changes
between revision 173 and 178 were backed out, as described by Luminary memo 167
(revision 1). The reconstruction was verified by matching memory-bank checksums
to those listed in drawing 2021152N. Note that page numbers in the reconstructed
code match those for the baseline log section mentioned in each file's changelog;
the page numbers for a real Luminary 173 listing would be different.
Comments from 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.
|
048329,000002: ## Copyright: Public domain.
048330,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
048331,000004: ## Purpose: A section of Luminary revision 173.
048332,000005: ## It is part of the reconstructed source code for the second
048333,000006: ## (unflown) release of the flight software for the Lunar
048334,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
048335,000008: ## The code has been recreated from a reconstructed copy of
048336,000009: ## Luminary 178, as well as Luminary memo 167 (revision 1).
048337,000010: ## It has been adapted such that the resulting bugger words
048338,000011: ## exactly match those specified for Luminary 173 in NASA
048339,000012: ## drawing 2021152N, which gives relatively high confidence
048340,000013: ## that the reconstruction is correct.
048341,000014: ## Reference: pp. 1140-1149
048342,000015: ## Assembler: yaYUL
048343,000016: ## Contact: Ron Burkey <info@sandroid.org>.
048344,000017: ## Website: www.ibiblio.org/apollo/index.html
048345,000018: ## Mod history: 2019-09-18 MAS Created from Luminary 178.
048346,000019: ## 2021-05-30 ABS ZEROD -> ZEROO
048347,000020:
|
|
Page 1140
|
048349,000022: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
048350,000023: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
048351,000024: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
048352,000025: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
048353,000026: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
048354,000027: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
048355,000028: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
048356,000029: # INPUT
048357,000030: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
048358,000031: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
048359,000032: # VARIANCE = VARIANCE (SCALAR)
048360,000033: # DELTAQ = MEASURED DEVIATION(SCALAR)
048361,000034: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
048362,000035:
048363,000036: # OUTPUT
048364,000037: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
048365,000038: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
048366,000039: # GAMMA = SCALAR
048367,000040: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
048368,000041: # CALLING SEQUENCE
048369,000042: # L CALL INCORP1
048370,000043:
048371,000044: # NORMAL EXIT
048372,000045:
048373,000046: # L+1 OF CALLING SEQUENCE
048374,000047:
048375,000048: 37,3654 BANK 37
048376,000049: 23,2000 SETLOC MEASINC
048377,000050: 23,2000 BANK
048378,000051:
048379,000052: 23,2527 COUNT* $$/INCOR
048380,000053:
048381,000054: 23,2527 E5,1400 EBANK= W
048382,000055:
048383,000056: 23,2527 77620 INCORP1 STQ
048384,000057: 23,2530 02772 EGRESS
048385,000058: 23,2531 66370 AXT,1 SSP
048386,000059: 23,2532 00066 54D
048387,000060: 23,2533 00051 S1
048388,000061: 23,2534 00022 18D # IX1 = 54 S1= 18
048389,000062: 23,2535 66374 AXT,2 SSP
048390,000063: 23,2536 00022 18D
048391,000064: 23,2537 00052 S2
048392,000065: 23,2540 00006 6 # IX2 = 18 S2=6
048393,000066: 23,2541 63775 Z123 VLOAD MXV*
048394,000067: 23,2542 03525 BVECTOR # BVECTOR (0)
048395,000068: 23,2543 02467 W +54D,1
048396,000069: 23,2544 12665 STORE ZI +18D,2
048397,000070: 23,2545 77775 VLOAD
048398,000071: 23,2546 03533 BVECTOR +6 # BVECTOR (1)
|
|
Page 1141
|
048400,000073: 23,2547 52717 MXV* VAD*
048401,000074: 23,2550 02555 W +108D,1
048402,000075: 23,2551 75112 ZI +18D,2
048403,000076: 23,2552 12665 STORE ZI +18D,2
048404,000077: 23,2553 77775 VLOAD
048405,000078: 23,2554 03541 BVECTOR +12D # BVECTOR (2)
048406,000079: 23,2555 52717 MXV* VAD*
048407,000080: 23,2556 02643 W +162D,1
048408,000081: 23,2557 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108)FIRST PAS
048409,000082: 23,2560 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
048410,000083: 23,2561 77700 TIX,1
048411,000084: 23,2562 46563 INCOR1
048412,000085: 23,2563 43104 INCOR1 TIX,2 BON
048413,000086: 23,2564 46541 Z123 # LOOP FOR Z1,Z2,Z3
048414,000087: 23,2565 02706 DMENFLG
048415,000088: 23,2566 46572 INCOR1A
048416,000089: 23,2567 77775 VLOAD
048417,000090: 23,2570 06520 ZEROVECS
048418,000091: 23,2571 02657 STORE ZI +12D
048419,000092: 23,2572 77201 INCOR1A SETPD VLOAD
048420,000093: 23,2573 00001 0
048421,000094: 23,2574 02643 ZI
048422,000095: 23,2575 47036 VSQ RTB
048423,000096: 23,2576 21634 TPMODE
048424,000097: 23,2577 47515 PDVL VSQ
048425,000098: 23,2600 02651 ZI +6
048426,000099: 23,2601 76234 RTB TAD
048427,000100: 23,2602 21634 TPMODE
048428,000101: 23,2603 47515 PDVL VSQ
048429,000102: 23,2604 02657 ZI +12D
048430,000103: 23,2605 76234 RTB TAD
048431,000104: 23,2606 21634 TPMODE
048432,000105: 23,2607 77171 TAD AXT,2
048433,000106: 23,2610 02707 VARIANCE
048434,000107: 23,2611 00000 0
048435,000108: 23,2612 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
048436,000109: 23,2613 40151 TLOAD BOV
048437,000110: 23,2614 02707 VARIANCE # CLEAR OVFIND
048438,000111: 23,2615 46616 +1
048439,000112: 23,2616 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
048440,000113: 23,2617 77654 BZE
048441,000114: 23,2620 46627 INCOR1C
048442,000115: 23,2621 40112 INCOR1B SL2 BOV
048443,000116: 23,2622 46627 INCOR1C
048444,000117: 23,2623 02670 STORE TEMPVAR
048445,000118: 23,2624 52114 INCR,2 GOTO
048446,000119: 23,2625 00001 DEC 1 B-14
048447,000120: 23,2626 46621 INCOR1B
048448,000121: 23,2627 61551 INCOR1C TLOAD ROUND
048449,000122: 23,2630 02665 TRIPA
|
|
Page 1142
|
048451,000124: 23,2631 75405 DMP SQRT
048452,000125: 23,2632 02670 TEMPVAR
048453,000126: 23,2633 76257 SL* TAD
048454,000127: 23,2634 57576 0,2
048455,000128: 23,2635 02665 TRIPA
048456,000129: 23,2636 63101 NORM INCR,2
048457,000130: 23,2637 00050 X2
048458,000131: 23,2640 77775 DEC -2 B-14
048459,000132: 23,2641 77134 SXA,2 AXT,2
048460,000133: 23,2642 02103 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
048461,000134: 23,2643 00242 162D
048462,000135: 23,2644 40265 BDDV SETPD
048463,000136: 23,2645 06510 DP1/4TH
048464,000137: 23,2646 00001 0
048465,000138: 23,2647 03500 STORE GAMMA
048466,000139: 23,2650 60351 TLOAD NORM
048467,000140: 23,2651 02665 TRIPA
048468,000141: 23,2652 00047 X1
048469,000142: 23,2653 65345 DLOAD PDDL # PD 0-1 = NORM (A)
048470,000143: 23,2654 00155 MPAC
048471,000144: 23,2655 03547 DELTAQ
048472,000145: 23,2656 77701 NORM
048473,000146: 23,2657 00051 S1
048474,000147: 23,2660 70460 XSU,1 SR1
048475,000148: 23,2661 00050 S1
048476,000149: 23,2662 41471 DDV PUSH # PD 0-1 = DELTAQ/A
048477,000150: 23,2663 77650 GOTO
048478,000151: 23,2664 45710 NEWZCOMP
048479,000152: 23,2665 77731 -3 SSP
048480,000153: 23,2666 00052 S2
048481,000154: 23,2667 00066 54D
048482,000155: 23,2670 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
048483,000156: 23,2671 02643 ZI
048484,000157: 23,2672 75134 W +162D,2
048485,000158: 23,2673 77206 PUSH VLOAD
048486,000159: 23,2674 02651 ZI +6
048487,000160: 23,2675 53303 VXM* VAD
048488,000161: 23,2676 75112 W +180D,2
048489,000162: 23,2677 77206 PUSH VLOAD
048490,000163: 23,2700 02657 ZI +12D
048491,000164: 23,2701 53303 VXM* VAD
048492,000165: 23,2702 75070 W +198D,2
048493,000166: 23,2703 61006 PUSH TIX,2 # PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
048494,000167: 23,2704 46670 INCOR2
048495,000168: 23,2705 45575 VLOAD STADR
048496,000169: 23,2706 74260 STORE OMEGA +12D
048497,000170: 23,2707 45575 VLOAD STADR
048498,000171: 23,2710 74266 STORE OMEGA +6
048499,000172: 23,2711 45575 VLOAD STADR
048500,000173: 23,2712 74274 STORE OMEGA
|
|
Page 1143
|
048502,000175: 23,2713 77214 BON VLOAD
048503,000176: 23,2714 02706 DMENFLG
048504,000177: 23,2715 46720 INCOR2AB
048505,000178: 23,2716 06520 ZEROVECS
048506,000179: 23,2717 03517 STORE OMEGA +12D
048507,000180: 23,2720 66374 INCOR2AB AXT,2 SSP
048508,000181: 23,2721 00022 18D
048509,000182: 23,2722 00052 S2
048510,000183: 23,2723 00006 6
048511,000184: 23,2724 77773 INCOR3 VLOAD*
048512,000185: 23,2725 74252 OMEGA +18D,2
048513,000186: 23,2726 53761 VXSC VSL*
048514,000187: 23,2727 00001 0 # DELTAQ/A
048515,000188: 23,2730 20201 0,1
048516,000189: 23,2731 12707 STORE DELTAX +18D,2
048517,000190: 23,2732 77304 TIX,2 VLOAD
048518,000191: 23,2733 46724 INCOR3
048519,000192: 23,2734 02673 DELTAX +6
048520,000193: 23,2735 77732 VSL3
048521,000194: 23,2736 02673 STORE DELTAX +6
048522,000195: 23,2737 77650 GOTO
048523,000196: 23,2740 02772 EGRESS
048524,000197:
|
|
Page 1144
|
048526,000199: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
048527,000200: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
048528,000201: # LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
048529,000202: # INPUT
048530,000203: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
048531,000204: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
048532,000205: # W = ERROR TRANSITION MATRIX
048533,000206: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
048534,000207: # DMENFLG = SIZE OF W MATRIX (ZERO =6X6) (1=9X9)
048535,000208: # GAMMA = SCALAR FOR INCORPORATION
048536,000209: # ZI = VECTOR USED IN INCORPORATION
048537,000210: # OMEGA = WEIGHTING VECTOR
048538,000211:
048539,000212: # OUTPUT
048540,000213: # UPDATED PERMANENT STATE VECTOR
048541,000214:
048542,000215: # CALLING SEQUENCE
048543,000216: # L CALL INCORP2
048544,000217:
048545,000218: # NORMAL EXIT
048546,000219: # L+1 OF CALLING SEQUENCE
048547,000220:
048548,000221: 23,2000 SETLOC MEASINC1
048549,000222: 23,2000 BANK
048550,000223:
048551,000224: 23,2741 COUNT* $$/INCOR
048552,000225:
048553,000226: 23,2741 45020 INCORP2 STQ CALL
048554,000227: 23,2742 02772 EGRESS
048555,000228: 23,2743 27410 INTSTALL
048556,000229: 23,2744 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
048557,000230: 23,2745 03503 OMEGA
048558,000231: 23,2746 03500 GAMMA
048559,000232: 23,2747 26713 STOVL OMEGAM1
048560,000233: 23,2750 03511 OMEGA +6
048561,000234: 23,2751 77761 VXSC
048562,000235: 23,2752 03500 GAMMA
048563,000236: 23,2753 26721 STOVL OMEGAM2
048564,000237: 23,2754 03517 OMEGA +12D
048565,000238: 23,2755 77761 VXSC
048566,000239: 23,2756 03500 GAMMA
048567,000240: 23,2757 02727 STORE OMEGAM3
048568,000241: 23,2760 77776 EXIT
048569,000242: 23,2761 33242 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
048570,000243: 23,2762 55315 TS WIXA
048571,000244: 23,2763 55316 TS WIXB
048572,000245: 23,2764 34755 CAF ZERO
048573,000246: 23,2765 55317 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
048574,000247: 23,2766 55320 TS ZIXB
048575,000248: 23,2767 05364 FAZA TC PHASCHNG
|
|
Page 1145
|
048577,000250: 23,2770 04022 OCT 04022
048578,000251: 23,2771 05515 TC UPFLAG
048579,000252: 23,2772 00236 ADRES REINTFLG
048580,000253: 23,2773 31316 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
048581,000254: 23,2774 55315 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
048582,000255: 23,2775 31320 CA ZIXB
048583,000256: 23,2776 55317 TS ZIXA
048584,000257: 23,2777 06042 TC INTPRET
048585,000258: 23,3000 73150 LXA,1 LXA,2
048586,000259: 23,3001 01315 WIXA
048587,000260: 23,3002 01317 ZIXA
048588,000261: 23,3003 70731 SSP DLOAD*
048589,000262: 23,3004 00051 S1
048590,000263: 23,3005 00006 6
048591,000264: 23,3006 75134 ZI,2
048592,000265: 23,3007 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
048593,000266: 23,3010 00052 S2
048594,000267: 23,3011 65161 VXSC XCHX,2
048595,000268: 23,3012 02713 OMEGAM1
048596,000269: 23,3013 00051 S2
048597,000270: 23,3014 57144 LXC,2 XAD,2
048598,000271: 23,3015 00047 X2
048599,000272: 23,3016 02103 NORMGAM
048600,000273: 23,3017 65057 VSL* XCHX,2
048601,000274: 23,3020 57576 0,2
048602,000275: 23,3021 00051 S2
048603,000276: 23,3022 77653 VAD*
048604,000277: 23,3023 02467 W +54D,1
048605,000278: 23,3024 02735 STORE HOLDW
048606,000279: 23,3025 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
048607,000280: 23,3026 75134 ZI,2
048608,000281: 23,3027 74301 NORM VXSC
048609,000282: 23,3030 00052 S2
048610,000283: 23,3031 02721 OMEGAM2
048611,000284: 23,3032 71124 XCHX,2 LXC,2
048612,000285: 23,3033 00051 S2
048613,000286: 23,3034 00047 X2
048614,000287: 23,3035 53674 XAD,2 VSL*
048615,000288: 23,3036 02103 NORMGAM
048616,000289: 23,3037 57576 0,2
048617,000290: 23,3040 52724 XCHX,2 VAD*
048618,000291: 23,3041 00051 S2
048619,000292: 23,3042 02555 W +108D,1
048620,000293: 23,3043 02743 STORE HOLDW +6
048621,000294: 23,3044 77614 BOFF
048622,000295: 23,3045 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
048623,000296: 23,3046 47066 FAZB
048624,000297: 23,3047 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
048625,000298: 23,3050 75134 ZI,2
048626,000299: 23,3051 74301 NORM VXSC
|
|
Page 1146
|
048628,000301: 23,3052 00052 S2
048629,000302: 23,3053 02727 OMEGAM3
048630,000303: 23,3054 71124 XCHX,2 LXC,2
048631,000304: 23,3055 00051 S2
048632,000305: 23,3056 00047 X2
048633,000306: 23,3057 53674 XAD,2 VSL*
048634,000307: 23,3060 02103 NORMGAM
048635,000308: 23,3061 57576 0,2
048636,000309: 23,3062 52724 XCHX,2 VAD*
048637,000310: 23,3063 00051 S2
048638,000311: 23,3064 02643 W +162D,1
048639,000312: 23,3065 02751 STORE HOLDW +12D
048640,000313: 23,3066 77624 FAZB CALL
048641,000314: 23,3067 11216 GRP2PC
048642,000315: 23,3070 77776 EXIT
048643,000316: 23,3071 31315 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
048644,000317: 23,3072 63243 AD 6DD # TEMP REG TO PERM W MATRIX
048645,000318: 23,3073 55316 TS WIXB
048646,000319: 23,3074 31317 CA ZIXA
048647,000320: 23,3075 67751 AD MINUS2
048648,000321: 23,3076 55320 TS ZIXB
048649,000322: 23,3077 06042 TC INTPRET
048650,000323: 23,3100 66350 LXA,1 SSP
048651,000324: 23,3101 01315 WIXA
048652,000325: 23,3102 00051 S1
048653,000326: 23,3103 00006 6
048654,000327: 23,3104 77775 VLOAD
048655,000328: 23,3105 02735 HOLDW
048656,000329: 23,3106 06467 STORE W +54D,1
048657,000330: 23,3107 77775 VLOAD
048658,000331: 23,3110 02743 HOLDW +6
048659,000332: 23,3111 06555 STORE W +108D,1
048660,000333: 23,3112 77214 BOFF VLOAD
048661,000334: 23,3113 02746 DMENFLG
048662,000335: 23,3114 47124 FAZB5
048663,000336: 23,3115 02751 HOLDW +12D
048664,000337: 23,3116 06643 STORE W +162D,1
048665,000338: 23,3117 52100 FAZB2 TIX,1 GOTO
048666,000339: 23,3120 47122 +2
048667,000340: 23,3121 47132 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
048668,000341: 23,3122 77634 RTB
048669,000342: 23,3123 46767 FAZA
048670,000343: 23,3124 43335 FAZB5 SLOAD DAD
048671,000344: 23,3125 01321 ZIXB
048672,000345: 23,3126 07245 12DD
048673,000346: 23,3127 52030 BHIZ GOTO
048674,000347: 23,3130 47132 FAZC
048675,000348: 23,3131 47117 FAZB2
048676,000349: 23,3132 77624 FAZC CALL
048677,000350: 23,3133 11216 GRP2PC
|
|
Page 1147
|
048679,000352: 23,3134 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
048680,000353: 23,3135 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
048681,000354: 23,3136 02701 DELTAX +12D # INCORPORATION FOR X789
048682,000355: 23,3137 03472 STORE TX789
048683,000356: 23,3140 47014 BON RTB
048684,000357: 23,3141 00707 VEHUPFLG
048685,000358: 23,3142 47232 DOCSM
048686,000359: 23,3143 26767 MOVEPLEM
048687,000360: 23,3144 77004 FAZAB BOVB AXT,2
048688,000361: 23,3145 57752 TCDANZIG
048689,000362: 23,3146 00000 0
048690,000363: 23,3147 77014 BOFF AXT,2
048691,000364: 23,3150 04344 MOONTHIS
048692,000365: 23,3151 47153 +2
048693,000366: 23,3152 00002 2
048694,000367: 23,3153 53775 VLOAD VSR*
048695,000368: 23,3154 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
048696,000369: 23,3155 57205 0 -7,2
048697,000370: 23,3156 40055 VAD BOV
048698,000371: 23,3157 01521 TDELTAV
048699,000372: 23,3160 47172 FAZAB1
048700,000373: 23,3161 25521 STOVL TDELTAV
048701,000374: 23,3162 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
048702,000375: 23,3163 53257 VSR* VAD
048703,000376: 23,3164 57202 0 -4,2
048704,000377: 23,3165 01527 TNUV
048705,000378: 23,3166 77600 BOV
048706,000379: 23,3167 47176 FAZAB2
048707,000380: 23,3170 35527 STCALL TNUV
048708,000381: 23,3171 47205 FAZAB3
048709,000382: 23,3172 53375 FAZAB1 VLOAD VAD
048710,000383: 23,3173 01535 RCV
048711,000384: 23,3174 02665 DELTAX
048712,000385: 23,3175 01535 STORE RCV
048713,000386: 23,3176 53375 FAZAB2 VLOAD VAD
048714,000387: 23,3177 01543 VCV
048715,000388: 23,3200 02673 DELTAX +6
048716,000389: 23,3201 01543 STORE VCV
048717,000390: 23,3202 45134 SXA,2 CALL
048718,000391: 23,3203 02030 PBODY
048719,000392: 23,3204 27671 RECTIFY
048720,000393: 23,3205 77624 FAZAB3 CALL
048721,000394: 23,3206 11216 GRP2PC
048722,000395: 23,3207 47014 BON RTB
048723,000396: 23,3210 00707 VEHUPFLG
048724,000397: 23,3211 47235 DOCSM1
048725,000398: 23,3212 26746 MOVEALEM
048726,000399: 23,3213 77624 CALL
048727,000400: 23,3214 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR
048728,000401: 23,3215 77624 FAZAB4 CALL
|
|
Page 1148
|
048730,000403: 23,3216 11216 GRP2PC # PHASE CHANGE
048731,000404: 23,3217 77214 BOFF VLOAD
048732,000405: 23,3220 02746 DMENFLG
048733,000406: 23,3221 47224 FAZAB5 # 6 DIMENSIONAL
048734,000407: 23,3222 03472 TX789 # 9 DIMENSIONAL
048735,000408: 23,3223 01701 STORE X789
048736,000409: 23,3224 66150 FAZAB5 LXA,1 SXA,1
048737,000410: 23,3225 02772 EGRESS
048738,000411: 23,3226 00052 QPRET
048739,000412: 23,3227 77776 EXIT
048740,000413: 23,3230 04635 TC POSTJUMP # EXIT
048741,000414: 23,3231 27421 CADR INTWAKE
048742,000415: 23,3232 52034 DOCSM RTB GOTO
048743,000416: 23,3233 26722 MOVEPCSM
048744,000417: 23,3234 47144 FAZAB
048745,000418: 23,3235 45034 DOCSM1 RTB CALL
048746,000419: 23,3236 26673 MOVEACSM
048747,000420: 23,3237 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR
048748,000421: 23,3240 77650 GOTO
048749,000422: 23,3241 47215 FAZAB4
048750,000423: 23,3242 23,2517 ZEROO = ZEROVECS
048751,000424: 23,3242 00066 54DD DEC 54 B-14
048752,000425: 23,3243 77771 6DD DEC -6 B-14
048753,000426: 23,3244 00014 12DD DEC 12 B-14
048754,000427: 22,2000 SETLOC RENDEZ
048755,000428: 22,2000 BANK
048756,000429: 22,3710 COUNT* $$/INCOR
048757,000430:
048758,000431: 22,3710 51575 NEWZCOMP VLOAD ABVAL
048759,000432: 22,3711 02643 ZI
048760,000433: 22,3712 24045 STOVL NORMZI
048761,000434: 22,3713 02651 ZI +6
048762,000435: 22,3714 41446 ABVAL PUSH
048763,000436: 22,3715 50025 DSU BMN
048764,000437: 22,3716 00045 NORMZI
048765,000438: 22,3717 45722 +3
048766,000439: 22,3720 45545 DLOAD STADR
048767,000440: 22,3721 77732 STORE NORMZI
048768,000441: 22,3722 51575 VLOAD ABVAL
048769,000442: 22,3723 02657 ZI +12D
048770,000443: 22,3724 45206 PUSH DSU
048771,000444: 22,3725 00045 NORMZI
048772,000445: 22,3726 71240 BMN DLOAD
048773,000446: 22,3727 45732 +3
048774,000447: 22,3730 77626 STADR
048775,000448: 22,3731 77732 STORE NORMZI # LARGEST ABVAL
048776,000449: 22,3732 66145 DLOAD SXA,1
048777,000450: 22,3733 00045 NORMZI
048778,000451: 22,3734 00044 NORMZI # SAVE X1
048779,000452: 22,3735 62101 NORM INCR,1
|
|
Page 1149
|
048781,000454: 22,3736 00047 X1
048782,000455: 22,3737 00002 DEC 2 B-14
048783,000456: 22,3740 53775 VLOAD VSL*
048784,000457: 22,3741 02643 ZI
048785,000458: 22,3742 20201 0,1
048786,000459: 22,3743 26643 STOVL ZI
048787,000460: 22,3744 02651 ZI +6
048788,000461: 22,3745 77657 VSL*
048789,000462: 22,3746 20201 0,1
048790,000463: 22,3747 26651 STOVL ZI +6
048791,000464: 22,3750 02657 ZI +12D
048792,000465: 22,3751 66057 VSL* SXA,1
048793,000466: 22,3752 20201 0,1
048794,000467: 22,3753 00045 NORMZI +1 # SAVE SHIFT
048795,000468: 22,3754 02657 STORE ZI +12D
048796,000469: 22,3755 54150 LXA,1 XSU,1
048797,000470: 22,3756 02103 NORMGAM
048798,000471: 22,3757 00045 NORMZI +1
048799,000472: 22,3760 77660 XSU,1
048800,000473: 22,3761 00045 NORMZI +1
048801,000474: 22,3762 70130 SXA,1 LXC,1
048802,000475: 22,3763 02103 NORMGAM
048803,000476: 22,3764 00045 NORMZI +1
048804,000477: 22,3765 40270 XAD,1 SETPD
048805,000478: 22,3766 00044 NORMZI
048806,000479: 22,3767 00003 2D
048807,000480: 22,3770 77650 GOTO
048808,000481: 22,3771 46665 INCOR2 -3
048809,000482: 22,3772 NORMZI = 36D
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc