Source Code
|
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release
of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
049967,000002: ## Copyright: Public domain.
049968,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
049969,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
049970,000005: ## otherwise known as Luminary Rev 99, the third release
049971,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
049972,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
049973,000008: ## placement of a single label. The corrections shown here have
049974,000009: ## been verified to have the same bank checksums as AGC developer
049975,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
049976,000011: ## to be accurate. This file is intended to be a faithful
049977,000012: ## recreation, except that the code format has been changed to
049978,000013: ## conform to the requirements of the yaYUL assembler rather than
049979,000014: ## the original YUL assembler.
049980,000015: ##
049981,000016: ## Assembler: yaYUL
049982,000017: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
049983,000018: ## Website: www.ibiblio.org/apollo.
049984,000019: ## Pages: 1149-1158
049985,000020: ## Mod history: 2009-05-28 JL Updated from page images.
049986,000021: ## 2011-01-06 JL Fixed pseudo-label indentation.
049987,000022: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
049988,000023: ## and corrected the errors found.
049989,000024: ## 2017-08-01 MAS Created from LMY99 Rev 1.
049990,000025: ## 2021-05-30 ABS ZEROD -> ZEROO
049991,000026:
049992,000027: ## This source code has been transcribed or otherwise adapted from
049993,000028: ## digitized images of a hardcopy from the MIT Museum. The digitization
049994,000029: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
049995,000030: ## the Museum. Many thanks to both. The images (with suitable reduction
049996,000031: ## in storage size and consequent reduction in image quality as well) are
049997,000032: ## available online at www.ibiblio.org/apollo. If for some reason you
049998,000033: ## find that the images are illegible, contact me at info@sandroid.org
049999,000034: ## about getting access to the (much) higher-quality images which Paul
050000,000035: ## actually created.
050001,000036: ##
050002,000037: ## The code has been modified to match LMY99 Revision 0, otherwise
050003,000038: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
050004,000039: ## the listing from which it was transcribed. It has been verified to
050005,000040: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
050006,000041: ## of Luminary Revision 99 (for which we do not have scans).
050007,000042: ##
050008,000043: ## Notations on Allan Klumpp's listing read, in part:
050009,000044: ##
050010,000045: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
050011,000046:
|
|
Page 1149 |
050013,000048: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
050014,000049: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
050015,000050: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
050016,000051: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
050017,000052: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
050018,000053: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
050019,000054: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
050020,000055:
050021,000056: # INPUT
050022,000057: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1=9DIMENSIONAL
050023,000058: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
050024,000059: # VARIANCE = VARIANCE (SCALAR)
050025,000060: # DELTAQ = MEASURED DEVIATION (SCALAR)
050026,000061: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
050027,000062:
050028,000063: # OUTPUT
050029,000064: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
050030,000065: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
050031,000066: # GAMMA = SCALAR
050032,000067: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
050033,000068:
050034,000069: # CALLING SEQUENCE
050035,000070: # L CALL INCORP1
050036,000071:
050037,000072: # NORMAL EXIT
050038,000073: # L+1 OF CALLING SEQUENCE
050039,000074:
050040,000075: 37,3655 BANK 37
050041,000076: 23,2000 SETLOC MEASINC
050042,000077: 23,2000 BANK
050043,000078:
050044,000079: 23,2531 COUNT* $$/INCOR
050045,000080:
050046,000081: 23,2531 E5,1400 EBANK= W
050047,000082:
050048,000083: 23,2531 77620 INCORP1 STQ
050049,000084: 23,2532 02772 EGRESS
050050,000085: 23,2533 66370 AXT,1 SSP
050051,000086: 23,2534 00066 54D
050052,000087: 23,2535 00051 S1
050053,000088: 23,2536 00022 18D # IX1 = 54 S1= 18
050054,000089: 23,2537 66374 AXT,2 SSP
050055,000090: 23,2540 00022 18D
050056,000091: 23,2541 00052 S2
050057,000092: 23,2542 00006 6 # IX2 = 18 S2=6
050058,000093: 23,2543 63775 Z123 VLOAD MXV*
050059,000094: 23,2544 03525 BVECTOR # BVECTOR (0)
050060,000095: 23,2545 02467 W +54D,1
050061,000096: 23,2546 12665 STORE ZI +18D,2
050062,000097: 23,2547 77775 VLOAD
050063,000098: 23,2550 03533 BVECTOR +6 # BVECTOR (1)
|
|
Page 1150 |
050065,000100: 23,2551 52717 MXV* VAD*
050066,000101: 23,2552 02555 W +108D,1
050067,000102: 23,2553 75112 ZI +18D,2
050068,000103: 23,2554 12665 STORE ZI +18D,2
050069,000104: 23,2555 77775 VLOAD
050070,000105: 23,2556 03541 BVECTOR +12D # BVECTOR (2)
050071,000106: 23,2557 52717 MXV* VAD*
050072,000107: 23,2560 02643 W +162D,1
050073,000108: 23,2561 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
050074,000109: 23,2562 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
050075,000110: 23,2563 77700 TIX,1
050076,000111: 23,2564 46565 INCOR1
050077,000112: 23,2565 43104 INCOR1 TIX,2 BON
050078,000113: 23,2566 46543 Z123 # LOOP FOR Z1,Z2,Z3
050079,000114: 23,2567 02706 DMENFLG
050080,000115: 23,2570 46574 INCOR1A
050081,000116: 23,2571 77775 VLOAD
050082,000117: 23,2572 06522 ZEROVECS
050083,000118: 23,2573 02657 STORE ZI +12D
050084,000119: 23,2574 77201 INCOR1A SETPD VLOAD
050085,000120: 23,2575 00001 0
050086,000121: 23,2576 02643 ZI
050087,000122: 23,2577 47036 VSQ RTB
050088,000123: 23,2600 21633 TPMODE
050089,000124: 23,2601 47515 PDVL VSQ
050090,000125: 23,2602 02651 ZI +6
050091,000126: 23,2603 76234 RTB TAD
050092,000127: 23,2604 21633 TPMODE
050093,000128: 23,2605 47515 PDVL VSQ
050094,000129: 23,2606 02657 ZI +12D
050095,000130: 23,2607 76234 RTB TAD
050096,000131: 23,2610 21633 TPMODE
050097,000132: 23,2611 77171 TAD AXT,2
050098,000133: 23,2612 02707 VARIANCE
050099,000134: 23,2613 00000 0
050100,000135: 23,2614 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
050101,000136: 23,2615 40151 TLOAD BOV
050102,000137: 23,2616 02707 VARIANCE # CLEAR OVFIND
050103,000138: 23,2617 46620 +1
050104,000139: 23,2620 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
050105,000140: 23,2621 77654 BZE
050106,000141: 23,2622 46631 INCOR1C
050107,000142: 23,2623 40112 INCOR1B SL2 BOV
050108,000143: 23,2624 46631 INCOR1C
050109,000144: 23,2625 02670 STORE TEMPVAR
050110,000145: 23,2626 52114 INCR,2 GOTO
050111,000146: 23,2627 00001 DEC 1 B-14
050112,000147: 23,2630 46623 INCOR1B
050113,000148: 23,2631 61551 INCOR1C TLOAD ROUND
050114,000149: 23,2632 02665 TRIPA
|
|
Page 1151 |
050116,000151: 23,2633 75405 DMP SQRT
050117,000152: 23,2634 02670 TEMPVAR
050118,000153: 23,2635 76257 SL* TAD
050119,000154: 23,2636 57576 0,2
050120,000155: 23,2637 02665 TRIPA
050121,000156: 23,2640 63101 NORM INCR,2
050122,000157: 23,2641 00050 X2
050123,000158: 23,2642 77775 DEC -2 B-14
050124,000159: 23,2643 77134 SXA,2 AXT,2
050125,000160: 23,2644 02103 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
050126,000161: 23,2645 00242 162D
050127,000162: 23,2646 40265 BDDV SETPD
050128,000163: 23,2647 06512 DP1/4TH
050129,000164: 23,2650 00001 0
050130,000165: 23,2651 03500 STORE GAMMA
050131,000166: 23,2652 60351 TLOAD NORM
050132,000167: 23,2653 02665 TRIPA
050133,000168: 23,2654 00047 X1
050134,000169: 23,2655 65345 DLOAD PDDL # PD 0-1 = NORM (A)
050135,000170: 23,2656 00155 MPAC
050136,000171: 23,2657 03547 DELTAQ
050137,000172: 23,2660 77701 NORM
050138,000173: 23,2661 00051 S1
050139,000174: 23,2662 70460 XSU,1 SR1
050140,000175: 23,2663 00050 S1
050141,000176: 23,2664 41471 DDV PUSH # PD 0-1 = DELTAQ/A
050142,000177: 23,2665 77650 GOTO
050143,000178: 23,2666 45711 NEWZCOMP
050144,000179: 23,2667 77731 -3 SSP
050145,000180: 23,2670 00052 S2
050146,000181: 23,2671 00066 54D
050147,000182: 23,2672 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
050148,000183: 23,2673 02643 ZI
050149,000184: 23,2674 75134 W +162D,2
050150,000185: 23,2675 77206 PUSH VLOAD
050151,000186: 23,2676 02651 ZI +6
050152,000187: 23,2677 53303 VXM* VAD
050153,000188: 23,2700 75112 W +180D,2
050154,000189: 23,2701 77206 PUSH VLOAD
050155,000190: 23,2702 02657 ZI +12D
050156,000191: 23,2703 53303 VXM* VAD
050157,000192: 23,2704 75070 W +198D,2
050158,000193: 23,2705 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
050159,000194: 23,2706 46672 INCOR2
050160,000195: 23,2707 45575 VLOAD STADR
050161,000196: 23,2710 74260 STORE OMEGA +12D
050162,000197: 23,2711 45575 VLOAD STADR
050163,000198: 23,2712 74266 STORE OMEGA +6
050164,000199: 23,2713 45575 VLOAD STADR
050165,000200: 23,2714 74274 STORE OMEGA
|
|
Page 1152 |
050167,000202: 23,2715 77214 BON VLOAD
050168,000203: 23,2716 02706 DMENFLG
050169,000204: 23,2717 46722 INCOR2AB
050170,000205: 23,2720 06522 ZEROVECS
050171,000206: 23,2721 03517 STORE OMEGA +12D
050172,000207: 23,2722 66374 INCOR2AB AXT,2 SSP
050173,000208: 23,2723 00022 18D
050174,000209: 23,2724 00052 S2
050175,000210: 23,2725 00006 6
050176,000211: 23,2726 77773 INCOR3 VLOAD*
050177,000212: 23,2727 74252 OMEGA +18D,2
050178,000213: 23,2730 53761 VXSC VSL*
050179,000214: 23,2731 00001 0 # DELTAQ/A
050180,000215: 23,2732 20201 0,1
050181,000216: 23,2733 12707 STORE DELTAX +18D,2
050182,000217: 23,2734 77304 TIX,2 VLOAD
050183,000218: 23,2735 46726 INCOR3
050184,000219: 23,2736 02673 DELTAX +6
050185,000220: 23,2737 77732 VSL3
050186,000221: 23,2740 02673 STORE DELTAX +6
050187,000222: 23,2741 77650 GOTO
050188,000223: 23,2742 02772 EGRESS
050189,000224:
|
|
Page 1153 |
050191,000226: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
050192,000227: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
050193,000228: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
050194,000229:
050195,000230: # INPUT
050196,000231: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
050197,000232: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
050198,000233: # W = ERROR TRANSITION MATRIX
050199,000234: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
050200,000235: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
050201,000236: # GAMMA = SCALAR FOR INCORPORATION
050202,000237: # ZI = VECTOR USED IN INCORPORATION
050203,000238: # OMEGA = WEIGHTING VECTOR
050204,000239:
050205,000240: # OUTPUT
050206,000241: # UPDATED PERMANENT STATE VECTOR
050207,000242:
050208,000243: # CALLING SEQUENCE
050209,000244: # L CALL INCORP2
050210,000245:
050211,000246: # NORMAL EXIT
050212,000247: # L+1 OF CALLING SEQUENCE
050213,000248:
050214,000249:
050215,000250: 23,2000 SETLOC MEASINC1
050216,000251: 23,2000 BANK
050217,000252:
050218,000253: 23,2743 COUNT* $$/INCOR
050219,000254:
050220,000255: 23,2743 45020 INCORP2 STQ CALL
050221,000256: 23,2744 02772 EGRESS
050222,000257: 23,2745 27414 INTSTALL
050223,000258: 23,2746 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
050224,000259: 23,2747 03503 OMEGA
050225,000260: 23,2750 03500 GAMMA
050226,000261: 23,2751 26713 STOVL OMEGAM1
050227,000262: 23,2752 03511 OMEGA +6
050228,000263: 23,2753 77761 VXSC
050229,000264: 23,2754 03500 GAMMA
050230,000265: 23,2755 26721 STOVL OMEGAM2
050231,000266: 23,2756 03517 OMEGA +12D
050232,000267: 23,2757 77761 VXSC
050233,000268: 23,2760 03500 GAMMA
050234,000269: 23,2761 02727 STORE OMEGAM3
050235,000270: 23,2762 77776 EXIT
050236,000271: 23,2763 33244 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
050237,000272: 23,2764 55320 TS WIXA
050238,000273: 23,2765 55321 TS WIXB
050239,000274: 23,2766 34755 CAF ZERO
050240,000275: 23,2767 55322 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
050241,000276: 23,2770 55323 TS ZIXB
050242,000277: 23,2771 05353 FAZA TC PHASCHNG
|
|
Page 1154 |
050244,000279: 23,2772 04022 OCT 04022
050245,000280: 23,2773 05504 TC UPFLAG
050246,000281: 23,2774 00236 ADRES REINTFLG
050247,000282: 23,2775 31321 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
050248,000283: 23,2776 55320 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
050249,000284: 23,2777 31323 CA ZIXB
050250,000285: 23,3000 55322 TS ZIXA
050251,000286: 23,3001 06037 TC INTPRET
050252,000287: 23,3002 73150 LXA,1 LXA,2
050253,000288: 23,3003 01320 WIXA
050254,000289: 23,3004 01322 ZIXA
050255,000290: 23,3005 70731 SSP DLOAD*
050256,000291: 23,3006 00051 S1
050257,000292: 23,3007 00006 6
050258,000293: 23,3010 75134 ZI,2
050259,000294: 23,3011 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
050260,000295: 23,3012 00052 S2
050261,000296: 23,3013 65161 VXSC XCHX,2
050262,000297: 23,3014 02713 OMEGAM1
050263,000298: 23,3015 00051 S2
050264,000299: 23,3016 57144 LXC,2 XAD,2
050265,000300: 23,3017 00047 X2
050266,000301: 23,3020 02103 NORMGAM
050267,000302: 23,3021 65057 VSL* XCHX,2
050268,000303: 23,3022 57576 0,2
050269,000304: 23,3023 00051 S2
050270,000305: 23,3024 77653 VAD*
050271,000306: 23,3025 02467 W +54D,1
050272,000307: 23,3026 02735 STORE HOLDW
050273,000308: 23,3027 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
050274,000309: 23,3030 75134 ZI,2
050275,000310: 23,3031 74301 NORM VXSC
050276,000311: 23,3032 00052 S2
050277,000312: 23,3033 02721 OMEGAM2
050278,000313: 23,3034 71124 XCHX,2 LXC,2
050279,000314: 23,3035 00051 S2
050280,000315: 23,3036 00047 X2
050281,000316: 23,3037 53674 XAD,2 VSL*
050282,000317: 23,3040 02103 NORMGAM
050283,000318: 23,3041 57576 0,2
050284,000319: 23,3042 52724 XCHX,2 VAD*
050285,000320: 23,3043 00051 S2
050286,000321: 23,3044 02555 W +108D,1
050287,000322: 23,3045 02743 STORE HOLDW +6
050288,000323: 23,3046 77614 BOFF
050289,000324: 23,3047 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
050290,000325: 23,3050 47070 FAZB
050291,000326: 23,3051 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
050292,000327: 23,3052 75134 ZI,2
050293,000328: 23,3053 74301 NORM VXSC
|
|
Page 1155 |
050295,000330: 23,3054 00052 S2
050296,000331: 23,3055 02727 OMEGAM3
050297,000332: 23,3056 71124 XCHX,2 LXC,2
050298,000333: 23,3057 00051 S2
050299,000334: 23,3060 00047 X2
050300,000335: 23,3061 53674 XAD,2 VSL*
050301,000336: 23,3062 02103 NORMGAM
050302,000337: 23,3063 57576 0,2
050303,000338: 23,3064 52724 XCHX,2 VAD*
050304,000339: 23,3065 00051 S2
050305,000340: 23,3066 02643 W +162D,1
050306,000341: 23,3067 02751 STORE HOLDW +12D
050307,000342: 23,3070 77624 FAZB CALL
050308,000343: 23,3071 11244 GRP2PC
050309,000344: 23,3072 77776 EXIT
050310,000345: 23,3073 31320 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
050311,000346: 23,3074 63245 AD 6DD # TEMP REG TO PERM W MATRIX
050312,000347: 23,3075 55321 TS WIXB
050313,000348: 23,3076 31322 CA ZIXA
050314,000349: 23,3077 67746 AD MINUS2
050315,000350: 23,3100 55323 TS ZIXB
050316,000351: 23,3101 06037 TC INTPRET
050317,000352: 23,3102 66350 LXA,1 SSP
050318,000353: 23,3103 01320 WIXA
050319,000354: 23,3104 00051 S1
050320,000355: 23,3105 00006 6
050321,000356: 23,3106 77775 VLOAD
050322,000357: 23,3107 02735 HOLDW
050323,000358: 23,3110 06467 STORE W +54D,1
050324,000359: 23,3111 77775 VLOAD
050325,000360: 23,3112 02743 HOLDW +6
050326,000361: 23,3113 06555 STORE W +108D,1
050327,000362: 23,3114 77214 BOFF VLOAD
050328,000363: 23,3115 02746 DMENFLG
050329,000364: 23,3116 47126 FAZB5
050330,000365: 23,3117 02751 HOLDW +12D
050331,000366: 23,3120 06643 STORE W +162D,1
050332,000367: 23,3121 52100 FAZB2 TIX,1 GOTO
050333,000368: 23,3122 47124 +2
050334,000369: 23,3123 47134 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
050335,000370: 23,3124 77634 RTB
050336,000371: 23,3125 46771 FAZA
050337,000372: 23,3126 43335 FAZB5 SLOAD DAD
050338,000373: 23,3127 01324 ZIXB
050339,000374: 23,3130 07247 12DD
050340,000375: 23,3131 52030 BHIZ GOTO
050341,000376: 23,3132 47134 FAZC
050342,000377: 23,3133 47121 FAZB2
050343,000378: 23,3134 77624 FAZC CALL
050344,000379: 23,3135 11244 GRP2PC
|
|
Page 1156 |
050346,000381: 23,3136 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
050347,000382: 23,3137 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
050348,000383: 23,3140 02701 DELTAX +12D # INCORPORATION FOR X789
050349,000384: 23,3141 03472 STORE TX789
050350,000385: 23,3142 47014 BON RTB
050351,000386: 23,3143 00707 VEHUPFLG
050352,000387: 23,3144 47234 DOCSM
050353,000388: 23,3145 26770 MOVEPLEM
050354,000389: 23,3146 77004 FAZAB BOVB AXT,2
050355,000390: 23,3147 57753 TCDANZIG
050356,000391: 23,3150 00000 0
050357,000392: 23,3151 77014 BOFF AXT,2
050358,000393: 23,3152 04344 MOONTHIS
050359,000394: 23,3153 47155 +2
050360,000395: 23,3154 00002 2
050361,000396: 23,3155 53775 VLOAD VSR*
050362,000397: 23,3156 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
050363,000398: 23,3157 57205 0 -7,2
050364,000399: 23,3160 40055 VAD BOV
050365,000400: 23,3161 01521 TDELTAV
050366,000401: 23,3162 47174 FAZAB1
050367,000402: 23,3163 25521 STOVL TDELTAV
050368,000403: 23,3164 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
050369,000404: 23,3165 53257 VSR* VAD
050370,000405: 23,3166 57202 0 -4,2
050371,000406: 23,3167 01527 TNUV
050372,000407: 23,3170 77600 BOV
050373,000408: 23,3171 47200 FAZAB2
050374,000409: 23,3172 35527 STCALL TNUV
050375,000410: 23,3173 47207 FAZAB3
050376,000411: 23,3174 53375 FAZAB1 VLOAD VAD
050377,000412: 23,3175 01535 RCV
050378,000413: 23,3176 02665 DELTAX
050379,000414: 23,3177 01535 STORE RCV
050380,000415: 23,3200 53375 FAZAB2 VLOAD VAD
050381,000416: 23,3201 01543 VCV
050382,000417: 23,3202 02673 DELTAX +6
050383,000418: 23,3203 01543 STORE VCV
050384,000419: 23,3204 45134 SXA,2 CALL
050385,000420: 23,3205 02030 PBODY
050386,000421: 23,3206 23441 RECTIFY
050387,000422: 23,3207 77624 FAZAB3 CALL
050388,000423: 23,3210 11244 GRP2PC
050389,000424: 23,3211 47014 BON RTB
050390,000425: 23,3212 00707 VEHUPFLG
050391,000426: 23,3213 47237 DOCSM1
050392,000427: 23,3214 26747 MOVEALEM
050393,000428: 23,3215 77624 CALL
050394,000429: 23,3216 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR
050395,000430: 23,3217 77624 FAZAB4 CALL
|
|
Page 1157 |
050397,000432: 23,3220 11244 GRP2PC # PHASE CHANGE
050398,000433: 23,3221 77214 BOFF VLOAD
050399,000434: 23,3222 02746 DMENFLG
050400,000435: 23,3223 47226 FAZAB5 # 6 DIMENSIONAL
050401,000436: 23,3224 03472 TX789 # 9 DIMENSIONAL
050402,000437: 23,3225 01701 STORE X789
050403,000438: 23,3226 66150 FAZAB5 LXA,1 SXA,1
050404,000439: 23,3227 02772 EGRESS
050405,000440: 23,3230 00052 QPRET
050406,000441: 23,3231 77776 EXIT
050407,000442: 23,3232 04635 TC POSTJUMP # EXIT
050408,000443: 23,3233 27425 CADR INTWAKE
050409,000444: 23,3234 52034 DOCSM RTB GOTO
050410,000445: 23,3235 26723 MOVEPCSM
050411,000446: 23,3236 47146 FAZAB
050412,000447: 23,3237 45034 DOCSM1 RTB CALL
050413,000448: 23,3240 26674 MOVEACSM
050414,000449: 23,3241 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR
050415,000450: 23,3242 77650 GOTO
050416,000451: 23,3243 47217 FAZAB4
050417,000452: 23,3244 23,2521 ZEROO = ZEROVECS
050418,000453: 23,3244 00066 54DD DEC 54 B-14
050419,000454: 23,3245 77771 6DD DEC -6 B-14
050420,000455: 23,3246 00014 12DD DEC 12 B-14
050421,000456:
050422,000457: 22,2000 SETLOC RENDEZ
050423,000458: 22,2000 BANK
050424,000459: 22,3711 COUNT* $$/INCOR
050425,000460:
050426,000461: 22,3711 51575 NEWZCOMP VLOAD ABVAL
050427,000462: 22,3712 02643 ZI
050428,000463: 22,3713 24045 STOVL NORMZI
050429,000464: 22,3714 02651 ZI +6
050430,000465: 22,3715 41446 ABVAL PUSH
050431,000466: 22,3716 50025 DSU BMN
050432,000467: 22,3717 00045 NORMZI
050433,000468: 22,3720 45723 +3
050434,000469: 22,3721 45545 DLOAD STADR
050435,000470: 22,3722 77732 STORE NORMZI
050436,000471: 22,3723 51575 VLOAD ABVAL
050437,000472: 22,3724 02657 ZI +12D
050438,000473: 22,3725 45206 PUSH DSU
050439,000474: 22,3726 00045 NORMZI
050440,000475: 22,3727 71240 BMN DLOAD
050441,000476: 22,3730 45733 +3
050442,000477: 22,3731 77626 STADR
050443,000478: 22,3732 77732 STORE NORMZI # LARGEST ABVAL
050444,000479: 22,3733 66145 DLOAD SXA,1
050445,000480: 22,3734 00045 NORMZI
050446,000481: 22,3735 00044 NORMZI # SAVE X1
050447,000482: 22,3736 62101 NORM INCR,1
|
|
Page 1158 |
050449,000484: 22,3737 00047 X1
050450,000485: 22,3740 00002 DEC 2 B-14
050451,000486: 22,3741 53775 VLOAD VSL*
050452,000487: 22,3742 02643 ZI
050453,000488: 22,3743 20201 0,1
050454,000489: 22,3744 26643 STOVL ZI
050455,000490: 22,3745 02651 ZI +6
050456,000491: 22,3746 77657 VSL*
050457,000492: 22,3747 20201 0,1
050458,000493: 22,3750 26651 STOVL ZI +6
050459,000494: 22,3751 02657 ZI +12D
050460,000495: 22,3752 66057 VSL* SXA,1
050461,000496: 22,3753 20201 0,1
050462,000497: 22,3754 00045 NORMZI +1 # SAVE SHIFT
050463,000498: 22,3755 02657 STORE ZI +12D
050464,000499: 22,3756 54150 LXA,1 XSU,1
050465,000500: 22,3757 02103 NORMGAM
050466,000501: 22,3760 00045 NORMZI +1
050467,000502: 22,3761 77660 XSU,1
050468,000503: 22,3762 00045 NORMZI +1
050469,000504: 22,3763 70130 SXA,1 LXC,1
050470,000505: 22,3764 02103 NORMGAM
050471,000506: 22,3765 00045 NORMZI +1
050472,000507: 22,3766 40270 XAD,1 SETPD
050473,000508: 22,3767 00044 NORMZI
050474,000509: 22,3770 00003 2D
050475,000510: 22,3771 77650 GOTO
050476,000511: 22,3772 46667 INCOR2 -3
050477,000512: 22,3773 NORMZI = 36D
050478,000513:
050479,000514:
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc