Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

049215,000002:                                                                                                  ## Copyright:   Public domain.
049216,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
049217,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
049218,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
049219,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
049220,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
049221,000008:                                                                                                  ##              that the code format has been changed to conform to the
049222,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
049223,000010:                                                                                                  ##              original YUL assembler.
049224,000011:                                                                                                  ## Reference:   pp. 1147-1156
049225,000012:                                                                                                  ## Assembler:   yaYUL
049226,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
049227,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
049228,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
049229,000016:                                                                                                  ##              2016-12-09 JS   Compared to Luminary210 images. Updated where needed.
049230,000017:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
049231,000018:                                                                                                  ##                              and corrected errors found.
049232,000019: 

Page 1147

049234,000021:                                                                                                  #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
049235,000022:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
049236,000023:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
049237,000024:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
049238,000025:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
049239,000026:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
049240,000027:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
049241,000028:                                                                                                  #  INPUT
049242,000029:                                                                                                  #     DMENFLG = 0 6DIMENSIONAL BVECTOR  1= 9DIMENSIONAL
049243,000030:                                                                                                  #            W = ERROR TRANSITION MATRIX 6X6 OR 9X9
049244,000031:                                                                                                  #     VARIANCE = VARIANCE (SCALAR)
049245,000032:                                                                                                  #       DELTAQ = MEASURED DEVIATION (SCALAR)
049246,000033:                                                                                                  #      BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
049247,000034: 
049248,000035:                                                                                                  #  OUTPUT
049249,000036:                                                                                                  #       DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
049250,000037:                                                                                                  #           ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
049251,000038:                                                                                                  #      GAMMA = SCALAR
049252,000039:                                                                                                  #      OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
049253,000040:                                                                                                  #  CALLING SEQUENCE
049254,000041:                                                                                                  #     L  CALL INCORP1
049255,000042: 
049256,000043:                                                                                                  #  NORMAL EXIT
049257,000044:                                                                                                  #     L+1 OF CALLING SEQUENCE
049258,000045: 
049259,000046: 37,3654                                           BANK     37                                    
049260,000047: 23,2000                                           SETLOC   MEASINC                               
049261,000048: 23,2000                                           BANK                                           
049262,000049: 
049263,000050: 23,2514                                           COUNT*   $$/INCOR                              
049264,000051: 
049265,000052: 23,2514  E5,1400                                  EBANK=   W                                     
049266,000053: 
049267,000054: 23,2514           77620        INCORP1            STQ                                            
049268,000055: 23,2515           02767                                    EGRESS                                
049269,000056: 23,2516           66370                           AXT,1    SSP                                   
049270,000057: 23,2517           00066                                    54D                                   
049271,000058: 23,2520           00051                                    S1                                    
049272,000059: 23,2521           00022                                    18D                                   #  IX1 = 54  S1= 18
049273,000060: 23,2522           66374                           AXT,2    SSP                                   
049274,000061: 23,2523           00022                                    18D                                   
049275,000062: 23,2524           00052                                    S2                                    
049276,000063: 23,2525           00006                                    6                                     #  IX2 = 18  S2=6
049277,000064: 23,2526           63775        Z123               VLOAD    MXV*                                  
049278,000065: 23,2527           03525                                    BVECTOR                               #  BVECTOR (0)
049279,000066: 23,2530           02467                                    W          +54D,1                     
049280,000067: 23,2531           12665                           STORE    ZI         +18D,2                     
049281,000068: 23,2532           77775                           VLOAD                                          
049282,000069: 23,2533           03533                                    BVECTOR    +6                         #  BVECTOR (1)
049283,000070: 

Page 1148

049285,000072: 23,2534           52717                           MXV*     VAD*                                  
049286,000073: 23,2535           02555                                    W          +108D,1                    
049287,000074: 23,2536           75112                                    ZI         +18D,2                     
049288,000075: 23,2537           12665                           STORE    ZI         +18D,2                     
049289,000076: 23,2540           77775                           VLOAD                                          
049290,000077: 23,2541           03541                                    BVECTOR    +12D                       #  BVECTOR (2)
049291,000078: 23,2542           52717                           MXV*     VAD*                                  
049292,000079: 23,2543           02643                                    W          +162D,1                    
049293,000080: 23,2544           75112                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108)FIRST PAS
049294,000081: 23,2545           12665                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
049295,000082: 23,2546           77700                           TIX,1                                          
049296,000083: 23,2547           46550                                    INCOR1                                
049297,000084: 23,2550           43104        INCOR1             TIX,2    BON                                   
049298,000085: 23,2551           46526                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
049299,000086: 23,2552           02706                                    DMENFLG                               
049300,000087: 23,2553           46557                                    INCOR1A                               
049301,000088: 23,2554           77775                           VLOAD                                          
049302,000089: 23,2555           06505                                    ZEROVECS                              
049303,000090: 23,2556           02657                           STORE    ZI         +12D                       
049304,000091: 23,2557           77201        INCOR1A            SETPD    VLOAD                                 
049305,000092: 23,2560           00001                                    0                                     
049306,000093: 23,2561           02643                                    ZI                                    
049307,000094: 23,2562           47036                           VSQ      RTB                                   
049308,000095: 23,2563           21643                                    TPMODE                                
049309,000096: 23,2564           47515                           PDVL     VSQ                                   
049310,000097: 23,2565           02651                                    ZI         +6                         
049311,000098: 23,2566           76234                           RTB      TAD                                   
049312,000099: 23,2567           21643                                    TPMODE                                
049313,000100: 23,2570           47515                           PDVL     VSQ                                   
049314,000101: 23,2571           02657                                    ZI         +12D                       
049315,000102: 23,2572           76234                           RTB      TAD                                   
049316,000103: 23,2573           21643                                    TPMODE                                
049317,000104: 23,2574           77171                           TAD      AXT,2                                 
049318,000105: 23,2575           02707                                    VARIANCE                              
049319,000106: 23,2576           00000                                    0                                     
049320,000107: 23,2577           02665                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
049321,000108: 23,2600           40151                           TLOAD    BOV                                   
049322,000109: 23,2601           02707                                    VARIANCE                              #  CLEAR OVFIND
049323,000110: 23,2602           46603                                    +1                                    
049324,000111: 23,2603           02670                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
049325,000112: 23,2604           77654                           BZE                                            
049326,000113: 23,2605           46614                                    INCOR1C                               
049327,000114: 23,2606           40112        INCOR1B            SL2      BOV                                   
049328,000115: 23,2607           46614                                    INCOR1C                               
049329,000116: 23,2610           02670                           STORE    TEMPVAR                               
049330,000117: 23,2611           52114                           INCR,2   GOTO                                  
049331,000118: 23,2612           00001                           DEC      1          B-14                       
049332,000119: 23,2613           46606                                    INCOR1B                               
049333,000120: 23,2614           61551        INCOR1C            TLOAD    ROUND                                 
049334,000121: 23,2615           02665                                    TRIPA                                 
049335,000122: 

Page 1149

049337,000124: 23,2616           75405                           DMP      SQRT                                  
049338,000125: 23,2617           02670                                    TEMPVAR                               
049339,000126: 23,2620           76257                           SL*      TAD                                   
049340,000127: 23,2621           57576                                    0,2                                   
049341,000128: 23,2622           02665                                    TRIPA                                 
049342,000129: 23,2623           63101                           NORM     INCR,2                                
049343,000130: 23,2624           00050                                    X2                                    
049344,000131: 23,2625           77775                           DEC      -2         B-14                       
049345,000132: 23,2626           77134                           SXA,2    AXT,2                                 
049346,000133: 23,2627           02102                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
049347,000134: 23,2630           00242                                    162D                                  
049348,000135: 23,2631           40265                           BDDV     SETPD                                 
049349,000136: 23,2632           06475                                    DP1/4TH                               
049350,000137: 23,2633           00001                                    0                                     
049351,000138: 23,2634           03500                           STORE    GAMMA                                 
049352,000139: 23,2635           60351                           TLOAD    NORM                                  
049353,000140: 23,2636           02665                                    TRIPA                                 
049354,000141: 23,2637           00047                                    X1                                    
049355,000142: 23,2640           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
049356,000143: 23,2641           00155                                    MPAC                                  
049357,000144: 23,2642           03547                                    DELTAQ                                
049358,000145: 23,2643           77701                           NORM                                           
049359,000146: 23,2644           00051                                    S1                                    
049360,000147: 23,2645           70460                           XSU,1    SR1                                   
049361,000148: 23,2646           00050                                    S1                                    
049362,000149: 23,2647           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
049363,000150: 23,2650           77650                           GOTO                                           
049364,000151: 23,2651           45712                                    NEWZCOMP                              
049365,000152: 23,2652           77731                 -3        SSP                                            
049366,000153: 23,2653           00052                                    S2                                    
049367,000154: 23,2654           00066                                    54D                                   
049368,000155: 23,2655           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
049369,000156: 23,2656           02643                                    ZI                                    
049370,000157: 23,2657           75134                                    W          +162D,2                    
049371,000158: 23,2660           77206                           PUSH     VLOAD                                 
049372,000159: 23,2661           02651                                    ZI         +6                         
049373,000160: 23,2662           53303                           VXM*     VAD                                   
049374,000161: 23,2663           75112                                    W          +180D,2                    
049375,000162: 23,2664           77206                           PUSH     VLOAD                                 
049376,000163: 23,2665           02657                                    ZI         +12D                       
049377,000164: 23,2666           53303                           VXM*     VAD                                   
049378,000165: 23,2667           75070                                    W          +198D,2                    
049379,000166: 23,2670           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
049380,000167: 23,2671           46655                                    INCOR2                                
049381,000168: 23,2672           45575                           VLOAD    STADR                                 
049382,000169: 23,2673           74260                           STORE    OMEGA      +12D                       
049383,000170: 23,2674           45575                           VLOAD    STADR                                 
049384,000171: 23,2675           74266                           STORE    OMEGA      +6                         
049385,000172: 23,2676           45575                           VLOAD    STADR                                 
049386,000173: 23,2677           74274                           STORE    OMEGA                                 
049387,000174: 

Page 1150

049389,000176: 23,2700           77214                           BON      VLOAD                                 
049390,000177: 23,2701           02706                                    DMENFLG                               
049391,000178: 23,2702           46705                                    INCOR2AB                              
049392,000179: 23,2703           06505                                    ZEROVECS                              
049393,000180: 23,2704           03517                           STORE    OMEGA      +12D                       
049394,000181: 23,2705           66374        INCOR2AB           AXT,2    SSP                                   
049395,000182: 23,2706           00022                                    18D                                   
049396,000183: 23,2707           00052                                    S2                                    
049397,000184: 23,2710           00006                                    6                                     
049398,000185: 23,2711           77773        INCOR3             VLOAD*                                         
049399,000186: 23,2712           74252                                    OMEGA      +18D,2                     
049400,000187: 23,2713           53761                           VXSC     VSL*                                  
049401,000188: 23,2714           00001                                    0                                     #  DELTAQ/A
049402,000189: 23,2715           20201                                    0,1                                   
049403,000190: 23,2716           12707                           STORE    DELTAX     +18D,2                     
049404,000191: 23,2717           77304                           TIX,2    VLOAD                                 
049405,000192: 23,2720           46711                                    INCOR3                                
049406,000193: 23,2721           02673                                    DELTAX     +6                         
049407,000194: 23,2722           77732                           VSL3                                           
049408,000195: 23,2723           02673                           STORE    DELTAX     +6                         
049409,000196: 23,2724           77650                           GOTO                                           
049410,000197: 23,2725           02767                                    EGRESS                                
049411,000198: 

Page 1151

049413,000200:                                                                                                  #   INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
049414,000201:                                                                                                  #  ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
049415,000202:                                                                                                  #  LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
049416,000203: 
049417,000204:                                                                                                  #  INPUT
049418,000205:                                                                                                  #     PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
049419,000206:                                                                                                  #     VEHUPFLG = UPDATE VEHICLE 0=LEM  1=CSM
049420,000207:                                                                                                  #     W =        ERROR TRANSITION MATRIX
049421,000208:                                                                                                  #     DELTAX  =  COMPUTED STATE VECTOR DEVIATIONS
049422,000209:                                                                                                  #     DMENFLG =  SIZE OF W MATRIX (ZERO =6X6) (1=9X9)
049423,000210:                                                                                                  #     GAMMA   =  SCALAR FOR INCORPORATION
049424,000211:                                                                                                  #     ZI      =  VECTOR USED IN INCORPORATION
049425,000212:                                                                                                  #     OMEGA  =  WEIGHTING VECTOR
049426,000213: 
049427,000214:                                                                                                  #  OUTPUT
049428,000215:                                                                                                  #     UPDATED PERMANENT STATE VECTOR
049429,000216: 
049430,000217:                                                                                                  #  CALLING SEQUENCE
049431,000218:                                                                                                  #     L  CALL INCORP2
049432,000219: 
049433,000220:                                                                                                  #  NORMAL EXIT
049434,000221:                                                                                                  #     L+1 OF CALLING SEQUENCE
049435,000222: 
049436,000223: 
049437,000224: 23,2000                                           SETLOC   MEASINC1                              
049438,000225: 23,2000                                           BANK                                           
049439,000226: 
049440,000227: 23,2726                                           COUNT*   $$/INCOR                              
049441,000228: 
049442,000229: 23,2726           45020        INCORP2            STQ      CALL                                  
049443,000230: 23,2727           02767                                    EGRESS                                
049444,000231: 23,2730           27447                                    INTSTALL                              
049445,000232: 23,2731           74375                           VLOAD    VXSC                                  #  CALC. GAMMA * OMEGA1,2,3
049446,000233: 23,2732           03503                                    OMEGA                                 
049447,000234: 23,2733           03500                                    GAMMA                                 
049448,000235: 23,2734           26713                           STOVL    OMEGAM1                               
049449,000236: 23,2735           03511                                    OMEGA      +6                         
049450,000237: 23,2736           77761                           VXSC                                           
049451,000238: 23,2737           03500                                    GAMMA                                 
049452,000239: 23,2740           26721                           STOVL    OMEGAM2                               
049453,000240: 23,2741           03517                                    OMEGA      +12D                       
049454,000241: 23,2742           77761                           VXSC                                           
049455,000242: 23,2743           03500                                    GAMMA                                 
049456,000243: 23,2744           02727                           STORE    OMEGAM3                               
049457,000244: 23,2745           77776                           EXIT                                           
049458,000245: 23,2746           33227                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
049459,000246: 23,2747           55315                           TS       WIXA                                  
049460,000247: 23,2750           55316                           TS       WIXB                                  
049461,000248: 23,2751           34746                           CAF      ZERO                                  
049462,000249: 23,2752           55317                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
049463,000250: 23,2753           55320                           TS       ZIXB                                  
049464,000251: 23,2754           05355        FAZA               TC       PHASCHNG                              
049465,000252: 

Page 1152

049467,000254: 23,2755           04022                           OCT      04022                                 
049468,000255: 23,2756           05506                           TC       UPFLAG                                
049469,000256: 23,2757           00236                           ADRES    REINTFLG                              
049470,000257: 23,2760           31316        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
049471,000258: 23,2761           55315                           TS       WIXA                                  #   TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
049472,000259: 23,2762           31320                           CA       ZIXB                                  
049473,000260: 23,2763           55317                           TS       ZIXA                                  
049474,000261: 23,2764           06060                           TC       INTPRET                               
049475,000262: 23,2765           73150                           LXA,1    LXA,2                                 
049476,000263: 23,2766           01315                                    WIXA                                  
049477,000264: 23,2767           01317                                    ZIXA                                  
049478,000265: 23,2770           70731                           SSP      DLOAD*                                
049479,000266: 23,2771           00051                                    S1                                    
049480,000267: 23,2772           00006                                    6                                     
049481,000268: 23,2773           75134                                    ZI,2                                  
049482,000269: 23,2774           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
049483,000270: 23,2775           00052                                    S2                                    
049484,000271: 23,2776           65161                           VXSC     XCHX,2                                
049485,000272: 23,2777           02713                                    OMEGAM1                               
049486,000273: 23,3000           00051                                    S2                                    
049487,000274: 23,3001           57144                           LXC,2    XAD,2                                 
049488,000275: 23,3002           00047                                    X2                                    
049489,000276: 23,3003           02102                                    NORMGAM                               
049490,000277: 23,3004           65057                           VSL*     XCHX,2                                
049491,000278: 23,3005           57576                                    0,2                                   
049492,000279: 23,3006           00051                                    S2                                    
049493,000280: 23,3007           77653                           VAD*                                           
049494,000281: 23,3010           02467                                    W          +54D,1                     
049495,000282: 23,3011           02735                           STORE    HOLDW                                 
049496,000283: 23,3012           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
049497,000284: 23,3013           75134                                    ZI,2                                  
049498,000285: 23,3014           74301                           NORM     VXSC                                  
049499,000286: 23,3015           00052                                    S2                                    
049500,000287: 23,3016           02721                                    OMEGAM2                               
049501,000288: 23,3017           71124                           XCHX,2   LXC,2                                 
049502,000289: 23,3020           00051                                    S2                                    
049503,000290: 23,3021           00047                                    X2                                    
049504,000291: 23,3022           53674                           XAD,2    VSL*                                  
049505,000292: 23,3023           02102                                    NORMGAM                               
049506,000293: 23,3024           57576                                    0,2                                   
049507,000294: 23,3025           52724                           XCHX,2   VAD*                                  
049508,000295: 23,3026           00051                                    S2                                    
049509,000296: 23,3027           02555                                    W          +108D,1                    
049510,000297: 23,3030           02743                           STORE    HOLDW      +6                         
049511,000298: 23,3031           77614                           BOFF                                           
049512,000299: 23,3032           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
049513,000300: 23,3033           47053                                    FAZB                                  
049514,000301: 23,3034           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
049515,000302: 23,3035           75134                                    ZI,2                                  
049516,000303: 23,3036           74301                           NORM     VXSC                                  
049517,000304: 

Page 1153

049519,000306: 23,3037           00052                                    S2                                    
049520,000307: 23,3040           02727                                    OMEGAM3                               
049521,000308: 23,3041           71124                           XCHX,2   LXC,2                                 
049522,000309: 23,3042           00051                                    S2                                    
049523,000310: 23,3043           00047                                    X2                                    
049524,000311: 23,3044           53674                           XAD,2    VSL*                                  
049525,000312: 23,3045           02102                                    NORMGAM                               
049526,000313: 23,3046           57576                                    0,2                                   
049527,000314: 23,3047           52724                           XCHX,2   VAD*                                  
049528,000315: 23,3050           00051                                    S2                                    
049529,000316: 23,3051           02643                                    W          +162D,1                    
049530,000317: 23,3052           02751                           STORE    HOLDW      +12D                       
049531,000318: 23,3053           77624        FAZB               CALL                                           
049532,000319: 23,3054           51770                                    GRP2PC                                
049533,000320: 23,3055           77776                           EXIT                                           
049534,000321: 23,3056           31315        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
049535,000322: 23,3057           63230                           AD       6DD                                   #      TEMP REG TO PERM W MATRIX
049536,000323: 23,3060           55316                           TS       WIXB                                  
049537,000324: 23,3061           31317                           CA       ZIXA                                  
049538,000325: 23,3062           67767                           AD       MINUS2                                
049539,000326: 23,3063           55320                           TS       ZIXB                                  
049540,000327: 23,3064           06060                           TC       INTPRET                               
049541,000328: 23,3065           66350                           LXA,1    SSP                                   
049542,000329: 23,3066           01315                                    WIXA                                  
049543,000330: 23,3067           00051                                    S1                                    
049544,000331: 23,3070           00006                                    6                                     
049545,000332: 23,3071           77775                           VLOAD                                          
049546,000333: 23,3072           02735                                    HOLDW                                 
049547,000334: 23,3073           06467                           STORE    W          +54D,1                     
049548,000335: 23,3074           77775                           VLOAD                                          
049549,000336: 23,3075           02743                                    HOLDW      +6                         
049550,000337: 23,3076           06555                           STORE    W          +108D,1                    
049551,000338: 23,3077           77214                           BOFF     VLOAD                                 
049552,000339: 23,3100           02746                                    DMENFLG                               
049553,000340: 23,3101           47111                                    FAZB5                                 
049554,000341: 23,3102           02751                                    HOLDW      +12D                       
049555,000342: 23,3103           06643                           STORE    W          +162D,1                    
049556,000343: 23,3104           52100        FAZB2              TIX,1    GOTO                                  
049557,000344: 23,3105           47107                                    +2                                    
049558,000345: 23,3106           47117                                    FAZC                                  #  DONE WITH W MATRIX.  UPDATE STATE VECTOR
049559,000346: 23,3107           77634                           RTB                                            
049560,000347: 23,3110           46754                                    FAZA                                  
049561,000348: 23,3111           43335        FAZB5              SLOAD    DAD                                   
049562,000349: 23,3112           01321                                    ZIXB                                  
049563,000350: 23,3113           07232                                    12DD                                  
049564,000351: 23,3114           52030                           BHIZ     GOTO                                  
049565,000352: 23,3115           47117                                    FAZC                                  
049566,000353: 23,3116           47104                                    FAZB2                                 
049567,000354: 23,3117           77624        FAZC               CALL                                           
049568,000355: 23,3120           51770                                    GRP2PC                                
049569,000356: 

Page 1154

049571,000358: 23,3121           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
049572,000359: 23,3122           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
049573,000360: 23,3123           02701                                    DELTAX     +12D                       #  INCORPORATION FOR X789
049574,000361: 23,3124           03472                           STORE    TX789                                 
049575,000362: 23,3125           47014                           BON      RTB                                   
049576,000363: 23,3126           00707                                    VEHUPFLG                              
049577,000364: 23,3127           47217                                    DOCSM                                 
049578,000365: 23,3130           27026                                    MOVEPLEM                              
049579,000366: 23,3131           77004        FAZAB              BOVB     AXT,2                                 
049580,000367: 23,3132           57756                                    TCDANZIG                              
049581,000368: 23,3133           00000                                    0                                     
049582,000369: 23,3134           77014                           BOFF     AXT,2                                 
049583,000370: 23,3135           04344                                    MOONTHIS                              
049584,000371: 23,3136           47140                                    +2                                    
049585,000372: 23,3137           00002                                    2                                     
049586,000373: 23,3140           53775                           VLOAD    VSR*                                  
049587,000374: 23,3141           02665                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
049588,000375: 23,3142           57205                                    0          -7,2                       
049589,000376: 23,3143           40055                           VAD      BOV                                   
049590,000377: 23,3144           01521                                    TDELTAV                               
049591,000378: 23,3145           47157                                    FAZAB1                                
049592,000379: 23,3146           25521                           STOVL    TDELTAV                               
049593,000380: 23,3147           02673                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
049594,000381: 23,3150           53257                           VSR*     VAD                                   
049595,000382: 23,3151           57202                                    0          -4,2                       
049596,000383: 23,3152           01527                                    TNUV                                  
049597,000384: 23,3153           77600                           BOV                                            
049598,000385: 23,3154           47163                                    FAZAB2                                
049599,000386: 23,3155           35527                           STCALL   TNUV                                  
049600,000387: 23,3156           47172                                    FAZAB3                                
049601,000388: 23,3157           53375        FAZAB1             VLOAD    VAD                                   
049602,000389: 23,3160           01535                                    RCV                                   
049603,000390: 23,3161           02665                                    DELTAX                                
049604,000391: 23,3162           01535                           STORE    RCV                                   
049605,000392: 23,3163           53375        FAZAB2             VLOAD    VAD                                   
049606,000393: 23,3164           01543                                    VCV                                   
049607,000394: 23,3165           02673                                    DELTAX     +6                         
049608,000395: 23,3166           01543                           STORE    VCV                                   
049609,000396: 23,3167           45134                           SXA,2    CALL                                  
049610,000397: 23,3170           02030                                    PBODY                                 
049611,000398: 23,3171           27720                                    RECTIFY                               
049612,000399: 23,3172           77624        FAZAB3             CALL                                           
049613,000400: 23,3173           51770                                    GRP2PC                                
049614,000401: 23,3174           47014                           BON      RTB                                   
049615,000402: 23,3175           00707                                    VEHUPFLG                              
049616,000403: 23,3176           47222                                    DOCSM1                                
049617,000404: 23,3177           27005                                    MOVEALEM                              
049618,000405: 23,3200           77624                           CALL                                           
049619,000406: 23,3201           26070                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
049620,000407: 23,3202           77624        FAZAB4             CALL                                           
049621,000408: 

Page 1155

049623,000410: 23,3203           51770                                    GRP2PC                                #  PHASE CHANGE
049624,000411: 23,3204           77214                           BOFF     VLOAD                                 
049625,000412: 23,3205           02746                                    DMENFLG                               
049626,000413: 23,3206           47211                                    FAZAB5                                #  6 DIMENSIONAL
049627,000414: 23,3207           03472                                    TX789                                 #  9 DIMENSIONAL
049628,000415: 23,3210           01701                           STORE    X789                                  
049629,000416: 23,3211           66150        FAZAB5             LXA,1    SXA,1                                 
049630,000417: 23,3212           02767                                    EGRESS                                
049631,000418: 23,3213           00052                                    QPRET                                 
049632,000419: 23,3214           77776                           EXIT                                           
049633,000420: 23,3215           04626                           TC       POSTJUMP                              #  EXIT
049634,000421: 23,3216           27460                           CADR     INTWAKE                               
049635,000422: 23,3217           52034        DOCSM              RTB      GOTO                                  
049636,000423: 23,3220           26761                                    MOVEPCSM                              
049637,000424: 23,3221           47131                                    FAZAB                                 
049638,000425: 23,3222           45034        DOCSM1             RTB      CALL                                  
049639,000426: 23,3223           26732                                    MOVEACSM                              
049640,000427: 23,3224           26114                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
049641,000428: 23,3225           77650                           GOTO                                           
049642,000429: 23,3226           47202                                    FAZAB4                                
049643,000430: 23,3227  23,2504               ZEROD              =        ZEROVECS                              
049644,000431: 23,3227           00066        54DD               DEC      54         B-14                       
049645,000432: 23,3230           77771        6DD                DEC      -6         B-14                       
049646,000433: 23,3231           00014        12DD               DEC      12         B-14                       
049647,000434: 
049648,000435: 22,2000                                           SETLOC   RENDEZ                                
049649,000436: 22,2000                                           BANK                                           
049650,000437: 22,3712                                           COUNT*   $$/INCOR                              
049651,000438: 
049652,000439: 22,3712           51575        NEWZCOMP           VLOAD    ABVAL                                 
049653,000440: 22,3713           02643                                    ZI                                    
049654,000441: 22,3714           24045                           STOVL    NORMZI                                
049655,000442: 22,3715           02651                                    ZI         +6                         
049656,000443: 22,3716           41446                           ABVAL    PUSH                                  
049657,000444: 22,3717           50025                           DSU      BMN                                   
049658,000445: 22,3720           00045                                    NORMZI                                
049659,000446: 22,3721           45724                                    +3                                    
049660,000447: 22,3722           45545                           DLOAD    STADR                                 
049661,000448: 22,3723           77732                           STORE    NORMZI                                
049662,000449: 22,3724           51575                           VLOAD    ABVAL                                 
049663,000450: 22,3725           02657                                    ZI         +12D                       
049664,000451: 22,3726           45206                           PUSH     DSU                                   
049665,000452: 22,3727           00045                                    NORMZI                                
049666,000453: 22,3730           71240                           BMN      DLOAD                                 
049667,000454: 22,3731           45734                                    +3                                    
049668,000455: 22,3732           77626                           STADR                                          
049669,000456: 22,3733           77732                           STORE    NORMZI                                #  LARGEST ABVAL
049670,000457: 22,3734           66145                           DLOAD    SXA,1                                 
049671,000458: 22,3735           00045                                    NORMZI                                
049672,000459: 22,3736           00044                                    NORMZI                                #  SAVE X1
049673,000460: 22,3737           62101                           NORM     INCR,1                                
049674,000461: 

Page 1156

049676,000463: 22,3740           00047                                    X1                                    
049677,000464: 22,3741           00002                           DEC      2          B-14                       
049678,000465: 22,3742           53775                           VLOAD    VSL*                                  
049679,000466: 22,3743           02643                                    ZI                                    
049680,000467: 22,3744           20201                                    0,1                                   
049681,000468: 22,3745           26643                           STOVL    ZI                                    
049682,000469: 22,3746           02651                                    ZI         +6                         
049683,000470: 22,3747           77657                           VSL*                                           
049684,000471: 22,3750           20201                                    0,1                                   
049685,000472: 22,3751           26651                           STOVL    ZI         +6                         
049686,000473: 22,3752           02657                                    ZI         +12D                       
049687,000474: 22,3753           66057                           VSL*     SXA,1                                 
049688,000475: 22,3754           20201                                    0,1                                   
049689,000476: 22,3755           00045                                    NORMZI     +1                         #  SAVE SHIFT
049690,000477: 22,3756           02657                           STORE    ZI         +12D                       
049691,000478: 22,3757           54150                           LXA,1    XSU,1                                 
049692,000479: 22,3760           02102                                    NORMGAM                               
049693,000480: 22,3761           00045                                    NORMZI     +1                         
049694,000481: 22,3762           77660                           XSU,1                                          
049695,000482: 22,3763           00045                                    NORMZI     +1                         
049696,000483: 22,3764           70130                           SXA,1    LXC,1                                 
049697,000484: 22,3765           02102                                    NORMGAM                               
049698,000485: 22,3766           00045                                    NORMZI     +1                         
049699,000486: 22,3767           40270                           XAD,1    SETPD                                 
049700,000487: 22,3770           00044                                    NORMZI                                
049701,000488: 22,3771           00003                                    2D                                    
049702,000489: 22,3772           77650                           GOTO                                           
049703,000490: 22,3773           46652                                    INCOR2     -3                         
049704,000491: 22,3774                        NORMZI             =        36D                                   

End of include-file MEASUREMENT_INCORPORATION.agc.  Parent file is MAIN.agc