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