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