Source Code

These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3), the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72/3 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.

052205,000002:                                                                                                  ## Copyright:   Public domain.
052206,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
052207,000004:                                                                                                  ## Purpose:     A section of Manche72 revision 3.
052208,000005:                                                                                                  ##              It is part of the reconstructed source code for the final, flown
052209,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
052210,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
052211,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
052212,000009:                                                                                                  ##              from a reconstructed copy of Comanche 072. It has been adapted
052213,000010:                                                                                                  ##              such that the resulting bugger words exactly match those
052214,000011:                                                                                                  ##              specified for Manche72 revision 3 in NASA drawing 2021153G,
052215,000012:                                                                                                  ##              which gives relatively high confidence that the reconstruction
052216,000013:                                                                                                  ##              is correct.
052217,000014:                                                                                                  ## Assembler:   yaYUL
052218,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
052219,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
052220,000017:                                                                                                  ## Mod history: 2024-05-19 MAS  Created from Comanche 072.
052221,000018: 
052222,000019:                                                                                                  #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
052223,000020:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
052224,000021:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
052225,000022:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
052226,000023:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
052227,000024:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
052228,000025:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
052229,000026: 
052230,000027:                                                                                                  #  INPUT
052231,000028:                                                                                                  #         DMENFLG = 0 6DIMENSIONAL BVECTOR  1= 9DIMENSIONAL
052232,000029:                                                                                                  #               W = ERROR TRANSITION MATRIX 6X6 OR 9X9
052233,000030:                                                                                                  #        VARIANCE = VARIANCE (SCALAR)
052234,000031:                                                                                                  #          DELTAQ = MEASURED DEVIATION (SCALAR)
052235,000032:                                                                                                  #         BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
052236,000033: 
052237,000034:                                                                                                  #  OUTPUT
052238,000035:                                                                                                  #          DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
052239,000036:                                                                                                  #              ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
052240,000037:                                                                                                  #           GAMMA = SCALAR
052241,000038:                                                                                                  #           OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
052242,000039: 
052243,000040:                                                                                                  #  CALLING SEQUENCE
052244,000041:                                                                                                  #        L       CALL    INCORP1
052245,000042: 
052246,000043:                                                                                                  #  NORMAL EXIT
052247,000044:                                                                                                  #        L+1 OF CALLING SEQUENCE
052248,000045: 
052249,000046: 37,3776                                           BANK     37                                    
052250,000047: 36,2000                                           SETLOC   MEASINC                               
052251,000048: 36,2000                                           BANK                                           
052252,000049: 
052253,000050: 36,3260                                           COUNT*   $$/INCOR                              
052254,000051: 
052255,000052: 36,3260  E5,1400                                  EBANK=   W                                     
052256,000053: 
052257,000054: 36,3260           77620        INCORP1            STQ                                            
052258,000055: 36,3261           02317                                    EGRESS                                
052259,000056: 36,3262           66370                           AXT,1    SSP                                   
052260,000057: 36,3263           00066                                    54D                                   
052261,000058: 36,3264           00051                                    S1                                    
052262,000059: 36,3265           00022                                    18D                                   #  IX1 = 54      S1= 18
052263,000060: 36,3266           66374                           AXT,2    SSP                                   
052264,000061: 36,3267           00022                                    18D                                   
052265,000062: 36,3270           00052                                    S2                                    
052266,000063: 36,3271           00006                                    6                                     #  IX2 = 18      S2=6
052267,000064: 36,3272           63775        Z123               VLOAD    MXV*                                  
052268,000065: 36,3273           03502                                    BVECTOR                               #  BVECTOR (0)
052269,000066: 36,3274           02467                                    W          +54D,1                     
052270,000067: 36,3275           12745                           STORE    ZI         +18D,2                     
052271,000068: 36,3276           77775                           VLOAD                                          
052272,000069: 36,3277           03510                                    BVECTOR    +6                         #  BVECTOR (1)
052273,000070: 36,3300           52717                           MXV*     VAD*                                  
052274,000071: 36,3301           02555                                    W          +108D,1                    
052275,000072: 36,3302           75032                                    ZI         +18D,2                     
052276,000073: 36,3303           12745                           STORE    ZI         +18D,2                     
052277,000074: 36,3304           77775                           VLOAD                                          
052278,000075: 36,3305           03516                                    BVECTOR    +12D                       #  BVECTOR (2)
052279,000076: 36,3306           52717                           MXV*     VAD*                                  
052280,000077: 36,3307           02643                                    W          +162D,1                    
052281,000078: 36,3310           75032                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
052282,000079: 36,3311           12745                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
052283,000080: 36,3312           77700                           TIX,1                                          
052284,000081: 36,3313           75314                                    INCOR1                                
052285,000082: 36,3314           43104        INCOR1             TIX,2    BON                                   
052286,000083: 36,3315           75272                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
052287,000084: 36,3316           02706                                    DMENFLG                               
052288,000085: 36,3317           75323                                    INCOR1A                               
052289,000086: 36,3320           77775                           VLOAD                                          
052290,000087: 36,3321           15334                                    ZEROVECS                              
052291,000088: 36,3322           02737                           STORE    ZI         +12D                       
052292,000089: 36,3323           77201        INCOR1A            SETPD    VLOAD                                 
052293,000090: 36,3324           00001                                    0                                     
052294,000091: 36,3325           02723                                    ZI                                    
052295,000092: 36,3326           47036                           VSQ      RTB                                   
052296,000093: 36,3327           45565                                    TPMODE                                
052297,000094: 36,3330           47515                           PDVL     VSQ                                   
052298,000095: 36,3331           02731                                    ZI         +6                         
052299,000096: 36,3332           76234                           RTB      TAD                                   
052300,000097: 36,3333           45565                                    TPMODE                                
052301,000098: 36,3334           47515                           PDVL     VSQ                                   
052302,000099: 36,3335           02737                                    ZI         +12D                       
052303,000100: 36,3336           76234                           RTB      TAD                                   
052304,000101: 36,3337           45565                                    TPMODE                                
052305,000102: 36,3340           77171                           TAD      AXT,2                                 
052306,000103: 36,3341           03526                                    VARIANCE                              
052307,000104: 36,3342           00000                                    0                                     
052308,000105: 36,3343           01257                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
052309,000106: 36,3344           40151                           TLOAD    BOV                                   
052310,000107: 36,3345           03526                                    VARIANCE                              #  CLEAR OVFIND
052311,000108: 36,3346           75347                                    +1                                    
052312,000109: 36,3347           01262                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
052313,000110: 36,3350           77654                           BZE                                            
052314,000111: 36,3351           75360                                    INCOR1C                               
052315,000112: 36,3352           40112        INCOR1B            SL2      BOV                                   
052316,000113: 36,3353           75360                                    INCOR1C                               
052317,000114: 36,3354           01262                           STORE    TEMPVAR                               
052318,000115: 36,3355           52114                           INCR,2   GOTO                                  
052319,000116: 36,3356           00001                           DEC      1          B-14                       
052320,000117: 36,3357           75352                                    INCOR1B                               
052321,000118: 36,3360           61551        INCOR1C            TLOAD    ROUND                                 
052322,000119: 36,3361           01257                                    TRIPA                                 
052323,000120: 36,3362           75405                           DMP      SQRT                                  
052324,000121: 36,3363           01262                                    TEMPVAR                               
052325,000122: 36,3364           76257                           SL*      TAD                                   
052326,000123: 36,3365           57576                                    0,2                                   
052327,000124: 36,3366           01257                                    TRIPA                                 
052328,000125: 36,3367           63101                           NORM     INCR,2                                
052329,000126: 36,3370           00050                                    X2                                    
052330,000127: 36,3371           77775                           DEC      -2         B-14                       
052331,000128: 36,3372           77134                           SXA,2    AXT,2                                 
052332,000129: 36,3373           02215                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
052333,000130: 36,3374           00242                                    162D                                  
052334,000131: 36,3375           40265                           BDDV     SETPD                                 
052335,000132: 36,3376           15324                                    DP1/4TH                               
052336,000133: 36,3377           00001                                    0                                     
052337,000134: 36,3400           03456                           STORE    GAMMA                                 
052338,000135: 36,3401           60351                           TLOAD    NORM                                  
052339,000136: 36,3402           01257                                    TRIPA                                 
052340,000137: 36,3403           00047                                    X1                                    
052341,000138: 36,3404           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
052342,000139: 36,3405           00155                                    MPAC                                  
052343,000140: 36,3406           03524                                    DELTAQ                                
052344,000141: 36,3407           77701                           NORM                                           
052345,000142: 36,3410           00051                                    S1                                    
052346,000143: 36,3411           70460                           XSU,1    SR1                                   
052347,000144: 36,3412           00050                                    S1                                    
052348,000145: 36,3413           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
052349,000146: 36,3414           77650                           GOTO                                           
052350,000147: 36,3415           31403                                    NEWZCOMP                              
052351,000148: 36,3416           77731                 -3        SSP                                            
052352,000149: 36,3417           00052                                    S2                                    
052353,000150: 36,3420           00066                                    54D                                   
052354,000151: 36,3421           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
052355,000152: 36,3422           02723                                    ZI                                    
052356,000153: 36,3423           75134                                    W          +162D,2                    
052357,000154: 36,3424           77206                           PUSH     VLOAD                                 
052358,000155: 36,3425           02731                                    ZI         +6                         
052359,000156: 36,3426           53303                           VXM*     VAD                                   
052360,000157: 36,3427           75112                                    W          +180D,2                    
052361,000158: 36,3430           77206                           PUSH     VLOAD                                 
052362,000159: 36,3431           02737                                    ZI         +12D                       
052363,000160: 36,3432           53303                           VXM*     VAD                                   
052364,000161: 36,3433           75070                                    W          +198D,2                    
052365,000162: 36,3434           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
052366,000163: 36,3435           75421                                    INCOR2                                
052367,000164: 36,3436           45575                           VLOAD    STADR                                 
052368,000165: 36,3437           74303                           STORE    OMEGA      +12D                       
052369,000166: 36,3440           45575                           VLOAD    STADR                                 
052370,000167: 36,3441           74311                           STORE    OMEGA      +6                         
052371,000168: 36,3442           45575                           VLOAD    STADR                                 
052372,000169: 36,3443           74317                           STORE    OMEGA                                 
052373,000170: 36,3444           77214                           BON      VLOAD                                 
052374,000171: 36,3445           02706                                    DMENFLG                               
052375,000172: 36,3446           75451                                    INCOR2AB                              
052376,000173: 36,3447           15334                                    ZEROVECS                              
052377,000174: 36,3450           03474                           STORE    OMEGA      +12D                       
052378,000175: 36,3451           66374        INCOR2AB           AXT,2    SSP                                   
052379,000176: 36,3452           00022                                    18D                                   
052380,000177: 36,3453           00052                                    S2                                    
052381,000178: 36,3454           00006                                    6                                     
052382,000179: 36,3455           77773        INCOR3             VLOAD*                                         
052383,000180: 36,3456           74275                                    OMEGA      +18D,2                     
052384,000181: 36,3457           53761                           VXSC     VSL*                                  
052385,000182: 36,3460           00001                                    0                                     #  DELTAQ/A
052386,000183: 36,3461           20201                                    0,1                                   
052387,000184: 36,3462           11301                           STORE    DELTAX     +18D,2                     
052388,000185: 36,3463           77304                           TIX,2    VLOAD                                 
052389,000186: 36,3464           75455                                    INCOR3                                
052390,000187: 36,3465           01265                                    DELTAX     +6                         
052391,000188: 36,3466           77732                           VSL3                                           
052392,000189: 36,3467           01265                           STORE    DELTAX     +6                         
052393,000190: 36,3470           77650                           GOTO                                           
052394,000191: 36,3471           02317                                    EGRESS                                
052395,000192: 
052396,000193:                                                                                                  #   INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
052397,000194:                                                                                                  #  ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
052398,000195:                                                                                                  #  LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
052399,000196: 
052400,000197:                                                                                                  #  INPUT
052401,000198:                                                                                                  #        PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
052402,000199:                                                                                                  #        VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
052403,000200:                                                                                                  #        W = ERROR TRANSITION MATRIX
052404,000201:                                                                                                  #        DELTAX = COMPUTED STATE VECTOR DEVIATIONS
052405,000202:                                                                                                  #        DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
052406,000203:                                                                                                  #        GAMMA = SCALAR FOR INCORPORATION
052407,000204:                                                                                                  #        ZI = VECTOR USED IN INCORPORATION
052408,000205:                                                                                                  #        OMEGA = WEIGHTING VECTOR
052409,000206: 
052410,000207:                                                                                                  #  OUTPUT
052411,000208:                                                                                                  #        UPDATED PERMANENT STATE VECTOR
052412,000209: 
052413,000210:                                                                                                  #  CALLING SEQUENCE
052414,000211:                                                                                                  #        L       CALL    INCORP2
052415,000212: 
052416,000213:                                                                                                  #  NORMAL EXIT
052417,000214:                                                                                                  #        L+1 OF CALLING SEQUENCE
052418,000215: 
052419,000216: 
052420,000217: 36,2000                                           SETLOC   MEASINC1                              
052421,000218: 36,2000                                           BANK                                           
052422,000219: 
052423,000220: 36,3472                                           COUNT*   $$/INCOR                              
052424,000221: 
052425,000222: 36,3472           45020        INCORP2            STQ      CALL                                  
052426,000223: 36,3473           02317                                    EGRESS                                
052427,000224: 36,3474           27446                                    INTSTALL                              
052428,000225: 36,3475           74375                           VLOAD    VXSC                                  #  CALC. GAMMA*OMEGA1,2,3
052429,000226: 36,3476           03460                                    OMEGA                                 
052430,000227: 36,3477           03456                                    GAMMA                                 
052431,000228: 36,3500           26643                           STOVL    OMEGAM1                               
052432,000229: 36,3501           03466                                    OMEGA      +6                         
052433,000230: 36,3502           77761                           VXSC                                           
052434,000231: 36,3503           03456                                    GAMMA                                 
052435,000232: 36,3504           26651                           STOVL    OMEGAM2                               
052436,000233: 36,3505           03474                                    OMEGA      +12D                       
052437,000234: 36,3506           77761                           VXSC                                           
052438,000235: 36,3507           03456                                    GAMMA                                 
052439,000236: 36,3510           02657                           STORE    OMEGAM3                               
052440,000237: 36,3511           77776                           EXIT                                           
052441,000238: 36,3512           33773                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
052442,000239: 36,3513           55252                           TS       WIXA                                  
052443,000240: 36,3514           55253                           TS       WIXB                                  
052444,000241: 36,3515           35035                           CAF      ZERO                                  
052445,000242: 36,3516           55254                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
052446,000243: 36,3517           55255                           TS       ZIXB                                  
052447,000244: 36,3520           05426        FAZA               TC       PHASCHNG                              
052448,000245: 36,3521           04022                           OCT      04022                                 
052449,000246: 36,3522           05562                           TC       UPFLAG                                
052450,000247: 36,3523           00236                           ADRES    REINTFLG                              
052451,000248: 36,3524           31253        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
052452,000249: 36,3525           55252                           TS       WIXA                                  #  TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
052453,000250: 36,3526           31255                           CA       ZIXB                                  
052454,000251: 36,3527           55254                           TS       ZIXA                                  
052455,000252: 36,3530           06006                           TC       INTPRET                               
052456,000253: 36,3531           73150                           LXA,1    LXA,2                                 
052457,000254: 36,3532           01252                                    WIXA                                  
052458,000255: 36,3533           01254                                    ZIXA                                  
052459,000256: 36,3534           70731                           SSP      DLOAD*                                
052460,000257: 36,3535           00051                                    S1                                    
052461,000258: 36,3536           00006                                    6                                     
052462,000259: 36,3537           75054                                    ZI,2                                  
052463,000260: 36,3540           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
052464,000261: 36,3541           00052                                    S2                                    
052465,000262: 36,3542           65161                           VXSC     XCHX,2                                
052466,000263: 36,3543           02643                                    OMEGAM1                               
052467,000264: 36,3544           00051                                    S2                                    
052468,000265: 36,3545           57144                           LXC,2    XAD,2                                 
052469,000266: 36,3546           00047                                    X2                                    
052470,000267: 36,3547           02215                                    NORMGAM                               
052471,000268: 36,3550           65057                           VSL*     XCHX,2                                
052472,000269: 36,3551           57576                                    0,2                                   
052473,000270: 36,3552           00051                                    S2                                    
052474,000271: 36,3553           77653                           VAD*                                           
052475,000272: 36,3554           02467                                    W          +54D,1                     
052476,000273: 36,3555           02665                           STORE    HOLDW                                 
052477,000274: 36,3556           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
052478,000275: 36,3557           75054                                    ZI,2                                  
052479,000276: 36,3560           74301                           NORM     VXSC                                  
052480,000277: 36,3561           00052                                    S2                                    
052481,000278: 36,3562           02651                                    OMEGAM2                               
052482,000279: 36,3563           71124                           XCHX,2   LXC,2                                 
052483,000280: 36,3564           00051                                    S2                                    
052484,000281: 36,3565           00047                                    X2                                    
052485,000282: 36,3566           53674                           XAD,2    VSL*                                  
052486,000283: 36,3567           02215                                    NORMGAM                               
052487,000284: 36,3570           57576                                    0,2                                   
052488,000285: 36,3571           52724                           XCHX,2   VAD*                                  
052489,000286: 36,3572           00051                                    S2                                    
052490,000287: 36,3573           02555                                    W          +108D,1                    
052491,000288: 36,3574           02673                           STORE    HOLDW      +6                         
052492,000289: 36,3575           77614                           BOFF                                           
052493,000290: 36,3576           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
052494,000291: 36,3577           75617                                    FAZB                                  
052495,000292: 36,3600           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
052496,000293: 36,3601           75054                                    ZI,2                                  
052497,000294: 36,3602           74301                           NORM     VXSC                                  
052498,000295: 36,3603           00052                                    S2                                    
052499,000296: 36,3604           02657                                    OMEGAM3                               
052500,000297: 36,3605           71124                           XCHX,2   LXC,2                                 
052501,000298: 36,3606           00051                                    S2                                    
052502,000299: 36,3607           00047                                    X2                                    
052503,000300: 36,3610           53674                           XAD,2    VSL*                                  
052504,000301: 36,3611           02215                                    NORMGAM                               
052505,000302: 36,3612           57576                                    0,2                                   
052506,000303: 36,3613           52724                           XCHX,2   VAD*                                  
052507,000304: 36,3614           00051                                    S2                                    
052508,000305: 36,3615           02643                                    W          +162D,1                    
052509,000306: 36,3616           02701                           STORE    HOLDW      +12D                       
052510,000307: 36,3617           77624        FAZB               CALL                                           
052511,000308: 36,3620           56751                                    GRP2PC                                
052512,000309: 36,3621           77776                           EXIT                                           
052513,000310: 36,3622           31252        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
052514,000311: 36,3623           63774                           AD       6DD                                   #        TEMP REG TO PERM W MATRIX
052515,000312: 36,3624           55253                           TS       WIXB                                  
052516,000313: 36,3625           31254                           CA       ZIXA                                  
052517,000314: 36,3626           67715                           AD       MINUS2                                
052518,000315: 36,3627           55255                           TS       ZIXB                                  
052519,000316: 36,3630           06006                           TC       INTPRET                               
052520,000317: 36,3631           66350                           LXA,1    SSP                                   
052521,000318: 36,3632           01252                                    WIXA                                  
052522,000319: 36,3633           00051                                    S1                                    
052523,000320: 36,3634           00006                                    6                                     
052524,000321: 36,3635           77775                           VLOAD                                          
052525,000322: 36,3636           02665                                    HOLDW                                 
052526,000323: 36,3637           06467                           STORE    W          +54D,1                     
052527,000324: 36,3640           77775                           VLOAD                                          
052528,000325: 36,3641           02673                                    HOLDW      +6                         
052529,000326: 36,3642           06555                           STORE    W          +108D,1                    
052530,000327: 36,3643           77214                           BOFF     VLOAD                                 
052531,000328: 36,3644           02746                                    DMENFLG                               
052532,000329: 36,3645           75655                                    FAZB5                                 
052533,000330: 36,3646           02701                                    HOLDW      +12D                       
052534,000331: 36,3647           06643                           STORE    W          +162D,1                    
052535,000332: 36,3650           52100        FAZB2              TIX,1    GOTO                                  
052536,000333: 36,3651           75653                                    +2                                    
052537,000334: 36,3652           75663                                    FAZC                                  #  DONE WITH W MATRIX.  UPDATE STATE VECTOR
052538,000335: 36,3653           77634                           RTB                                            
052539,000336: 36,3654           75520                                    FAZA                                  
052540,000337: 36,3655           43335        FAZB5              SLOAD    DAD                                   
052541,000338: 36,3656           01256                                    ZIXB                                  
052542,000339: 36,3657           35776                                    12DD                                  
052543,000340: 36,3660           52030                           BHIZ     GOTO                                  
052544,000341: 36,3661           75663                                    FAZC                                  
052545,000342: 36,3662           75650                                    FAZB2                                 
052546,000343: 36,3663           77624        FAZC               CALL                                           
052547,000344: 36,3664           56751                                    GRP2PC                                
052548,000345: 36,3665           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
052549,000346: 36,3666           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
052550,000347: 36,3667           01273                                    DELTAX     +12D                       #  INCORPORATION FOR X789
052551,000348: 36,3670           03450                           STORE    TX789                                 
052552,000349: 36,3671           47014                           BON      RTB                                   
052553,000350: 36,3672           00707                                    VEHUPFLG                              
052554,000351: 36,3673           75763                                    DOCSM                                 
052555,000352: 36,3674           27023                                    MOVEPLEM                              
052556,000353: 36,3675           77004        FAZAB              BOVB     AXT,2                                 
052557,000354: 36,3676           57353                                    TCDANZIG                              
052558,000355: 36,3677           00000                                    0                                     
052559,000356: 36,3700           77014                           BOFF     AXT,2                                 
052560,000357: 36,3701           04343                                    MOONTHIS                              
052561,000358: 36,3702           75704                                    +2                                    
052562,000359: 36,3703           00002                                    2                                     
052563,000360: 36,3704           53775                           VLOAD    VSR*                                  
052564,000361: 36,3705           01257                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
052565,000362: 36,3706           57205                                    0          -7,2                       
052566,000363: 36,3707           40055                           VAD      BOV                                   
052567,000364: 36,3710           01521                                    TDELTAV                               
052568,000365: 36,3711           75723                                    FAZAB1                                
052569,000366: 36,3712           25521                           STOVL    TDELTAV                               
052570,000367: 36,3713           01265                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
052571,000368: 36,3714           53257                           VSR*     VAD                                   
052572,000369: 36,3715           57202                                    0          -4,2                       
052573,000370: 36,3716           01527                                    TNUV                                  
052574,000371: 36,3717           77600                           BOV                                            
052575,000372: 36,3720           75727                                    FAZAB2                                
052576,000373: 36,3721           35527                           STCALL   TNUV                                  
052577,000374: 36,3722           75736                                    FAZAB3                                
052578,000375: 36,3723           53375        FAZAB1             VLOAD    VAD                                   
052579,000376: 36,3724           01535                                    RCV                                   
052580,000377: 36,3725           01257                                    DELTAX                                
052581,000378: 36,3726           01535                           STORE    RCV                                   
052582,000379: 36,3727           53375        FAZAB2             VLOAD    VAD                                   
052583,000380: 36,3730           01543                                    VCV                                   
052584,000381: 36,3731           01265                                    DELTAX     +6                         
052585,000382: 36,3732           01543                           STORE    VCV                                   
052586,000383: 36,3733           45134                           SXA,2    CALL                                  
052587,000384: 36,3734           02150                                    PBODY                                 
052588,000385: 36,3735           23403                                    RECTIFY                               
052589,000386: 36,3736           77624        FAZAB3             CALL                                           
052590,000387: 36,3737           56751                                    GRP2PC                                
052591,000388: 36,3740           47014                           BON      RTB                                   
052592,000389: 36,3741           00707                                    VEHUPFLG                              
052593,000390: 36,3742           75766                                    DOCSM1                                
052594,000391: 36,3743           27002                                    MOVEALEM                              
052595,000392: 36,3744           77624                           CALL                                           
052596,000393: 36,3745           20263                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
052597,000394: 36,3746           77624        FAZAB4             CALL                                           
052598,000395: 36,3747           56751                                    GRP2PC                                #  PHASE CHANGE
052599,000396: 36,3750           77214                           BOFF     VLOAD                                 
052600,000397: 36,3751           02746                                    DMENFLG                               
052601,000398: 36,3752           75755                                    FAZAB5                                #  6 DIMENSIONAL
052602,000399: 36,3753           03450                                    TX789                                 #  9 DIMENSIONAL
052603,000400: 36,3754           01701                           STORE    X789                                  
052604,000401: 36,3755           66150        FAZAB5             LXA,1    SXA,1                                 
052605,000402: 36,3756           02317                                    EGRESS                                
052606,000403: 36,3757           00052                                    QPRET                                 
052607,000404: 36,3760           77776                           EXIT                                           
052608,000405: 36,3761           04715                           TC       POSTJUMP                              #  EXIT
052609,000406: 36,3762           27463                           CADR     INTWAKE                               
052610,000407: 36,3763           52034        DOCSM              RTB      GOTO                                  
052611,000408: 36,3764           26756                                    MOVEPCSM                              
052612,000409: 36,3765           75675                                    FAZAB                                 
052613,000410: 36,3766           45034        DOCSM1             RTB      CALL                                  
052614,000411: 36,3767           26727                                    MOVEACSM                              
052615,000412: 36,3770           20237                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
052616,000413: 36,3771           77650                           GOTO                                           
052617,000414: 36,3772           75746                                    FAZAB4                                
052618,000415: 36,3773  26,3333               ZEROO              =        ZEROVECS                              
052619,000416: 36,3773           00066        54DD               DEC      54         B-14                       
052620,000417: 36,3774           77771        6DD                DEC      -6         B-14                       
052621,000418: 36,3775           00014        12DD               DEC      12         B-14                       
052622,000419: 14,2000                                           SETLOC   MEASINC2                              
052623,000420: 14,2000                                           BANK                                           
052624,000421: 14,3403                                           COUNT*   $$/INCOR                              
052625,000422: 
052626,000423: 14,3403           51575        NEWZCOMP           VLOAD    ABVAL                                 
052627,000424: 14,3404           02723                                    ZI                                    
052628,000425: 14,3405           24045                           STOVL    NORMZI                                
052629,000426: 14,3406           02731                                    ZI         +6                         
052630,000427: 14,3407           41446                           ABVAL    PUSH                                  
052631,000428: 14,3410           50025                           DSU      BMN                                   
052632,000429: 14,3411           00045                                    NORMZI                                
052633,000430: 14,3412           31415                                    +3                                    
052634,000431: 14,3413           45545                           DLOAD    STADR                                 
052635,000432: 14,3414           77732                           STORE    NORMZI                                
052636,000433: 14,3415           51575                           VLOAD    ABVAL                                 
052637,000434: 14,3416           02737                                    ZI         +12D                       
052638,000435: 14,3417           45206                           PUSH     DSU                                   
052639,000436: 14,3420           00045                                    NORMZI                                
052640,000437: 14,3421           71240                           BMN      DLOAD                                 
052641,000438: 14,3422           73635                                    NEWZCMP1                              
052642,000439: 14,3423           77626                           STADR                                          
052643,000440: 14,3424           43732                           STCALL   NORMZI                                #  LARGEST ABVAL
052644,000441: 14,3425           73635                                    NEWZCMP1                              
052645,000442: 
052646,000443: 35,2000                                           SETLOC   MEASINC3                              
052647,000444: 35,2000                                           BANK                                           
052648,000445: 
052649,000446: 35,3635           66145        NEWZCMP1           DLOAD    SXA,1                                 
052650,000447: 35,3636           00045                                    NORMZI                                
052651,000448: 35,3637           00044                                    NORMZI                                #  SAVE X1
052652,000449: 35,3640           62101                           NORM     INCR,1                                
052653,000450: 35,3641           00047                                    X1                                    
052654,000451: 35,3642           00002                           DEC      2          B-14                       
052655,000452: 35,3643           53775                           VLOAD    VSL*                                  
052656,000453: 35,3644           02723                                    ZI                                    
052657,000454: 35,3645           20201                                    0,1                                   
052658,000455: 35,3646           26723                           STOVL    ZI                                    
052659,000456: 35,3647           02731                                    ZI         +6                         
052660,000457: 35,3650           77657                           VSL*                                           
052661,000458: 35,3651           20201                                    0,1                                   
052662,000459: 35,3652           26731                           STOVL    ZI         +6                         
052663,000460: 35,3653           02737                                    ZI         +12D                       
052664,000461: 35,3654           66057                           VSL*     SXA,1                                 
052665,000462: 35,3655           20201                                    0,1                                   
052666,000463: 35,3656           00045                                    NORMZI     +1                         #  SAVE SHIFT
052667,000464: 35,3657           02737                           STORE    ZI         +12D                       
052668,000465: 35,3660           54150                           LXA,1    XSU,1                                 
052669,000466: 35,3661           02215                                    NORMGAM                               
052670,000467: 35,3662           00045                                    NORMZI     +1                         
052671,000468: 35,3663           77660                           XSU,1                                          
052672,000469: 35,3664           00045                                    NORMZI     +1                         
052673,000470: 35,3665           70130                           SXA,1    LXC,1                                 
052674,000471: 35,3666           02215                                    NORMGAM                               
052675,000472: 35,3667           00045                                    NORMZI     +1                         
052676,000473: 35,3670           40270                           XAD,1    SETPD                                 
052677,000474: 35,3671           00044                                    NORMZI                                
052678,000475: 35,3672           00003                                    2D                                    
052679,000476: 35,3673           77650                           GOTO                                           
052680,000477: 35,3674           75416                                    INCOR2     -3                         
052681,000478: 35,3675                        NORMZI             =        36D                                   

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