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.

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

Page 1252

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

Page 1253

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

Page 1254

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

Page 1255

054700,000191: 36,3440           77214                           BON      VLOAD                                 
054701,000192: 36,3441           02706                                    DMENFLG                               
054702,000193: 36,3442           75445                                    INCOR2AB                              
054703,000194: 36,3443           15335                                    ZEROVECS                              
054704,000195: 36,3444           03474                           STORE    OMEGA      +12D                       
054705,000196: 36,3445           66374        INCOR2AB           AXT,2    SSP                                   
054706,000197: 36,3446           00022                                    18D                                   
054707,000198: 36,3447           00052                                    S2                                    
054708,000199: 36,3450           00006                                    6                                     
054709,000200: 36,3451           77773        INCOR3             VLOAD*                                         
054710,000201: 36,3452           74275                                    OMEGA      +18D,2                     
054711,000202: 36,3453           53761                           VXSC     VSL*                                  
054712,000203: 36,3454           00001                                    0                                     #  DELTAQ/A
054713,000204: 36,3455           20201                                    0,1                                   
054714,000205: 36,3456           11301                           STORE    DELTAX     +18D,2                     
054715,000206: 36,3457           77304                           TIX,2    VLOAD                                 
054716,000207: 36,3460           75451                                    INCOR3                                
054717,000208: 36,3461           01265                                    DELTAX     +6                         
054718,000209: 36,3462           77732                           VSL3                                           
054719,000210: 36,3463           01265                           STORE    DELTAX     +6                         
054720,000211: 36,3464           77650                           GOTO                                           
054721,000212: 36,3465           02317                                    EGRESS                                
054722,000213: 

Page 1256

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

Page 1257

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

Page 1258

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

Page 1259

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

Page 1260

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

Page 1261

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

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