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