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