Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

049362,000002:                                                                                                  ## Copyright:   Public domain.
049363,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
049364,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
049365,000005:                                                                                                  ##              It is part of the source code for the original release
049366,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
049367,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
049368,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
049369,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
049370,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
049371,000011:                                                                                                  ##              that the code format has been changed to conform to the
049372,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
049373,000013:                                                                                                  ##              original YUL assembler.
049374,000014:                                                                                                  ## Reference:   pp. 1144-1153
049375,000015:                                                                                                  ## Assembler:   yaYUL
049376,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
049377,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
049378,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
049379,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
049380,000020:                                                                                                  ##              2017-01-17 RRB  Updated for Luminary 69.
049381,000021:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
049382,000022:                                                                                                  ##                              but no errors found.
049383,000023: 

Page 1144

049385,000025:                                                                                                  #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
049386,000026:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
049387,000027:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
049388,000028:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
049389,000029:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
049390,000030:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
049391,000031:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
049392,000032: 
049393,000033:                                                                                                  #  INPUT
049394,000034:                                                                                                  #     DMENFLG = 0 6DIMENSIONAL BVECTOR   1=9DIMENSIONAL
049395,000035:                                                                                                  #            W = ERROR TRANSITION MATRIX 6X6 OR 9X9
049396,000036:                                                                                                  #     VARIANCE = VARIANCE (SCALAR)
049397,000037:                                                                                                  #       DELTAQ = MEASURED DEVIATION (SCALAR)
049398,000038:                                                                                                  #      BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
049399,000039: 
049400,000040:                                                                                                  #  OUTPUT
049401,000041:                                                                                                  #       DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
049402,000042:                                                                                                  #           ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
049403,000043:                                                                                                  #       GAMMA = SCALAR
049404,000044:                                                                                                  #       OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
049405,000045:                                                                                                  #  CALLING SEQUENCE
049406,000046:                                                                                                  #     L  CALL INCORP1
049407,000047: 
049408,000048:                                                                                                  #  NORMAL EXIT
049409,000049:                                                                                                  #     L+1 OF CALLING SEQUENCE
049410,000050: 
049411,000051: 37,3641                                           BANK     37                                    
049412,000052: 23,2000                                           SETLOC   MEASINC                               
049413,000053: 23,2000                                           BANK                                           
049414,000054: 
049415,000055: 23,2433                                           COUNT*   $$/INCOR                              
049416,000056: 
049417,000057: 23,2433  E5,1400                                  EBANK=   W                                     
049418,000058: 
049419,000059: 23,2433           77620        INCORP1            STQ                                            
049420,000060: 23,2434           02772                                    EGRESS                                
049421,000061: 23,2435           66370                           AXT,1    SSP                                   
049422,000062: 23,2436           00066                                    54D                                   
049423,000063: 23,2437           00051                                    S1                                    
049424,000064: 23,2440           00022                                    18D                                   #  IX1 = 54      S1= 18
049425,000065: 23,2441           66374                           AXT,2    SSP                                   
049426,000066: 23,2442           00022                                    18D                                   
049427,000067: 23,2443           00052                                    S2                                    
049428,000068: 23,2444           00006                                    6                                     #  IX2 = 18      S2=6
049429,000069: 23,2445           63775        Z123               VLOAD    MXV*                                  
049430,000070: 23,2446           03523                                    BVECTOR                               #  BVECTOR (0)
049431,000071: 23,2447           02467                                    W          +54D,1                     
049432,000072: 23,2450           12665                           STORE    ZI         +18D,2                     
049433,000073: 23,2451           77775                           VLOAD                                          
049434,000074: 23,2452           03531                                    BVECTOR    +6                         #  BVECTOR (1)

Page 1145

049436,000076: 23,2453           52717                           MXV*     VAD*                                  
049437,000077: 23,2454           02555                                    W          +108D,1                    
049438,000078: 23,2455           75112                                    ZI         +18D,2                     
049439,000079: 23,2456           12665                           STORE    ZI         +18D,2                     
049440,000080: 23,2457           77775                           VLOAD                                          
049441,000081: 23,2460           03537                                    BVECTOR    +12D                       #  BVECTOR (2)
049442,000082: 23,2461           52717                           MXV*     VAD*                                  
049443,000083: 23,2462           02643                                    W          +162D,1                    
049444,000084: 23,2463           75112                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
049445,000085: 23,2464           12665                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
049446,000086: 23,2465           77700                           TIX,1                                          
049447,000087: 23,2466           46467                                    INCOR1                                
049448,000088: 23,2467           43104        INCOR1             TIX,2    BON                                   
049449,000089: 23,2470           46445                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
049450,000090: 23,2471           02706                                    DMENFLG                               
049451,000091: 23,2472           46476                                    INCOR1A                               
049452,000092: 23,2473           77775                           VLOAD                                          
049453,000093: 23,2474           06424                                    ZEROVECS                              
049454,000094: 23,2475           02657                           STORE    ZI         +12D                       
049455,000095: 23,2476           77201        INCOR1A            SETPD    VLOAD                                 
049456,000096: 23,2477           00001                                    0                                     
049457,000097: 23,2500           02643                                    ZI                                    
049458,000098: 23,2501           47036                           VSQ      RTB                                   
049459,000099: 23,2502           21537                                    TPMODE                                
049460,000100: 23,2503           47515                           PDVL     VSQ                                   
049461,000101: 23,2504           02651                                    ZI         +6                         
049462,000102: 23,2505           76234                           RTB      TAD                                   
049463,000103: 23,2506           21537                                    TPMODE                                
049464,000104: 23,2507           47515                           PDVL     VSQ                                   
049465,000105: 23,2510           02657                                    ZI         +12D                       
049466,000106: 23,2511           76234                           RTB      TAD                                   
049467,000107: 23,2512           21537                                    TPMODE                                
049468,000108: 23,2513           77171                           TAD      AXT,2                                 
049469,000109: 23,2514           02707                                    VARIANCE                              
049470,000110: 23,2515           00000                                    0                                     
049471,000111: 23,2516           02665                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
049472,000112: 23,2517           40151                           TLOAD    BOV                                   
049473,000113: 23,2520           02707                                    VARIANCE                              #  CLEAR OVFIND
049474,000114: 23,2521           46522                                    +1                                    
049475,000115: 23,2522           02670                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
049476,000116: 23,2523           77654                           BZE                                            
049477,000117: 23,2524           46533                                    INCOR1C                               
049478,000118: 23,2525           40112        INCOR1B            SL2      BOV                                   
049479,000119: 23,2526           46533                                    INCOR1C                               
049480,000120: 23,2527           02670                           STORE    TEMPVAR                               
049481,000121: 23,2530           52114                           INCR,2   GOTO                                  
049482,000122: 23,2531           00001                           DEC      1          B-14                       
049483,000123: 23,2532           46525                                    INCOR1B                               
049484,000124: 23,2533           61551        INCOR1C            TLOAD    ROUND                                 
049485,000125: 23,2534           02665                                    TRIPA                                 

Page 1146

049487,000127: 23,2535           75405                           DMP      SQRT                                  
049488,000128: 23,2536           02670                                    TEMPVAR                               
049489,000129: 23,2537           76257                           SL*      TAD                                   
049490,000130: 23,2540           57576                                    0,2                                   
049491,000131: 23,2541           02665                                    TRIPA                                 
049492,000132: 23,2542           63101                           NORM     INCR,2                                
049493,000133: 23,2543           00050                                    X2                                    
049494,000134: 23,2544           77775                           DEC      -2         B-14                       
049495,000135: 23,2545           77134                           SXA,2    AXT,2                                 
049496,000136: 23,2546           02103                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
049497,000137: 23,2547           00242                                    162D                                  
049498,000138: 23,2550           40265                           BDDV     SETPD                                 
049499,000139: 23,2551           06414                                    DP1/4TH                               
049500,000140: 23,2552           00001                                    0                                     
049501,000141: 23,2553           03476                           STORE    GAMMA                                 
049502,000142: 23,2554           60351                           TLOAD    NORM                                  
049503,000143: 23,2555           02665                                    TRIPA                                 
049504,000144: 23,2556           00047                                    X1                                    
049505,000145: 23,2557           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
049506,000146: 23,2560           00155                                    MPAC                                  
049507,000147: 23,2561           03545                                    DELTAQ                                
049508,000148: 23,2562           77701                           NORM                                           
049509,000149: 23,2563           00051                                    S1                                    
049510,000150: 23,2564           70460                           XSU,1    SR1                                   
049511,000151: 23,2565           00050                                    S1                                    
049512,000152: 23,2566           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
049513,000153: 23,2567           77650                           GOTO                                           
049514,000154: 23,2570           45647                                    NEWZCOMP                              
049515,000155: 23,2571           77731                 -3        SSP                                            
049516,000156: 23,2572           00052                                    S2                                    
049517,000157: 23,2573           00066                                    54D                                   
049518,000158: 23,2574           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
049519,000159: 23,2575           02643                                    ZI                                    
049520,000160: 23,2576           75134                                    W          +162D,2                    
049521,000161: 23,2577           77206                           PUSH     VLOAD                                 
049522,000162: 23,2600           02651                                    ZI         +6                         
049523,000163: 23,2601           53303                           VXM*     VAD                                   
049524,000164: 23,2602           75112                                    W          +180D,2                    
049525,000165: 23,2603           77206                           PUSH     VLOAD                                 
049526,000166: 23,2604           02657                                    ZI         +12D                       
049527,000167: 23,2605           53303                           VXM*     VAD                                   
049528,000168: 23,2606           75070                                    W          +198D,2                    
049529,000169: 23,2607           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
049530,000170: 23,2610           46574                                    INCOR2                                
049531,000171: 23,2611           45575                           VLOAD    STADR                                 
049532,000172: 23,2612           74262                           STORE    OMEGA      +12D                       
049533,000173: 23,2613           45575                           VLOAD    STADR                                 
049534,000174: 23,2614           74270                           STORE    OMEGA      +6                         
049535,000175: 23,2615           45575                           VLOAD    STADR                                 
049536,000176: 23,2616           74276                           STORE    OMEGA                                 

Page 1147

049538,000178: 23,2617           77214                           BON      VLOAD                                 
049539,000179: 23,2620           02706                                    DMENFLG                               
049540,000180: 23,2621           46624                                    INCOR2AB                              
049541,000181: 23,2622           06424                                    ZEROVECS                              
049542,000182: 23,2623           03515                           STORE    OMEGA      +12D                       
049543,000183: 23,2624           66374        INCOR2AB           AXT,2    SSP                                   
049544,000184: 23,2625           00022                                    18D                                   
049545,000185: 23,2626           00052                                    S2                                    
049546,000186: 23,2627           00006                                    6                                     
049547,000187: 23,2630           77773        INCOR3             VLOAD*                                         
049548,000188: 23,2631           74254                                    OMEGA      +18D,2                     
049549,000189: 23,2632           53761                           VXSC     VSL*                                  
049550,000190: 23,2633           00001                                    0                                     #  DELTAQ/A
049551,000191: 23,2634           20201                                    0,1                                   
049552,000192: 23,2635           12707                           STORE    DELTAX     +18D,2                     
049553,000193: 23,2636           77304                           TIX,2    VLOAD                                 
049554,000194: 23,2637           46630                                    INCOR3                                
049555,000195: 23,2640           02673                                    DELTAX     +6                         
049556,000196: 23,2641           77732                           VSL3                                           
049557,000197: 23,2642           02673                           STORE    DELTAX     +6                         
049558,000198: 23,2643           77650                           GOTO                                           
049559,000199: 23,2644           02772                                    EGRESS                                
049560,000200: 

Page 1148

049562,000202:                                                                                                  #   INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
049563,000203:                                                                                                  #  ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
049564,000204:                                                                                                  #  LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
049565,000205: 
049566,000206:                                                                                                  #  INPUT
049567,000207:                                                                                                  #     PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
049568,000208:                                                                                                  #     VEHUPFLG = UPDATE VEHICLE 0=LEM  1=CSM
049569,000209:                                                                                                  #     W =        ERROR TRANSITION MATRIX
049570,000210:                                                                                                  #     DELTAX =   COMPUTED STATE VECTOR DEVIATIONS
049571,000211:                                                                                                  #     DMENFLG =  SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
049572,000212:                                                                                                  #     GAMMA =    SCALAR FOR INCORPORATION
049573,000213:                                                                                                  #     ZI =       VECTOR USED IN INCORPORATION
049574,000214:                                                                                                  #     OMEGA =    WEIGHTING VECTOR
049575,000215: 
049576,000216:                                                                                                  #  OUTPUT
049577,000217:                                                                                                  #     UPDATED PERMANENT STATE VECTOR
049578,000218: 
049579,000219:                                                                                                  #  CALLING SEQUENCE
049580,000220:                                                                                                  #     L  CALL INCORP2
049581,000221: 
049582,000222:                                                                                                  #  NORMAL EXIT
049583,000223:                                                                                                  #     L+1 OF CALLING SEQUENCE
049584,000224: 
049585,000225: 
049586,000226: 23,2000                                           SETLOC   MEASINC1                              
049587,000227: 23,2000                                           BANK                                           
049588,000228: 
049589,000229: 23,2645                                           COUNT*   $$/INCOR                              
049590,000230: 
049591,000231: 23,2645           45020        INCORP2            STQ      CALL                                  
049592,000232: 23,2646           02772                                    EGRESS                                
049593,000233: 23,2647           27412                                    INTSTALL                              
049594,000234: 23,2650           74375                           VLOAD    VXSC                                  #  CALC. GAMMA * OMEGA1,2,3
049595,000235: 23,2651           03501                                    OMEGA                                 
049596,000236: 23,2652           03476                                    GAMMA                                 
049597,000237: 23,2653           26713                           STOVL    OMEGAM1                               
049598,000238: 23,2654           03507                                    OMEGA      +6                         
049599,000239: 23,2655           77761                           VXSC                                           
049600,000240: 23,2656           03476                                    GAMMA                                 
049601,000241: 23,2657           26721                           STOVL    OMEGAM2                               
049602,000242: 23,2660           03515                                    OMEGA      +12D                       
049603,000243: 23,2661           77761                           VXSC                                           
049604,000244: 23,2662           03476                                    GAMMA                                 
049605,000245: 23,2663           02727                           STORE    OMEGAM3                               
049606,000246: 23,2664           77776                           EXIT                                           
049607,000247: 23,2665           33146                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
049608,000248: 23,2666           55320                           TS       WIXA                                  
049609,000249: 23,2667           55321                           TS       WIXB                                  
049610,000250: 23,2670           34755                           CAF      ZERO                                  
049611,000251: 23,2671           55322                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
049612,000252: 23,2672           55323                           TS       ZIXB                                  
049613,000253: 23,2673           05353        FAZA               TC       PHASCHNG                              

Page 1149

049615,000255: 23,2674           04022                           OCT      04022                                 
049616,000256: 23,2675           05504                           TC       UPFLAG                                
049617,000257: 23,2676           00236                           ADRES    REINTFLG                              
049618,000258: 23,2677           31321        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
049619,000259: 23,2700           55320                           TS       WIXA                                  #   TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
049620,000260: 23,2701           31323                           CA       ZIXB                                  
049621,000261: 23,2702           55322                           TS       ZIXA                                  
049622,000262: 23,2703           06036                           TC       INTPRET                               
049623,000263: 23,2704           73150                           LXA,1    LXA,2                                 
049624,000264: 23,2705           01320                                    WIXA                                  
049625,000265: 23,2706           01322                                    ZIXA                                  
049626,000266: 23,2707           70731                           SSP      DLOAD*                                
049627,000267: 23,2710           00051                                    S1                                    
049628,000268: 23,2711           00006                                    6                                     
049629,000269: 23,2712           75134                                    ZI,2                                  
049630,000270: 23,2713           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
049631,000271: 23,2714           00052                                    S2                                    
049632,000272: 23,2715           65161                           VXSC     XCHX,2                                
049633,000273: 23,2716           02713                                    OMEGAM1                               
049634,000274: 23,2717           00051                                    S2                                    
049635,000275: 23,2720           57144                           LXC,2    XAD,2                                 
049636,000276: 23,2721           00047                                    X2                                    
049637,000277: 23,2722           02103                                    NORMGAM                               
049638,000278: 23,2723           65057                           VSL*     XCHX,2                                
049639,000279: 23,2724           57576                                    0,2                                   
049640,000280: 23,2725           00051                                    S2                                    
049641,000281: 23,2726           77653                           VAD*                                           
049642,000282: 23,2727           02467                                    W          +54D,1                     
049643,000283: 23,2730           02735                           STORE    HOLDW                                 
049644,000284: 23,2731           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
049645,000285: 23,2732           75134                                    ZI,2                                  
049646,000286: 23,2733           74301                           NORM     VXSC                                  
049647,000287: 23,2734           00052                                    S2                                    
049648,000288: 23,2735           02721                                    OMEGAM2                               
049649,000289: 23,2736           71124                           XCHX,2   LXC,2                                 
049650,000290: 23,2737           00051                                    S2                                    
049651,000291: 23,2740           00047                                    X2                                    
049652,000292: 23,2741           53674                           XAD,2    VSL*                                  
049653,000293: 23,2742           02103                                    NORMGAM                               
049654,000294: 23,2743           57576                                    0,2                                   
049655,000295: 23,2744           52724                           XCHX,2   VAD*                                  
049656,000296: 23,2745           00051                                    S2                                    
049657,000297: 23,2746           02555                                    W          +108D,1                    
049658,000298: 23,2747           02743                           STORE    HOLDW      +6                         
049659,000299: 23,2750           77614                           BOFF                                           
049660,000300: 23,2751           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
049661,000301: 23,2752           46772                                    FAZB                                  
049662,000302: 23,2753           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
049663,000303: 23,2754           75134                                    ZI,2                                  
049664,000304: 23,2755           74301                           NORM     VXSC                                  

Page 1150

049666,000306: 23,2756           00052                                    S2                                    
049667,000307: 23,2757           02727                                    OMEGAM3                               
049668,000308: 23,2760           71124                           XCHX,2   LXC,2                                 
049669,000309: 23,2761           00051                                    S2                                    
049670,000310: 23,2762           00047                                    X2                                    
049671,000311: 23,2763           53674                           XAD,2    VSL*                                  
049672,000312: 23,2764           02103                                    NORMGAM                               
049673,000313: 23,2765           57576                                    0,2                                   
049674,000314: 23,2766           52724                           XCHX,2   VAD*                                  
049675,000315: 23,2767           00051                                    S2                                    
049676,000316: 23,2770           02643                                    W          +162D,1                    
049677,000317: 23,2771           02751                           STORE    HOLDW      +12D                       
049678,000318: 23,2772           77624        FAZB               CALL                                           
049679,000319: 23,2773           11165                                    GRP2PC                                
049680,000320: 23,2774           77776                           EXIT                                           
049681,000321: 23,2775           31320        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
049682,000322: 23,2776           63147                           AD       6DD                                   #      TEMP REG TO PERM W MATRIX
049683,000323: 23,2777           55321                           TS       WIXB                                  
049684,000324: 23,3000           31322                           CA       ZIXA                                  
049685,000325: 23,3001           67745                           AD       MINUS2                                
049686,000326: 23,3002           55323                           TS       ZIXB                                  
049687,000327: 23,3003           06036                           TC       INTPRET                               
049688,000328: 23,3004           66350                           LXA,1    SSP                                   
049689,000329: 23,3005           01320                                    WIXA                                  
049690,000330: 23,3006           00051                                    S1                                    
049691,000331: 23,3007           00006                                    6                                     
049692,000332: 23,3010           77775                           VLOAD                                          
049693,000333: 23,3011           02735                                    HOLDW                                 
049694,000334: 23,3012           06467                           STORE    W          +54D,1                     
049695,000335: 23,3013           77775                           VLOAD                                          
049696,000336: 23,3014           02743                                    HOLDW      +6                         
049697,000337: 23,3015           06555                           STORE    W          +108D,1                    
049698,000338: 23,3016           77214                           BOFF     VLOAD                                 
049699,000339: 23,3017           02746                                    DMENFLG                               
049700,000340: 23,3020           47030                                    FAZB5                                 
049701,000341: 23,3021           02751                                    HOLDW      +12D                       
049702,000342: 23,3022           06643                           STORE    W          +162D,1                    
049703,000343: 23,3023           52100        FAZB2              TIX,1    GOTO                                  
049704,000344: 23,3024           47026                                    +2                                    
049705,000345: 23,3025           47036                                    FAZC                                  #  DONE WITH W MATRIX. UPDATE STATE VECTOR
049706,000346: 23,3026           77634                           RTB                                            
049707,000347: 23,3027           46673                                    FAZA                                  
049708,000348: 23,3030           43335        FAZB5              SLOAD    DAD                                   
049709,000349: 23,3031           01324                                    ZIXB                                  
049710,000350: 23,3032           07151                                    12DD                                  
049711,000351: 23,3033           52030                           BHIZ     GOTO                                  
049712,000352: 23,3034           47036                                    FAZC                                  
049713,000353: 23,3035           47023                                    FAZB2                                 
049714,000354: 23,3036           77624        FAZC               CALL                                           
049715,000355: 23,3037           11165                                    GRP2PC                                

Page 1151

049717,000357: 23,3040           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
049718,000358: 23,3041           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
049719,000359: 23,3042           02701                                    DELTAX     +12D                       #  INCORPORATION FOR X789
049720,000360: 23,3043           03470                           STORE    TX789                                 
049721,000361: 23,3044           47014                           BON      RTB                                   
049722,000362: 23,3045           00707                                    VEHUPFLG                              
049723,000363: 23,3046           47136                                    DOCSM                                 
049724,000364: 23,3047           26770                                    MOVEPLEM                              
049725,000365: 23,3050           77004        FAZAB              BOVB     AXT,2                                 
049726,000366: 23,3051           57725                                    TCDANZIG                              
049727,000367: 23,3052           00000                                    0                                     
049728,000368: 23,3053           77014                           BOFF     AXT,2                                 
049729,000369: 23,3054           04344                                    MOONTHIS                              
049730,000370: 23,3055           47057                                    +2                                    
049731,000371: 23,3056           00002                                    2                                     
049732,000372: 23,3057           53775                           VLOAD    VSR*                                  
049733,000373: 23,3060           02665                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
049734,000374: 23,3061           57205                                    0          -7,2                       
049735,000375: 23,3062           40055                           VAD      BOV                                   
049736,000376: 23,3063           01521                                    TDELTAV                               
049737,000377: 23,3064           47076                                    FAZAB1                                
049738,000378: 23,3065           25521                           STOVL    TDELTAV                               
049739,000379: 23,3066           02673                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
049740,000380: 23,3067           53257                           VSR*     VAD                                   
049741,000381: 23,3070           57202                                    0          -4,2                       
049742,000382: 23,3071           01527                                    TNUV                                  
049743,000383: 23,3072           77600                           BOV                                            
049744,000384: 23,3073           47102                                    FAZAB2                                
049745,000385: 23,3074           35527                           STCALL   TNUV                                  
049746,000386: 23,3075           47111                                    FAZAB3                                
049747,000387: 23,3076           53375        FAZAB1             VLOAD    VAD                                   
049748,000388: 23,3077           01535                                    RCV                                   
049749,000389: 23,3100           02665                                    DELTAX                                
049750,000390: 23,3101           01535                           STORE    RCV                                   
049751,000391: 23,3102           53375        FAZAB2             VLOAD    VAD                                   
049752,000392: 23,3103           01543                                    VCV                                   
049753,000393: 23,3104           02673                                    DELTAX     +6                         
049754,000394: 23,3105           01543                           STORE    VCV                                   
049755,000395: 23,3106           45134                           SXA,2    CALL                                  
049756,000396: 23,3107           02030                                    PBODY                                 
049757,000397: 23,3110           23345                                    RECTIFY                               
049758,000398: 23,3111           77624        FAZAB3             CALL                                           
049759,000399: 23,3112           11165                                    GRP2PC                                
049760,000400: 23,3113           47014                           BON      RTB                                   
049761,000401: 23,3114           00707                                    VEHUPFLG                              
049762,000402: 23,3115           47141                                    DOCSM1                                
049763,000403: 23,3116           26747                                    MOVEALEM                              
049764,000404: 23,3117           77624                           CALL                                           
049765,000405: 23,3120           26070                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
049766,000406: 23,3121           77624        FAZAB4             CALL                                           

Page 1152

049768,000408: 23,3122           11165                                    GRP2PC                                #  PHASE CHANGE
049769,000409: 23,3123           77214                           BOFF     VLOAD                                 
049770,000410: 23,3124           02746                                    DMENFLG                               
049771,000411: 23,3125           47130                                    FAZAB5                                #  6 DIMENSIONAL
049772,000412: 23,3126           03470                                    TX789                                 #  9 DIMENSIONAL
049773,000413: 23,3127           01701                           STORE    X789                                  
049774,000414: 23,3130           66150        FAZAB5             LXA,1    SXA,1                                 
049775,000415: 23,3131           02772                                    EGRESS                                
049776,000416: 23,3132           00052                                    QPRET                                 
049777,000417: 23,3133           77776                           EXIT                                           
049778,000418: 23,3134           04635                           TC       POSTJUMP                              #  EXIT
049779,000419: 23,3135           27427                           CADR     INTWAKE                               
049780,000420: 23,3136           52034        DOCSM              RTB      GOTO                                  
049781,000421: 23,3137           26723                                    MOVEPCSM                              
049782,000422: 23,3140           47050                                    FAZAB                                 
049783,000423: 23,3141           45034        DOCSM1             RTB      CALL                                  
049784,000424: 23,3142           26674                                    MOVEACSM                              
049785,000425: 23,3143           26114                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
049786,000426: 23,3144           77650                           GOTO                                           
049787,000427: 23,3145           47121                                    FAZAB4                                
049788,000428: 23,3146  23,2423               ZEROO              =        ZEROVECS                              
049789,000429: 23,3146           00066        54DD               DEC      54         B-14                       
049790,000430: 23,3147           77771        6DD                DEC      -6         B-14                       
049791,000431: 23,3150           00014        12DD               DEC      12         B-14                       
049792,000432: 
049793,000433: 22,2000                                           SETLOC   RENDEZ                                
049794,000434: 22,2000                                           BANK                                           
049795,000435: 22,3647                                           COUNT*   $$/INCOR                              
049796,000436: 
049797,000437: 22,3647           51575        NEWZCOMP           VLOAD    ABVAL                                 
049798,000438: 22,3650           02643                                    ZI                                    
049799,000439: 22,3651           24045                           STOVL    NORMZI                                
049800,000440: 22,3652           02651                                    ZI         +6                         
049801,000441: 22,3653           41446                           ABVAL    PUSH                                  
049802,000442: 22,3654           50025                           DSU      BMN                                   
049803,000443: 22,3655           00045                                    NORMZI                                
049804,000444: 22,3656           45661                                    +3                                    
049805,000445: 22,3657           45545                           DLOAD    STADR                                 
049806,000446: 22,3660           77732                           STORE    NORMZI                                
049807,000447: 22,3661           51575                           VLOAD    ABVAL                                 
049808,000448: 22,3662           02657                                    ZI         +12D                       
049809,000449: 22,3663           45206                           PUSH     DSU                                   
049810,000450: 22,3664           00045                                    NORMZI                                
049811,000451: 22,3665           71240                           BMN      DLOAD                                 
049812,000452: 22,3666           45671                                    +3                                    
049813,000453: 22,3667           77626                           STADR                                          
049814,000454: 22,3670           77732                           STORE    NORMZI                                #  LARGEST ABVAL
049815,000455: 22,3671           66145                           DLOAD    SXA,1                                 
049816,000456: 22,3672           00045                                    NORMZI                                
049817,000457: 22,3673           00044                                    NORMZI                                #  SAVE X1
049818,000458: 22,3674           62101                           NORM     INCR,1                                

Page 1153

049820,000460: 22,3675           00047                                    X1                                    
049821,000461: 22,3676           00002                           DEC      2          B-14                       
049822,000462: 22,3677           53775                           VLOAD    VSL*                                  
049823,000463: 22,3700           02643                                    ZI                                    
049824,000464: 22,3701           20201                                    0,1                                   
049825,000465: 22,3702           26643                           STOVL    ZI                                    
049826,000466: 22,3703           02651                                    ZI         +6                         
049827,000467: 22,3704           77657                           VSL*                                           
049828,000468: 22,3705           20201                                    0,1                                   
049829,000469: 22,3706           26651                           STOVL    ZI         +6                         
049830,000470: 22,3707           02657                                    ZI         +12D                       
049831,000471: 22,3710           66057                           VSL*     SXA,1                                 
049832,000472: 22,3711           20201                                    0,1                                   
049833,000473: 22,3712           00045                                    NORMZI     +1                         #  SAVE SHIFT
049834,000474: 22,3713           02657                           STORE    ZI         +12D                       
049835,000475: 22,3714           54150                           LXA,1    XSU,1                                 
049836,000476: 22,3715           02103                                    NORMGAM                               
049837,000477: 22,3716           00045                                    NORMZI     +1                         
049838,000478: 22,3717           77660                           XSU,1                                          
049839,000479: 22,3720           00045                                    NORMZI     +1                         
049840,000480: 22,3721           70130                           SXA,1    LXC,1                                 
049841,000481: 22,3722           02103                                    NORMGAM                               
049842,000482: 22,3723           00045                                    NORMZI     +1                         
049843,000483: 22,3724           40270                           XAD,1    SETPD                                 
049844,000484: 22,3725           00044                                    NORMZI                                
049845,000485: 22,3726           00003                                    2D                                    
049846,000486: 22,3727           77650                           GOTO                                           
049847,000487: 22,3730           46571                                    INCOR2     -3                         
049848,000488: 22,3731                        NORMZI             =        36D                                   
049849,000489: 
049850,000490: 

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