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