Source Code

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

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. 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 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.

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

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