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.

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

Page 1147

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

Page 1148

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

Page 1149

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

Page 1150

049404,000176: 23,2700           77214                           BON      VLOAD                                 
049405,000177: 23,2701           02706                                    DMENFLG                               
049406,000178: 23,2702           46705                                    INCOR2AB                              
049407,000179: 23,2703           06505                                    ZEROVECS                              
049408,000180: 23,2704           03517                           STORE    OMEGA      +12D                       
049409,000181: 23,2705           66374        INCOR2AB           AXT,2    SSP                                   
049410,000182: 23,2706           00022                                    18D                                   
049411,000183: 23,2707           00052                                    S2                                    
049412,000184: 23,2710           00006                                    6                                     
049413,000185: 23,2711           77773        INCOR3             VLOAD*                                         
049414,000186: 23,2712           74252                                    OMEGA      +18D,2                     
049415,000187: 23,2713           53761                           VXSC     VSL*                                  
049416,000188: 23,2714           00001                                    0                                     #  DELTAQ/A
049417,000189: 23,2715           20201                                    0,1                                   
049418,000190: 23,2716           12707                           STORE    DELTAX     +18D,2                     
049419,000191: 23,2717           77304                           TIX,2    VLOAD                                 
049420,000192: 23,2720           46711                                    INCOR3                                
049421,000193: 23,2721           02673                                    DELTAX     +6                         
049422,000194: 23,2722           77732                           VSL3                                           
049423,000195: 23,2723           02673                           STORE    DELTAX     +6                         
049424,000196: 23,2724           77650                           GOTO                                           
049425,000197: 23,2725           02767                                    EGRESS                                
049426,000198: 

Page 1151

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

Page 1152

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

Page 1153

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

Page 1154

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

Page 1155

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

Page 1156

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

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