Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, 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 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

048183,000002:                                                                                                  ## Copyright:   Public domain.
048184,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
048185,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
048186,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM) 
048187,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
048188,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
048189,000008:                                                                                                  ##              that the code format has been changed to conform to the
048190,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
048191,000010:                                                                                                  ##              original YUL assembler.
048192,000011:                                                                                                  ## Reference:   pp. 1141-1150
048193,000012:                                                                                                  ## Assembler:   yaYUL
048194,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
048195,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
048196,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
048197,000016:                                                                                                  ##              2017-01-24 RRB  Updated for Luminary 116.
048198,000017:                                                                                                  ##              2017-03-13 RSB  Proofed comment text via 3-way diff vs
048199,000018:                                                                                                  ##                              Luminary 99 and 131.
048200,000019: 

Page 1141

048202,000021:                                                                                                  #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
048203,000022:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
048204,000023:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
048205,000024:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
048206,000025:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
048207,000026:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
048208,000027:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
048209,000028:                                                                                                  #  INPUT
048210,000029:                                                                                                  #     DMENFLG = 0 6DIMENSIONAL BVECTOR   1=9DIMENSIONAL
048211,000030:                                                                                                  #            W = ERROR TRANSITION MATRIX 6X6 OR 9X9
048212,000031:                                                                                                  #     VARIANCE = VARIANCE (SCALAR)
048213,000032:                                                                                                  #       DELTAQ = MEASURED DEVIATION (SCALAR)
048214,000033:                                                                                                  #      BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
048215,000034: 
048216,000035:                                                                                                  #  OUTPUT
048217,000036:                                                                                                  #       DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
048218,000037:                                                                                                  #           ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
048219,000038:                                                                                                  #      GAMMA = SCALAR
048220,000039:                                                                                                  #      OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
048221,000040:                                                                                                  #  CALLING SEQUENCE
048222,000041:                                                                                                  #     L  CALL INCORP1
048223,000042: 
048224,000043:                                                                                                  #  NORMAL EXIT
048225,000044: 
048226,000045:                                                                                                  #    L+1 OF CALLING SEQUENCE
048227,000046: 
048228,000047: 37,3652                                           BANK     37                                    
048229,000048: 23,2000                                           SETLOC   MEASINC                               
048230,000049: 23,2000                                           BANK                                           
048231,000050: 
048232,000051: 23,2533                                           COUNT*   $$/INCOR                              
048233,000052: 
048234,000053: 23,2533  E5,1400                                  EBANK=   W                                     
048235,000054: 
048236,000055: 23,2533           77620        INCORP1            STQ                                            
048237,000056: 23,2534           02772                                    EGRESS                                
048238,000057: 23,2535           66370                           AXT,1    SSP                                   
048239,000058: 23,2536           00066                                    54D                                   
048240,000059: 23,2537           00051                                    S1                                    
048241,000060: 23,2540           00022                                    18D                                   #  IX1 = 54  S1= 18
048242,000061: 23,2541           66374                           AXT,2    SSP                                   
048243,000062: 23,2542           00022                                    18D                                   
048244,000063: 23,2543           00052                                    S2                                    
048245,000064: 23,2544           00006                                    6                                     #  IX2 = 18  S2=6
048246,000065: 23,2545           63775        Z123               VLOAD    MXV*                                  
048247,000066: 23,2546           03525                                    BVECTOR                               #  BVECTOR (0)
048248,000067: 23,2547           02467                                    W          +54D,1                     
048249,000068: 23,2550           12665                           STORE    ZI         +18D,2                     
048250,000069: 23,2551           77775                           VLOAD                                          
048251,000070: 23,2552           03533                                    BVECTOR    +6                         #  BVECTOR (1)

Page 1142

048253,000072: 23,2553           52717                           MXV*     VAD*                                  
048254,000073: 23,2554           02555                                    W          +108D,1                    
048255,000074: 23,2555           75112                                    ZI         +18D,2                     
048256,000075: 23,2556           12665                           STORE    ZI         +18D,2                     
048257,000076: 23,2557           77775                           VLOAD                                          
048258,000077: 23,2560           03541                                    BVECTOR    +12D                       #  BVECTOR (2)
048259,000078: 23,2561           52717                           MXV*     VAD*                                  
048260,000079: 23,2562           02643                                    W          +162D,1                    
048261,000080: 23,2563           75112                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
048262,000081: 23,2564           12665                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
048263,000082: 23,2565           77700                           TIX,1                                          
048264,000083: 23,2566           46567                                    INCOR1                                
048265,000084: 23,2567           43104        INCOR1             TIX,2    BON                                   
048266,000085: 23,2570           46545                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
048267,000086: 23,2571           02706                                    DMENFLG                               
048268,000087: 23,2572           46576                                    INCOR1A                               
048269,000088: 23,2573           77775                           VLOAD                                          
048270,000089: 23,2574           06524                                    ZEROVECS                              
048271,000090: 23,2575           02657                           STORE    ZI         +12D                       
048272,000091: 23,2576           77201        INCOR1A            SETPD    VLOAD                                 
048273,000092: 23,2577           00001                                    0                                     
048274,000093: 23,2600           02643                                    ZI                                    
048275,000094: 23,2601           47036                           VSQ      RTB                                   
048276,000095: 23,2602           21634                                    TPMODE                                
048277,000096: 23,2603           47515                           PDVL     VSQ                                   
048278,000097: 23,2604           02651                                    ZI         +6                         
048279,000098: 23,2605           76234                           RTB      TAD                                   
048280,000099: 23,2606           21634                                    TPMODE                                
048281,000100: 23,2607           47515                           PDVL     VSQ                                   
048282,000101: 23,2610           02657                                    ZI         +12D                       
048283,000102: 23,2611           76234                           RTB      TAD                                   
048284,000103: 23,2612           21634                                    TPMODE                                
048285,000104: 23,2613           77171                           TAD      AXT,2                                 
048286,000105: 23,2614           02707                                    VARIANCE                              
048287,000106: 23,2615           00000                                    0                                     
048288,000107: 23,2616           02665                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
048289,000108: 23,2617           40151                           TLOAD    BOV                                   
048290,000109: 23,2620           02707                                    VARIANCE                              #  CLEAR OVFIND
048291,000110: 23,2621           46622                                    +1                                    
048292,000111: 23,2622           02670                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
048293,000112: 23,2623           77654                           BZE                                            
048294,000113: 23,2624           46633                                    INCOR1C                               
048295,000114: 23,2625           40112        INCOR1B            SL2      BOV                                   
048296,000115: 23,2626           46633                                    INCOR1C                               
048297,000116: 23,2627           02670                           STORE    TEMPVAR                               
048298,000117: 23,2630           52114                           INCR,2   GOTO                                  
048299,000118: 23,2631           00001                           DEC      1          B-14                       
048300,000119: 23,2632           46625                                    INCOR1B                               
048301,000120: 23,2633           61551        INCOR1C            TLOAD    ROUND                                 
048302,000121: 23,2634           02665                                    TRIPA                                 

Page 1143

048304,000123: 23,2635           75405                           DMP      SQRT                                  
048305,000124: 23,2636           02670                                    TEMPVAR                               
048306,000125: 23,2637           76257                           SL*      TAD                                   
048307,000126: 23,2640           57576                                    0,2                                   
048308,000127: 23,2641           02665                                    TRIPA                                 
048309,000128: 23,2642           63101                           NORM     INCR,2                                
048310,000129: 23,2643           00050                                    X2                                    
048311,000130: 23,2644           77775                           DEC      -2         B-14                       
048312,000131: 23,2645           77134                           SXA,2    AXT,2                                 
048313,000132: 23,2646           02103                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
048314,000133: 23,2647           00242                                    162D                                  
048315,000134: 23,2650           40265                           BDDV     SETPD                                 
048316,000135: 23,2651           06514                                    DP1/4TH                               
048317,000136: 23,2652           00001                                    0                                     
048318,000137: 23,2653           03500                           STORE    GAMMA                                 
048319,000138: 23,2654           60351                           TLOAD    NORM                                  
048320,000139: 23,2655           02665                                    TRIPA                                 
048321,000140: 23,2656           00047                                    X1                                    
048322,000141: 23,2657           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
048323,000142: 23,2660           00155                                    MPAC                                  
048324,000143: 23,2661           03547                                    DELTAQ                                
048325,000144: 23,2662           77701                           NORM                                           
048326,000145: 23,2663           00051                                    S1                                    
048327,000146: 23,2664           70460                           XSU,1    SR1                                   
048328,000147: 23,2665           00050                                    S1                                    
048329,000148: 23,2666           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
048330,000149: 23,2667           77650                           GOTO                                           
048331,000150: 23,2670           45711                                    NEWZCOMP                              
048332,000151: 23,2671           77731                 -3        SSP                                            
048333,000152: 23,2672           00052                                    S2                                    
048334,000153: 23,2673           00066                                    54D                                   
048335,000154: 23,2674           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
048336,000155: 23,2675           02643                                    ZI                                    
048337,000156: 23,2676           75134                                    W          +162D,2                    
048338,000157: 23,2677           77206                           PUSH     VLOAD                                 
048339,000158: 23,2700           02651                                    ZI         +6                         
048340,000159: 23,2701           53303                           VXM*     VAD                                   
048341,000160: 23,2702           75112                                    W          +180D,2                    
048342,000161: 23,2703           77206                           PUSH     VLOAD                                 
048343,000162: 23,2704           02657                                    ZI         +12D                       
048344,000163: 23,2705           53303                           VXM*     VAD                                   
048345,000164: 23,2706           75070                                    W          +198D,2                    
048346,000165: 23,2707           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
048347,000166: 23,2710           46674                                    INCOR2                                
048348,000167: 23,2711           45575                           VLOAD    STADR                                 
048349,000168: 23,2712           74260                           STORE    OMEGA      +12D                       
048350,000169: 23,2713           45575                           VLOAD    STADR                                 
048351,000170: 23,2714           74266                           STORE    OMEGA      +6                         
048352,000171: 23,2715           45575                           VLOAD    STADR                                 
048353,000172: 23,2716           74274                           STORE    OMEGA                                 

Page 1144

048355,000174: 23,2717           77214                           BON      VLOAD                                 
048356,000175: 23,2720           02706                                    DMENFLG                               
048357,000176: 23,2721           46724                                    INCOR2AB                              
048358,000177: 23,2722           06524                                    ZEROVECS                              
048359,000178: 23,2723           03517                           STORE    OMEGA      +12D                       
048360,000179: 23,2724           66374        INCOR2AB           AXT,2    SSP                                   
048361,000180: 23,2725           00022                                    18D                                   
048362,000181: 23,2726           00052                                    S2                                    
048363,000182: 23,2727           00006                                    6                                     
048364,000183: 23,2730           77773        INCOR3             VLOAD*                                         
048365,000184: 23,2731           74252                                    OMEGA      +18D,2                     
048366,000185: 23,2732           53761                           VXSC     VSL*                                  
048367,000186: 23,2733           00001                                    0                                     #  DELTAQ/A
048368,000187: 23,2734           20201                                    0,1                                   
048369,000188: 23,2735           12707                           STORE    DELTAX     +18D,2                     
048370,000189: 23,2736           77304                           TIX,2    VLOAD                                 
048371,000190: 23,2737           46730                                    INCOR3                                
048372,000191: 23,2740           02673                                    DELTAX     +6                         
048373,000192: 23,2741           77732                           VSL3                                           
048374,000193: 23,2742           02673                           STORE    DELTAX     +6                         
048375,000194: 23,2743           77650                           GOTO                                           
048376,000195: 23,2744           02772                                    EGRESS                                
048377,000196: 

Page 1145

048379,000198:                                                                                                  #   INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
048380,000199:                                                                                                  #  ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
048381,000200:                                                                                                  #  LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
048382,000201: 
048383,000202:                                                                                                  #  INPUT
048384,000203:                                                                                                  #     PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
048385,000204:                                                                                                  #     VEHUPFLG = UPDATE VEHICLE 0=LEM  1=CSM
048386,000205:                                                                                                  #     W =        ERROR TRANSITION MATRIX
048387,000206:                                                                                                  #     DELTAX  =  COMPUTED STATE VECTOR DEVIATIONS
048388,000207:                                                                                                  #     DMENFLG =  SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
048389,000208:                                                                                                  #     GAMMA   =  SCALAR FOR INCORPORATION
048390,000209:                                                                                                  #     ZI      =  VECTOR USED IN INCORPORATION
048391,000210:                                                                                                  #     OMEGA   =  WEIGHTING VECTOR
048392,000211: 
048393,000212:                                                                                                  #  OUTPUT
048394,000213:                                                                                                  #     UPDATED PERMANENT STATE VECTOR
048395,000214: 
048396,000215:                                                                                                  #  CALLING SEQUENCE
048397,000216:                                                                                                  #     L  CALL INCORP2
048398,000217: 
048399,000218:                                                                                                  #  NORMAL EXIT
048400,000219:                                                                                                  #     L+1 OF CALLING SEQUENCE
048401,000220: 
048402,000221: 
048403,000222: 23,2000                                           SETLOC   MEASINC1                              
048404,000223: 23,2000                                           BANK                                           
048405,000224: 
048406,000225: 23,2745                                           COUNT*   $$/INCOR                              
048407,000226: 
048408,000227: 23,2745           45020        INCORP2            STQ      CALL                                  
048409,000228: 23,2746           02772                                    EGRESS                                
048410,000229: 23,2747           27412                                    INTSTALL                              
048411,000230: 23,2750           74375                           VLOAD    VXSC                                  #  CALC. GAMMA * OMEGA1,2,3
048412,000231: 23,2751           03503                                    OMEGA                                 
048413,000232: 23,2752           03500                                    GAMMA                                 
048414,000233: 23,2753           26713                           STOVL    OMEGAM1                               
048415,000234: 23,2754           03511                                    OMEGA      +6                         
048416,000235: 23,2755           77761                           VXSC                                           
048417,000236: 23,2756           03500                                    GAMMA                                 
048418,000237: 23,2757           26721                           STOVL    OMEGAM2                               
048419,000238: 23,2760           03517                                    OMEGA      +12D                       
048420,000239: 23,2761           77761                           VXSC                                           
048421,000240: 23,2762           03500                                    GAMMA                                 
048422,000241: 23,2763           02727                           STORE    OMEGAM3                               
048423,000242: 23,2764           77776                           EXIT                                           
048424,000243: 23,2765           33246                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
048425,000244: 23,2766           55315                           TS       WIXA                                  
048426,000245: 23,2767           55316                           TS       WIXB                                  
048427,000246: 23,2770           34755                           CAF      ZERO                                  
048428,000247: 23,2771           55317                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
048429,000248: 23,2772           55320                           TS       ZIXB                                  
048430,000249: 23,2773           05353        FAZA               TC       PHASCHNG                              

Page 1146

048432,000251: 23,2774           04022                           OCT      04022                                 
048433,000252: 23,2775           05504                           TC       UPFLAG                                
048434,000253: 23,2776           00236                           ADRES    REINTFLG                              
048435,000254: 23,2777           31316        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
048436,000255: 23,3000           55315                           TS       WIXA                                  #   TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
048437,000256: 23,3001           31320                           CA       ZIXB                                  
048438,000257: 23,3002           55317                           TS       ZIXA                                  
048439,000258: 23,3003           06042                           TC       INTPRET                               
048440,000259: 23,3004           73150                           LXA,1    LXA,2                                 
048441,000260: 23,3005           01315                                    WIXA                                  
048442,000261: 23,3006           01317                                    ZIXA                                  
048443,000262: 23,3007           70731                           SSP      DLOAD*                                
048444,000263: 23,3010           00051                                    S1                                    
048445,000264: 23,3011           00006                                    6                                     
048446,000265: 23,3012           75134                                    ZI,2                                  
048447,000266: 23,3013           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
048448,000267: 23,3014           00052                                    S2                                    
048449,000268: 23,3015           65161                           VXSC     XCHX,2                                
048450,000269: 23,3016           02713                                    OMEGAM1                               
048451,000270: 23,3017           00051                                    S2                                    
048452,000271: 23,3020           57144                           LXC,2    XAD,2                                 
048453,000272: 23,3021           00047                                    X2                                    
048454,000273: 23,3022           02103                                    NORMGAM                               
048455,000274: 23,3023           65057                           VSL*     XCHX,2                                
048456,000275: 23,3024           57576                                    0,2                                   
048457,000276: 23,3025           00051                                    S2                                    
048458,000277: 23,3026           77653                           VAD*                                           
048459,000278: 23,3027           02467                                    W          +54D,1                     
048460,000279: 23,3030           02735                           STORE    HOLDW                                 
048461,000280: 23,3031           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
048462,000281: 23,3032           75134                                    ZI,2                                  
048463,000282: 23,3033           74301                           NORM     VXSC                                  
048464,000283: 23,3034           00052                                    S2                                    
048465,000284: 23,3035           02721                                    OMEGAM2                               
048466,000285: 23,3036           71124                           XCHX,2   LXC,2                                 
048467,000286: 23,3037           00051                                    S2                                    
048468,000287: 23,3040           00047                                    X2                                    
048469,000288: 23,3041           53674                           XAD,2    VSL*                                  
048470,000289: 23,3042           02103                                    NORMGAM                               
048471,000290: 23,3043           57576                                    0,2                                   
048472,000291: 23,3044           52724                           XCHX,2   VAD*                                  
048473,000292: 23,3045           00051                                    S2                                    
048474,000293: 23,3046           02555                                    W          +108D,1                    
048475,000294: 23,3047           02743                           STORE    HOLDW      +6                         
048476,000295: 23,3050           77614                           BOFF                                           
048477,000296: 23,3051           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
048478,000297: 23,3052           47072                                    FAZB                                  
048479,000298: 23,3053           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
048480,000299: 23,3054           75134                                    ZI,2                                  
048481,000300: 23,3055           74301                           NORM     VXSC                                  

Page 1147

048483,000302: 23,3056           00052                                    S2                                    
048484,000303: 23,3057           02727                                    OMEGAM3                               
048485,000304: 23,3060           71124                           XCHX,2   LXC,2                                 
048486,000305: 23,3061           00051                                    S2                                    
048487,000306: 23,3062           00047                                    X2                                    
048488,000307: 23,3063           53674                           XAD,2    VSL*                                  
048489,000308: 23,3064           02103                                    NORMGAM                               
048490,000309: 23,3065           57576                                    0,2                                   
048491,000310: 23,3066           52724                           XCHX,2   VAD*                                  
048492,000311: 23,3067           00051                                    S2                                    
048493,000312: 23,3070           02643                                    W          +162D,1                    
048494,000313: 23,3071           02751                           STORE    HOLDW      +12D                       
048495,000314: 23,3072           77624        FAZB               CALL                                           
048496,000315: 23,3073           11226                                    GRP2PC                                
048497,000316: 23,3074           77776                           EXIT                                           
048498,000317: 23,3075           31315        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
048499,000318: 23,3076           63247                           AD       6DD                                   #      TEMP REG TO PERM W MATRIX
048500,000319: 23,3077           55316                           TS       WIXB                                  
048501,000320: 23,3100           31317                           CA       ZIXA                                  
048502,000321: 23,3101           67751                           AD       MINUS2                                
048503,000322: 23,3102           55320                           TS       ZIXB                                  
048504,000323: 23,3103           06042                           TC       INTPRET                               
048505,000324: 23,3104           66350                           LXA,1    SSP                                   
048506,000325: 23,3105           01315                                    WIXA                                  
048507,000326: 23,3106           00051                                    S1                                    
048508,000327: 23,3107           00006                                    6                                     
048509,000328: 23,3110           77775                           VLOAD                                          
048510,000329: 23,3111           02735                                    HOLDW                                 
048511,000330: 23,3112           06467                           STORE    W          +54D,1                     
048512,000331: 23,3113           77775                           VLOAD                                          
048513,000332: 23,3114           02743                                    HOLDW      +6                         
048514,000333: 23,3115           06555                           STORE    W          +108D,1                    
048515,000334: 23,3116           77214                           BOFF     VLOAD                                 
048516,000335: 23,3117           02746                                    DMENFLG                               
048517,000336: 23,3120           47130                                    FAZB5                                 
048518,000337: 23,3121           02751                                    HOLDW      +12D                       
048519,000338: 23,3122           06643                           STORE    W          +162D,1                    
048520,000339: 23,3123           52100        FAZB2              TIX,1    GOTO                                  
048521,000340: 23,3124           47126                                    +2                                    
048522,000341: 23,3125           47136                                    FAZC                                  #  DONE WITH W MATRIX. UPDATE STATE VECTOR
048523,000342: 23,3126           77634                           RTB                                            
048524,000343: 23,3127           46773                                    FAZA                                  
048525,000344: 23,3130           43335        FAZB5              SLOAD    DAD                                   
048526,000345: 23,3131           01321                                    ZIXB                                  
048527,000346: 23,3132           07251                                    12DD                                  
048528,000347: 23,3133           52030                           BHIZ     GOTO                                  
048529,000348: 23,3134           47136                                    FAZC                                  
048530,000349: 23,3135           47123                                    FAZB2                                 
048531,000350: 23,3136           77624        FAZC               CALL                                           
048532,000351: 23,3137           11226                                    GRP2PC                                

Page 1148

048534,000353: 23,3140           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
048535,000354: 23,3141           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
048536,000355: 23,3142           02701                                    DELTAX     +12D                       #  INCORPORATION FOR X789
048537,000356: 23,3143           03472                           STORE    TX789                                 
048538,000357: 23,3144           47014                           BON      RTB                                   
048539,000358: 23,3145           00707                                    VEHUPFLG                              
048540,000359: 23,3146           47236                                    DOCSM                                 
048541,000360: 23,3147           26771                                    MOVEPLEM                              
048542,000361: 23,3150           77004        FAZAB              BOVB     AXT,2                                 
048543,000362: 23,3151           57753                                    TCDANZIG                              
048544,000363: 23,3152           00000                                    0                                     
048545,000364: 23,3153           77014                           BOFF     AXT,2                                 
048546,000365: 23,3154           04344                                    MOONTHIS                              
048547,000366: 23,3155           47157                                    +2                                    
048548,000367: 23,3156           00002                                    2                                     
048549,000368: 23,3157           53775                           VLOAD    VSR*                                  
048550,000369: 23,3160           02665                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
048551,000370: 23,3161           57205                                    0          -7,2                       
048552,000371: 23,3162           40055                           VAD      BOV                                   
048553,000372: 23,3163           01521                                    TDELTAV                               
048554,000373: 23,3164           47176                                    FAZAB1                                
048555,000374: 23,3165           25521                           STOVL    TDELTAV                               
048556,000375: 23,3166           02673                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
048557,000376: 23,3167           53257                           VSR*     VAD                                   
048558,000377: 23,3170           57202                                    0          -4,2                       
048559,000378: 23,3171           01527                                    TNUV                                  
048560,000379: 23,3172           77600                           BOV                                            
048561,000380: 23,3173           47202                                    FAZAB2                                
048562,000381: 23,3174           35527                           STCALL   TNUV                                  
048563,000382: 23,3175           47211                                    FAZAB3                                
048564,000383: 23,3176           53375        FAZAB1             VLOAD    VAD                                   
048565,000384: 23,3177           01535                                    RCV                                   
048566,000385: 23,3200           02665                                    DELTAX                                
048567,000386: 23,3201           01535                           STORE    RCV                                   
048568,000387: 23,3202           53375        FAZAB2             VLOAD    VAD                                   
048569,000388: 23,3203           01543                                    VCV                                   
048570,000389: 23,3204           02673                                    DELTAX     +6                         
048571,000390: 23,3205           01543                           STORE    VCV                                   
048572,000391: 23,3206           45134                           SXA,2    CALL                                  
048573,000392: 23,3207           02030                                    PBODY                                 
048574,000393: 23,3210           27673                                    RECTIFY                               
048575,000394: 23,3211           77624        FAZAB3             CALL                                           
048576,000395: 23,3212           11226                                    GRP2PC                                
048577,000396: 23,3213           47014                           BON      RTB                                   
048578,000397: 23,3214           00707                                    VEHUPFLG                              
048579,000398: 23,3215           47241                                    DOCSM1                                
048580,000399: 23,3216           26750                                    MOVEALEM                              
048581,000400: 23,3217           77624                           CALL                                           
048582,000401: 23,3220           26070                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
048583,000402: 23,3221           77624        FAZAB4             CALL                                           

Page 1149

048585,000404: 23,3222           11226                                    GRP2PC                                #  PHASE CHANGE
048586,000405: 23,3223           77214                           BOFF     VLOAD                                 
048587,000406: 23,3224           02746                                    DMENFLG                               
048588,000407: 23,3225           47230                                    FAZAB5                                #  6 DIMENSIONAL
048589,000408: 23,3226           03472                                    TX789                                 #  9 DIMENSIONAL
048590,000409: 23,3227           01701                           STORE    X789                                  
048591,000410: 23,3230           66150        FAZAB5             LXA,1    SXA,1                                 
048592,000411: 23,3231           02772                                    EGRESS                                
048593,000412: 23,3232           00052                                    QPRET                                 
048594,000413: 23,3233           77776                           EXIT                                           
048595,000414: 23,3234           04635                           TC       POSTJUMP                              #  EXIT
048596,000415: 23,3235           27423                           CADR     INTWAKE                               
048597,000416: 23,3236           52034        DOCSM              RTB      GOTO                                  
048598,000417: 23,3237           26724                                    MOVEPCSM                              
048599,000418: 23,3240           47150                                    FAZAB                                 
048600,000419: 23,3241           45034        DOCSM1             RTB      CALL                                  
048601,000420: 23,3242           26675                                    MOVEACSM                              
048602,000421: 23,3243           26114                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
048603,000422: 23,3244           77650                           GOTO                                           
048604,000423: 23,3245           47221                                    FAZAB4                                
048605,000424: 23,3246  23,2523               ZEROD              =        ZEROVECS                              
048606,000425: 23,3246           00066        54DD               DEC      54         B-14                       
048607,000426: 23,3247           77771        6DD                DEC      -6         B-14                       
048608,000427: 23,3250           00014        12DD               DEC      12         B-14                       
048609,000428: 22,2000                                           SETLOC   RENDEZ                                
048610,000429: 22,2000                                           BANK                                           
048611,000430: 22,3711                                           COUNT*   $$/INCOR                              
048612,000431: 
048613,000432: 22,3711           51575        NEWZCOMP           VLOAD    ABVAL                                 
048614,000433: 22,3712           02643                                    ZI                                    
048615,000434: 22,3713           24045                           STOVL    NORMZI                                
048616,000435: 22,3714           02651                                    ZI         +6                         
048617,000436: 22,3715           41446                           ABVAL    PUSH                                  
048618,000437: 22,3716           50025                           DSU      BMN                                   
048619,000438: 22,3717           00045                                    NORMZI                                
048620,000439: 22,3720           45723                                    +3                                    
048621,000440: 22,3721           45545                           DLOAD    STADR                                 
048622,000441: 22,3722           77732                           STORE    NORMZI                                
048623,000442: 22,3723           51575                           VLOAD    ABVAL                                 
048624,000443: 22,3724           02657                                    ZI         +12D                       
048625,000444: 22,3725           45206                           PUSH     DSU                                   
048626,000445: 22,3726           00045                                    NORMZI                                
048627,000446: 22,3727           71240                           BMN      DLOAD                                 
048628,000447: 22,3730           45733                                    +3                                    
048629,000448: 22,3731           77626                           STADR                                          
048630,000449: 22,3732           77732                           STORE    NORMZI                                #  LARGEST ABVAL
048631,000450: 22,3733           66145                           DLOAD    SXA,1                                 
048632,000451: 22,3734           00045                                    NORMZI                                
048633,000452: 22,3735           00044                                    NORMZI                                #  SAVE X1
048634,000453: 22,3736           62101                           NORM     INCR,1                                

Page 1150

048636,000455: 22,3737           00047                                    X1                                    
048637,000456: 22,3740           00002                           DEC      2          B-14                       
048638,000457: 22,3741           53775                           VLOAD    VSL*                                  
048639,000458: 22,3742           02643                                    ZI                                    
048640,000459: 22,3743           20201                                    0,1                                   
048641,000460: 22,3744           26643                           STOVL    ZI                                    
048642,000461: 22,3745           02651                                    ZI         +6                         
048643,000462: 22,3746           77657                           VSL*                                           
048644,000463: 22,3747           20201                                    0,1                                   
048645,000464: 22,3750           26651                           STOVL    ZI         +6                         
048646,000465: 22,3751           02657                                    ZI         +12D                       
048647,000466: 22,3752           66057                           VSL*     SXA,1                                 
048648,000467: 22,3753           20201                                    0,1                                   
048649,000468: 22,3754           00045                                    NORMZI     +1                         #  SAVE SHIFT
048650,000469: 22,3755           02657                           STORE    ZI         +12D                       
048651,000470: 22,3756           54150                           LXA,1    XSU,1                                 
048652,000471: 22,3757           02103                                    NORMGAM                               
048653,000472: 22,3760           00045                                    NORMZI     +1                         
048654,000473: 22,3761           77660                           XSU,1                                          
048655,000474: 22,3762           00045                                    NORMZI     +1                         
048656,000475: 22,3763           70130                           SXA,1    LXC,1                                 
048657,000476: 22,3764           02103                                    NORMGAM                               
048658,000477: 22,3765           00045                                    NORMZI     +1                         
048659,000478: 22,3766           40270                           XAD,1    SETPD                                 
048660,000479: 22,3767           00044                                    NORMZI                                
048661,000480: 22,3770           00003                                    2D                                    
048662,000481: 22,3771           77650                           GOTO                                           
048663,000482: 22,3772           46671                                    INCOR2     -3                         
048664,000483: 22,3773                        NORMZI             =        36D                                   
048665,000484: 
048666,000485: 

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