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