Source Code

These source-code files are part of a reconstructed copy of Comanche 67, the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

Since only binary dumps (rather than listings) of Comanche 67 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

051872,000002:                                                                                                  ## Copyright:   Public domain.
051873,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
051874,000004:                                                                                                  ## Purpose:     A section of Comanche revision 067.
051875,000005:                                                                                                  ##              It is part of the reconstructed source code for the flight
051876,000006:                                                                                                  ##              software for the Command Module's (CM) Apollo Guidance Computer
051877,000007:                                                                                                  ##              (AGC) for Apollo 12. No original listings of this program are
051878,000008:                                                                                                  ##              available; instead, this file was created via dissassembly of
051879,000009:                                                                                                  ##              dumps of Comanche 067 core rope modules and comparison with
051880,000010:                                                                                                  ##              other AGC programs.
051881,000011:                                                                                                  ## Assembler:   yaYUL
051882,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
051883,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051884,000014:                                                                                                  ## Mod history: 2023-08-16 MAS  Created from Comanche 055.
051885,000015: 
051886,000016:                                                                                                  #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
051887,000017:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
051888,000018:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
051889,000019:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
051890,000020:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
051891,000021:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
051892,000022:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
051893,000023: 
051894,000024:                                                                                                  #  INPUT
051895,000025:                                                                                                  #         DMENFLG = 0 6DIMENSIONAL BVECTOR  1= 9DIMENSIONAL
051896,000026:                                                                                                  #               W = ERROR TRANSITION MATRIX 6X6 OR 9X9
051897,000027:                                                                                                  #        VARIANCE = VARIANCE (SCALAR)
051898,000028:                                                                                                  #          DELTAQ = MEASURED DEVIATION (SCALAR)
051899,000029:                                                                                                  #         BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
051900,000030: 
051901,000031:                                                                                                  #  OUTPUT
051902,000032:                                                                                                  #          DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
051903,000033:                                                                                                  #              ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
051904,000034:                                                                                                  #           GAMMA = SCALAR
051905,000035:                                                                                                  #           OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
051906,000036: 
051907,000037:                                                                                                  #  CALLING SEQUENCE
051908,000038:                                                                                                  #        L       CALL    INCORP1
051909,000039: 
051910,000040:                                                                                                  #  NORMAL EXIT
051911,000041:                                                                                                  #        L+1 OF CALLING SEQUENCE
051912,000042: 
051913,000043: 37,3776                                           BANK     37                                    
051914,000044: 36,2000                                           SETLOC   MEASINC                               
051915,000045: 36,2000                                           BANK                                           
051916,000046: 
051917,000047: 36,3254                                           COUNT*   $$/INCOR                              
051918,000048: 
051919,000049: 36,3254  E5,1400                                  EBANK=   W                                     
051920,000050: 
051921,000051: 36,3254           77620        INCORP1            STQ                                            
051922,000052: 36,3255           02317                                    EGRESS                                
051923,000053: 36,3256           66370                           AXT,1    SSP                                   
051924,000054: 36,3257           00066                                    54D                                   
051925,000055: 36,3260           00051                                    S1                                    
051926,000056: 36,3261           00022                                    18D                                   #  IX1 = 54      S1= 18
051927,000057: 36,3262           66374                           AXT,2    SSP                                   
051928,000058: 36,3263           00022                                    18D                                   
051929,000059: 36,3264           00052                                    S2                                    
051930,000060: 36,3265           00006                                    6                                     #  IX2 = 18      S2=6
051931,000061: 36,3266           63775        Z123               VLOAD    MXV*                                  
051932,000062: 36,3267           03502                                    BVECTOR                               #  BVECTOR (0)
051933,000063: 36,3270           02467                                    W          +54D,1                     
051934,000064: 36,3271           12745                           STORE    ZI         +18D,2                     
051935,000065: 36,3272           77775                           VLOAD                                          
051936,000066: 36,3273           03510                                    BVECTOR    +6                         #  BVECTOR (1)
051937,000067: 36,3274           52717                           MXV*     VAD*                                  
051938,000068: 36,3275           02555                                    W          +108D,1                    
051939,000069: 36,3276           75032                                    ZI         +18D,2                     
051940,000070: 36,3277           12745                           STORE    ZI         +18D,2                     
051941,000071: 36,3300           77775                           VLOAD                                          
051942,000072: 36,3301           03516                                    BVECTOR    +12D                       #  BVECTOR (2)
051943,000073: 36,3302           52717                           MXV*     VAD*                                  
051944,000074: 36,3303           02643                                    W          +162D,1                    
051945,000075: 36,3304           75032                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
051946,000076: 36,3305           12745                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
051947,000077: 36,3306           77700                           TIX,1                                          
051948,000078: 36,3307           75310                                    INCOR1                                
051949,000079: 36,3310           43104        INCOR1             TIX,2    BON                                   
051950,000080: 36,3311           75266                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
051951,000081: 36,3312           02706                                    DMENFLG                               
051952,000082: 36,3313           75317                                    INCOR1A                               
051953,000083: 36,3314           77775                           VLOAD                                          
051954,000084: 36,3315           15334                                    ZEROVECS                              
051955,000085: 36,3316           02737                           STORE    ZI         +12D                       
051956,000086: 36,3317           77201        INCOR1A            SETPD    VLOAD                                 
051957,000087: 36,3320           00001                                    0                                     
051958,000088: 36,3321           02723                                    ZI                                    
051959,000089: 36,3322           47036                           VSQ      RTB                                   
051960,000090: 36,3323           45565                                    TPMODE                                
051961,000091: 36,3324           47515                           PDVL     VSQ                                   
051962,000092: 36,3325           02731                                    ZI         +6                         
051963,000093: 36,3326           76234                           RTB      TAD                                   
051964,000094: 36,3327           45565                                    TPMODE                                
051965,000095: 36,3330           47515                           PDVL     VSQ                                   
051966,000096: 36,3331           02737                                    ZI         +12D                       
051967,000097: 36,3332           76234                           RTB      TAD                                   
051968,000098: 36,3333           45565                                    TPMODE                                
051969,000099: 36,3334           77171                           TAD      AXT,2                                 
051970,000100: 36,3335           03526                                    VARIANCE                              
051971,000101: 36,3336           00000                                    0                                     
051972,000102: 36,3337           01257                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
051973,000103: 36,3340           40151                           TLOAD    BOV                                   
051974,000104: 36,3341           03526                                    VARIANCE                              #  CLEAR OVFIND
051975,000105: 36,3342           75343                                    +1                                    
051976,000106: 36,3343           01262                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
051977,000107: 36,3344           77654                           BZE                                            
051978,000108: 36,3345           75354                                    INCOR1C                               
051979,000109: 36,3346           40112        INCOR1B            SL2      BOV                                   
051980,000110: 36,3347           75354                                    INCOR1C                               
051981,000111: 36,3350           01262                           STORE    TEMPVAR                               
051982,000112: 36,3351           52114                           INCR,2   GOTO                                  
051983,000113: 36,3352           00001                           DEC      1          B-14                       
051984,000114: 36,3353           75346                                    INCOR1B                               
051985,000115: 36,3354           61551        INCOR1C            TLOAD    ROUND                                 
051986,000116: 36,3355           01257                                    TRIPA                                 
051987,000117: 36,3356           75405                           DMP      SQRT                                  
051988,000118: 36,3357           01262                                    TEMPVAR                               
051989,000119: 36,3360           76257                           SL*      TAD                                   
051990,000120: 36,3361           57576                                    0,2                                   
051991,000121: 36,3362           01257                                    TRIPA                                 
051992,000122: 36,3363           63101                           NORM     INCR,2                                
051993,000123: 36,3364           00050                                    X2                                    
051994,000124: 36,3365           77775                           DEC      -2         B-14                       
051995,000125: 36,3366           77134                           SXA,2    AXT,2                                 
051996,000126: 36,3367           02215                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
051997,000127: 36,3370           00242                                    162D                                  
051998,000128: 36,3371           40265                           BDDV     SETPD                                 
051999,000129: 36,3372           15324                                    DP1/4TH                               
052000,000130: 36,3373           00001                                    0                                     
052001,000131: 36,3374           03456                           STORE    GAMMA                                 
052002,000132: 36,3375           60351                           TLOAD    NORM                                  
052003,000133: 36,3376           01257                                    TRIPA                                 
052004,000134: 36,3377           00047                                    X1                                    
052005,000135: 36,3400           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
052006,000136: 36,3401           00155                                    MPAC                                  
052007,000137: 36,3402           03524                                    DELTAQ                                
052008,000138: 36,3403           77701                           NORM                                           
052009,000139: 36,3404           00051                                    S1                                    
052010,000140: 36,3405           70460                           XSU,1    SR1                                   
052011,000141: 36,3406           00050                                    S1                                    
052012,000142: 36,3407           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
052013,000143: 36,3410           77650                           GOTO                                           
052014,000144: 36,3411           31401                                    NEWZCOMP                              
052015,000145: 36,3412           77731                 -3        SSP                                            
052016,000146: 36,3413           00052                                    S2                                    
052017,000147: 36,3414           00066                                    54D                                   
052018,000148: 36,3415           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
052019,000149: 36,3416           02723                                    ZI                                    
052020,000150: 36,3417           75134                                    W          +162D,2                    
052021,000151: 36,3420           77206                           PUSH     VLOAD                                 
052022,000152: 36,3421           02731                                    ZI         +6                         
052023,000153: 36,3422           53303                           VXM*     VAD                                   
052024,000154: 36,3423           75112                                    W          +180D,2                    
052025,000155: 36,3424           77206                           PUSH     VLOAD                                 
052026,000156: 36,3425           02737                                    ZI         +12D                       
052027,000157: 36,3426           53303                           VXM*     VAD                                   
052028,000158: 36,3427           75070                                    W          +198D,2                    
052029,000159: 36,3430           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
052030,000160: 36,3431           75415                                    INCOR2                                
052031,000161: 36,3432           45575                           VLOAD    STADR                                 
052032,000162: 36,3433           74303                           STORE    OMEGA      +12D                       
052033,000163: 36,3434           45575                           VLOAD    STADR                                 
052034,000164: 36,3435           74311                           STORE    OMEGA      +6                         
052035,000165: 36,3436           45575                           VLOAD    STADR                                 
052036,000166: 36,3437           74317                           STORE    OMEGA                                 
052037,000167: 36,3440           77214                           BON      VLOAD                                 
052038,000168: 36,3441           02706                                    DMENFLG                               
052039,000169: 36,3442           75445                                    INCOR2AB                              
052040,000170: 36,3443           15334                                    ZEROVECS                              
052041,000171: 36,3444           03474                           STORE    OMEGA      +12D                       
052042,000172: 36,3445           66374        INCOR2AB           AXT,2    SSP                                   
052043,000173: 36,3446           00022                                    18D                                   
052044,000174: 36,3447           00052                                    S2                                    
052045,000175: 36,3450           00006                                    6                                     
052046,000176: 36,3451           77773        INCOR3             VLOAD*                                         
052047,000177: 36,3452           74275                                    OMEGA      +18D,2                     
052048,000178: 36,3453           53761                           VXSC     VSL*                                  
052049,000179: 36,3454           00001                                    0                                     #  DELTAQ/A
052050,000180: 36,3455           20201                                    0,1                                   
052051,000181: 36,3456           11301                           STORE    DELTAX     +18D,2                     
052052,000182: 36,3457           77304                           TIX,2    VLOAD                                 
052053,000183: 36,3460           75451                                    INCOR3                                
052054,000184: 36,3461           01265                                    DELTAX     +6                         
052055,000185: 36,3462           77732                           VSL3                                           
052056,000186: 36,3463           01265                           STORE    DELTAX     +6                         
052057,000187: 36,3464           77650                           GOTO                                           
052058,000188: 36,3465           02317                                    EGRESS                                
052059,000189: 
052060,000190:                                                                                                  #   INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
052061,000191:                                                                                                  #  ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
052062,000192:                                                                                                  #  LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
052063,000193: 
052064,000194:                                                                                                  #  INPUT
052065,000195:                                                                                                  #        PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
052066,000196:                                                                                                  #        VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
052067,000197:                                                                                                  #        W = ERROR TRANSITION MATRIX
052068,000198:                                                                                                  #        DELTAX = COMPUTED STATE VECTOR DEVIATIONS
052069,000199:                                                                                                  #        DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
052070,000200:                                                                                                  #        GAMMA = SCALAR FOR INCORPORATION
052071,000201:                                                                                                  #        ZI = VECTOR USED IN INCORPORATION
052072,000202:                                                                                                  #        OMEGA = WEIGHTING VECTOR
052073,000203: 
052074,000204:                                                                                                  #  OUTPUT
052075,000205:                                                                                                  #        UPDATED PERMANENT STATE VECTOR
052076,000206: 
052077,000207:                                                                                                  #  CALLING SEQUENCE
052078,000208:                                                                                                  #        L       CALL    INCORP2
052079,000209: 
052080,000210:                                                                                                  #  NORMAL EXIT
052081,000211:                                                                                                  #        L+1 OF CALLING SEQUENCE
052082,000212: 
052083,000213: 
052084,000214: 36,2000                                           SETLOC   MEASINC1                              
052085,000215: 36,2000                                           BANK                                           
052086,000216: 
052087,000217: 36,3466                                           COUNT*   $$/INCOR                              
052088,000218: 
052089,000219: 36,3466           45020        INCORP2            STQ      CALL                                  
052090,000220: 36,3467           02317                                    EGRESS                                
052091,000221: 36,3470           27452                                    INTSTALL                              
052092,000222: 36,3471           74375                           VLOAD    VXSC                                  #  CALC. GAMMA*OMEGA1,2,3
052093,000223: 36,3472           03460                                    OMEGA                                 
052094,000224: 36,3473           03456                                    GAMMA                                 
052095,000225: 36,3474           26643                           STOVL    OMEGAM1                               
052096,000226: 36,3475           03466                                    OMEGA      +6                         
052097,000227: 36,3476           77761                           VXSC                                           
052098,000228: 36,3477           03456                                    GAMMA                                 
052099,000229: 36,3500           26651                           STOVL    OMEGAM2                               
052100,000230: 36,3501           03474                                    OMEGA      +12D                       
052101,000231: 36,3502           77761                           VXSC                                           
052102,000232: 36,3503           03456                                    GAMMA                                 
052103,000233: 36,3504           02657                           STORE    OMEGAM3                               
052104,000234: 36,3505           77776                           EXIT                                           
052105,000235: 36,3506           33767                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
052106,000236: 36,3507           55252                           TS       WIXA                                  
052107,000237: 36,3510           55253                           TS       WIXB                                  
052108,000238: 36,3511           35035                           CAF      ZERO                                  
052109,000239: 36,3512           55254                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
052110,000240: 36,3513           55255                           TS       ZIXB                                  
052111,000241: 36,3514           05426        FAZA               TC       PHASCHNG                              
052112,000242: 36,3515           04022                           OCT      04022                                 
052113,000243: 36,3516           05562                           TC       UPFLAG                                
052114,000244: 36,3517           00236                           ADRES    REINTFLG                              
052115,000245: 36,3520           31253        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
052116,000246: 36,3521           55252                           TS       WIXA                                  #  TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
052117,000247: 36,3522           31255                           CA       ZIXB                                  
052118,000248: 36,3523           55254                           TS       ZIXA                                  
052119,000249: 36,3524           06006                           TC       INTPRET                               
052120,000250: 36,3525           73150                           LXA,1    LXA,2                                 
052121,000251: 36,3526           01252                                    WIXA                                  
052122,000252: 36,3527           01254                                    ZIXA                                  
052123,000253: 36,3530           70731                           SSP      DLOAD*                                
052124,000254: 36,3531           00051                                    S1                                    
052125,000255: 36,3532           00006                                    6                                     
052126,000256: 36,3533           75054                                    ZI,2                                  
052127,000257: 36,3534           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
052128,000258: 36,3535           00052                                    S2                                    
052129,000259: 36,3536           65161                           VXSC     XCHX,2                                
052130,000260: 36,3537           02643                                    OMEGAM1                               
052131,000261: 36,3540           00051                                    S2                                    
052132,000262: 36,3541           57144                           LXC,2    XAD,2                                 
052133,000263: 36,3542           00047                                    X2                                    
052134,000264: 36,3543           02215                                    NORMGAM                               
052135,000265: 36,3544           65057                           VSL*     XCHX,2                                
052136,000266: 36,3545           57576                                    0,2                                   
052137,000267: 36,3546           00051                                    S2                                    
052138,000268: 36,3547           77653                           VAD*                                           
052139,000269: 36,3550           02467                                    W          +54D,1                     
052140,000270: 36,3551           02665                           STORE    HOLDW                                 
052141,000271: 36,3552           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
052142,000272: 36,3553           75054                                    ZI,2                                  
052143,000273: 36,3554           74301                           NORM     VXSC                                  
052144,000274: 36,3555           00052                                    S2                                    
052145,000275: 36,3556           02651                                    OMEGAM2                               
052146,000276: 36,3557           71124                           XCHX,2   LXC,2                                 
052147,000277: 36,3560           00051                                    S2                                    
052148,000278: 36,3561           00047                                    X2                                    
052149,000279: 36,3562           53674                           XAD,2    VSL*                                  
052150,000280: 36,3563           02215                                    NORMGAM                               
052151,000281: 36,3564           57576                                    0,2                                   
052152,000282: 36,3565           52724                           XCHX,2   VAD*                                  
052153,000283: 36,3566           00051                                    S2                                    
052154,000284: 36,3567           02555                                    W          +108D,1                    
052155,000285: 36,3570           02673                           STORE    HOLDW      +6                         
052156,000286: 36,3571           77614                           BOFF                                           
052157,000287: 36,3572           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
052158,000288: 36,3573           75613                                    FAZB                                  
052159,000289: 36,3574           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
052160,000290: 36,3575           75054                                    ZI,2                                  
052161,000291: 36,3576           74301                           NORM     VXSC                                  
052162,000292: 36,3577           00052                                    S2                                    
052163,000293: 36,3600           02657                                    OMEGAM3                               
052164,000294: 36,3601           71124                           XCHX,2   LXC,2                                 
052165,000295: 36,3602           00051                                    S2                                    
052166,000296: 36,3603           00047                                    X2                                    
052167,000297: 36,3604           53674                           XAD,2    VSL*                                  
052168,000298: 36,3605           02215                                    NORMGAM                               
052169,000299: 36,3606           57576                                    0,2                                   
052170,000300: 36,3607           52724                           XCHX,2   VAD*                                  
052171,000301: 36,3610           00051                                    S2                                    
052172,000302: 36,3611           02643                                    W          +162D,1                    
052173,000303: 36,3612           02701                           STORE    HOLDW      +12D                       
052174,000304: 36,3613           77624        FAZB               CALL                                           
052175,000305: 36,3614           56751                                    GRP2PC                                
052176,000306: 36,3615           77776                           EXIT                                           
052177,000307: 36,3616           31252        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
052178,000308: 36,3617           63770                           AD       6DD                                   #        TEMP REG TO PERM W MATRIX
052179,000309: 36,3620           55253                           TS       WIXB                                  
052180,000310: 36,3621           31254                           CA       ZIXA                                  
052181,000311: 36,3622           67715                           AD       MINUS2                                
052182,000312: 36,3623           55255                           TS       ZIXB                                  
052183,000313: 36,3624           06006                           TC       INTPRET                               
052184,000314: 36,3625           66350                           LXA,1    SSP                                   
052185,000315: 36,3626           01252                                    WIXA                                  
052186,000316: 36,3627           00051                                    S1                                    
052187,000317: 36,3630           00006                                    6                                     
052188,000318: 36,3631           77775                           VLOAD                                          
052189,000319: 36,3632           02665                                    HOLDW                                 
052190,000320: 36,3633           06467                           STORE    W          +54D,1                     
052191,000321: 36,3634           77775                           VLOAD                                          
052192,000322: 36,3635           02673                                    HOLDW      +6                         
052193,000323: 36,3636           06555                           STORE    W          +108D,1                    
052194,000324: 36,3637           77214                           BOFF     VLOAD                                 
052195,000325: 36,3640           02746                                    DMENFLG                               
052196,000326: 36,3641           75651                                    FAZB5                                 
052197,000327: 36,3642           02701                                    HOLDW      +12D                       
052198,000328: 36,3643           06643                           STORE    W          +162D,1                    
052199,000329: 36,3644           52100        FAZB2              TIX,1    GOTO                                  
052200,000330: 36,3645           75647                                    +2                                    
052201,000331: 36,3646           75657                                    FAZC                                  #  DONE WITH W MATRIX.  UPDATE STATE VECTOR
052202,000332: 36,3647           77634                           RTB                                            
052203,000333: 36,3650           75514                                    FAZA                                  
052204,000334: 36,3651           43335        FAZB5              SLOAD    DAD                                   
052205,000335: 36,3652           01256                                    ZIXB                                  
052206,000336: 36,3653           35772                                    12DD                                  
052207,000337: 36,3654           52030                           BHIZ     GOTO                                  
052208,000338: 36,3655           75657                                    FAZC                                  
052209,000339: 36,3656           75644                                    FAZB2                                 
052210,000340: 36,3657           77624        FAZC               CALL                                           
052211,000341: 36,3660           56751                                    GRP2PC                                
052212,000342: 36,3661           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
052213,000343: 36,3662           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
052214,000344: 36,3663           01273                                    DELTAX     +12D                       #  INCORPORATION FOR X789
052215,000345: 36,3664           03450                           STORE    TX789                                 
052216,000346: 36,3665           47014                           BON      RTB                                   
052217,000347: 36,3666           00707                                    VEHUPFLG                              
052218,000348: 36,3667           75757                                    DOCSM                                 
052219,000349: 36,3670           27024                                    MOVEPLEM                              
052220,000350: 36,3671           77004        FAZAB              BOVB     AXT,2                                 
052221,000351: 36,3672           57353                                    TCDANZIG                              
052222,000352: 36,3673           00000                                    0                                     
052223,000353: 36,3674           77014                           BOFF     AXT,2                                 
052224,000354: 36,3675           04343                                    MOONTHIS                              
052225,000355: 36,3676           75700                                    +2                                    
052226,000356: 36,3677           00002                                    2                                     
052227,000357: 36,3700           53775                           VLOAD    VSR*                                  
052228,000358: 36,3701           01257                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
052229,000359: 36,3702           57205                                    0          -7,2                       
052230,000360: 36,3703           40055                           VAD      BOV                                   
052231,000361: 36,3704           01521                                    TDELTAV                               
052232,000362: 36,3705           75717                                    FAZAB1                                
052233,000363: 36,3706           25521                           STOVL    TDELTAV                               
052234,000364: 36,3707           01265                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
052235,000365: 36,3710           53257                           VSR*     VAD                                   
052236,000366: 36,3711           57202                                    0          -4,2                       
052237,000367: 36,3712           01527                                    TNUV                                  
052238,000368: 36,3713           77600                           BOV                                            
052239,000369: 36,3714           75723                                    FAZAB2                                
052240,000370: 36,3715           35527                           STCALL   TNUV                                  
052241,000371: 36,3716           75732                                    FAZAB3                                
052242,000372: 36,3717           53375        FAZAB1             VLOAD    VAD                                   
052243,000373: 36,3720           01535                                    RCV                                   
052244,000374: 36,3721           01257                                    DELTAX                                
052245,000375: 36,3722           01535                           STORE    RCV                                   
052246,000376: 36,3723           53375        FAZAB2             VLOAD    VAD                                   
052247,000377: 36,3724           01543                                    VCV                                   
052248,000378: 36,3725           01265                                    DELTAX     +6                         
052249,000379: 36,3726           01543                           STORE    VCV                                   
052250,000380: 36,3727           45134                           SXA,2    CALL                                  
052251,000381: 36,3730           02150                                    PBODY                                 
052252,000382: 36,3731           23403                                    RECTIFY                               
052253,000383: 36,3732           77624        FAZAB3             CALL                                           
052254,000384: 36,3733           56751                                    GRP2PC                                
052255,000385: 36,3734           47014                           BON      RTB                                   
052256,000386: 36,3735           00707                                    VEHUPFLG                              
052257,000387: 36,3736           75762                                    DOCSM1                                
052258,000388: 36,3737           27003                                    MOVEALEM                              
052259,000389: 36,3740           77624                           CALL                                           
052260,000390: 36,3741           20263                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
052261,000391: 36,3742           77624        FAZAB4             CALL                                           
052262,000392: 36,3743           56751                                    GRP2PC                                #  PHASE CHANGE
052263,000393: 36,3744           77214                           BOFF     VLOAD                                 
052264,000394: 36,3745           02746                                    DMENFLG                               
052265,000395: 36,3746           75751                                    FAZAB5                                #  6 DIMENSIONAL
052266,000396: 36,3747           03450                                    TX789                                 #  9 DIMENSIONAL
052267,000397: 36,3750           01701                           STORE    X789                                  
052268,000398: 36,3751           66150        FAZAB5             LXA,1    SXA,1                                 
052269,000399: 36,3752           02317                                    EGRESS                                
052270,000400: 36,3753           00052                                    QPRET                                 
052271,000401: 36,3754           77776                           EXIT                                           
052272,000402: 36,3755           04715                           TC       POSTJUMP                              #  EXIT
052273,000403: 36,3756           27467                           CADR     INTWAKE                               
052274,000404: 36,3757           52034        DOCSM              RTB      GOTO                                  
052275,000405: 36,3760           26757                                    MOVEPCSM                              
052276,000406: 36,3761           75671                                    FAZAB                                 
052277,000407: 36,3762           45034        DOCSM1             RTB      CALL                                  
052278,000408: 36,3763           26730                                    MOVEACSM                              
052279,000409: 36,3764           20237                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
052280,000410: 36,3765           77650                           GOTO                                           
052281,000411: 36,3766           75742                                    FAZAB4                                
052282,000412: 36,3767  26,3333               ZEROO              =        ZEROVECS                              
052283,000413: 36,3767           00066        54DD               DEC      54         B-14                       
052284,000414: 36,3770           77771        6DD                DEC      -6         B-14                       
052285,000415: 36,3771           00014        12DD               DEC      12         B-14                       
052286,000416: 14,2000                                           SETLOC   MEASINC2                              
052287,000417: 14,2000                                           BANK                                           
052288,000418: 14,3401                                           COUNT*   $$/INCOR                              
052289,000419: 
052290,000420: 14,3401           51575        NEWZCOMP           VLOAD    ABVAL                                 
052291,000421: 14,3402           02723                                    ZI                                    
052292,000422: 14,3403           24045                           STOVL    NORMZI                                
052293,000423: 14,3404           02731                                    ZI         +6                         
052294,000424: 14,3405           41446                           ABVAL    PUSH                                  
052295,000425: 14,3406           50025                           DSU      BMN                                   
052296,000426: 14,3407           00045                                    NORMZI                                
052297,000427: 14,3410           31413                                    +3                                    
052298,000428: 14,3411           45545                           DLOAD    STADR                                 
052299,000429: 14,3412           77732                           STORE    NORMZI                                
052300,000430: 14,3413           51575                           VLOAD    ABVAL                                 
052301,000431: 14,3414           02737                                    ZI         +12D                       
052302,000432: 14,3415           45206                           PUSH     DSU                                   
052303,000433: 14,3416           00045                                    NORMZI                                
052304,000434: 14,3417           71240                           BMN      DLOAD                                 
052305,000435: 14,3420           73635                                    NEWZCMP1                              
052306,000436: 14,3421           77626                           STADR                                          
052307,000437: 14,3422           43732                           STCALL   NORMZI                                #  LARGEST ABVAL
052308,000438: 14,3423           73635                                    NEWZCMP1                              
052309,000439: 
052310,000440: 35,2000                                           SETLOC   MEASINC3                              
052311,000441: 35,2000                                           BANK                                           
052312,000442: 
052313,000443: 35,3635           66145        NEWZCMP1           DLOAD    SXA,1                                 
052314,000444: 35,3636           00045                                    NORMZI                                
052315,000445: 35,3637           00044                                    NORMZI                                #  SAVE X1
052316,000446: 35,3640           62101                           NORM     INCR,1                                
052317,000447: 35,3641           00047                                    X1                                    
052318,000448: 35,3642           00002                           DEC      2          B-14                       
052319,000449: 35,3643           53775                           VLOAD    VSL*                                  
052320,000450: 35,3644           02723                                    ZI                                    
052321,000451: 35,3645           20201                                    0,1                                   
052322,000452: 35,3646           26723                           STOVL    ZI                                    
052323,000453: 35,3647           02731                                    ZI         +6                         
052324,000454: 35,3650           77657                           VSL*                                           
052325,000455: 35,3651           20201                                    0,1                                   
052326,000456: 35,3652           26731                           STOVL    ZI         +6                         
052327,000457: 35,3653           02737                                    ZI         +12D                       
052328,000458: 35,3654           66057                           VSL*     SXA,1                                 
052329,000459: 35,3655           20201                                    0,1                                   
052330,000460: 35,3656           00045                                    NORMZI     +1                         #  SAVE SHIFT
052331,000461: 35,3657           02737                           STORE    ZI         +12D                       
052332,000462: 35,3660           54150                           LXA,1    XSU,1                                 
052333,000463: 35,3661           02215                                    NORMGAM                               
052334,000464: 35,3662           00045                                    NORMZI     +1                         
052335,000465: 35,3663           77660                           XSU,1                                          
052336,000466: 35,3664           00045                                    NORMZI     +1                         
052337,000467: 35,3665           70130                           SXA,1    LXC,1                                 
052338,000468: 35,3666           02215                                    NORMGAM                               
052339,000469: 35,3667           00045                                    NORMZI     +1                         
052340,000470: 35,3670           40270                           XAD,1    SETPD                                 
052341,000471: 35,3671           00044                                    NORMZI                                
052342,000472: 35,3672           00003                                    2D                                    
052343,000473: 35,3673           77650                           GOTO                                           
052344,000474: 35,3674           75412                                    INCOR2     -3                         
052345,000475: 35,3675                        NORMZI             =        36D                                   

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