Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

047887,000002:                                                                                                  ## Copyright:   Public domain.
047888,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
047889,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
047890,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
047891,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
047892,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
047893,000008:                                                                                                  ##              that the code format has been changed to conform to the
047894,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
047895,000010:                                                                                                  ##              original YUL assembler.
047896,000011:                                                                                                  ## Reference:   pp. 1143-1152
047897,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047898,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047899,000014:                                                                                                  ## Mod history: 06/01/03 RSB.   Began transcribing.
047900,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
047901,000016:                                                                                                  ##              2010-10-25 JL   Indentation fixes.
047902,000017:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
047903,000018:                                                                                                  ##                              original hardcopy, as opposed to the PDF page
047904,000019:                                                                                                  ##                              numbers in 1701.pdf.
047905,000020:                                                                                                  ##              2017-02-27 RSB  Proofed comment text using octopus/ProoferComments.
047906,000021:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
047907,000022: 

Page 1143

047909,000024:                                                                                                  #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
047910,000025:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
047911,000026:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
047912,000027:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
047913,000028:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
047914,000029:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
047915,000030:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
047916,000031: 
047917,000032:                                                                                                  #  INPUT
047918,000033:                                                                                                  #         DMENFLG = 0 6DIMENSIONAL BVECTOR  1= 9DIMENSIONAL
047919,000034:                                                                                                  #               W = ERROR TRANSITION MATRIX 6X6 OR 9X9
047920,000035:                                                                                                  #        VARIANCE = VARIANCE (SCALAR)
047921,000036:                                                                                                  #          DELTAQ = MEASURED DEVIATION (SCALAR)
047922,000037:                                                                                                  #         BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
047923,000038: 
047924,000039:                                                                                                  #  OUTPUT
047925,000040:                                                                                                  #          DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
047926,000041:                                                                                                  #              ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
047927,000042:                                                                                                  #           GAMMA = SCALAR
047928,000043:                                                                                                  #           OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
047929,000044: 
047930,000045:                                                                                                  #  CALLING SEQUENCE
047931,000046:                                                                                                  #        L       CALL    INCORP1
047932,000047: 
047933,000048:                                                                                                  #  NORMAL EXIT
047934,000049:                                                                                                  #        L+1 OF CALLING SEQUENCE
047935,000050: 
047936,000051: 37,3652                                           BANK     37                                    
047937,000052: 23,2000                                           SETLOC   MEASINC                               
047938,000053: 23,2000                                           BANK                                           
047939,000054: 
047940,000055: 23,2533                                           COUNT*   $$/INCOR                              
047941,000056: 
047942,000057: 23,2533  E5,1400                                  EBANK=   W                                     
047943,000058: 
047944,000059: 23,2533           77620        INCORP1            STQ                                            
047945,000060: 23,2534           02772                                    EGRESS                                
047946,000061: 23,2535           66370                           AXT,1    SSP                                   
047947,000062: 23,2536           00066                                    54D                                   
047948,000063: 23,2537           00051                                    S1                                    
047949,000064: 23,2540           00022                                    18D                                   #  IX1 = 54      S1= 18
047950,000065: 23,2541           66374                           AXT,2    SSP                                   
047951,000066: 23,2542           00022                                    18D                                   
047952,000067: 23,2543           00052                                    S2                                    
047953,000068: 23,2544           00006                                    6                                     #  IX2 = 18      S2=6
047954,000069: 23,2545           63775        Z123               VLOAD    MXV*                                  
047955,000070: 23,2546           03525                                    BVECTOR                               #  BVECTOR (0)
047956,000071: 23,2547           02467                                    W          +54D,1                     
047957,000072: 23,2550           12665                           STORE    ZI         +18D,2                     
047958,000073: 23,2551           77775                           VLOAD                                          
047959,000074: 23,2552           03533                                    BVECTOR    +6                         #  BVECTOR (1)

Page 1144

047961,000076: 23,2553           52717                           MXV*     VAD*                                  
047962,000077: 23,2554           02555                                    W          +108D,1                    
047963,000078: 23,2555           75112                                    ZI         +18D,2                     
047964,000079: 23,2556           12665                           STORE    ZI         +18D,2                     
047965,000080: 23,2557           77775                           VLOAD                                          
047966,000081: 23,2560           03541                                    BVECTOR    +12D                       #  BVECTOR (2)
047967,000082: 23,2561           52717                           MXV*     VAD*                                  
047968,000083: 23,2562           02643                                    W          +162D,1                    
047969,000084: 23,2563           75112                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
047970,000085: 23,2564           12665                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
047971,000086: 23,2565           77700                           TIX,1                                          
047972,000087: 23,2566           46567                                    INCOR1                                
047973,000088: 23,2567           43104        INCOR1             TIX,2    BON                                   
047974,000089: 23,2570           46545                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
047975,000090: 23,2571           02706                                    DMENFLG                               
047976,000091: 23,2572           46576                                    INCOR1A                               
047977,000092: 23,2573           77775                           VLOAD                                          
047978,000093: 23,2574           06524                                    ZEROVECS                              
047979,000094: 23,2575           02657                           STORE    ZI         +12D                       
047980,000095: 23,2576           77201        INCOR1A            SETPD    VLOAD                                 
047981,000096: 23,2577           00001                                    0                                     
047982,000097: 23,2600           02643                                    ZI                                    
047983,000098: 23,2601           47036                           VSQ      RTB                                   
047984,000099: 23,2602           21634                                    TPMODE                                
047985,000100: 23,2603           47515                           PDVL     VSQ                                   
047986,000101: 23,2604           02651                                    ZI         +6                         
047987,000102: 23,2605           76234                           RTB      TAD                                   
047988,000103: 23,2606           21634                                    TPMODE                                
047989,000104: 23,2607           47515                           PDVL     VSQ                                   
047990,000105: 23,2610           02657                                    ZI         +12D                       
047991,000106: 23,2611           76234                           RTB      TAD                                   
047992,000107: 23,2612           21634                                    TPMODE                                
047993,000108: 23,2613           77171                           TAD      AXT,2                                 
047994,000109: 23,2614           02707                                    VARIANCE                              
047995,000110: 23,2615           00000                                    0                                     
047996,000111: 23,2616           02665                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
047997,000112: 23,2617           40151                           TLOAD    BOV                                   
047998,000113: 23,2620           02707                                    VARIANCE                              #  CLEAR OVFIND
047999,000114: 23,2621           46622                                    +1                                    
048000,000115: 23,2622           02670                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
048001,000116: 23,2623           77654                           BZE                                            
048002,000117: 23,2624           46633                                    INCOR1C                               
048003,000118: 23,2625           40112        INCOR1B            SL2      BOV                                   
048004,000119: 23,2626           46633                                    INCOR1C                               
048005,000120: 23,2627           02670                           STORE    TEMPVAR                               
048006,000121: 23,2630           52114                           INCR,2   GOTO                                  
048007,000122: 23,2631           00001                           DEC      1          B-14                       
048008,000123: 23,2632           46625                                    INCOR1B                               
048009,000124: 23,2633           61551        INCOR1C            TLOAD    ROUND                                 
048010,000125: 23,2634           02665                                    TRIPA                                 

Page 1145

048012,000127: 23,2635           75405                           DMP      SQRT                                  
048013,000128: 23,2636           02670                                    TEMPVAR                               
048014,000129: 23,2637           76257                           SL*      TAD                                   
048015,000130: 23,2640           57576                                    0,2                                   
048016,000131: 23,2641           02665                                    TRIPA                                 
048017,000132: 23,2642           63101                           NORM     INCR,2                                
048018,000133: 23,2643           00050                                    X2                                    
048019,000134: 23,2644           77775                           DEC      -2         B-14                       
048020,000135: 23,2645           77134                           SXA,2    AXT,2                                 
048021,000136: 23,2646           02103                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
048022,000137: 23,2647           00242                                    162D                                  
048023,000138: 23,2650           40265                           BDDV     SETPD                                 
048024,000139: 23,2651           06514                                    DP1/4TH                               
048025,000140: 23,2652           00001                                    0                                     
048026,000141: 23,2653           03500                           STORE    GAMMA                                 
048027,000142: 23,2654           60351                           TLOAD    NORM                                  
048028,000143: 23,2655           02665                                    TRIPA                                 
048029,000144: 23,2656           00047                                    X1                                    
048030,000145: 23,2657           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
048031,000146: 23,2660           00155                                    MPAC                                  
048032,000147: 23,2661           03547                                    DELTAQ                                
048033,000148: 23,2662           77701                           NORM                                           
048034,000149: 23,2663           00051                                    S1                                    
048035,000150: 23,2664           70460                           XSU,1    SR1                                   
048036,000151: 23,2665           00050                                    S1                                    
048037,000152: 23,2666           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
048038,000153: 23,2667           77650                           GOTO                                           
048039,000154: 23,2670           45711                                    NEWZCOMP                              
048040,000155: 23,2671           77731                 -3        SSP                                            
048041,000156: 23,2672           00052                                    S2                                    
048042,000157: 23,2673           00066                                    54D                                   
048043,000158: 23,2674           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
048044,000159: 23,2675           02643                                    ZI                                    
048045,000160: 23,2676           75134                                    W          +162D,2                    
048046,000161: 23,2677           77206                           PUSH     VLOAD                                 
048047,000162: 23,2700           02651                                    ZI         +6                         
048048,000163: 23,2701           53303                           VXM*     VAD                                   
048049,000164: 23,2702           75112                                    W          +180D,2                    
048050,000165: 23,2703           77206                           PUSH     VLOAD                                 
048051,000166: 23,2704           02657                                    ZI         +12D                       
048052,000167: 23,2705           53303                           VXM*     VAD                                   
048053,000168: 23,2706           75070                                    W          +198D,2                    
048054,000169: 23,2707           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
048055,000170: 23,2710           46674                                    INCOR2                                
048056,000171: 23,2711           45575                           VLOAD    STADR                                 
048057,000172: 23,2712           74260                           STORE    OMEGA      +12D                       
048058,000173: 23,2713           45575                           VLOAD    STADR                                 
048059,000174: 23,2714           74266                           STORE    OMEGA      +6                         
048060,000175: 23,2715           45575                           VLOAD    STADR                                 
048061,000176: 23,2716           74274                           STORE    OMEGA                                 

Page 1146

048063,000178: 23,2717           77214                           BON      VLOAD                                 
048064,000179: 23,2720           02706                                    DMENFLG                               
048065,000180: 23,2721           46724                                    INCOR2AB                              
048066,000181: 23,2722           06524                                    ZEROVECS                              
048067,000182: 23,2723           03517                           STORE    OMEGA      +12D                       
048068,000183: 23,2724           66374        INCOR2AB           AXT,2    SSP                                   
048069,000184: 23,2725           00022                                    18D                                   
048070,000185: 23,2726           00052                                    S2                                    
048071,000186: 23,2727           00006                                    6                                     
048072,000187: 23,2730           77773        INCOR3             VLOAD*                                         
048073,000188: 23,2731           74252                                    OMEGA      +18D,2                     
048074,000189: 23,2732           53761                           VXSC     VSL*                                  
048075,000190: 23,2733           00001                                    0                                     #  DELTAQ/A
048076,000191: 23,2734           20201                                    0,1                                   
048077,000192: 23,2735           12707                           STORE    DELTAX     +18D,2                     
048078,000193: 23,2736           77304                           TIX,2    VLOAD                                 
048079,000194: 23,2737           46730                                    INCOR3                                
048080,000195: 23,2740           02673                                    DELTAX     +6                         
048081,000196: 23,2741           77732                           VSL3                                           
048082,000197: 23,2742           02673                           STORE    DELTAX     +6                         
048083,000198: 23,2743           77650                           GOTO                                           
048084,000199: 23,2744           02772                                    EGRESS                                
048085,000200: 

Page 1147

048087,000202:                                                                                                  #   INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
048088,000203:                                                                                                  #  ESTIMATED STATE VECTOR.  THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
048089,000204:                                                                                                  #  LEM OR THE CSM.  DETERMINED BY FLAG VEHUPFLG.  (ZERO = LEM) (1 = CSM)
048090,000205: 
048091,000206:                                                                                                  #  INPUT
048092,000207:                                                                                                  #        PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
048093,000208:                                                                                                  #        VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
048094,000209:                                                                                                  #        W = ERROR TRANSITION MATRIX
048095,000210:                                                                                                  #        DELTAX = COMPUTED STATE VECTOR DEVIATIONS
048096,000211:                                                                                                  #        DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
048097,000212:                                                                                                  #        GAMMA = SCALAR FOR INCORPORATION
048098,000213:                                                                                                  #        ZI = VECTOR USED IN INCORPORATION
048099,000214:                                                                                                  #        OMEGA = WEIGHTING VECTOR
048100,000215: 
048101,000216:                                                                                                  #  OUTPUT
048102,000217:                                                                                                  #        UPDATED PERMANENT STATE VECTOR
048103,000218: 
048104,000219:                                                                                                  #  CALLING SEQUENCE
048105,000220:                                                                                                  #        L       CALL    INCORP2
048106,000221: 
048107,000222:                                                                                                  #  NORMAL EXIT
048108,000223:                                                                                                  #        L+1 OF CALLING SEQUENCE
048109,000224: 
048110,000225: 
048111,000226: 23,2000                                           SETLOC   MEASINC1                              
048112,000227: 23,2000                                           BANK                                           
048113,000228: 
048114,000229: 23,2745                                           COUNT*   $$/INCOR                              
048115,000230: 
048116,000231: 23,2745           45020        INCORP2            STQ      CALL                                  
048117,000232: 23,2746           02772                                    EGRESS                                
048118,000233: 23,2747           27410                                    INTSTALL                              
048119,000234: 23,2750           74375                           VLOAD    VXSC                                  #  CALC. GAMMA*OMEGA1,2,3
048120,000235: 23,2751           03503                                    OMEGA                                 
048121,000236: 23,2752           03500                                    GAMMA                                 
048122,000237: 23,2753           26713                           STOVL    OMEGAM1                               
048123,000238: 23,2754           03511                                    OMEGA      +6                         
048124,000239: 23,2755           77761                           VXSC                                           
048125,000240: 23,2756           03500                                    GAMMA                                 
048126,000241: 23,2757           26721                           STOVL    OMEGAM2                               
048127,000242: 23,2760           03517                                    OMEGA      +12D                       
048128,000243: 23,2761           77761                           VXSC                                           
048129,000244: 23,2762           03500                                    GAMMA                                 
048130,000245: 23,2763           02727                           STORE    OMEGAM3                               
048131,000246: 23,2764           77776                           EXIT                                           
048132,000247: 23,2765           33246                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
048133,000248: 23,2766           55315                           TS       WIXA                                  
048134,000249: 23,2767           55316                           TS       WIXB                                  
048135,000250: 23,2770           34755                           CAF      ZERO                                  
048136,000251: 23,2771           55317                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
048137,000252: 23,2772           55320                           TS       ZIXB                                  
048138,000253: 23,2773           05353        FAZA               TC       PHASCHNG                              

Page 1148

048140,000255: 23,2774           04022                           OCT      04022                                 
048141,000256: 23,2775           05504                           TC       UPFLAG                                
048142,000257: 23,2776           00236                           ADRES    REINTFLG                              
048143,000258: 23,2777           31316        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
048144,000259: 23,3000           55315                           TS       WIXA                                  #  TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
048145,000260: 23,3001           31320                           CA       ZIXB                                  
048146,000261: 23,3002           55317                           TS       ZIXA                                  
048147,000262: 23,3003           06042                           TC       INTPRET                               
048148,000263: 23,3004           73150                           LXA,1    LXA,2                                 
048149,000264: 23,3005           01315                                    WIXA                                  
048150,000265: 23,3006           01317                                    ZIXA                                  
048151,000266: 23,3007           70731                           SSP      DLOAD*                                
048152,000267: 23,3010           00051                                    S1                                    
048153,000268: 23,3011           00006                                    6                                     
048154,000269: 23,3012           75134                                    ZI,2                                  
048155,000270: 23,3013           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
048156,000271: 23,3014           00052                                    S2                                    
048157,000272: 23,3015           65161                           VXSC     XCHX,2                                
048158,000273: 23,3016           02713                                    OMEGAM1                               
048159,000274: 23,3017           00051                                    S2                                    
048160,000275: 23,3020           57144                           LXC,2    XAD,2                                 
048161,000276: 23,3021           00047                                    X2                                    
048162,000277: 23,3022           02103                                    NORMGAM                               
048163,000278: 23,3023           65057                           VSL*     XCHX,2                                
048164,000279: 23,3024           57576                                    0,2                                   
048165,000280: 23,3025           00051                                    S2                                    
048166,000281: 23,3026           77653                           VAD*                                           
048167,000282: 23,3027           02467                                    W          +54D,1                     
048168,000283: 23,3030           02735                           STORE    HOLDW                                 
048169,000284: 23,3031           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
048170,000285: 23,3032           75134                                    ZI,2                                  
048171,000286: 23,3033           74301                           NORM     VXSC                                  
048172,000287: 23,3034           00052                                    S2                                    
048173,000288: 23,3035           02721                                    OMEGAM2                               
048174,000289: 23,3036           71124                           XCHX,2   LXC,2                                 
048175,000290: 23,3037           00051                                    S2                                    
048176,000291: 23,3040           00047                                    X2                                    
048177,000292: 23,3041           53674                           XAD,2    VSL*                                  
048178,000293: 23,3042           02103                                    NORMGAM                               
048179,000294: 23,3043           57576                                    0,2                                   
048180,000295: 23,3044           52724                           XCHX,2   VAD*                                  
048181,000296: 23,3045           00051                                    S2                                    
048182,000297: 23,3046           02555                                    W          +108D,1                    
048183,000298: 23,3047           02743                           STORE    HOLDW      +6                         
048184,000299: 23,3050           77614                           BOFF                                           
048185,000300: 23,3051           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
048186,000301: 23,3052           47072                                    FAZB                                  
048187,000302: 23,3053           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
048188,000303: 23,3054           75134                                    ZI,2                                  
048189,000304: 23,3055           74301                           NORM     VXSC                                  

Page 1149

048191,000306: 23,3056           00052                                    S2                                    
048192,000307: 23,3057           02727                                    OMEGAM3                               
048193,000308: 23,3060           71124                           XCHX,2   LXC,2                                 
048194,000309: 23,3061           00051                                    S2                                    
048195,000310: 23,3062           00047                                    X2                                    
048196,000311: 23,3063           53674                           XAD,2    VSL*                                  
048197,000312: 23,3064           02103                                    NORMGAM                               
048198,000313: 23,3065           57576                                    0,2                                   
048199,000314: 23,3066           52724                           XCHX,2   VAD*                                  
048200,000315: 23,3067           00051                                    S2                                    
048201,000316: 23,3070           02643                                    W          +162D,1                    
048202,000317: 23,3071           02751                           STORE    HOLDW      +12D                       
048203,000318: 23,3072           77624        FAZB               CALL                                           
048204,000319: 23,3073           11210                                    GRP2PC                                
048205,000320: 23,3074           77776                           EXIT                                           
048206,000321: 23,3075           31315        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
048207,000322: 23,3076           63247                           AD       6DD                                   #        TEMP REG TO PERM W MATRIX
048208,000323: 23,3077           55316                           TS       WIXB                                  
048209,000324: 23,3100           31317                           CA       ZIXA                                  
048210,000325: 23,3101           67751                           AD       MINUS2                                
048211,000326: 23,3102           55320                           TS       ZIXB                                  
048212,000327: 23,3103           06042                           TC       INTPRET                               
048213,000328: 23,3104           66350                           LXA,1    SSP                                   
048214,000329: 23,3105           01315                                    WIXA                                  
048215,000330: 23,3106           00051                                    S1                                    
048216,000331: 23,3107           00006                                    6                                     
048217,000332: 23,3110           77775                           VLOAD                                          
048218,000333: 23,3111           02735                                    HOLDW                                 
048219,000334: 23,3112           06467                           STORE    W          +54D,1                     
048220,000335: 23,3113           77775                           VLOAD                                          
048221,000336: 23,3114           02743                                    HOLDW      +6                         
048222,000337: 23,3115           06555                           STORE    W          +108D,1                    
048223,000338: 23,3116           77214                           BOFF     VLOAD                                 
048224,000339: 23,3117           02746                                    DMENFLG                               
048225,000340: 23,3120           47130                                    FAZB5                                 
048226,000341: 23,3121           02751                                    HOLDW      +12D                       
048227,000342: 23,3122           06643                           STORE    W          +162D,1                    
048228,000343: 23,3123           52100        FAZB2              TIX,1    GOTO                                  
048229,000344: 23,3124           47126                                    +2                                    
048230,000345: 23,3125           47136                                    FAZC                                  #  DONE WITH W MATRIX.  UPDATE STATE VECTOR
048231,000346: 23,3126           77634                           RTB                                            
048232,000347: 23,3127           46773                                    FAZA                                  
048233,000348: 23,3130           43335        FAZB5              SLOAD    DAD                                   
048234,000349: 23,3131           01321                                    ZIXB                                  
048235,000350: 23,3132           07251                                    12DD                                  
048236,000351: 23,3133           52030                           BHIZ     GOTO                                  
048237,000352: 23,3134           47136                                    FAZC                                  
048238,000353: 23,3135           47123                                    FAZB2                                 
048239,000354: 23,3136           77624        FAZC               CALL                                           
048240,000355: 23,3137           11210                                    GRP2PC                                

Page 1150

048242,000357: 23,3140           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
048243,000358: 23,3141           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
048244,000359: 23,3142           02701                                    DELTAX     +12D                       #  INCORPORATION FOR X789
048245,000360: 23,3143           03472                           STORE    TX789                                 
048246,000361: 23,3144           47014                           BON      RTB                                   
048247,000362: 23,3145           00707                                    VEHUPFLG                              
048248,000363: 23,3146           47236                                    DOCSM                                 
048249,000364: 23,3147           26767                                    MOVEPLEM                              
048250,000365: 23,3150           77004        FAZAB              BOVB     AXT,2                                 
048251,000366: 23,3151           57754                                    TCDANZIG                              
048252,000367: 23,3152           00000                                    0                                     
048253,000368: 23,3153           77014                           BOFF     AXT,2                                 
048254,000369: 23,3154           04344                                    MOONTHIS                              
048255,000370: 23,3155           47157                                    +2                                    
048256,000371: 23,3156           00002                                    2                                     
048257,000372: 23,3157           53775                           VLOAD    VSR*                                  
048258,000373: 23,3160           02665                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
048259,000374: 23,3161           57205                                    0          -7,2                       
048260,000375: 23,3162           40055                           VAD      BOV                                   
048261,000376: 23,3163           01521                                    TDELTAV                               
048262,000377: 23,3164           47176                                    FAZAB1                                
048263,000378: 23,3165           25521                           STOVL    TDELTAV                               
048264,000379: 23,3166           02673                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
048265,000380: 23,3167           53257                           VSR*     VAD                                   
048266,000381: 23,3170           57202                                    0          -4,2                       
048267,000382: 23,3171           01527                                    TNUV                                  
048268,000383: 23,3172           77600                           BOV                                            
048269,000384: 23,3173           47202                                    FAZAB2                                
048270,000385: 23,3174           35527                           STCALL   TNUV                                  
048271,000386: 23,3175           47211                                    FAZAB3                                
048272,000387: 23,3176           53375        FAZAB1             VLOAD    VAD                                   
048273,000388: 23,3177           01535                                    RCV                                   
048274,000389: 23,3200           02665                                    DELTAX                                
048275,000390: 23,3201           01535                           STORE    RCV                                   
048276,000391: 23,3202           53375        FAZAB2             VLOAD    VAD                                   
048277,000392: 23,3203           01543                                    VCV                                   
048278,000393: 23,3204           02673                                    DELTAX     +6                         
048279,000394: 23,3205           01543                           STORE    VCV                                   
048280,000395: 23,3206           45134                           SXA,2    CALL                                  
048281,000396: 23,3207           02030                                    PBODY                                 
048282,000397: 23,3210           27671                                    RECTIFY                               
048283,000398: 23,3211           77624        FAZAB3             CALL                                           
048284,000399: 23,3212           11210                                    GRP2PC                                
048285,000400: 23,3213           47014                           BON      RTB                                   
048286,000401: 23,3214           00707                                    VEHUPFLG                              
048287,000402: 23,3215           47241                                    DOCSM1                                
048288,000403: 23,3216           26746                                    MOVEALEM                              
048289,000404: 23,3217           77624                           CALL                                           
048290,000405: 23,3220           26070                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
048291,000406: 23,3221           77624        FAZAB4             CALL                                           

Page 1151

048293,000408: 23,3222           11210                                    GRP2PC                                #  PHASE CHANGE
048294,000409: 23,3223           77214                           BOFF     VLOAD                                 
048295,000410: 23,3224           02746                                    DMENFLG                               
048296,000411: 23,3225           47230                                    FAZAB5                                #  6 DIMENSIONAL
048297,000412: 23,3226           03472                                    TX789                                 #  9 DIMENSIONAL
048298,000413: 23,3227           01701                           STORE    X789                                  
048299,000414: 23,3230           66150        FAZAB5             LXA,1    SXA,1                                 
048300,000415: 23,3231           02772                                    EGRESS                                
048301,000416: 23,3232           00052                                    QPRET                                 
048302,000417: 23,3233           77776                           EXIT                                           
048303,000418: 23,3234           04635                           TC       POSTJUMP                              #  EXIT
048304,000419: 23,3235           27421                           CADR     INTWAKE                               
048305,000420: 23,3236           52034        DOCSM              RTB      GOTO                                  
048306,000421: 23,3237           26722                                    MOVEPCSM                              
048307,000422: 23,3240           47150                                    FAZAB                                 
048308,000423: 23,3241           45034        DOCSM1             RTB      CALL                                  
048309,000424: 23,3242           26673                                    MOVEACSM                              
048310,000425: 23,3243           26114                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
048311,000426: 23,3244           77650                           GOTO                                           
048312,000427: 23,3245           47221                                    FAZAB4                                
048313,000428: 23,3246  23,2523               ZEROD              =        ZEROVECS                              
048314,000429: 23,3246           00066        54DD               DEC      54         B-14                       
048315,000430: 23,3247           77771        6DD                DEC      -6         B-14                       
048316,000431: 23,3250           00014        12DD               DEC      12         B-14                       
048317,000432: 
048318,000433: 22,2000                                           SETLOC   RENDEZ                                
048319,000434: 22,2000                                           BANK                                           
048320,000435: 22,3711                                           COUNT*   $$/INCOR                              
048321,000436: 
048322,000437: 22,3711           51575        NEWZCOMP           VLOAD    ABVAL                                 
048323,000438: 22,3712           02643                                    ZI                                    
048324,000439: 22,3713           24045                           STOVL    NORMZI                                
048325,000440: 22,3714           02651                                    ZI         +6                         
048326,000441: 22,3715           41446                           ABVAL    PUSH                                  
048327,000442: 22,3716           50025                           DSU      BMN                                   
048328,000443: 22,3717           00045                                    NORMZI                                
048329,000444: 22,3720           45723                                    +3                                    
048330,000445: 22,3721           45545                           DLOAD    STADR                                 
048331,000446: 22,3722           77732                           STORE    NORMZI                                
048332,000447: 22,3723           51575                           VLOAD    ABVAL                                 
048333,000448: 22,3724           02657                                    ZI         +12D                       
048334,000449: 22,3725           45206                           PUSH     DSU                                   
048335,000450: 22,3726           00045                                    NORMZI                                
048336,000451: 22,3727           71240                           BMN      DLOAD                                 
048337,000452: 22,3730           45733                                    +3                                    
048338,000453: 22,3731           77626                           STADR                                          
048339,000454: 22,3732           77732                           STORE    NORMZI                                #  LARGEST ABVAL
048340,000455: 22,3733           66145                           DLOAD    SXA,1                                 
048341,000456: 22,3734           00045                                    NORMZI                                
048342,000457: 22,3735           00044                                    NORMZI                                #  SAVE X1
048343,000458: 22,3736           62101                           NORM     INCR,1                                

Page 1152

048345,000460: 22,3737           00047                                    X1                                    
048346,000461: 22,3740           00002                           DEC      2          B-14                       
048347,000462: 22,3741           53775                           VLOAD    VSL*                                  
048348,000463: 22,3742           02643                                    ZI                                    
048349,000464: 22,3743           20201                                    0,1                                   
048350,000465: 22,3744           26643                           STOVL    ZI                                    
048351,000466: 22,3745           02651                                    ZI         +6                         
048352,000467: 22,3746           77657                           VSL*                                           
048353,000468: 22,3747           20201                                    0,1                                   
048354,000469: 22,3750           26651                           STOVL    ZI         +6                         
048355,000470: 22,3751           02657                                    ZI         +12D                       
048356,000471: 22,3752           66057                           VSL*     SXA,1                                 
048357,000472: 22,3753           20201                                    0,1                                   
048358,000473: 22,3754           00045                                    NORMZI     +1                         #  SAVE SHIFT
048359,000474: 22,3755           02657                           STORE    ZI         +12D                       
048360,000475: 22,3756           54150                           LXA,1    XSU,1                                 
048361,000476: 22,3757           02103                                    NORMGAM                               
048362,000477: 22,3760           00045                                    NORMZI     +1                         
048363,000478: 22,3761           77660                           XSU,1                                          
048364,000479: 22,3762           00045                                    NORMZI     +1                         
048365,000480: 22,3763           70130                           SXA,1    LXC,1                                 
048366,000481: 22,3764           02103                                    NORMGAM                               
048367,000482: 22,3765           00045                                    NORMZI     +1                         
048368,000483: 22,3766           40270                           XAD,1    SETPD                                 
048369,000484: 22,3767           00044                                    NORMZI                                
048370,000485: 22,3770           00003                                    2D                                    
048371,000486: 22,3771           77650                           GOTO                                           
048372,000487: 22,3772           46671                                    INCOR2     -3                         
048373,000488: 22,3773                        NORMZI             =        36D                                   
048374,000489: 
048375,000490: 

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