Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

049951,000002:                                                                                                  ## Copyright:   Public domain.
049952,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
049953,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
049954,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the second release
049955,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
049956,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
049957,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
049958,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
049959,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
049960,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
049961,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
049962,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
049963,000014:                                                                                                  ##              the original YUL assembler.
049964,000015:                                                                                                  ##
049965,000016:                                                                                                  ## Assembler:   yaYUL
049966,000017:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
049967,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
049968,000019:                                                                                                  ## Pages:       1149-1158
049969,000020:                                                                                                  ## Mod history: 2009-05-28 JL   Updated from page images.
049970,000021:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
049971,000022:                                                                                                  ##              2016-12-17 RSB  Proofed text comments with octopus/ProoferComments
049972,000023:                                                                                                  ##                              and corrected the errors found.
049973,000024:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
049974,000025: 
049975,000026:                                                                                                  ## This source code has been transcribed or otherwise adapted from
049976,000027:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
049977,000028:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
049978,000029:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
049979,000030:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
049980,000031:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
049981,000032:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
049982,000033:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
049983,000034:                                                                                                  ## actually created.
049984,000035:                                                                                                  ##
049985,000036:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
049986,000037:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
049987,000038:                                                                                                  ## the listing from which it was transcribed. It has been verified to
049988,000039:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
049989,000040:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
049990,000041:                                                                                                  ##
049991,000042:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
049992,000043:                                                                                                  ##
049993,000044:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
049994,000045: 

Page 1149

049996,000047:                                                                                                  #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
049997,000048:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
049998,000049:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
049999,000050:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
050000,000051:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
050001,000052:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
050002,000053:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
050003,000054: 
050004,000055:                                                                                                  #  INPUT
050005,000056:                                                                                                  #         DMENFLG = 0 6DIMENSIONAL BVECTOR   1=9DIMENSIONAL
050006,000057:                                                                                                  #               W = ERROR TRANSITION MATRIX 6X6 OR 9X9
050007,000058:                                                                                                  #        VARIANCE = VARIANCE (SCALAR)
050008,000059:                                                                                                  #          DELTAQ = MEASURED DEVIATION (SCALAR)
050009,000060:                                                                                                  #         BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
050010,000061: 
050011,000062:                                                                                                  #  OUTPUT
050012,000063:                                                                                                  #          DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
050013,000064:                                                                                                  #              ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
050014,000065:                                                                                                  #           GAMMA = SCALAR
050015,000066:                                                                                                  #           OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
050016,000067: 
050017,000068:                                                                                                  #  CALLING SEQUENCE
050018,000069:                                                                                                  #        L       CALL    INCORP1
050019,000070: 
050020,000071:                                                                                                  #  NORMAL EXIT
050021,000072:                                                                                                  #        L+1 OF CALLING SEQUENCE
050022,000073: 
050023,000074: 37,3655                                           BANK     37                                    
050024,000075: 23,2000                                           SETLOC   MEASINC                               
050025,000076: 23,2000                                           BANK                                           
050026,000077: 
050027,000078: 23,2531                                           COUNT*   $$/INCOR                              
050028,000079: 
050029,000080: 23,2531  E5,1400                                  EBANK=   W                                     
050030,000081: 
050031,000082: 23,2531           77620        INCORP1            STQ                                            
050032,000083: 23,2532           02772                                    EGRESS                                
050033,000084: 23,2533           66370                           AXT,1    SSP                                   
050034,000085: 23,2534           00066                                    54D                                   
050035,000086: 23,2535           00051                                    S1                                    
050036,000087: 23,2536           00022                                    18D                                   #  IX1 = 54      S1= 18
050037,000088: 23,2537           66374                           AXT,2    SSP                                   
050038,000089: 23,2540           00022                                    18D                                   
050039,000090: 23,2541           00052                                    S2                                    
050040,000091: 23,2542           00006                                    6                                     #  IX2 = 18      S2=6
050041,000092: 23,2543           63775        Z123               VLOAD    MXV*                                  
050042,000093: 23,2544           03525                                    BVECTOR                               #  BVECTOR (0)
050043,000094: 23,2545           02467                                    W          +54D,1                     
050044,000095: 23,2546           12665                           STORE    ZI         +18D,2                     
050045,000096: 23,2547           77775                           VLOAD                                          
050046,000097: 23,2550           03533                                    BVECTOR    +6                         #  BVECTOR (1)

Page 1150

050048,000099: 23,2551           52717                           MXV*     VAD*                                  
050049,000100: 23,2552           02555                                    W          +108D,1                    
050050,000101: 23,2553           75112                                    ZI         +18D,2                     
050051,000102: 23,2554           12665                           STORE    ZI         +18D,2                     
050052,000103: 23,2555           77775                           VLOAD                                          
050053,000104: 23,2556           03541                                    BVECTOR    +12D                       #  BVECTOR (2)
050054,000105: 23,2557           52717                           MXV*     VAD*                                  
050055,000106: 23,2560           02643                                    W          +162D,1                    
050056,000107: 23,2561           75112                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
050057,000108: 23,2562           12665                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
050058,000109: 23,2563           77700                           TIX,1                                          
050059,000110: 23,2564           46565                                    INCOR1                                
050060,000111: 23,2565           43104        INCOR1             TIX,2    BON                                   
050061,000112: 23,2566           46543                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
050062,000113: 23,2567           02706                                    DMENFLG                               
050063,000114: 23,2570           46574                                    INCOR1A                               
050064,000115: 23,2571           77775                           VLOAD                                          
050065,000116: 23,2572           06522                                    ZEROVECS                              
050066,000117: 23,2573           02657                           STORE    ZI         +12D                       
050067,000118: 23,2574           77201        INCOR1A            SETPD    VLOAD                                 
050068,000119: 23,2575           00001                                    0                                     
050069,000120: 23,2576           02643                                    ZI                                    
050070,000121: 23,2577           47036                           VSQ      RTB                                   
050071,000122: 23,2600           21633                                    TPMODE                                
050072,000123: 23,2601           47515                           PDVL     VSQ                                   
050073,000124: 23,2602           02651                                    ZI         +6                         
050074,000125: 23,2603           76234                           RTB      TAD                                   
050075,000126: 23,2604           21633                                    TPMODE                                
050076,000127: 23,2605           47515                           PDVL     VSQ                                   
050077,000128: 23,2606           02657                                    ZI         +12D                       
050078,000129: 23,2607           76234                           RTB      TAD                                   
050079,000130: 23,2610           21633                                    TPMODE                                
050080,000131: 23,2611           77171                           TAD      AXT,2                                 
050081,000132: 23,2612           02707                                    VARIANCE                              
050082,000133: 23,2613           00000                                    0                                     
050083,000134: 23,2614           02665                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
050084,000135: 23,2615           40151                           TLOAD    BOV                                   
050085,000136: 23,2616           02707                                    VARIANCE                              #  CLEAR OVFIND
050086,000137: 23,2617           46620                                    +1                                    
050087,000138: 23,2620           02670                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
050088,000139: 23,2621           77654                           BZE                                            
050089,000140: 23,2622           46631                                    INCOR1C                               
050090,000141: 23,2623           40112        INCOR1B            SL2      BOV                                   
050091,000142: 23,2624           46631                                    INCOR1C                               
050092,000143: 23,2625           02670                           STORE    TEMPVAR                               
050093,000144: 23,2626           52114                           INCR,2   GOTO                                  
050094,000145: 23,2627           00001                           DEC      1          B-14                       
050095,000146: 23,2630           46623                                    INCOR1B                               
050096,000147: 23,2631           61551        INCOR1C            TLOAD    ROUND                                 
050097,000148: 23,2632           02665                                    TRIPA                                 

Page 1151

050099,000150: 23,2633           75405                           DMP      SQRT                                  
050100,000151: 23,2634           02670                                    TEMPVAR                               
050101,000152: 23,2635           76257                           SL*      TAD                                   
050102,000153: 23,2636           57576                                    0,2                                   
050103,000154: 23,2637           02665                                    TRIPA                                 
050104,000155: 23,2640           63101                           NORM     INCR,2                                
050105,000156: 23,2641           00050                                    X2                                    
050106,000157: 23,2642           77775                           DEC      -2         B-14                       
050107,000158: 23,2643           77134                           SXA,2    AXT,2                                 
050108,000159: 23,2644           02103                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
050109,000160: 23,2645           00242                                    162D                                  
050110,000161: 23,2646           40265                           BDDV     SETPD                                 
050111,000162: 23,2647           06512                                    DP1/4TH                               
050112,000163: 23,2650           00001                                    0                                     
050113,000164: 23,2651           03500                           STORE    GAMMA                                 
050114,000165: 23,2652           60351                           TLOAD    NORM                                  
050115,000166: 23,2653           02665                                    TRIPA                                 
050116,000167: 23,2654           00047                                    X1                                    
050117,000168: 23,2655           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
050118,000169: 23,2656           00155                                    MPAC                                  
050119,000170: 23,2657           03547                                    DELTAQ                                
050120,000171: 23,2660           77701                           NORM                                           
050121,000172: 23,2661           00051                                    S1                                    
050122,000173: 23,2662           70460                           XSU,1    SR1                                   
050123,000174: 23,2663           00050                                    S1                                    
050124,000175: 23,2664           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
050125,000176: 23,2665           77650                           GOTO                                           
050126,000177: 23,2666           45711                                    NEWZCOMP                              
050127,000178: 23,2667           77731                 -3        SSP                                            
050128,000179: 23,2670           00052                                    S2                                    
050129,000180: 23,2671           00066                                    54D                                   
050130,000181: 23,2672           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
050131,000182: 23,2673           02643                                    ZI                                    
050132,000183: 23,2674           75134                                    W          +162D,2                    
050133,000184: 23,2675           77206                           PUSH     VLOAD                                 
050134,000185: 23,2676           02651                                    ZI         +6                         
050135,000186: 23,2677           53303                           VXM*     VAD                                   
050136,000187: 23,2700           75112                                    W          +180D,2                    
050137,000188: 23,2701           77206                           PUSH     VLOAD                                 
050138,000189: 23,2702           02657                                    ZI         +12D                       
050139,000190: 23,2703           53303                           VXM*     VAD                                   
050140,000191: 23,2704           75070                                    W          +198D,2                    
050141,000192: 23,2705           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
050142,000193: 23,2706           46672                                    INCOR2                                
050143,000194: 23,2707           45575                           VLOAD    STADR                                 
050144,000195: 23,2710           74260                           STORE    OMEGA      +12D                       
050145,000196: 23,2711           45575                           VLOAD    STADR                                 
050146,000197: 23,2712           74266                           STORE    OMEGA      +6                         
050147,000198: 23,2713           45575                           VLOAD    STADR                                 
050148,000199: 23,2714           74274                           STORE    OMEGA                                 

Page 1152

050150,000201: 23,2715           77214                           BON      VLOAD                                 
050151,000202: 23,2716           02706                                    DMENFLG                               
050152,000203: 23,2717           46722                                    INCOR2AB                              
050153,000204: 23,2720           06522                                    ZEROVECS                              
050154,000205: 23,2721           03517                           STORE    OMEGA      +12D                       
050155,000206: 23,2722           66374        INCOR2AB           AXT,2    SSP                                   
050156,000207: 23,2723           00022                                    18D                                   
050157,000208: 23,2724           00052                                    S2                                    
050158,000209: 23,2725           00006                                    6                                     
050159,000210: 23,2726           77773        INCOR3             VLOAD*                                         
050160,000211: 23,2727           74252                                    OMEGA      +18D,2                     
050161,000212: 23,2730           53761                           VXSC     VSL*                                  
050162,000213: 23,2731           00001                                    0                                     #  DELTAQ/A
050163,000214: 23,2732           20201                                    0,1                                   
050164,000215: 23,2733           12707                           STORE    DELTAX     +18D,2                     
050165,000216: 23,2734           77304                           TIX,2    VLOAD                                 
050166,000217: 23,2735           46726                                    INCOR3                                
050167,000218: 23,2736           02673                                    DELTAX     +6                         
050168,000219: 23,2737           77732                           VSL3                                           
050169,000220: 23,2740           02673                           STORE    DELTAX     +6                         
050170,000221: 23,2741           77650                           GOTO                                           
050171,000222: 23,2742           02772                                    EGRESS                                
050172,000223: 

Page 1153

050174,000225:                                                                                                  #   INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
050175,000226:                                                                                                  #  ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
050176,000227:                                                                                                  #  LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
050177,000228: 
050178,000229:                                                                                                  #  INPUT
050179,000230:                                                                                                  #        PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
050180,000231:                                                                                                  #        VEHUPFLG = UPDATE VEHICLE 0=LEM  1=CSM
050181,000232:                                                                                                  #        W = ERROR TRANSITION MATRIX
050182,000233:                                                                                                  #        DELTAX = COMPUTED STATE VECTOR DEVIATIONS
050183,000234:                                                                                                  #        DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
050184,000235:                                                                                                  #        GAMMA = SCALAR FOR INCORPORATION
050185,000236:                                                                                                  #        ZI = VECTOR USED IN INCORPORATION
050186,000237:                                                                                                  #        OMEGA = WEIGHTING VECTOR
050187,000238: 
050188,000239:                                                                                                  #  OUTPUT
050189,000240:                                                                                                  #        UPDATED PERMANENT STATE VECTOR
050190,000241: 
050191,000242:                                                                                                  #  CALLING SEQUENCE
050192,000243:                                                                                                  #        L       CALL    INCORP2
050193,000244: 
050194,000245:                                                                                                  #  NORMAL EXIT
050195,000246:                                                                                                  #        L+1 OF CALLING SEQUENCE
050196,000247: 
050197,000248: 
050198,000249: 23,2000                                           SETLOC   MEASINC1                              
050199,000250: 23,2000                                           BANK                                           
050200,000251: 
050201,000252: 23,2743                                           COUNT*   $$/INCOR                              
050202,000253: 
050203,000254: 23,2743           45020        INCORP2            STQ      CALL                                  
050204,000255: 23,2744           02772                                    EGRESS                                
050205,000256: 23,2745           27414                                    INTSTALL                              
050206,000257: 23,2746           74375                           VLOAD    VXSC                                  #  CALC. GAMMA * OMEGA1,2,3
050207,000258: 23,2747           03503                                    OMEGA                                 
050208,000259: 23,2750           03500                                    GAMMA                                 
050209,000260: 23,2751           26713                           STOVL    OMEGAM1                               
050210,000261: 23,2752           03511                                    OMEGA      +6                         
050211,000262: 23,2753           77761                           VXSC                                           
050212,000263: 23,2754           03500                                    GAMMA                                 
050213,000264: 23,2755           26721                           STOVL    OMEGAM2                               
050214,000265: 23,2756           03517                                    OMEGA      +12D                       
050215,000266: 23,2757           77761                           VXSC                                           
050216,000267: 23,2760           03500                                    GAMMA                                 
050217,000268: 23,2761           02727                           STORE    OMEGAM3                               
050218,000269: 23,2762           77776                           EXIT                                           
050219,000270: 23,2763           33244                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
050220,000271: 23,2764           55320                           TS       WIXA                                  
050221,000272: 23,2765           55321                           TS       WIXB                                  
050222,000273: 23,2766           34755                           CAF      ZERO                                  
050223,000274: 23,2767           55322                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
050224,000275: 23,2770           55323                           TS       ZIXB                                  
050225,000276: 23,2771           05353        FAZA               TC       PHASCHNG                              

Page 1154

050227,000278: 23,2772           04022                           OCT      04022                                 
050228,000279: 23,2773           05504                           TC       UPFLAG                                
050229,000280: 23,2774           00236                           ADRES    REINTFLG                              
050230,000281: 23,2775           31321        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
050231,000282: 23,2776           55320                           TS       WIXA                                  #  TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
050232,000283: 23,2777           31323                           CA       ZIXB                                  
050233,000284: 23,3000           55322                           TS       ZIXA                                  
050234,000285: 23,3001           06037                           TC       INTPRET                               
050235,000286: 23,3002           73150                           LXA,1    LXA,2                                 
050236,000287: 23,3003           01320                                    WIXA                                  
050237,000288: 23,3004           01322                                    ZIXA                                  
050238,000289: 23,3005           70731                           SSP      DLOAD*                                
050239,000290: 23,3006           00051                                    S1                                    
050240,000291: 23,3007           00006                                    6                                     
050241,000292: 23,3010           75134                                    ZI,2                                  
050242,000293: 23,3011           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
050243,000294: 23,3012           00052                                    S2                                    
050244,000295: 23,3013           65161                           VXSC     XCHX,2                                
050245,000296: 23,3014           02713                                    OMEGAM1                               
050246,000297: 23,3015           00051                                    S2                                    
050247,000298: 23,3016           57144                           LXC,2    XAD,2                                 
050248,000299: 23,3017           00047                                    X2                                    
050249,000300: 23,3020           02103                                    NORMGAM                               
050250,000301: 23,3021           65057                           VSL*     XCHX,2                                
050251,000302: 23,3022           57576                                    0,2                                   
050252,000303: 23,3023           00051                                    S2                                    
050253,000304: 23,3024           77653                           VAD*                                           
050254,000305: 23,3025           02467                                    W          +54D,1                     
050255,000306: 23,3026           02735                           STORE    HOLDW                                 
050256,000307: 23,3027           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
050257,000308: 23,3030           75134                                    ZI,2                                  
050258,000309: 23,3031           74301                           NORM     VXSC                                  
050259,000310: 23,3032           00052                                    S2                                    
050260,000311: 23,3033           02721                                    OMEGAM2                               
050261,000312: 23,3034           71124                           XCHX,2   LXC,2                                 
050262,000313: 23,3035           00051                                    S2                                    
050263,000314: 23,3036           00047                                    X2                                    
050264,000315: 23,3037           53674                           XAD,2    VSL*                                  
050265,000316: 23,3040           02103                                    NORMGAM                               
050266,000317: 23,3041           57576                                    0,2                                   
050267,000318: 23,3042           52724                           XCHX,2   VAD*                                  
050268,000319: 23,3043           00051                                    S2                                    
050269,000320: 23,3044           02555                                    W          +108D,1                    
050270,000321: 23,3045           02743                           STORE    HOLDW      +6                         
050271,000322: 23,3046           77614                           BOFF                                           
050272,000323: 23,3047           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
050273,000324: 23,3050           47070                                    FAZB                                  
050274,000325: 23,3051           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
050275,000326: 23,3052           75134                                    ZI,2                                  
050276,000327: 23,3053           74301                           NORM     VXSC                                  

Page 1155

050278,000329: 23,3054           00052                                    S2                                    
050279,000330: 23,3055           02727                                    OMEGAM3                               
050280,000331: 23,3056           71124                           XCHX,2   LXC,2                                 
050281,000332: 23,3057           00051                                    S2                                    
050282,000333: 23,3060           00047                                    X2                                    
050283,000334: 23,3061           53674                           XAD,2    VSL*                                  
050284,000335: 23,3062           02103                                    NORMGAM                               
050285,000336: 23,3063           57576                                    0,2                                   
050286,000337: 23,3064           52724                           XCHX,2   VAD*                                  
050287,000338: 23,3065           00051                                    S2                                    
050288,000339: 23,3066           02643                                    W          +162D,1                    
050289,000340: 23,3067           02751                           STORE    HOLDW      +12D                       
050290,000341: 23,3070           77624        FAZB               CALL                                           
050291,000342: 23,3071           11244                                    GRP2PC                                
050292,000343: 23,3072           77776                           EXIT                                           
050293,000344: 23,3073           31320        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
050294,000345: 23,3074           63245                           AD       6DD                                   #        TEMP REG TO PERM W MATRIX
050295,000346: 23,3075           55321                           TS       WIXB                                  
050296,000347: 23,3076           31322                           CA       ZIXA                                  
050297,000348: 23,3077           67746                           AD       MINUS2                                
050298,000349: 23,3100           55323                           TS       ZIXB                                  
050299,000350: 23,3101           06037                           TC       INTPRET                               
050300,000351: 23,3102           66350                           LXA,1    SSP                                   
050301,000352: 23,3103           01320                                    WIXA                                  
050302,000353: 23,3104           00051                                    S1                                    
050303,000354: 23,3105           00006                                    6                                     
050304,000355: 23,3106           77775                           VLOAD                                          
050305,000356: 23,3107           02735                                    HOLDW                                 
050306,000357: 23,3110           06467                           STORE    W          +54D,1                     
050307,000358: 23,3111           77775                           VLOAD                                          
050308,000359: 23,3112           02743                                    HOLDW      +6                         
050309,000360: 23,3113           06555                           STORE    W          +108D,1                    
050310,000361: 23,3114           77214                           BOFF     VLOAD                                 
050311,000362: 23,3115           02746                                    DMENFLG                               
050312,000363: 23,3116           47126                                    FAZB5                                 
050313,000364: 23,3117           02751                                    HOLDW      +12D                       
050314,000365: 23,3120           06643                           STORE    W          +162D,1                    
050315,000366: 23,3121           52100        FAZB2              TIX,1    GOTO                                  
050316,000367: 23,3122           47124                                    +2                                    
050317,000368: 23,3123           47134                                    FAZC                                  #  DONE WITH W MATRIX.  UPDATE STATE VECTOR
050318,000369: 23,3124           77634                           RTB                                            
050319,000370: 23,3125           46771                                    FAZA                                  
050320,000371: 23,3126           43335        FAZB5              SLOAD    DAD                                   
050321,000372: 23,3127           01324                                    ZIXB                                  
050322,000373: 23,3130           07247                                    12DD                                  
050323,000374: 23,3131           52030                           BHIZ     GOTO                                  
050324,000375: 23,3132           47134                                    FAZC                                  
050325,000376: 23,3133           47121                                    FAZB2                                 
050326,000377: 23,3134           77624        FAZC               CALL                                           
050327,000378: 23,3135           11244                                    GRP2PC                                

Page 1156

050329,000380: 23,3136           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
050330,000381: 23,3137           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
050331,000382: 23,3140           02701                                    DELTAX     +12D                       #  INCORPORATION FOR X789
050332,000383: 23,3141           03472                           STORE    TX789                                 
050333,000384: 23,3142           47014                           BON      RTB                                   
050334,000385: 23,3143           00707                                    VEHUPFLG                              
050335,000386: 23,3144           47234                                    DOCSM                                 
050336,000387: 23,3145           26770                                    MOVEPLEM                              
050337,000388: 23,3146           77004        FAZAB              BOVB     AXT,2                                 
050338,000389: 23,3147           57753                                    TCDANZIG                              
050339,000390: 23,3150           00000                                    0                                     
050340,000391: 23,3151           77014                           BOFF     AXT,2                                 
050341,000392: 23,3152           04344                                    MOONTHIS                              
050342,000393: 23,3153           47155                                    +2                                    
050343,000394: 23,3154           00002                                    2                                     
050344,000395: 23,3155           53775                           VLOAD    VSR*                                  
050345,000396: 23,3156           02665                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
050346,000397: 23,3157           57205                                    0          -7,2                       
050347,000398: 23,3160           40055                           VAD      BOV                                   
050348,000399: 23,3161           01521                                    TDELTAV                               
050349,000400: 23,3162           47174                                    FAZAB1                                
050350,000401: 23,3163           25521                           STOVL    TDELTAV                               
050351,000402: 23,3164           02673                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
050352,000403: 23,3165           53257                           VSR*     VAD                                   
050353,000404: 23,3166           57202                                    0          -4,2                       
050354,000405: 23,3167           01527                                    TNUV                                  
050355,000406: 23,3170           77600                           BOV                                            
050356,000407: 23,3171           47200                                    FAZAB2                                
050357,000408: 23,3172           35527                           STCALL   TNUV                                  
050358,000409: 23,3173           47207                                    FAZAB3                                
050359,000410: 23,3174           53375        FAZAB1             VLOAD    VAD                                   
050360,000411: 23,3175           01535                                    RCV                                   
050361,000412: 23,3176           02665                                    DELTAX                                
050362,000413: 23,3177           01535                           STORE    RCV                                   
050363,000414: 23,3200           53375        FAZAB2             VLOAD    VAD                                   
050364,000415: 23,3201           01543                                    VCV                                   
050365,000416: 23,3202           02673                                    DELTAX     +6                         
050366,000417: 23,3203           01543                           STORE    VCV                                   
050367,000418: 23,3204           45134                           SXA,2    CALL                                  
050368,000419: 23,3205           02030                                    PBODY                                 
050369,000420: 23,3206           23441                                    RECTIFY                               
050370,000421: 23,3207           77624        FAZAB3             CALL                                           
050371,000422: 23,3210           11244                                    GRP2PC                                
050372,000423: 23,3211           47014                           BON      RTB                                   
050373,000424: 23,3212           00707                                    VEHUPFLG                              
050374,000425: 23,3213           47237                                    DOCSM1                                
050375,000426: 23,3214           26747                                    MOVEALEM                              
050376,000427: 23,3215           77624                           CALL                                           
050377,000428: 23,3216           26070                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
050378,000429: 23,3217           77624        FAZAB4             CALL                                           

Page 1157

050380,000431: 23,3220           11244                                    GRP2PC                                #  PHASE CHANGE
050381,000432: 23,3221           77214                           BOFF     VLOAD                                 
050382,000433: 23,3222           02746                                    DMENFLG                               
050383,000434: 23,3223           47226                                    FAZAB5                                #  6 DIMENSIONAL
050384,000435: 23,3224           03472                                    TX789                                 #  9 DIMENSIONAL
050385,000436: 23,3225           01701                           STORE    X789                                  
050386,000437: 23,3226           66150        FAZAB5             LXA,1    SXA,1                                 
050387,000438: 23,3227           02772                                    EGRESS                                
050388,000439: 23,3230           00052                                    QPRET                                 
050389,000440: 23,3231           77776                           EXIT                                           
050390,000441: 23,3232           04635                           TC       POSTJUMP                              #  EXIT
050391,000442: 23,3233           27425                           CADR     INTWAKE                               
050392,000443: 23,3234           52034        DOCSM              RTB      GOTO                                  
050393,000444: 23,3235           26723                                    MOVEPCSM                              
050394,000445: 23,3236           47146                                    FAZAB                                 
050395,000446: 23,3237           45034        DOCSM1             RTB      CALL                                  
050396,000447: 23,3240           26674                                    MOVEACSM                              
050397,000448: 23,3241           26114                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
050398,000449: 23,3242           77650                           GOTO                                           
050399,000450: 23,3243           47217                                    FAZAB4                                
050400,000451: 23,3244  23,2521               ZEROD              =        ZEROVECS                              
050401,000452: 23,3244           00066        54DD               DEC      54         B-14                       
050402,000453: 23,3245           77771        6DD                DEC      -6         B-14                       
050403,000454: 23,3246           00014        12DD               DEC      12         B-14                       
050404,000455: 
050405,000456: 22,2000                                           SETLOC   RENDEZ                                
050406,000457: 22,2000                                           BANK                                           
050407,000458: 22,3711                                           COUNT*   $$/INCOR                              
050408,000459: 
050409,000460: 22,3711           51575        NEWZCOMP           VLOAD    ABVAL                                 
050410,000461: 22,3712           02643                                    ZI                                    
050411,000462: 22,3713           24045                           STOVL    NORMZI                                
050412,000463: 22,3714           02651                                    ZI         +6                         
050413,000464: 22,3715           41446                           ABVAL    PUSH                                  
050414,000465: 22,3716           50025                           DSU      BMN                                   
050415,000466: 22,3717           00045                                    NORMZI                                
050416,000467: 22,3720           45723                                    +3                                    
050417,000468: 22,3721           45545                           DLOAD    STADR                                 
050418,000469: 22,3722           77732                           STORE    NORMZI                                
050419,000470: 22,3723           51575                           VLOAD    ABVAL                                 
050420,000471: 22,3724           02657                                    ZI         +12D                       
050421,000472: 22,3725           45206                           PUSH     DSU                                   
050422,000473: 22,3726           00045                                    NORMZI                                
050423,000474: 22,3727           71240                           BMN      DLOAD                                 
050424,000475: 22,3730           45733                                    +3                                    
050425,000476: 22,3731           77626                           STADR                                          
050426,000477: 22,3732           77732                           STORE    NORMZI                                #  LARGEST ABVAL
050427,000478: 22,3733           66145                           DLOAD    SXA,1                                 
050428,000479: 22,3734           00045                                    NORMZI                                
050429,000480: 22,3735           00044                                    NORMZI                                #  SAVE X1
050430,000481: 22,3736           62101                           NORM     INCR,1                                

Page 1158

050432,000483: 22,3737           00047                                    X1                                    
050433,000484: 22,3740           00002                           DEC      2          B-14                       
050434,000485: 22,3741           53775                           VLOAD    VSL*                                  
050435,000486: 22,3742           02643                                    ZI                                    
050436,000487: 22,3743           20201                                    0,1                                   
050437,000488: 22,3744           26643                           STOVL    ZI                                    
050438,000489: 22,3745           02651                                    ZI         +6                         
050439,000490: 22,3746           77657                           VSL*                                           
050440,000491: 22,3747           20201                                    0,1                                   
050441,000492: 22,3750           26651                           STOVL    ZI         +6                         
050442,000493: 22,3751           02657                                    ZI         +12D                       
050443,000494: 22,3752           66057                           VSL*     SXA,1                                 
050444,000495: 22,3753           20201                                    0,1                                   
050445,000496: 22,3754           00045                                    NORMZI     +1                         #  SAVE SHIFT
050446,000497: 22,3755           02657                           STORE    ZI         +12D                       
050447,000498: 22,3756           54150                           LXA,1    XSU,1                                 
050448,000499: 22,3757           02103                                    NORMGAM                               
050449,000500: 22,3760           00045                                    NORMZI     +1                         
050450,000501: 22,3761           77660                           XSU,1                                          
050451,000502: 22,3762           00045                                    NORMZI     +1                         
050452,000503: 22,3763           70130                           SXA,1    LXC,1                                 
050453,000504: 22,3764           02103                                    NORMGAM                               
050454,000505: 22,3765           00045                                    NORMZI     +1                         
050455,000506: 22,3766           40270                           XAD,1    SETPD                                 
050456,000507: 22,3767           00044                                    NORMZI                                
050457,000508: 22,3770           00003                                    2D                                    
050458,000509: 22,3771           77650                           GOTO                                           
050459,000510: 22,3772           46667                                    INCOR2     -3                         
050460,000511: 22,3773                        NORMZI             =        36D                                   
050461,000512: 
050462,000513: 

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