GAP: ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061 16:27 JULY 14,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061 16:27 JULY 14,1969Note that the date is the date of the printout, not the date of the program revision. |
049041,000002: ## Copyright: Public domain.
049042,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
049043,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
049044,000005: ## It is part of the source code for the Lunar Module's (LM)
049045,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
049046,000007: ##
049047,000008: ## Assembler: yaYUL
049048,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
049049,000010: ## Website: www.ibiblio.org/apollo.
049050,000011: ## Pages: 1149-1158
049051,000012: ## Mod history: 2009-05-28 JL Updated from page images.
049052,000013: ## 2011-01-06 JL Fixed pseudo-label indentation.
049053,000014: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
049054,000015: ## and corrected the errors found.
049055,000016: ## 2021-05-30 ABS ZEROD -> ZEROO
049056,000017: ##
049057,000018: ## This source code has been transcribed or otherwise adapted from digitized
049058,000019: ## images of a hardcopy from the MIT Museum. The digitization was performed
049059,000020: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
049060,000021: ## thanks to both. The images (with suitable reduction in storage size and
049061,000022: ## consequent reduction in image quality as well) are available online at
049062,000023: ## www.ibiblio.org/apollo. If for some reason you find that the images are
049063,000024: ## illegible, contact me at info@sandroid.org about getting access to the
049064,000025: ## (much) higher-quality images which Paul actually created.
049065,000026: ##
049066,000027: ## Notations on the hardcopy document read, in part:
049067,000028: ##
049068,000029: ## Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
049069,000030: ## 16:27 JULY 14, 1969
049070,000031:
|
|
Page 1149 |
049072,000033: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
049073,000034: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
049074,000035: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
049075,000036: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
049076,000037: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
049077,000038: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
049078,000039: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
049079,000040:
049080,000041: # INPUT
049081,000042: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1=9DIMENSIONAL
049082,000043: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
049083,000044: # VARIANCE = VARIANCE (SCALAR)
049084,000045: # DELTAQ = MEASURED DEVIATION (SCALAR)
049085,000046: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
049086,000047:
049087,000048: # OUTPUT
049088,000049: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
049089,000050: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
049090,000051: # GAMMA = SCALAR
049091,000052: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
049092,000053:
049093,000054: # CALLING SEQUENCE
049094,000055: # L CALL INCORP1
049095,000056:
049096,000057: # NORMAL EXIT
049097,000058: # L+1 OF CALLING SEQUENCE
049098,000059:
049099,000060: 37,3655 BANK 37
049100,000061: 23,2000 SETLOC MEASINC
049101,000062: 23,2000 BANK
049102,000063:
049103,000064: 23,2531 COUNT* $$/INCOR
049104,000065:
049105,000066: 23,2531 E5,1400 EBANK= W
049106,000067:
049107,000068: 23,2531 77620 INCORP1 STQ
049108,000069: 23,2532 02772 EGRESS
049109,000070: 23,2533 66370 AXT,1 SSP
049110,000071: 23,2534 00066 54D
049111,000072: 23,2535 00051 S1
049112,000073: 23,2536 00022 18D # IX1 = 54 S1= 18
049113,000074: 23,2537 66374 AXT,2 SSP
049114,000075: 23,2540 00022 18D
049115,000076: 23,2541 00052 S2
049116,000077: 23,2542 00006 6 # IX2 = 18 S2=6
049117,000078: 23,2543 63775 Z123 VLOAD MXV*
049118,000079: 23,2544 03525 BVECTOR # BVECTOR (0)
049119,000080: 23,2545 02467 W +54D,1
049120,000081: 23,2546 12665 STORE ZI +18D,2
049121,000082: 23,2547 77775 VLOAD
049122,000083: 23,2550 03533 BVECTOR +6 # BVECTOR (1)
|
|
Page 1150 |
049124,000085: 23,2551 52717 MXV* VAD*
049125,000086: 23,2552 02555 W +108D,1
049126,000087: 23,2553 75112 ZI +18D,2
049127,000088: 23,2554 12665 STORE ZI +18D,2
049128,000089: 23,2555 77775 VLOAD
049129,000090: 23,2556 03541 BVECTOR +12D # BVECTOR (2)
049130,000091: 23,2557 52717 MXV* VAD*
049131,000092: 23,2560 02643 W +162D,1
049132,000093: 23,2561 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
049133,000094: 23,2562 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
049134,000095: 23,2563 77700 TIX,1
049135,000096: 23,2564 46565 INCOR1
049136,000097: 23,2565 43104 INCOR1 TIX,2 BON
049137,000098: 23,2566 46543 Z123 # LOOP FOR Z1,Z2,Z3
049138,000099: 23,2567 02706 DMENFLG
049139,000100: 23,2570 46574 INCOR1A
049140,000101: 23,2571 77775 VLOAD
049141,000102: 23,2572 06522 ZEROVECS
049142,000103: 23,2573 02657 STORE ZI +12D
049143,000104: 23,2574 77201 INCOR1A SETPD VLOAD
049144,000105: 23,2575 00001 0
049145,000106: 23,2576 02643 ZI
049146,000107: 23,2577 47036 VSQ RTB
049147,000108: 23,2600 21633 TPMODE
049148,000109: 23,2601 47515 PDVL VSQ
049149,000110: 23,2602 02651 ZI +6
049150,000111: 23,2603 76234 RTB TAD
049151,000112: 23,2604 21633 TPMODE
049152,000113: 23,2605 47515 PDVL VSQ
049153,000114: 23,2606 02657 ZI +12D
049154,000115: 23,2607 76234 RTB TAD
049155,000116: 23,2610 21633 TPMODE
049156,000117: 23,2611 77171 TAD AXT,2
049157,000118: 23,2612 02707 VARIANCE
049158,000119: 23,2613 00000 0
049159,000120: 23,2614 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
049160,000121: 23,2615 40151 TLOAD BOV
049161,000122: 23,2616 02707 VARIANCE # CLEAR OVFIND
049162,000123: 23,2617 46620 +1
049163,000124: 23,2620 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
049164,000125: 23,2621 77654 BZE
049165,000126: 23,2622 46631 INCOR1C
049166,000127: 23,2623 40112 INCOR1B SL2 BOV
049167,000128: 23,2624 46631 INCOR1C
049168,000129: 23,2625 02670 STORE TEMPVAR
049169,000130: 23,2626 52114 INCR,2 GOTO
049170,000131: 23,2627 00001 DEC 1 B-14
049171,000132: 23,2630 46623 INCOR1B
049172,000133: 23,2631 61551 INCOR1C TLOAD ROUND
049173,000134: 23,2632 02665 TRIPA
|
|
Page 1151 |
049175,000136: 23,2633 75405 DMP SQRT
049176,000137: 23,2634 02670 TEMPVAR
049177,000138: 23,2635 76257 SL* TAD
049178,000139: 23,2636 57576 0,2
049179,000140: 23,2637 02665 TRIPA
049180,000141: 23,2640 63101 NORM INCR,2
049181,000142: 23,2641 00050 X2
049182,000143: 23,2642 77775 DEC -2 B-14
049183,000144: 23,2643 77134 SXA,2 AXT,2
049184,000145: 23,2644 02103 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
049185,000146: 23,2645 00242 162D
049186,000147: 23,2646 40265 BDDV SETPD
049187,000148: 23,2647 06512 DP1/4TH
049188,000149: 23,2650 00001 0
049189,000150: 23,2651 03500 STORE GAMMA
049190,000151: 23,2652 60351 TLOAD NORM
049191,000152: 23,2653 02665 TRIPA
049192,000153: 23,2654 00047 X1
049193,000154: 23,2655 65345 DLOAD PDDL # PD 0-1 = NORM (A)
049194,000155: 23,2656 00155 MPAC
049195,000156: 23,2657 03547 DELTAQ
049196,000157: 23,2660 77701 NORM
049197,000158: 23,2661 00051 S1
049198,000159: 23,2662 70460 XSU,1 SR1
049199,000160: 23,2663 00050 S1
049200,000161: 23,2664 41471 DDV PUSH # PD 0-1 = DELTAQ/A
049201,000162: 23,2665 77650 GOTO
049202,000163: 23,2666 45711 NEWZCOMP
049203,000164: 23,2667 77731 -3 SSP
049204,000165: 23,2670 00052 S2
049205,000166: 23,2671 00066 54D
049206,000167: 23,2672 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
049207,000168: 23,2673 02643 ZI
049208,000169: 23,2674 75134 W +162D,2
049209,000170: 23,2675 77206 PUSH VLOAD
049210,000171: 23,2676 02651 ZI +6
049211,000172: 23,2677 53303 VXM* VAD
049212,000173: 23,2700 75112 W +180D,2
049213,000174: 23,2701 77206 PUSH VLOAD
049214,000175: 23,2702 02657 ZI +12D
049215,000176: 23,2703 53303 VXM* VAD
049216,000177: 23,2704 75070 W +198D,2
049217,000178: 23,2705 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
049218,000179: 23,2706 46672 INCOR2
049219,000180: 23,2707 45575 VLOAD STADR
049220,000181: 23,2710 74260 STORE OMEGA +12D
049221,000182: 23,2711 45575 VLOAD STADR
049222,000183: 23,2712 74266 STORE OMEGA +6
049223,000184: 23,2713 45575 VLOAD STADR
049224,000185: 23,2714 74274 STORE OMEGA
|
|
Page 1152 |
049226,000187: 23,2715 77214 BON VLOAD
049227,000188: 23,2716 02706 DMENFLG
049228,000189: 23,2717 46722 INCOR2AB
049229,000190: 23,2720 06522 ZEROVECS
049230,000191: 23,2721 03517 STORE OMEGA +12D
049231,000192: 23,2722 66374 INCOR2AB AXT,2 SSP
049232,000193: 23,2723 00022 18D
049233,000194: 23,2724 00052 S2
049234,000195: 23,2725 00006 6
049235,000196: 23,2726 77773 INCOR3 VLOAD*
049236,000197: 23,2727 74252 OMEGA +18D,2
049237,000198: 23,2730 53761 VXSC VSL*
049238,000199: 23,2731 00001 0 # DELTAQ/A
049239,000200: 23,2732 20201 0,1
049240,000201: 23,2733 12707 STORE DELTAX +18D,2
049241,000202: 23,2734 77304 TIX,2 VLOAD
049242,000203: 23,2735 46726 INCOR3
049243,000204: 23,2736 02673 DELTAX +6
049244,000205: 23,2737 77732 VSL3
049245,000206: 23,2740 02673 STORE DELTAX +6
049246,000207: 23,2741 77650 GOTO
049247,000208: 23,2742 02772 EGRESS
049248,000209:
|
|
Page 1153 |
049250,000211: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
049251,000212: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
049252,000213: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
049253,000214:
049254,000215: # INPUT
049255,000216: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
049256,000217: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
049257,000218: # W = ERROR TRANSITION MATRIX
049258,000219: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
049259,000220: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
049260,000221: # GAMMA = SCALAR FOR INCORPORATION
049261,000222: # ZI = VECTOR USED IN INCORPORATION
049262,000223: # OMEGA = WEIGHTING VECTOR
049263,000224:
049264,000225: # OUTPUT
049265,000226: # UPDATED PERMANENT STATE VECTOR
049266,000227:
049267,000228: # CALLING SEQUENCE
049268,000229: # L CALL INCORP2
049269,000230:
049270,000231: # NORMAL EXIT
049271,000232: # L+1 OF CALLING SEQUENCE
049272,000233:
049273,000234:
049274,000235: 23,2000 SETLOC MEASINC1
049275,000236: 23,2000 BANK
049276,000237:
049277,000238: 23,2743 COUNT* $$/INCOR
049278,000239:
049279,000240: 23,2743 45020 INCORP2 STQ CALL
049280,000241: 23,2744 02772 EGRESS
049281,000242: 23,2745 27414 INTSTALL
049282,000243: 23,2746 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
049283,000244: 23,2747 03503 OMEGA
049284,000245: 23,2750 03500 GAMMA
049285,000246: 23,2751 26713 STOVL OMEGAM1
049286,000247: 23,2752 03511 OMEGA +6
049287,000248: 23,2753 77761 VXSC
049288,000249: 23,2754 03500 GAMMA
049289,000250: 23,2755 26721 STOVL OMEGAM2
049290,000251: 23,2756 03517 OMEGA +12D
049291,000252: 23,2757 77761 VXSC
049292,000253: 23,2760 03500 GAMMA
049293,000254: 23,2761 02727 STORE OMEGAM3
049294,000255: 23,2762 77776 EXIT
049295,000256: 23,2763 33244 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
049296,000257: 23,2764 55320 TS WIXA
049297,000258: 23,2765 55321 TS WIXB
049298,000259: 23,2766 34755 CAF ZERO
049299,000260: 23,2767 55322 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
049300,000261: 23,2770 55323 TS ZIXB
049301,000262: 23,2771 05353 FAZA TC PHASCHNG
|
|
Page 1154 |
049303,000264: 23,2772 04022 OCT 04022
049304,000265: 23,2773 05504 TC UPFLAG
049305,000266: 23,2774 00236 ADRES REINTFLG
049306,000267: 23,2775 31321 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
049307,000268: 23,2776 55320 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
049308,000269: 23,2777 31323 CA ZIXB
049309,000270: 23,3000 55322 TS ZIXA
049310,000271: 23,3001 06037 TC INTPRET
049311,000272: 23,3002 73150 LXA,1 LXA,2
049312,000273: 23,3003 01320 WIXA
049313,000274: 23,3004 01322 ZIXA
049314,000275: 23,3005 70731 SSP DLOAD*
049315,000276: 23,3006 00051 S1
049316,000277: 23,3007 00006 6
049317,000278: 23,3010 75134 ZI,2
049318,000279: 23,3011 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
049319,000280: 23,3012 00052 S2
049320,000281: 23,3013 65161 VXSC XCHX,2
049321,000282: 23,3014 02713 OMEGAM1
049322,000283: 23,3015 00051 S2
049323,000284: 23,3016 57144 LXC,2 XAD,2
049324,000285: 23,3017 00047 X2
049325,000286: 23,3020 02103 NORMGAM
049326,000287: 23,3021 65057 VSL* XCHX,2
049327,000288: 23,3022 57576 0,2
049328,000289: 23,3023 00051 S2
049329,000290: 23,3024 77653 VAD*
049330,000291: 23,3025 02467 W +54D,1
049331,000292: 23,3026 02735 STORE HOLDW
049332,000293: 23,3027 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
049333,000294: 23,3030 75134 ZI,2
049334,000295: 23,3031 74301 NORM VXSC
049335,000296: 23,3032 00052 S2
049336,000297: 23,3033 02721 OMEGAM2
049337,000298: 23,3034 71124 XCHX,2 LXC,2
049338,000299: 23,3035 00051 S2
049339,000300: 23,3036 00047 X2
049340,000301: 23,3037 53674 XAD,2 VSL*
049341,000302: 23,3040 02103 NORMGAM
049342,000303: 23,3041 57576 0,2
049343,000304: 23,3042 52724 XCHX,2 VAD*
049344,000305: 23,3043 00051 S2
049345,000306: 23,3044 02555 W +108D,1
049346,000307: 23,3045 02743 STORE HOLDW +6
049347,000308: 23,3046 77614 BOFF
049348,000309: 23,3047 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
049349,000310: 23,3050 47070 FAZB
049350,000311: 23,3051 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
049351,000312: 23,3052 75134 ZI,2
049352,000313: 23,3053 74301 NORM VXSC
|
|
Page 1155 |
049354,000315: 23,3054 00052 S2
049355,000316: 23,3055 02727 OMEGAM3
049356,000317: 23,3056 71124 XCHX,2 LXC,2
049357,000318: 23,3057 00051 S2
049358,000319: 23,3060 00047 X2
049359,000320: 23,3061 53674 XAD,2 VSL*
049360,000321: 23,3062 02103 NORMGAM
049361,000322: 23,3063 57576 0,2
049362,000323: 23,3064 52724 XCHX,2 VAD*
049363,000324: 23,3065 00051 S2
049364,000325: 23,3066 02643 W +162D,1
049365,000326: 23,3067 02751 STORE HOLDW +12D
049366,000327: 23,3070 77624 FAZB CALL
049367,000328: 23,3071 11244 GRP2PC
049368,000329: 23,3072 77776 EXIT
049369,000330: 23,3073 31320 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
049370,000331: 23,3074 63245 AD 6DD # TEMP REG TO PERM W MATRIX
049371,000332: 23,3075 55321 TS WIXB
049372,000333: 23,3076 31322 CA ZIXA
049373,000334: 23,3077 67746 AD MINUS2
049374,000335: 23,3100 55323 TS ZIXB
049375,000336: 23,3101 06037 TC INTPRET
049376,000337: 23,3102 66350 LXA,1 SSP
049377,000338: 23,3103 01320 WIXA
049378,000339: 23,3104 00051 S1
049379,000340: 23,3105 00006 6
049380,000341: 23,3106 77775 VLOAD
049381,000342: 23,3107 02735 HOLDW
049382,000343: 23,3110 06467 STORE W +54D,1
049383,000344: 23,3111 77775 VLOAD
049384,000345: 23,3112 02743 HOLDW +6
049385,000346: 23,3113 06555 STORE W +108D,1
049386,000347: 23,3114 77214 BOFF VLOAD
049387,000348: 23,3115 02746 DMENFLG
049388,000349: 23,3116 47126 FAZB5
049389,000350: 23,3117 02751 HOLDW +12D
049390,000351: 23,3120 06643 STORE W +162D,1
049391,000352: 23,3121 52100 FAZB2 TIX,1 GOTO
049392,000353: 23,3122 47124 +2
049393,000354: 23,3123 47134 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
049394,000355: 23,3124 77634 RTB
049395,000356: 23,3125 46771 FAZA
049396,000357: 23,3126 43335 FAZB5 SLOAD DAD
049397,000358: 23,3127 01324 ZIXB
049398,000359: 23,3130 07247 12DD
049399,000360: 23,3131 52030 BHIZ GOTO
049400,000361: 23,3132 47134 FAZC
049401,000362: 23,3133 47121 FAZB2
049402,000363: 23,3134 77624 FAZC CALL
049403,000364: 23,3135 11244 GRP2PC
|
|
Page 1156 |
049405,000366: 23,3136 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
049406,000367: 23,3137 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
049407,000368: 23,3140 02701 DELTAX +12D # INCORPORATION FOR X789
049408,000369: 23,3141 03472 STORE TX789
049409,000370: 23,3142 47014 BON RTB
049410,000371: 23,3143 00707 VEHUPFLG
049411,000372: 23,3144 47234 DOCSM
049412,000373: 23,3145 26770 MOVEPLEM
049413,000374: 23,3146 77004 FAZAB BOVB AXT,2
049414,000375: 23,3147 57753 TCDANZIG
049415,000376: 23,3150 00000 0
049416,000377: 23,3151 77014 BOFF AXT,2
049417,000378: 23,3152 04344 MOONTHIS
049418,000379: 23,3153 47155 +2
049419,000380: 23,3154 00002 2
049420,000381: 23,3155 53775 VLOAD VSR*
049421,000382: 23,3156 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
049422,000383: 23,3157 57205 0 -7,2
049423,000384: 23,3160 40055 VAD BOV
049424,000385: 23,3161 01521 TDELTAV
049425,000386: 23,3162 47174 FAZAB1
049426,000387: 23,3163 25521 STOVL TDELTAV
049427,000388: 23,3164 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
049428,000389: 23,3165 53257 VSR* VAD
049429,000390: 23,3166 57202 0 -4,2
049430,000391: 23,3167 01527 TNUV
049431,000392: 23,3170 77600 BOV
049432,000393: 23,3171 47200 FAZAB2
049433,000394: 23,3172 35527 STCALL TNUV
049434,000395: 23,3173 47207 FAZAB3
049435,000396: 23,3174 53375 FAZAB1 VLOAD VAD
049436,000397: 23,3175 01535 RCV
049437,000398: 23,3176 02665 DELTAX
049438,000399: 23,3177 01535 STORE RCV
049439,000400: 23,3200 53375 FAZAB2 VLOAD VAD
049440,000401: 23,3201 01543 VCV
049441,000402: 23,3202 02673 DELTAX +6
049442,000403: 23,3203 01543 STORE VCV
049443,000404: 23,3204 45134 SXA,2 CALL
049444,000405: 23,3205 02030 PBODY
049445,000406: 23,3206 23441 RECTIFY
049446,000407: 23,3207 77624 FAZAB3 CALL
049447,000408: 23,3210 11244 GRP2PC
049448,000409: 23,3211 47014 BON RTB
049449,000410: 23,3212 00707 VEHUPFLG
049450,000411: 23,3213 47237 DOCSM1
049451,000412: 23,3214 26747 MOVEALEM
049452,000413: 23,3215 77624 CALL
049453,000414: 23,3216 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR
049454,000415: 23,3217 77624 FAZAB4 CALL
|
|
Page 1157 |
049456,000417: 23,3220 11244 GRP2PC # PHASE CHANGE
049457,000418: 23,3221 77214 BOFF VLOAD
049458,000419: 23,3222 02746 DMENFLG
049459,000420: 23,3223 47226 FAZAB5 # 6 DIMENSIONAL
049460,000421: 23,3224 03472 TX789 # 9 DIMENSIONAL
049461,000422: 23,3225 01701 STORE X789
049462,000423: 23,3226 66150 FAZAB5 LXA,1 SXA,1
049463,000424: 23,3227 02772 EGRESS
049464,000425: 23,3230 00052 QPRET
049465,000426: 23,3231 77776 EXIT
049466,000427: 23,3232 04635 TC POSTJUMP # EXIT
049467,000428: 23,3233 27425 CADR INTWAKE
049468,000429: 23,3234 52034 DOCSM RTB GOTO
049469,000430: 23,3235 26723 MOVEPCSM
049470,000431: 23,3236 47146 FAZAB
049471,000432: 23,3237 45034 DOCSM1 RTB CALL
049472,000433: 23,3240 26674 MOVEACSM
049473,000434: 23,3241 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR
049474,000435: 23,3242 77650 GOTO
049475,000436: 23,3243 47217 FAZAB4
049476,000437: 23,3244 23,2521 ZEROO = ZEROVECS
049477,000438: 23,3244 00066 54DD DEC 54 B-14
049478,000439: 23,3245 77771 6DD DEC -6 B-14
049479,000440: 23,3246 00014 12DD DEC 12 B-14
049480,000441:
049481,000442: 22,2000 SETLOC RENDEZ
049482,000443: 22,2000 BANK
049483,000444: 22,3711 COUNT* $$/INCOR
049484,000445:
049485,000446: 22,3711 51575 NEWZCOMP VLOAD ABVAL
049486,000447: 22,3712 02643 ZI
049487,000448: 22,3713 24045 STOVL NORMZI
049488,000449: 22,3714 02651 ZI +6
049489,000450: 22,3715 41446 ABVAL PUSH
049490,000451: 22,3716 50025 DSU BMN
049491,000452: 22,3717 00045 NORMZI
049492,000453: 22,3720 45723 +3
049493,000454: 22,3721 45545 DLOAD STADR
049494,000455: 22,3722 77732 STORE NORMZI
049495,000456: 22,3723 51575 VLOAD ABVAL
049496,000457: 22,3724 02657 ZI +12D
049497,000458: 22,3725 45206 PUSH DSU
049498,000459: 22,3726 00045 NORMZI
049499,000460: 22,3727 71240 BMN DLOAD
049500,000461: 22,3730 45733 +3
049501,000462: 22,3731 77626 STADR
049502,000463: 22,3732 77732 STORE NORMZI # LARGEST ABVAL
049503,000464: 22,3733 66145 DLOAD SXA,1
049504,000465: 22,3734 00045 NORMZI
049505,000466: 22,3735 00044 NORMZI # SAVE X1
049506,000467: 22,3736 62101 NORM INCR,1
|
|
Page 1158 |
049508,000469: 22,3737 00047 X1
049509,000470: 22,3740 00002 DEC 2 B-14
049510,000471: 22,3741 53775 VLOAD VSL*
049511,000472: 22,3742 02643 ZI
049512,000473: 22,3743 20201 0,1
049513,000474: 22,3744 26643 STOVL ZI
049514,000475: 22,3745 02651 ZI +6
049515,000476: 22,3746 77657 VSL*
049516,000477: 22,3747 20201 0,1
049517,000478: 22,3750 26651 STOVL ZI +6
049518,000479: 22,3751 02657 ZI +12D
049519,000480: 22,3752 66057 VSL* SXA,1
049520,000481: 22,3753 20201 0,1
049521,000482: 22,3754 00045 NORMZI +1 # SAVE SHIFT
049522,000483: 22,3755 02657 STORE ZI +12D
049523,000484: 22,3756 54150 LXA,1 XSU,1
049524,000485: 22,3757 02103 NORMGAM
049525,000486: 22,3760 00045 NORMZI +1
049526,000487: 22,3761 77660 XSU,1
049527,000488: 22,3762 00045 NORMZI +1
049528,000489: 22,3763 70130 SXA,1 LXC,1
049529,000490: 22,3764 02103 NORMGAM
049530,000491: 22,3765 00045 NORMZI +1
049531,000492: 22,3766 40270 XAD,1 SETPD
049532,000493: 22,3767 00044 NORMZI
049533,000494: 22,3770 00003 2D
049534,000495: 22,3771 77650 GOTO
049535,000496: 22,3772 46667 INCOR2 -3
049536,000497: 22,3773 NORMZI = 36D
049537,000498:
049538,000499:
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc