Source Code

These source-code files are part of a reconstructed copy of Luminary 173, the second (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with reconstructed source code for Luminary 178. Changes between revision 173 and 178 were backed out, as described by Luminary memo 167 (revision 1). The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 173 listing would be different.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

048329,000002:                                                                                                  ## Copyright:   Public domain.
048330,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
048331,000004:                                                                                                  ## Purpose:     A section of Luminary revision 173.
048332,000005:                                                                                                  ##              It is part of the reconstructed source code for the second
048333,000006:                                                                                                  ##              (unflown) release of the flight software for the Lunar
048334,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
048335,000008:                                                                                                  ##              The code has been recreated from a reconstructed copy of
048336,000009:                                                                                                  ##              Luminary 178, as well as Luminary memo 167 (revision 1).
048337,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
048338,000011:                                                                                                  ##              exactly match those specified for Luminary 173 in NASA
048339,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
048340,000013:                                                                                                  ##              that the reconstruction is correct.
048341,000014:                                                                                                  ## Reference:   pp. 1140-1149
048342,000015:                                                                                                  ## Assembler:   yaYUL
048343,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
048344,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
048345,000018:                                                                                                  ## Mod history: 2019-09-18 MAS  Created from Luminary 178.
048346,000019:                                                                                                  ##              2021-05-30 ABS  ZEROD -> ZEROO
048347,000020: 

Page 1140

048349,000022:                                                                                                  #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
048350,000023:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
048351,000024:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
048352,000025:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
048353,000026:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
048354,000027:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
048355,000028:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
048356,000029:                                                                                                  #  INPUT
048357,000030:                                                                                                  #     DMENFLG = 0 6DIMENSIONAL BVECTOR  1= 9DIMENSIONAL
048358,000031:                                                                                                  #            W = ERROR TRANSITION MATRIX 6X6 OR 9X9
048359,000032:                                                                                                  #     VARIANCE = VARIANCE (SCALAR)
048360,000033:                                                                                                  #       DELTAQ = MEASURED DEVIATION(SCALAR)
048361,000034:                                                                                                  #      BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
048362,000035: 
048363,000036:                                                                                                  #  OUTPUT
048364,000037:                                                                                                  #       DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
048365,000038:                                                                                                  #           ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
048366,000039:                                                                                                  #      GAMMA = SCALAR
048367,000040:                                                                                                  #      OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
048368,000041:                                                                                                  #  CALLING SEQUENCE
048369,000042:                                                                                                  #     L  CALL INCORP1
048370,000043: 
048371,000044:                                                                                                  #  NORMAL EXIT
048372,000045: 
048373,000046:                                                                                                  #     L+1 OF CALLING SEQUENCE
048374,000047: 
048375,000048: 37,3654                                           BANK     37                                    
048376,000049: 23,2000                                           SETLOC   MEASINC                               
048377,000050: 23,2000                                           BANK                                           
048378,000051: 
048379,000052: 23,2527                                           COUNT*   $$/INCOR                              
048380,000053: 
048381,000054: 23,2527  E5,1400                                  EBANK=   W                                     
048382,000055: 
048383,000056: 23,2527           77620        INCORP1            STQ                                            
048384,000057: 23,2530           02772                                    EGRESS                                
048385,000058: 23,2531           66370                           AXT,1    SSP                                   
048386,000059: 23,2532           00066                                    54D                                   
048387,000060: 23,2533           00051                                    S1                                    
048388,000061: 23,2534           00022                                    18D                                   #  IX1 = 54  S1= 18
048389,000062: 23,2535           66374                           AXT,2    SSP                                   
048390,000063: 23,2536           00022                                    18D                                   
048391,000064: 23,2537           00052                                    S2                                    
048392,000065: 23,2540           00006                                    6                                     #  IX2 = 18  S2=6
048393,000066: 23,2541           63775        Z123               VLOAD    MXV*                                  
048394,000067: 23,2542           03525                                    BVECTOR                               #  BVECTOR (0)
048395,000068: 23,2543           02467                                    W          +54D,1                     
048396,000069: 23,2544           12665                           STORE    ZI         +18D,2                     
048397,000070: 23,2545           77775                           VLOAD                                          
048398,000071: 23,2546           03533                                    BVECTOR    +6                         #  BVECTOR (1)

Page 1141

048400,000073: 23,2547           52717                           MXV*     VAD*                                  
048401,000074: 23,2550           02555                                    W          +108D,1                    
048402,000075: 23,2551           75112                                    ZI         +18D,2                     
048403,000076: 23,2552           12665                           STORE    ZI         +18D,2                     
048404,000077: 23,2553           77775                           VLOAD                                          
048405,000078: 23,2554           03541                                    BVECTOR    +12D                       #  BVECTOR (2)
048406,000079: 23,2555           52717                           MXV*     VAD*                                  
048407,000080: 23,2556           02643                                    W          +162D,1                    
048408,000081: 23,2557           75112                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108)FIRST PAS
048409,000082: 23,2560           12665                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
048410,000083: 23,2561           77700                           TIX,1                                          
048411,000084: 23,2562           46563                                    INCOR1                                
048412,000085: 23,2563           43104        INCOR1             TIX,2    BON                                   
048413,000086: 23,2564           46541                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
048414,000087: 23,2565           02706                                    DMENFLG                               
048415,000088: 23,2566           46572                                    INCOR1A                               
048416,000089: 23,2567           77775                           VLOAD                                          
048417,000090: 23,2570           06520                                    ZEROVECS                              
048418,000091: 23,2571           02657                           STORE    ZI         +12D                       
048419,000092: 23,2572           77201        INCOR1A            SETPD    VLOAD                                 
048420,000093: 23,2573           00001                                    0                                     
048421,000094: 23,2574           02643                                    ZI                                    
048422,000095: 23,2575           47036                           VSQ      RTB                                   
048423,000096: 23,2576           21634                                    TPMODE                                
048424,000097: 23,2577           47515                           PDVL     VSQ                                   
048425,000098: 23,2600           02651                                    ZI         +6                         
048426,000099: 23,2601           76234                           RTB      TAD                                   
048427,000100: 23,2602           21634                                    TPMODE                                
048428,000101: 23,2603           47515                           PDVL     VSQ                                   
048429,000102: 23,2604           02657                                    ZI         +12D                       
048430,000103: 23,2605           76234                           RTB      TAD                                   
048431,000104: 23,2606           21634                                    TPMODE                                
048432,000105: 23,2607           77171                           TAD      AXT,2                                 
048433,000106: 23,2610           02707                                    VARIANCE                              
048434,000107: 23,2611           00000                                    0                                     
048435,000108: 23,2612           02665                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
048436,000109: 23,2613           40151                           TLOAD    BOV                                   
048437,000110: 23,2614           02707                                    VARIANCE                              #  CLEAR OVFIND
048438,000111: 23,2615           46616                                    +1                                    
048439,000112: 23,2616           02670                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
048440,000113: 23,2617           77654                           BZE                                            
048441,000114: 23,2620           46627                                    INCOR1C                               
048442,000115: 23,2621           40112        INCOR1B            SL2      BOV                                   
048443,000116: 23,2622           46627                                    INCOR1C                               
048444,000117: 23,2623           02670                           STORE    TEMPVAR                               
048445,000118: 23,2624           52114                           INCR,2   GOTO                                  
048446,000119: 23,2625           00001                           DEC      1          B-14                       
048447,000120: 23,2626           46621                                    INCOR1B                               
048448,000121: 23,2627           61551        INCOR1C            TLOAD    ROUND                                 
048449,000122: 23,2630           02665                                    TRIPA                                 

Page 1142

048451,000124: 23,2631           75405                           DMP      SQRT                                  
048452,000125: 23,2632           02670                                    TEMPVAR                               
048453,000126: 23,2633           76257                           SL*      TAD                                   
048454,000127: 23,2634           57576                                    0,2                                   
048455,000128: 23,2635           02665                                    TRIPA                                 
048456,000129: 23,2636           63101                           NORM     INCR,2                                
048457,000130: 23,2637           00050                                    X2                                    
048458,000131: 23,2640           77775                           DEC      -2         B-14                       
048459,000132: 23,2641           77134                           SXA,2    AXT,2                                 
048460,000133: 23,2642           02103                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
048461,000134: 23,2643           00242                                    162D                                  
048462,000135: 23,2644           40265                           BDDV     SETPD                                 
048463,000136: 23,2645           06510                                    DP1/4TH                               
048464,000137: 23,2646           00001                                    0                                     
048465,000138: 23,2647           03500                           STORE    GAMMA                                 
048466,000139: 23,2650           60351                           TLOAD    NORM                                  
048467,000140: 23,2651           02665                                    TRIPA                                 
048468,000141: 23,2652           00047                                    X1                                    
048469,000142: 23,2653           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
048470,000143: 23,2654           00155                                    MPAC                                  
048471,000144: 23,2655           03547                                    DELTAQ                                
048472,000145: 23,2656           77701                           NORM                                           
048473,000146: 23,2657           00051                                    S1                                    
048474,000147: 23,2660           70460                           XSU,1    SR1                                   
048475,000148: 23,2661           00050                                    S1                                    
048476,000149: 23,2662           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
048477,000150: 23,2663           77650                           GOTO                                           
048478,000151: 23,2664           45710                                    NEWZCOMP                              
048479,000152: 23,2665           77731                 -3        SSP                                            
048480,000153: 23,2666           00052                                    S2                                    
048481,000154: 23,2667           00066                                    54D                                   
048482,000155: 23,2670           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
048483,000156: 23,2671           02643                                    ZI                                    
048484,000157: 23,2672           75134                                    W          +162D,2                    
048485,000158: 23,2673           77206                           PUSH     VLOAD                                 
048486,000159: 23,2674           02651                                    ZI         +6                         
048487,000160: 23,2675           53303                           VXM*     VAD                                   
048488,000161: 23,2676           75112                                    W          +180D,2                    
048489,000162: 23,2677           77206                           PUSH     VLOAD                                 
048490,000163: 23,2700           02657                                    ZI         +12D                       
048491,000164: 23,2701           53303                           VXM*     VAD                                   
048492,000165: 23,2702           75070                                    W          +198D,2                    
048493,000166: 23,2703           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
048494,000167: 23,2704           46670                                    INCOR2                                
048495,000168: 23,2705           45575                           VLOAD    STADR                                 
048496,000169: 23,2706           74260                           STORE    OMEGA      +12D                       
048497,000170: 23,2707           45575                           VLOAD    STADR                                 
048498,000171: 23,2710           74266                           STORE    OMEGA      +6                         
048499,000172: 23,2711           45575                           VLOAD    STADR                                 
048500,000173: 23,2712           74274                           STORE    OMEGA                                 

Page 1143

048502,000175: 23,2713           77214                           BON      VLOAD                                 
048503,000176: 23,2714           02706                                    DMENFLG                               
048504,000177: 23,2715           46720                                    INCOR2AB                              
048505,000178: 23,2716           06520                                    ZEROVECS                              
048506,000179: 23,2717           03517                           STORE    OMEGA      +12D                       
048507,000180: 23,2720           66374        INCOR2AB           AXT,2    SSP                                   
048508,000181: 23,2721           00022                                    18D                                   
048509,000182: 23,2722           00052                                    S2                                    
048510,000183: 23,2723           00006                                    6                                     
048511,000184: 23,2724           77773        INCOR3             VLOAD*                                         
048512,000185: 23,2725           74252                                    OMEGA      +18D,2                     
048513,000186: 23,2726           53761                           VXSC     VSL*                                  
048514,000187: 23,2727           00001                                    0                                     #  DELTAQ/A
048515,000188: 23,2730           20201                                    0,1                                   
048516,000189: 23,2731           12707                           STORE    DELTAX     +18D,2                     
048517,000190: 23,2732           77304                           TIX,2    VLOAD                                 
048518,000191: 23,2733           46724                                    INCOR3                                
048519,000192: 23,2734           02673                                    DELTAX     +6                         
048520,000193: 23,2735           77732                           VSL3                                           
048521,000194: 23,2736           02673                           STORE    DELTAX     +6                         
048522,000195: 23,2737           77650                           GOTO                                           
048523,000196: 23,2740           02772                                    EGRESS                                
048524,000197: 

Page 1144

048526,000199:                                                                                                  #   INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
048527,000200:                                                                                                  #  ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
048528,000201:                                                                                                  #  LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
048529,000202:                                                                                                  #  INPUT
048530,000203:                                                                                                  #     PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
048531,000204:                                                                                                  #     VEHUPFLG = UPDATE VEHICLE 0=LEM  1=CSM
048532,000205:                                                                                                  #     W =        ERROR TRANSITION MATRIX
048533,000206:                                                                                                  #     DELTAX  =  COMPUTED STATE VECTOR DEVIATIONS
048534,000207:                                                                                                  #     DMENFLG =  SIZE OF W MATRIX (ZERO =6X6) (1=9X9)
048535,000208:                                                                                                  #     GAMMA   =  SCALAR FOR INCORPORATION
048536,000209:                                                                                                  #     ZI      =  VECTOR USED IN INCORPORATION
048537,000210:                                                                                                  #     OMEGA  =  WEIGHTING VECTOR
048538,000211: 
048539,000212:                                                                                                  #  OUTPUT
048540,000213:                                                                                                  #     UPDATED PERMANENT STATE VECTOR
048541,000214: 
048542,000215:                                                                                                  #  CALLING SEQUENCE
048543,000216:                                                                                                  #     L  CALL INCORP2
048544,000217: 
048545,000218:                                                                                                  #  NORMAL EXIT
048546,000219:                                                                                                  #     L+1 OF CALLING SEQUENCE
048547,000220: 
048548,000221: 23,2000                                           SETLOC   MEASINC1                              
048549,000222: 23,2000                                           BANK                                           
048550,000223: 
048551,000224: 23,2741                                           COUNT*   $$/INCOR                              
048552,000225: 
048553,000226: 23,2741           45020        INCORP2            STQ      CALL                                  
048554,000227: 23,2742           02772                                    EGRESS                                
048555,000228: 23,2743           27410                                    INTSTALL                              
048556,000229: 23,2744           74375                           VLOAD    VXSC                                  #  CALC. GAMMA * OMEGA1,2,3
048557,000230: 23,2745           03503                                    OMEGA                                 
048558,000231: 23,2746           03500                                    GAMMA                                 
048559,000232: 23,2747           26713                           STOVL    OMEGAM1                               
048560,000233: 23,2750           03511                                    OMEGA      +6                         
048561,000234: 23,2751           77761                           VXSC                                           
048562,000235: 23,2752           03500                                    GAMMA                                 
048563,000236: 23,2753           26721                           STOVL    OMEGAM2                               
048564,000237: 23,2754           03517                                    OMEGA      +12D                       
048565,000238: 23,2755           77761                           VXSC                                           
048566,000239: 23,2756           03500                                    GAMMA                                 
048567,000240: 23,2757           02727                           STORE    OMEGAM3                               
048568,000241: 23,2760           77776                           EXIT                                           
048569,000242: 23,2761           33242                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
048570,000243: 23,2762           55315                           TS       WIXA                                  
048571,000244: 23,2763           55316                           TS       WIXB                                  
048572,000245: 23,2764           34755                           CAF      ZERO                                  
048573,000246: 23,2765           55317                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
048574,000247: 23,2766           55320                           TS       ZIXB                                  
048575,000248: 23,2767           05364        FAZA               TC       PHASCHNG                              

Page 1145

048577,000250: 23,2770           04022                           OCT      04022                                 
048578,000251: 23,2771           05515                           TC       UPFLAG                                
048579,000252: 23,2772           00236                           ADRES    REINTFLG                              
048580,000253: 23,2773           31316        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
048581,000254: 23,2774           55315                           TS       WIXA                                  #   TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
048582,000255: 23,2775           31320                           CA       ZIXB                                  
048583,000256: 23,2776           55317                           TS       ZIXA                                  
048584,000257: 23,2777           06042                           TC       INTPRET                               
048585,000258: 23,3000           73150                           LXA,1    LXA,2                                 
048586,000259: 23,3001           01315                                    WIXA                                  
048587,000260: 23,3002           01317                                    ZIXA                                  
048588,000261: 23,3003           70731                           SSP      DLOAD*                                
048589,000262: 23,3004           00051                                    S1                                    
048590,000263: 23,3005           00006                                    6                                     
048591,000264: 23,3006           75134                                    ZI,2                                  
048592,000265: 23,3007           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
048593,000266: 23,3010           00052                                    S2                                    
048594,000267: 23,3011           65161                           VXSC     XCHX,2                                
048595,000268: 23,3012           02713                                    OMEGAM1                               
048596,000269: 23,3013           00051                                    S2                                    
048597,000270: 23,3014           57144                           LXC,2    XAD,2                                 
048598,000271: 23,3015           00047                                    X2                                    
048599,000272: 23,3016           02103                                    NORMGAM                               
048600,000273: 23,3017           65057                           VSL*     XCHX,2                                
048601,000274: 23,3020           57576                                    0,2                                   
048602,000275: 23,3021           00051                                    S2                                    
048603,000276: 23,3022           77653                           VAD*                                           
048604,000277: 23,3023           02467                                    W          +54D,1                     
048605,000278: 23,3024           02735                           STORE    HOLDW                                 
048606,000279: 23,3025           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
048607,000280: 23,3026           75134                                    ZI,2                                  
048608,000281: 23,3027           74301                           NORM     VXSC                                  
048609,000282: 23,3030           00052                                    S2                                    
048610,000283: 23,3031           02721                                    OMEGAM2                               
048611,000284: 23,3032           71124                           XCHX,2   LXC,2                                 
048612,000285: 23,3033           00051                                    S2                                    
048613,000286: 23,3034           00047                                    X2                                    
048614,000287: 23,3035           53674                           XAD,2    VSL*                                  
048615,000288: 23,3036           02103                                    NORMGAM                               
048616,000289: 23,3037           57576                                    0,2                                   
048617,000290: 23,3040           52724                           XCHX,2   VAD*                                  
048618,000291: 23,3041           00051                                    S2                                    
048619,000292: 23,3042           02555                                    W          +108D,1                    
048620,000293: 23,3043           02743                           STORE    HOLDW      +6                         
048621,000294: 23,3044           77614                           BOFF                                           
048622,000295: 23,3045           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
048623,000296: 23,3046           47066                                    FAZB                                  
048624,000297: 23,3047           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
048625,000298: 23,3050           75134                                    ZI,2                                  
048626,000299: 23,3051           74301                           NORM     VXSC                                  

Page 1146

048628,000301: 23,3052           00052                                    S2                                    
048629,000302: 23,3053           02727                                    OMEGAM3                               
048630,000303: 23,3054           71124                           XCHX,2   LXC,2                                 
048631,000304: 23,3055           00051                                    S2                                    
048632,000305: 23,3056           00047                                    X2                                    
048633,000306: 23,3057           53674                           XAD,2    VSL*                                  
048634,000307: 23,3060           02103                                    NORMGAM                               
048635,000308: 23,3061           57576                                    0,2                                   
048636,000309: 23,3062           52724                           XCHX,2   VAD*                                  
048637,000310: 23,3063           00051                                    S2                                    
048638,000311: 23,3064           02643                                    W          +162D,1                    
048639,000312: 23,3065           02751                           STORE    HOLDW      +12D                       
048640,000313: 23,3066           77624        FAZB               CALL                                           
048641,000314: 23,3067           11216                                    GRP2PC                                
048642,000315: 23,3070           77776                           EXIT                                           
048643,000316: 23,3071           31315        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
048644,000317: 23,3072           63243                           AD       6DD                                   #      TEMP REG TO PERM W MATRIX
048645,000318: 23,3073           55316                           TS       WIXB                                  
048646,000319: 23,3074           31317                           CA       ZIXA                                  
048647,000320: 23,3075           67751                           AD       MINUS2                                
048648,000321: 23,3076           55320                           TS       ZIXB                                  
048649,000322: 23,3077           06042                           TC       INTPRET                               
048650,000323: 23,3100           66350                           LXA,1    SSP                                   
048651,000324: 23,3101           01315                                    WIXA                                  
048652,000325: 23,3102           00051                                    S1                                    
048653,000326: 23,3103           00006                                    6                                     
048654,000327: 23,3104           77775                           VLOAD                                          
048655,000328: 23,3105           02735                                    HOLDW                                 
048656,000329: 23,3106           06467                           STORE    W          +54D,1                     
048657,000330: 23,3107           77775                           VLOAD                                          
048658,000331: 23,3110           02743                                    HOLDW      +6                         
048659,000332: 23,3111           06555                           STORE    W          +108D,1                    
048660,000333: 23,3112           77214                           BOFF     VLOAD                                 
048661,000334: 23,3113           02746                                    DMENFLG                               
048662,000335: 23,3114           47124                                    FAZB5                                 
048663,000336: 23,3115           02751                                    HOLDW      +12D                       
048664,000337: 23,3116           06643                           STORE    W          +162D,1                    
048665,000338: 23,3117           52100        FAZB2              TIX,1    GOTO                                  
048666,000339: 23,3120           47122                                    +2                                    
048667,000340: 23,3121           47132                                    FAZC                                  #  DONE WITH W MATRIX. UPDATE STATE VECTOR
048668,000341: 23,3122           77634                           RTB                                            
048669,000342: 23,3123           46767                                    FAZA                                  
048670,000343: 23,3124           43335        FAZB5              SLOAD    DAD                                   
048671,000344: 23,3125           01321                                    ZIXB                                  
048672,000345: 23,3126           07245                                    12DD                                  
048673,000346: 23,3127           52030                           BHIZ     GOTO                                  
048674,000347: 23,3130           47132                                    FAZC                                  
048675,000348: 23,3131           47117                                    FAZB2                                 
048676,000349: 23,3132           77624        FAZC               CALL                                           
048677,000350: 23,3133           11216                                    GRP2PC                                

Page 1147

048679,000352: 23,3134           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
048680,000353: 23,3135           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
048681,000354: 23,3136           02701                                    DELTAX     +12D                       #  INCORPORATION FOR X789
048682,000355: 23,3137           03472                           STORE    TX789                                 
048683,000356: 23,3140           47014                           BON      RTB                                   
048684,000357: 23,3141           00707                                    VEHUPFLG                              
048685,000358: 23,3142           47232                                    DOCSM                                 
048686,000359: 23,3143           26767                                    MOVEPLEM                              
048687,000360: 23,3144           77004        FAZAB              BOVB     AXT,2                                 
048688,000361: 23,3145           57752                                    TCDANZIG                              
048689,000362: 23,3146           00000                                    0                                     
048690,000363: 23,3147           77014                           BOFF     AXT,2                                 
048691,000364: 23,3150           04344                                    MOONTHIS                              
048692,000365: 23,3151           47153                                    +2                                    
048693,000366: 23,3152           00002                                    2                                     
048694,000367: 23,3153           53775                           VLOAD    VSR*                                  
048695,000368: 23,3154           02665                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
048696,000369: 23,3155           57205                                    0          -7,2                       
048697,000370: 23,3156           40055                           VAD      BOV                                   
048698,000371: 23,3157           01521                                    TDELTAV                               
048699,000372: 23,3160           47172                                    FAZAB1                                
048700,000373: 23,3161           25521                           STOVL    TDELTAV                               
048701,000374: 23,3162           02673                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
048702,000375: 23,3163           53257                           VSR*     VAD                                   
048703,000376: 23,3164           57202                                    0          -4,2                       
048704,000377: 23,3165           01527                                    TNUV                                  
048705,000378: 23,3166           77600                           BOV                                            
048706,000379: 23,3167           47176                                    FAZAB2                                
048707,000380: 23,3170           35527                           STCALL   TNUV                                  
048708,000381: 23,3171           47205                                    FAZAB3                                
048709,000382: 23,3172           53375        FAZAB1             VLOAD    VAD                                   
048710,000383: 23,3173           01535                                    RCV                                   
048711,000384: 23,3174           02665                                    DELTAX                                
048712,000385: 23,3175           01535                           STORE    RCV                                   
048713,000386: 23,3176           53375        FAZAB2             VLOAD    VAD                                   
048714,000387: 23,3177           01543                                    VCV                                   
048715,000388: 23,3200           02673                                    DELTAX     +6                         
048716,000389: 23,3201           01543                           STORE    VCV                                   
048717,000390: 23,3202           45134                           SXA,2    CALL                                  
048718,000391: 23,3203           02030                                    PBODY                                 
048719,000392: 23,3204           27671                                    RECTIFY                               
048720,000393: 23,3205           77624        FAZAB3             CALL                                           
048721,000394: 23,3206           11216                                    GRP2PC                                
048722,000395: 23,3207           47014                           BON      RTB                                   
048723,000396: 23,3210           00707                                    VEHUPFLG                              
048724,000397: 23,3211           47235                                    DOCSM1                                
048725,000398: 23,3212           26746                                    MOVEALEM                              
048726,000399: 23,3213           77624                           CALL                                           
048727,000400: 23,3214           26070                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
048728,000401: 23,3215           77624        FAZAB4             CALL                                           

Page 1148

048730,000403: 23,3216           11216                                    GRP2PC                                #  PHASE CHANGE
048731,000404: 23,3217           77214                           BOFF     VLOAD                                 
048732,000405: 23,3220           02746                                    DMENFLG                               
048733,000406: 23,3221           47224                                    FAZAB5                                #  6 DIMENSIONAL
048734,000407: 23,3222           03472                                    TX789                                 #  9 DIMENSIONAL
048735,000408: 23,3223           01701                           STORE    X789                                  
048736,000409: 23,3224           66150        FAZAB5             LXA,1    SXA,1                                 
048737,000410: 23,3225           02772                                    EGRESS                                
048738,000411: 23,3226           00052                                    QPRET                                 
048739,000412: 23,3227           77776                           EXIT                                           
048740,000413: 23,3230           04635                           TC       POSTJUMP                              #  EXIT
048741,000414: 23,3231           27421                           CADR     INTWAKE                               
048742,000415: 23,3232           52034        DOCSM              RTB      GOTO                                  
048743,000416: 23,3233           26722                                    MOVEPCSM                              
048744,000417: 23,3234           47144                                    FAZAB                                 
048745,000418: 23,3235           45034        DOCSM1             RTB      CALL                                  
048746,000419: 23,3236           26673                                    MOVEACSM                              
048747,000420: 23,3237           26114                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
048748,000421: 23,3240           77650                           GOTO                                           
048749,000422: 23,3241           47215                                    FAZAB4                                
048750,000423: 23,3242  23,2517               ZEROO              =        ZEROVECS                              
048751,000424: 23,3242           00066        54DD               DEC      54         B-14                       
048752,000425: 23,3243           77771        6DD                DEC      -6         B-14                       
048753,000426: 23,3244           00014        12DD               DEC      12         B-14                       
048754,000427: 22,2000                                           SETLOC   RENDEZ                                
048755,000428: 22,2000                                           BANK                                           
048756,000429: 22,3710                                           COUNT*   $$/INCOR                              
048757,000430: 
048758,000431: 22,3710           51575        NEWZCOMP           VLOAD    ABVAL                                 
048759,000432: 22,3711           02643                                    ZI                                    
048760,000433: 22,3712           24045                           STOVL    NORMZI                                
048761,000434: 22,3713           02651                                    ZI         +6                         
048762,000435: 22,3714           41446                           ABVAL    PUSH                                  
048763,000436: 22,3715           50025                           DSU      BMN                                   
048764,000437: 22,3716           00045                                    NORMZI                                
048765,000438: 22,3717           45722                                    +3                                    
048766,000439: 22,3720           45545                           DLOAD    STADR                                 
048767,000440: 22,3721           77732                           STORE    NORMZI                                
048768,000441: 22,3722           51575                           VLOAD    ABVAL                                 
048769,000442: 22,3723           02657                                    ZI         +12D                       
048770,000443: 22,3724           45206                           PUSH     DSU                                   
048771,000444: 22,3725           00045                                    NORMZI                                
048772,000445: 22,3726           71240                           BMN      DLOAD                                 
048773,000446: 22,3727           45732                                    +3                                    
048774,000447: 22,3730           77626                           STADR                                          
048775,000448: 22,3731           77732                           STORE    NORMZI                                #  LARGEST ABVAL
048776,000449: 22,3732           66145                           DLOAD    SXA,1                                 
048777,000450: 22,3733           00045                                    NORMZI                                
048778,000451: 22,3734           00044                                    NORMZI                                #  SAVE X1
048779,000452: 22,3735           62101                           NORM     INCR,1                                

Page 1149

048781,000454: 22,3736           00047                                    X1                                    
048782,000455: 22,3737           00002                           DEC      2          B-14                       
048783,000456: 22,3740           53775                           VLOAD    VSL*                                  
048784,000457: 22,3741           02643                                    ZI                                    
048785,000458: 22,3742           20201                                    0,1                                   
048786,000459: 22,3743           26643                           STOVL    ZI                                    
048787,000460: 22,3744           02651                                    ZI         +6                         
048788,000461: 22,3745           77657                           VSL*                                           
048789,000462: 22,3746           20201                                    0,1                                   
048790,000463: 22,3747           26651                           STOVL    ZI         +6                         
048791,000464: 22,3750           02657                                    ZI         +12D                       
048792,000465: 22,3751           66057                           VSL*     SXA,1                                 
048793,000466: 22,3752           20201                                    0,1                                   
048794,000467: 22,3753           00045                                    NORMZI     +1                         #  SAVE SHIFT
048795,000468: 22,3754           02657                           STORE    ZI         +12D                       
048796,000469: 22,3755           54150                           LXA,1    XSU,1                                 
048797,000470: 22,3756           02103                                    NORMGAM                               
048798,000471: 22,3757           00045                                    NORMZI     +1                         
048799,000472: 22,3760           77660                           XSU,1                                          
048800,000473: 22,3761           00045                                    NORMZI     +1                         
048801,000474: 22,3762           70130                           SXA,1    LXC,1                                 
048802,000475: 22,3763           02103                                    NORMGAM                               
048803,000476: 22,3764           00045                                    NORMZI     +1                         
048804,000477: 22,3765           40270                           XAD,1    SETPD                                 
048805,000478: 22,3766           00044                                    NORMZI                                
048806,000479: 22,3767           00003                                    2D                                    
048807,000480: 22,3770           77650                           GOTO                                           
048808,000481: 22,3771           46665                                    INCOR2     -3                         
048809,000482: 22,3772                        NORMZI             =        36D                                   

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