Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

054527,000002:                                                                                                  ## Copyright:   Public domain.
054528,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
054529,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
054530,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
054531,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
054532,000007:                                                                                                  ## Assembler:   yaYUL
054533,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
054534,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
054535,000010:                                                                                                  ## Pages:       1252-1261
054536,000011:                                                                                                  ## Mod history: 2009-05-14 RSB  Adapted from the Colossus249/ file of the
054537,000012:                                                                                                  ##                              same name, using Comanche055 page images.
054538,000013:                                                                                                  ##              2010-08-24 JL   Fixed some indentation.
054539,000014:                                                                                                  ##              2016-12-21 RSB  Proofed comment text using octopus/ProoferComments
054540,000015:                                                                                                  ##                              and corrected the errors found.
054541,000016:                                                                                                  ##              2017-01-15 RSB  Fixed comment-text errors identified in 
054542,000017:                                                                                                  ##                              diff'ing against Colossus 249.
054543,000018:                                                                                                  ##              2021-05-30 ABS  ZEROD -> ZEROO
054544,000019:                                                                                                  ##
054545,000020:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
054546,000021:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
054547,000022:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
054548,000023:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
054549,000024:                                                                                                  ## consequent reduction in image quality as well) are available online at
054550,000025:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
054551,000026:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
054552,000027:                                                                                                  ## (much) higher-quality images which Paul actually created.
054553,000028:                                                                                                  ##
054554,000029:                                                                                                  ## Notations on the hardcopy document read, in part:
054555,000030:                                                                                                  ##
054556,000031:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
054557,000032:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
054558,000033:                                                                                                  ##
054559,000034:                                                                                                  ##      This AGC program shall also be referred to as
054560,000035:                                                                                                  ##                      Colossus 2A
054561,000036: 

Page 1252

054563,000038:                                                                                                  #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
054564,000039:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
054565,000040:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
054566,000041:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
054567,000042:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
054568,000043:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
054569,000044:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
054570,000045: 
054571,000046:                                                                                                  #  INPUT
054572,000047:                                                                                                  #         DMENFLG = 0 6DIMENSIONAL BVECTOR  1= 9DIMENSIONAL
054573,000048:                                                                                                  #               W = ERROR TRANSITION MATRIX 6X6 OR 9X9
054574,000049:                                                                                                  #        VARIANCE = VARIANCE (SCALAR)
054575,000050:                                                                                                  #          DELTAQ = MEASURED DEVIATION (SCALAR)
054576,000051:                                                                                                  #         BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
054577,000052: 
054578,000053:                                                                                                  #  OUTPUT
054579,000054:                                                                                                  #          DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
054580,000055:                                                                                                  #              ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
054581,000056:                                                                                                  #           GAMMA = SCALAR
054582,000057:                                                                                                  #           OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
054583,000058: 
054584,000059:                                                                                                  #  CALLING SEQUENCE
054585,000060:                                                                                                  #        L       CALL    INCORP1
054586,000061: 
054587,000062:                                                                                                  #  NORMAL EXIT
054588,000063:                                                                                                  #        L+1 OF CALLING SEQUENCE
054589,000064: 
054590,000065: 37,3773                                           BANK     37                                    
054591,000066: 36,2000                                           SETLOC   MEASINC                               
054592,000067: 36,2000                                           BANK                                           
054593,000068: 
054594,000069: 36,3254                                           COUNT*   $$/INCOR                              
054595,000070: 
054596,000071: 36,3254  E5,1400                                  EBANK=   W                                     
054597,000072: 
054598,000073: 36,3254           77620        INCORP1            STQ                                            
054599,000074: 36,3255           02317                                    EGRESS                                
054600,000075: 36,3256           66370                           AXT,1    SSP                                   
054601,000076: 36,3257           00066                                    54D                                   
054602,000077: 36,3260           00051                                    S1                                    
054603,000078: 36,3261           00022                                    18D                                   #  IX1 = 54      S1= 18
054604,000079: 36,3262           66374                           AXT,2    SSP                                   
054605,000080: 36,3263           00022                                    18D                                   
054606,000081: 36,3264           00052                                    S2                                    
054607,000082: 36,3265           00006                                    6                                     #  IX2 = 18      S2=6
054608,000083: 36,3266           63775        Z123               VLOAD    MXV*                                  
054609,000084: 36,3267           03502                                    BVECTOR                               #  BVECTOR (0)
054610,000085: 36,3270           02467                                    W          +54D,1                     
054611,000086: 36,3271           12745                           STORE    ZI         +18D,2                     
054612,000087: 36,3272           77775                           VLOAD                                          
054613,000088: 36,3273           03510                                    BVECTOR    +6                         #  BVECTOR (1)

Page 1253

054615,000090: 36,3274           52717                           MXV*     VAD*                                  
054616,000091: 36,3275           02555                                    W          +108D,1                    
054617,000092: 36,3276           75032                                    ZI         +18D,2                     
054618,000093: 36,3277           12745                           STORE    ZI         +18D,2                     
054619,000094: 36,3300           77775                           VLOAD                                          
054620,000095: 36,3301           03516                                    BVECTOR    +12D                       #  BVECTOR (2)
054621,000096: 36,3302           52717                           MXV*     VAD*                                  
054622,000097: 36,3303           02643                                    W          +162D,1                    
054623,000098: 36,3304           75032                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
054624,000099: 36,3305           12745                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
054625,000100: 36,3306           77700                           TIX,1                                          
054626,000101: 36,3307           75310                                    INCOR1                                
054627,000102: 36,3310           43104        INCOR1             TIX,2    BON                                   
054628,000103: 36,3311           75266                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
054629,000104: 36,3312           02706                                    DMENFLG                               
054630,000105: 36,3313           75317                                    INCOR1A                               
054631,000106: 36,3314           77775                           VLOAD                                          
054632,000107: 36,3315           15335                                    ZEROVECS                              
054633,000108: 36,3316           02737                           STORE    ZI         +12D                       
054634,000109: 36,3317           77201        INCOR1A            SETPD    VLOAD                                 
054635,000110: 36,3320           00001                                    0                                     
054636,000111: 36,3321           02723                                    ZI                                    
054637,000112: 36,3322           47036                           VSQ      RTB                                   
054638,000113: 36,3323           45565                                    TPMODE                                
054639,000114: 36,3324           47515                           PDVL     VSQ                                   
054640,000115: 36,3325           02731                                    ZI         +6                         
054641,000116: 36,3326           76234                           RTB      TAD                                   
054642,000117: 36,3327           45565                                    TPMODE                                
054643,000118: 36,3330           47515                           PDVL     VSQ                                   
054644,000119: 36,3331           02737                                    ZI         +12D                       
054645,000120: 36,3332           76234                           RTB      TAD                                   
054646,000121: 36,3333           45565                                    TPMODE                                
054647,000122: 36,3334           77171                           TAD      AXT,2                                 
054648,000123: 36,3335           03526                                    VARIANCE                              
054649,000124: 36,3336           00000                                    0                                     
054650,000125: 36,3337           01257                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
054651,000126: 36,3340           40151                           TLOAD    BOV                                   
054652,000127: 36,3341           03526                                    VARIANCE                              #  CLEAR OVFIND
054653,000128: 36,3342           75343                                    +1                                    
054654,000129: 36,3343           01262                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
054655,000130: 36,3344           77654                           BZE                                            
054656,000131: 36,3345           75354                                    INCOR1C                               
054657,000132: 36,3346           40112        INCOR1B            SL2      BOV                                   
054658,000133: 36,3347           75354                                    INCOR1C                               
054659,000134: 36,3350           01262                           STORE    TEMPVAR                               
054660,000135: 36,3351           52114                           INCR,2   GOTO                                  
054661,000136: 36,3352           00001                           DEC      1          B-14                       
054662,000137: 36,3353           75346                                    INCOR1B                               
054663,000138: 36,3354           61551        INCOR1C            TLOAD    ROUND                                 
054664,000139: 36,3355           01257                                    TRIPA                                 

Page 1254

054666,000141: 36,3356           75405                           DMP      SQRT                                  
054667,000142: 36,3357           01262                                    TEMPVAR                               
054668,000143: 36,3360           76257                           SL*      TAD                                   
054669,000144: 36,3361           57576                                    0,2                                   
054670,000145: 36,3362           01257                                    TRIPA                                 
054671,000146: 36,3363           63101                           NORM     INCR,2                                
054672,000147: 36,3364           00050                                    X2                                    
054673,000148: 36,3365           77775                           DEC      -2         B-14                       
054674,000149: 36,3366           77134                           SXA,2    AXT,2                                 
054675,000150: 36,3367           02215                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
054676,000151: 36,3370           00242                                    162D                                  
054677,000152: 36,3371           40265                           BDDV     SETPD                                 
054678,000153: 36,3372           15325                                    DP1/4TH                               
054679,000154: 36,3373           00001                                    0                                     
054680,000155: 36,3374           03456                           STORE    GAMMA                                 
054681,000156: 36,3375           60351                           TLOAD    NORM                                  
054682,000157: 36,3376           01257                                    TRIPA                                 
054683,000158: 36,3377           00047                                    X1                                    
054684,000159: 36,3400           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
054685,000160: 36,3401           00155                                    MPAC                                  
054686,000161: 36,3402           03524                                    DELTAQ                                
054687,000162: 36,3403           77701                           NORM                                           
054688,000163: 36,3404           00051                                    S1                                    
054689,000164: 36,3405           70460                           XSU,1    SR1                                   
054690,000165: 36,3406           00050                                    S1                                    
054691,000166: 36,3407           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
054692,000167: 36,3410           77650                           GOTO                                           
054693,000168: 36,3411           31377                                    NEWZCOMP                              
054694,000169: 36,3412           77731                 -3        SSP                                            
054695,000170: 36,3413           00052                                    S2                                    
054696,000171: 36,3414           00066                                    54D                                   
054697,000172: 36,3415           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
054698,000173: 36,3416           02723                                    ZI                                    
054699,000174: 36,3417           75134                                    W          +162D,2                    
054700,000175: 36,3420           77206                           PUSH     VLOAD                                 
054701,000176: 36,3421           02731                                    ZI         +6                         
054702,000177: 36,3422           53303                           VXM*     VAD                                   
054703,000178: 36,3423           75112                                    W          +180D,2                    
054704,000179: 36,3424           77206                           PUSH     VLOAD                                 
054705,000180: 36,3425           02737                                    ZI         +12D                       
054706,000181: 36,3426           53303                           VXM*     VAD                                   
054707,000182: 36,3427           75070                                    W          +198D,2                    
054708,000183: 36,3430           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
054709,000184: 36,3431           75415                                    INCOR2                                
054710,000185: 36,3432           45575                           VLOAD    STADR                                 
054711,000186: 36,3433           74303                           STORE    OMEGA      +12D                       
054712,000187: 36,3434           45575                           VLOAD    STADR                                 
054713,000188: 36,3435           74311                           STORE    OMEGA      +6                         
054714,000189: 36,3436           45575                           VLOAD    STADR                                 
054715,000190: 36,3437           74317                           STORE    OMEGA                                 

Page 1255

054717,000192: 36,3440           77214                           BON      VLOAD                                 
054718,000193: 36,3441           02706                                    DMENFLG                               
054719,000194: 36,3442           75445                                    INCOR2AB                              
054720,000195: 36,3443           15335                                    ZEROVECS                              
054721,000196: 36,3444           03474                           STORE    OMEGA      +12D                       
054722,000197: 36,3445           66374        INCOR2AB           AXT,2    SSP                                   
054723,000198: 36,3446           00022                                    18D                                   
054724,000199: 36,3447           00052                                    S2                                    
054725,000200: 36,3450           00006                                    6                                     
054726,000201: 36,3451           77773        INCOR3             VLOAD*                                         
054727,000202: 36,3452           74275                                    OMEGA      +18D,2                     
054728,000203: 36,3453           53761                           VXSC     VSL*                                  
054729,000204: 36,3454           00001                                    0                                     #  DELTAQ/A
054730,000205: 36,3455           20201                                    0,1                                   
054731,000206: 36,3456           11301                           STORE    DELTAX     +18D,2                     
054732,000207: 36,3457           77304                           TIX,2    VLOAD                                 
054733,000208: 36,3460           75451                                    INCOR3                                
054734,000209: 36,3461           01265                                    DELTAX     +6                         
054735,000210: 36,3462           77732                           VSL3                                           
054736,000211: 36,3463           01265                           STORE    DELTAX     +6                         
054737,000212: 36,3464           77650                           GOTO                                           
054738,000213: 36,3465           02317                                    EGRESS                                
054739,000214: 

Page 1256

054741,000216:                                                                                                  #   INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
054742,000217:                                                                                                  #  ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
054743,000218:                                                                                                  #  LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
054744,000219: 
054745,000220:                                                                                                  #  INPUT
054746,000221:                                                                                                  #        PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
054747,000222:                                                                                                  #        VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
054748,000223:                                                                                                  #        W = ERROR TRANSITION MATRIX
054749,000224:                                                                                                  #        DELTAX = COMPUTED STATE VECTOR DEVIATIONS
054750,000225:                                                                                                  #        DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
054751,000226:                                                                                                  #        GAMMA = SCALAR FOR INCORPORATION
054752,000227:                                                                                                  #        ZI = VECTOR USED IN INCORPORATION
054753,000228:                                                                                                  #        OMEGA = WEIGHTING VECTOR
054754,000229: 
054755,000230:                                                                                                  #  OUTPUT
054756,000231:                                                                                                  #        UPDATED PERMANENT STATE VECTOR
054757,000232: 
054758,000233:                                                                                                  #  CALLING SEQUENCE
054759,000234:                                                                                                  #        L       CALL    INCORP2
054760,000235: 
054761,000236:                                                                                                  #  NORMAL EXIT
054762,000237:                                                                                                  #        L+1 OF CALLING SEQUENCE
054763,000238: 
054764,000239: 
054765,000240: 36,2000                                           SETLOC   MEASINC1                              
054766,000241: 36,2000                                           BANK                                           
054767,000242: 
054768,000243: 36,3466                                           COUNT*   $$/INCOR                              
054769,000244: 
054770,000245: 36,3466           45020        INCORP2            STQ      CALL                                  
054771,000246: 36,3467           02317                                    EGRESS                                
054772,000247: 36,3470           27442                                    INTSTALL                              
054773,000248: 36,3471           74375                           VLOAD    VXSC                                  #  CALC. GAMMA*OMEGA1,2,3
054774,000249: 36,3472           03460                                    OMEGA                                 
054775,000250: 36,3473           03456                                    GAMMA                                 
054776,000251: 36,3474           26643                           STOVL    OMEGAM1                               
054777,000252: 36,3475           03466                                    OMEGA      +6                         
054778,000253: 36,3476           77761                           VXSC                                           
054779,000254: 36,3477           03456                                    GAMMA                                 
054780,000255: 36,3500           26651                           STOVL    OMEGAM2                               
054781,000256: 36,3501           03474                                    OMEGA      +12D                       
054782,000257: 36,3502           77761                           VXSC                                           
054783,000258: 36,3503           03456                                    GAMMA                                 
054784,000259: 36,3504           02657                           STORE    OMEGAM3                               
054785,000260: 36,3505           77776                           EXIT                                           
054786,000261: 36,3506           33767                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
054787,000262: 36,3507           55252                           TS       WIXA                                  
054788,000263: 36,3510           55253                           TS       WIXB                                  
054789,000264: 36,3511           35021                           CAF      ZERO                                  
054790,000265: 36,3512           55254                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
054791,000266: 36,3513           55255                           TS       ZIXB                                  
054792,000267: 36,3514           05412        FAZA               TC       PHASCHNG                              

Page 1257

054794,000269: 36,3515           04022                           OCT      04022                                 
054795,000270: 36,3516           05546                           TC       UPFLAG                                
054796,000271: 36,3517           00236                           ADRES    REINTFLG                              
054797,000272: 36,3520           31253        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
054798,000273: 36,3521           55252                           TS       WIXA                                  #  TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
054799,000274: 36,3522           31255                           CA       ZIXB                                  
054800,000275: 36,3523           55254                           TS       ZIXA                                  
054801,000276: 36,3524           06006                           TC       INTPRET                               
054802,000277: 36,3525           73150                           LXA,1    LXA,2                                 
054803,000278: 36,3526           01252                                    WIXA                                  
054804,000279: 36,3527           01254                                    ZIXA                                  
054805,000280: 36,3530           70731                           SSP      DLOAD*                                
054806,000281: 36,3531           00051                                    S1                                    
054807,000282: 36,3532           00006                                    6                                     
054808,000283: 36,3533           75054                                    ZI,2                                  
054809,000284: 36,3534           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
054810,000285: 36,3535           00052                                    S2                                    
054811,000286: 36,3536           65161                           VXSC     XCHX,2                                
054812,000287: 36,3537           02643                                    OMEGAM1                               
054813,000288: 36,3540           00051                                    S2                                    
054814,000289: 36,3541           57144                           LXC,2    XAD,2                                 
054815,000290: 36,3542           00047                                    X2                                    
054816,000291: 36,3543           02215                                    NORMGAM                               
054817,000292: 36,3544           65057                           VSL*     XCHX,2                                
054818,000293: 36,3545           57576                                    0,2                                   
054819,000294: 36,3546           00051                                    S2                                    
054820,000295: 36,3547           77653                           VAD*                                           
054821,000296: 36,3550           02467                                    W          +54D,1                     
054822,000297: 36,3551           02665                           STORE    HOLDW                                 
054823,000298: 36,3552           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
054824,000299: 36,3553           75054                                    ZI,2                                  
054825,000300: 36,3554           74301                           NORM     VXSC                                  
054826,000301: 36,3555           00052                                    S2                                    
054827,000302: 36,3556           02651                                    OMEGAM2                               
054828,000303: 36,3557           71124                           XCHX,2   LXC,2                                 
054829,000304: 36,3560           00051                                    S2                                    
054830,000305: 36,3561           00047                                    X2                                    
054831,000306: 36,3562           53674                           XAD,2    VSL*                                  
054832,000307: 36,3563           02215                                    NORMGAM                               
054833,000308: 36,3564           57576                                    0,2                                   
054834,000309: 36,3565           52724                           XCHX,2   VAD*                                  
054835,000310: 36,3566           00051                                    S2                                    
054836,000311: 36,3567           02555                                    W          +108D,1                    
054837,000312: 36,3570           02673                           STORE    HOLDW      +6                         
054838,000313: 36,3571           77614                           BOFF                                           
054839,000314: 36,3572           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
054840,000315: 36,3573           75613                                    FAZB                                  
054841,000316: 36,3574           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
054842,000317: 36,3575           75054                                    ZI,2                                  
054843,000318: 36,3576           74301                           NORM     VXSC                                  

Page 1258

054845,000320: 36,3577           00052                                    S2                                    
054846,000321: 36,3600           02657                                    OMEGAM3                               
054847,000322: 36,3601           71124                           XCHX,2   LXC,2                                 
054848,000323: 36,3602           00051                                    S2                                    
054849,000324: 36,3603           00047                                    X2                                    
054850,000325: 36,3604           53674                           XAD,2    VSL*                                  
054851,000326: 36,3605           02215                                    NORMGAM                               
054852,000327: 36,3606           57576                                    0,2                                   
054853,000328: 36,3607           52724                           XCHX,2   VAD*                                  
054854,000329: 36,3610           00051                                    S2                                    
054855,000330: 36,3611           02643                                    W          +162D,1                    
054856,000331: 36,3612           02701                           STORE    HOLDW      +12D                       
054857,000332: 36,3613           77624        FAZB               CALL                                           
054858,000333: 36,3614           56750                                    GRP2PC                                
054859,000334: 36,3615           77776                           EXIT                                           
054860,000335: 36,3616           31252        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
054861,000336: 36,3617           63770                           AD       6DD                                   #        TEMP REG TO PERM W MATRIX
054862,000337: 36,3620           55253                           TS       WIXB                                  
054863,000338: 36,3621           31254                           CA       ZIXA                                  
054864,000339: 36,3622           67715                           AD       MINUS2                                
054865,000340: 36,3623           55255                           TS       ZIXB                                  
054866,000341: 36,3624           06006                           TC       INTPRET                               
054867,000342: 36,3625           66350                           LXA,1    SSP                                   
054868,000343: 36,3626           01252                                    WIXA                                  
054869,000344: 36,3627           00051                                    S1                                    
054870,000345: 36,3630           00006                                    6                                     
054871,000346: 36,3631           77775                           VLOAD                                          
054872,000347: 36,3632           02665                                    HOLDW                                 
054873,000348: 36,3633           06467                           STORE    W          +54D,1                     
054874,000349: 36,3634           77775                           VLOAD                                          
054875,000350: 36,3635           02673                                    HOLDW      +6                         
054876,000351: 36,3636           06555                           STORE    W          +108D,1                    
054877,000352: 36,3637           77214                           BOFF     VLOAD                                 
054878,000353: 36,3640           02746                                    DMENFLG                               
054879,000354: 36,3641           75651                                    FAZB5                                 
054880,000355: 36,3642           02701                                    HOLDW      +12D                       
054881,000356: 36,3643           06643                           STORE    W          +162D,1                    
054882,000357: 36,3644           52100        FAZB2              TIX,1    GOTO                                  
054883,000358: 36,3645           75647                                    +2                                    
054884,000359: 36,3646           75657                                    FAZC                                  #  DONE WITH W MATRIX.  UPDATE STATE VECTOR
054885,000360: 36,3647           77634                           RTB                                            
054886,000361: 36,3650           75514                                    FAZA                                  
054887,000362: 36,3651           43335        FAZB5              SLOAD    DAD                                   
054888,000363: 36,3652           01256                                    ZIXB                                  
054889,000364: 36,3653           35772                                    12DD                                  
054890,000365: 36,3654           52030                           BHIZ     GOTO                                  
054891,000366: 36,3655           75657                                    FAZC                                  
054892,000367: 36,3656           75644                                    FAZB2                                 
054893,000368: 36,3657           77624        FAZC               CALL                                           
054894,000369: 36,3660           56750                                    GRP2PC                                

Page 1259

054896,000371: 36,3661           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
054897,000372: 36,3662           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
054898,000373: 36,3663           01273                                    DELTAX     +12D                       #  INCORPORATION FOR X789
054899,000374: 36,3664           03450                           STORE    TX789                                 
054900,000375: 36,3665           47014                           BON      RTB                                   
054901,000376: 36,3666           00707                                    VEHUPFLG                              
054902,000377: 36,3667           75757                                    DOCSM                                 
054903,000378: 36,3670           27014                                    MOVEPLEM                              
054904,000379: 36,3671           77004        FAZAB              BOVB     AXT,2                                 
054905,000380: 36,3672           57352                                    TCDANZIG                              
054906,000381: 36,3673           00000                                    0                                     
054907,000382: 36,3674           77014                           BOFF     AXT,2                                 
054908,000383: 36,3675           04343                                    MOONTHIS                              
054909,000384: 36,3676           75700                                    +2                                    
054910,000385: 36,3677           00002                                    2                                     
054911,000386: 36,3700           53775                           VLOAD    VSR*                                  
054912,000387: 36,3701           01257                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
054913,000388: 36,3702           57205                                    0          -7,2                       
054914,000389: 36,3703           40055                           VAD      BOV                                   
054915,000390: 36,3704           01521                                    TDELTAV                               
054916,000391: 36,3705           75717                                    FAZAB1                                
054917,000392: 36,3706           25521                           STOVL    TDELTAV                               
054918,000393: 36,3707           01265                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
054919,000394: 36,3710           53257                           VSR*     VAD                                   
054920,000395: 36,3711           57202                                    0          -4,2                       
054921,000396: 36,3712           01527                                    TNUV                                  
054922,000397: 36,3713           77600                           BOV                                            
054923,000398: 36,3714           75723                                    FAZAB2                                
054924,000399: 36,3715           35527                           STCALL   TNUV                                  
054925,000400: 36,3716           75732                                    FAZAB3                                
054926,000401: 36,3717           53375        FAZAB1             VLOAD    VAD                                   
054927,000402: 36,3720           01535                                    RCV                                   
054928,000403: 36,3721           01257                                    DELTAX                                
054929,000404: 36,3722           01535                           STORE    RCV                                   
054930,000405: 36,3723           53375        FAZAB2             VLOAD    VAD                                   
054931,000406: 36,3724           01543                                    VCV                                   
054932,000407: 36,3725           01265                                    DELTAX     +6                         
054933,000408: 36,3726           01543                           STORE    VCV                                   
054934,000409: 36,3727           45134                           SXA,2    CALL                                  
054935,000410: 36,3730           02150                                    PBODY                                 
054936,000411: 36,3731           23421                                    RECTIFY                               
054937,000412: 36,3732           77624        FAZAB3             CALL                                           
054938,000413: 36,3733           56750                                    GRP2PC                                
054939,000414: 36,3734           47014                           BON      RTB                                   
054940,000415: 36,3735           00707                                    VEHUPFLG                              
054941,000416: 36,3736           75762                                    DOCSM1                                
054942,000417: 36,3737           26773                                    MOVEALEM                              
054943,000418: 36,3740           77624                           CALL                                           
054944,000419: 36,3741           20263                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
054945,000420: 36,3742           77624        FAZAB4             CALL                                           

Page 1260

054947,000422: 36,3743           56750                                    GRP2PC                                #  PHASE CHANGE
054948,000423: 36,3744           77214                           BOFF     VLOAD                                 
054949,000424: 36,3745           02746                                    DMENFLG                               
054950,000425: 36,3746           75751                                    FAZAB5                                #  6 DIMENSIONAL
054951,000426: 36,3747           03450                                    TX789                                 #  9 DIMENSIONAL
054952,000427: 36,3750           01701                           STORE    X789                                  
054953,000428: 36,3751           66150        FAZAB5             LXA,1    SXA,1                                 
054954,000429: 36,3752           02317                                    EGRESS                                
054955,000430: 36,3753           00052                                    QPRET                                 
054956,000431: 36,3754           77776                           EXIT                                           
054957,000432: 36,3755           04701                           TC       POSTJUMP                              #  EXIT
054958,000433: 36,3756           27457                           CADR     INTWAKE                               
054959,000434: 36,3757           52034        DOCSM              RTB      GOTO                                  
054960,000435: 36,3760           26747                                    MOVEPCSM                              
054961,000436: 36,3761           75671                                    FAZAB                                 
054962,000437: 36,3762           45034        DOCSM1             RTB      CALL                                  
054963,000438: 36,3763           26720                                    MOVEACSM                              
054964,000439: 36,3764           20237                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
054965,000440: 36,3765           77650                           GOTO                                           
054966,000441: 36,3766           75742                                    FAZAB4                                
054967,000442: 36,3767  26,3334               ZEROO              =        ZEROVECS                              
054968,000443: 36,3767           00066        54DD               DEC      54         B-14                       
054969,000444: 36,3770           77771        6DD                DEC      -6         B-14                       
054970,000445: 36,3771           00014        12DD               DEC      12         B-14                       
054971,000446: 14,2000                                           SETLOC   MEASINC2                              
054972,000447: 14,2000                                           BANK                                           
054973,000448: 14,3377                                           COUNT*   $$/INCOR                              
054974,000449: 
054975,000450: 14,3377           51575        NEWZCOMP           VLOAD    ABVAL                                 
054976,000451: 14,3400           02723                                    ZI                                    
054977,000452: 14,3401           24045                           STOVL    NORMZI                                
054978,000453: 14,3402           02731                                    ZI         +6                         
054979,000454: 14,3403           41446                           ABVAL    PUSH                                  
054980,000455: 14,3404           50025                           DSU      BMN                                   
054981,000456: 14,3405           00045                                    NORMZI                                
054982,000457: 14,3406           31411                                    +3                                    
054983,000458: 14,3407           45545                           DLOAD    STADR                                 
054984,000459: 14,3410           77732                           STORE    NORMZI                                
054985,000460: 14,3411           51575                           VLOAD    ABVAL                                 
054986,000461: 14,3412           02737                                    ZI         +12D                       
054987,000462: 14,3413           45206                           PUSH     DSU                                   
054988,000463: 14,3414           00045                                    NORMZI                                
054989,000464: 14,3415           71240                           BMN      DLOAD                                 
054990,000465: 14,3416           73635                                    NEWZCMP1                              
054991,000466: 14,3417           77626                           STADR                                          
054992,000467: 14,3420           43732                           STCALL   NORMZI                                #  LARGEST ABVAL
054993,000468: 14,3421           73635                                    NEWZCMP1                              
054994,000469: 
054995,000470: 35,2000                                           SETLOC   MEASINC3                              
054996,000471: 35,2000                                           BANK                                           
054997,000472: 

Page 1261

054999,000474: 35,3635           66145        NEWZCMP1           DLOAD    SXA,1                                 
055000,000475: 35,3636           00045                                    NORMZI                                
055001,000476: 35,3637           00044                                    NORMZI                                #  SAVE X1
055002,000477: 35,3640           62101                           NORM     INCR,1                                
055003,000478: 35,3641           00047                                    X1                                    
055004,000479: 35,3642           00002                           DEC      2          B-14                       
055005,000480: 35,3643           53775                           VLOAD    VSL*                                  
055006,000481: 35,3644           02723                                    ZI                                    
055007,000482: 35,3645           20201                                    0,1                                   
055008,000483: 35,3646           26723                           STOVL    ZI                                    
055009,000484: 35,3647           02731                                    ZI         +6                         
055010,000485: 35,3650           77657                           VSL*                                           
055011,000486: 35,3651           20201                                    0,1                                   
055012,000487: 35,3652           26731                           STOVL    ZI         +6                         
055013,000488: 35,3653           02737                                    ZI         +12D                       
055014,000489: 35,3654           66057                           VSL*     SXA,1                                 
055015,000490: 35,3655           20201                                    0,1                                   
055016,000491: 35,3656           00045                                    NORMZI     +1                         #  SAVE SHIFT
055017,000492: 35,3657           02737                           STORE    ZI         +12D                       
055018,000493: 35,3660           54150                           LXA,1    XSU,1                                 
055019,000494: 35,3661           02215                                    NORMGAM                               
055020,000495: 35,3662           00045                                    NORMZI     +1                         
055021,000496: 35,3663           77660                           XSU,1                                          
055022,000497: 35,3664           00045                                    NORMZI     +1                         
055023,000498: 35,3665           70130                           SXA,1    LXC,1                                 
055024,000499: 35,3666           02215                                    NORMGAM                               
055025,000500: 35,3667           00045                                    NORMZI     +1                         
055026,000501: 35,3670           40270                           XAD,1    SETPD                                 
055027,000502: 35,3671           00044                                    NORMZI                                
055028,000503: 35,3672           00003                                    2D                                    
055029,000504: 35,3673           77650                           GOTO                                           
055030,000505: 35,3674           75412                                    INCOR2     -3                         
055031,000506: 35,3675                        NORMZI             =        36D                                   

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