Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

051725,000002:                                                                                                  ## Copyright:   Public domain.
051726,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
051727,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
051728,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
051729,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
051730,000007:                                                                                                  ## Assembler:   yaYUL
051731,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
051732,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051733,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
051734,000011:                                                                                                  ## Mod history: 2011-04-13 JL   Adapted from corresponding Colossus 249 file.
051735,000012:                                                                                                  ##              2011-04-27 JL   Removed 2 lines.
051736,000013:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
051737,000014:                                                                                                  ##                              and fixed errors found.
051738,000015: 

Page 1219

051740,000017:                                                                                                  #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
051741,000018:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
051742,000019:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
051743,000020:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
051744,000021:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
051745,000022:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
051746,000023:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
051747,000024:                                                                                                  #  INPUT
051748,000025:                                                                                                  #      DMENFLG = 0 6DIMENSIONAL BVECTOR  1= 9DIMENSIONAL
051749,000026:                                                                                                  #             W = ERROR TRANSITION MATRIX 6X6 OR 9X9
051750,000027:                                                                                                  #      VARIANCE = VARIANCE (SCALAR)
051751,000028:                                                                                                  #        DELTAQ = MEASURED DEVIATION(SCALAR)
051752,000029:                                                                                                  #       BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
051753,000030: 
051754,000031:                                                                                                  #  OUTPUT
051755,000032:                                                                                                  #       DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
051756,000033:                                                                                                  #           ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
051757,000034:                                                                                                  #      GAMMA = SCALAR
051758,000035:                                                                                                  #      OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
051759,000036:                                                                                                  #  CALLING SEQUENCE
051760,000037:                                                                                                  #     L  CALL INCORP1
051761,000038: 
051762,000039:                                                                                                  #  NORMAL EXIT
051763,000040: 
051764,000041:                                                                                                  #     L+1 OF CALLING SEQUENCE
051765,000042: 
051766,000043: 37,3700                                           BANK     37                                    
051767,000044: 36,2000                                           SETLOC   MEASINC                               
051768,000045: 36,2000                                           BANK                                           
051769,000046: 
051770,000047: 36,3250                                           COUNT*   $$/INCOR                              
051771,000048: 
051772,000049: 36,3250  E5,1400                                  EBANK=   W                                     
051773,000050: 
051774,000051: 36,3250           77620        INCORP1            STQ                                            
051775,000052: 36,3251           02317                                    EGRESS                                
051776,000053: 36,3252           66370                           AXT,1    SSP                                   
051777,000054: 36,3253           00066                                    54D                                   
051778,000055: 36,3254           00051                                    S1                                    
051779,000056: 36,3255           00022                                    18D                                   #  IX1 = 54  S1= 18
051780,000057: 36,3256           66374                           AXT,2    SSP                                   
051781,000058: 36,3257           00022                                    18D                                   
051782,000059: 36,3260           00052                                    S2                                    
051783,000060: 36,3261           00006                                    6                                     #  IX2 = 18  S2=6
051784,000061: 36,3262           63775        Z123               VLOAD    MXV*                                  
051785,000062: 36,3263           03502                                    BVECTOR                               #  BVECTOR (0)
051786,000063: 36,3264           02467                                    W          +54D,1                     
051787,000064: 36,3265           12745                           STORE    ZI         +18D,2                     
051788,000065: 36,3266           77775                           VLOAD                                          
051789,000066: 36,3267           03510                                    BVECTOR    +6                         #  BVECTOR (1)

Page 1220

051791,000068: 36,3270           52717                           MXV*     VAD*                                  
051792,000069: 36,3271           02555                                    W          +108D,1                    
051793,000070: 36,3272           75032                                    ZI         +18D,2                     
051794,000071: 36,3273           12745                           STORE    ZI         +18D,2                     
051795,000072: 36,3274           77775                           VLOAD                                          
051796,000073: 36,3275           03516                                    BVECTOR    +12D                       #  BVECTOR (2)
051797,000074: 36,3276           52717                           MXV*     VAD*                                  
051798,000075: 36,3277           02643                                    W          +162D,1                    
051799,000076: 36,3300           75032                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108)FIRST PAS
051800,000077: 36,3301           12745                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
051801,000078: 36,3302           77700                           TIX,1                                          
051802,000079: 36,3303           75304                                    INCOR1                                
051803,000080: 36,3304           43104        INCOR1             TIX,2    BON                                   
051804,000081: 36,3305           75262                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
051805,000082: 36,3306           02706                                    DMENFLG                               
051806,000083: 36,3307           75313                                    INCOR1A                               
051807,000084: 36,3310           77775                           VLOAD                                          
051808,000085: 36,3311           15332                                    ZEROVECS                              
051809,000086: 36,3312           02737                           STORE    ZI         +12D                       
051810,000087: 36,3313           77201        INCOR1A            SETPD    VLOAD                                 
051811,000088: 36,3314           00001                                    0                                     
051812,000089: 36,3315           02723                                    ZI                                    
051813,000090: 36,3316           47036                           VSQ      RTB                                   
051814,000091: 36,3317           45562                                    TPMODE                                
051815,000092: 36,3320           47515                           PDVL     VSQ                                   
051816,000093: 36,3321           02731                                    ZI         +6                         
051817,000094: 36,3322           76234                           RTB      TAD                                   
051818,000095: 36,3323           45562                                    TPMODE                                
051819,000096: 36,3324           47515                           PDVL     VSQ                                   
051820,000097: 36,3325           02737                                    ZI         +12D                       
051821,000098: 36,3326           76234                           RTB      TAD                                   
051822,000099: 36,3327           45562                                    TPMODE                                
051823,000100: 36,3330           77171                           TAD      AXT,2                                 
051824,000101: 36,3331           03526                                    VARIANCE                              
051825,000102: 36,3332           00000                                    0                                     
051826,000103: 36,3333           01257                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
051827,000104: 36,3334           40151                           TLOAD    BOV                                   
051828,000105: 36,3335           03526                                    VARIANCE                              #  CLEAR OVFIND
051829,000106: 36,3336           75337                                    +1                                    
051830,000107: 36,3337           01262                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
051831,000108: 36,3340           77654                           BZE                                            
051832,000109: 36,3341           75350                                    INCOR1C                               
051833,000110: 36,3342           40112        INCOR1B            SL2      BOV                                   
051834,000111: 36,3343           75350                                    INCOR1C                               
051835,000112: 36,3344           01262                           STORE    TEMPVAR                               
051836,000113: 36,3345           52114                           INCR,2   GOTO                                  
051837,000114: 36,3346           00001                           DEC      1          B-14                       
051838,000115: 36,3347           75342                                    INCOR1B                               
051839,000116: 36,3350           61551        INCOR1C            TLOAD    ROUND                                 
051840,000117: 36,3351           01257                                    TRIPA                                 

Page 1221

051842,000119: 36,3352           75405                           DMP      SQRT                                  
051843,000120: 36,3353           01262                                    TEMPVAR                               
051844,000121: 36,3354           76257                           SL*      TAD                                   
051845,000122: 36,3355           57576                                    0,2                                   
051846,000123: 36,3356           01257                                    TRIPA                                 
051847,000124: 36,3357           63101                           NORM     INCR,2                                
051848,000125: 36,3360           00050                                    X2                                    
051849,000126: 36,3361           77775                           DEC      -2         B-14                       
051850,000127: 36,3362           77134                           SXA,2    AXT,2                                 
051851,000128: 36,3363           02215                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
051852,000129: 36,3364           00242                                    162D                                  
051853,000130: 36,3365           40265                           BDDV     SETPD                                 
051854,000131: 36,3366           15322                                    DP1/4TH                               
051855,000132: 36,3367           00001                                    0                                     
051856,000133: 36,3370           03456                           STORE    GAMMA                                 
051857,000134: 36,3371           60351                           TLOAD    NORM                                  
051858,000135: 36,3372           01257                                    TRIPA                                 
051859,000136: 36,3373           00047                                    X1                                    
051860,000137: 36,3374           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
051861,000138: 36,3375           00155                                    MPAC                                  
051862,000139: 36,3376           03524                                    DELTAQ                                
051863,000140: 36,3377           77701                           NORM                                           
051864,000141: 36,3400           00051                                    S1                                    
051865,000142: 36,3401           70460                           XSU,1    SR1                                   
051866,000143: 36,3402           00050                                    S1                                    
051867,000144: 36,3403           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
051868,000145: 36,3404           77731                           SSP                                            
051869,000146: 36,3405           00052                                    S2                                    
051870,000147: 36,3406           00066                                    54D                                   
051871,000148: 36,3407           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
051872,000149: 36,3410           02723                                    ZI                                    
051873,000150: 36,3411           75134                                    W          +162D,2                    
051874,000151: 36,3412           77206                           PUSH     VLOAD                                 
051875,000152: 36,3413           02731                                    ZI         +6                         
051876,000153: 36,3414           53303                           VXM*     VAD                                   
051877,000154: 36,3415           75112                                    W          +180D,2                    
051878,000155: 36,3416           77206                           PUSH     VLOAD                                 
051879,000156: 36,3417           02737                                    ZI         +12D                       
051880,000157: 36,3420           53303                           VXM*     VAD                                   
051881,000158: 36,3421           75070                                    W          +198D,2                    
051882,000159: 36,3422           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
051883,000160: 36,3423           75407                                    INCOR2                                
051884,000161: 36,3424           45575                           VLOAD    STADR                                 
051885,000162: 36,3425           74303                           STORE    OMEGA      +12D                       
051886,000163: 36,3426           45575                           VLOAD    STADR                                 
051887,000164: 36,3427           74311                           STORE    OMEGA      +6                         
051888,000165: 36,3430           45575                           VLOAD    STADR                                 
051889,000166: 36,3431           74317                           STORE    OMEGA                                 
051890,000167: 36,3432           77214                           BON      VLOAD                                 
051891,000168: 36,3433           02706                                    DMENFLG                               

Page 1222

051893,000170: 36,3434           75437                                    INCOR2AB                              
051894,000171: 36,3435           15332                                    ZEROVECS                              
051895,000172: 36,3436           03474                           STORE    OMEGA      +12D                       
051896,000173: 36,3437           66374        INCOR2AB           AXT,2    SSP                                   
051897,000174: 36,3440           00022                                    18D                                   
051898,000175: 36,3441           00052                                    S2                                    
051899,000176: 36,3442           00006                                    6                                     
051900,000177: 36,3443           77773        INCOR3             VLOAD*                                         
051901,000178: 36,3444           74275                                    OMEGA      +18D,2                     
051902,000179: 36,3445           53761                           VXSC     VSL*                                  
051903,000180: 36,3446           00001                                    0                                     #  DELTAQ/A
051904,000181: 36,3447           20201                                    0,1                                   
051905,000182: 36,3450           11301                           STORE    DELTAX     +18D,2                     
051906,000183: 36,3451           77304                           TIX,2    VLOAD                                 
051907,000184: 36,3452           75443                                    INCOR3                                
051908,000185: 36,3453           01265                                    DELTAX     +6                         
051909,000186: 36,3454           77732                           VSL3                                           
051910,000187: 36,3455           01265                           STORE    DELTAX     +6                         
051911,000188: 36,3456           77650                           GOTO                                           
051912,000189: 36,3457           02317                                    EGRESS                                
051913,000190: 

Page 1223

051915,000192:                                                                                                  #   INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
051916,000193:                                                                                                  #  ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
051917,000194:                                                                                                  #  LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
051918,000195:                                                                                                  #  INPUT
051919,000196:                                                                                                  #     PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
051920,000197:                                                                                                  #     VEHUPFLG = UPDATE VEHICLE 0=LEM  1=CSM
051921,000198:                                                                                                  #     W =        ERROR TRANSITION MATRIX
051922,000199:                                                                                                  #     DELTAX  =  COMPUTED STATE VECTOR DEVIATIONS
051923,000200:                                                                                                  #     DMENFLG =  SIZE OF W MATRIX (ZERO =6X6) (1=9X9)
051924,000201:                                                                                                  #     GAMMA   =  SCALAR FOR INCORPORATION
051925,000202:                                                                                                  #     ZI      =  VECTOR USED IN INCORPORATION
051926,000203:                                                                                                  #     OMEGA   =  WEIGHTING VECTOR
051927,000204: 
051928,000205:                                                                                                  #  OUTPUT
051929,000206:                                                                                                  #     UPDATED PERMANENT STATE VECTOR
051930,000207: 
051931,000208:                                                                                                  #  CALLING SEQUENCE
051932,000209:                                                                                                  #     L  CALL INCORP2
051933,000210: 
051934,000211:                                                                                                  #  NORMAL EXIT
051935,000212:                                                                                                  #     L+1 OF CALLING SEQUENCE
051936,000213: 
051937,000214: 36,2000                                           SETLOC   MEASINC1                              
051938,000215: 36,2000                                           BANK                                           
051939,000216: 
051940,000217: 36,3460                                           COUNT*   $$/INCOR                              
051941,000218: 
051942,000219: 36,3460           45020        INCORP2            STQ      CALL                                  
051943,000220: 36,3461           02317                                    EGRESS                                
051944,000221: 36,3462           27371                                    INTSTALL                              
051945,000222: 36,3463           74375                           VLOAD    VXSC                                  #  CALC. GAMMA * OMEGA1,2,3
051946,000223: 36,3464           03460                                    OMEGA                                 
051947,000224: 36,3465           03456                                    GAMMA                                 
051948,000225: 36,3466           26643                           STOVL    OMEGAM1                               
051949,000226: 36,3467           03466                                    OMEGA      +6                         
051950,000227: 36,3470           77761                           VXSC                                           
051951,000228: 36,3471           03456                                    GAMMA                                 
051952,000229: 36,3472           26651                           STOVL    OMEGAM2                               
051953,000230: 36,3473           03474                                    OMEGA      +12D                       
051954,000231: 36,3474           77761                           VXSC                                           
051955,000232: 36,3475           03456                                    GAMMA                                 
051956,000233: 36,3476           02657                           STORE    OMEGAM3                               
051957,000234: 36,3477           77776                           EXIT                                           
051958,000235: 36,3500           33761                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
051959,000236: 36,3501           55252                           TS       WIXA                                  
051960,000237: 36,3502           55253                           TS       WIXB                                  
051961,000238: 36,3503           34714                           CAF      ZERO                                  
051962,000239: 36,3504           55254                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
051963,000240: 36,3505           55255                           TS       ZIXB                                  
051964,000241: 36,3506           05301        FAZA               TC       PHASCHNG                              

Page 1224

051966,000243: 36,3507           04022                           OCT      04022                                 
051967,000244: 36,3510           05435                           TC       UPFLAG                                
051968,000245: 36,3511           00236                           ADRES    REINTFLG                              
051969,000246: 36,3512           31253        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
051970,000247: 36,3513           55252                           TS       WIXA                                  #   TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
051971,000248: 36,3514           31255                           CA       ZIXB                                  
051972,000249: 36,3515           55254                           TS       ZIXA                                  
051973,000250: 36,3516           06006                           TC       INTPRET                               
051974,000251: 36,3517           73150                           LXA,1    LXA,2                                 
051975,000252: 36,3520           01252                                    WIXA                                  
051976,000253: 36,3521           01254                                    ZIXA                                  
051977,000254: 36,3522           70731                           SSP      DLOAD*                                
051978,000255: 36,3523           00051                                    S1                                    
051979,000256: 36,3524           00006                                    6                                     
051980,000257: 36,3525           75054                                    ZI,2                                  
051981,000258: 36,3526           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
051982,000259: 36,3527           00052                                    S2                                    
051983,000260: 36,3530           65161                           VXSC     XCHX,2                                
051984,000261: 36,3531           02643                                    OMEGAM1                               
051985,000262: 36,3532           00051                                    S2                                    
051986,000263: 36,3533           57144                           LXC,2    XAD,2                                 
051987,000264: 36,3534           00047                                    X2                                    
051988,000265: 36,3535           02215                                    NORMGAM                               
051989,000266: 36,3536           65057                           VSL*     XCHX,2                                
051990,000267: 36,3537           57576                                    0,2                                   
051991,000268: 36,3540           00051                                    S2                                    
051992,000269: 36,3541           77653                           VAD*                                           
051993,000270: 36,3542           02467                                    W          +54D,1                     
051994,000271: 36,3543           02665                           STORE    HOLDW                                 
051995,000272: 36,3544           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
051996,000273: 36,3545           75054                                    ZI,2                                  
051997,000274: 36,3546           74301                           NORM     VXSC                                  
051998,000275: 36,3547           00052                                    S2                                    
051999,000276: 36,3550           02651                                    OMEGAM2                               
052000,000277: 36,3551           71124                           XCHX,2   LXC,2                                 
052001,000278: 36,3552           00051                                    S2                                    
052002,000279: 36,3553           00047                                    X2                                    
052003,000280: 36,3554           53674                           XAD,2    VSL*                                  
052004,000281: 36,3555           02215                                    NORMGAM                               
052005,000282: 36,3556           57576                                    0,2                                   
052006,000283: 36,3557           52724                           XCHX,2   VAD*                                  
052007,000284: 36,3560           00051                                    S2                                    
052008,000285: 36,3561           02555                                    W          +108D,1                    
052009,000286: 36,3562           02673                           STORE    HOLDW      +6                         
052010,000287: 36,3563           77614                           BOFF                                           
052011,000288: 36,3564           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
052012,000289: 36,3565           75605                                    FAZB                                  
052013,000290: 36,3566           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
052014,000291: 36,3567           75054                                    ZI,2                                  
052015,000292: 36,3570           74301                           NORM     VXSC                                  

Page 1225

052017,000294: 36,3571           00052                                    S2                                    
052018,000295: 36,3572           02657                                    OMEGAM3                               
052019,000296: 36,3573           71124                           XCHX,2   LXC,2                                 
052020,000297: 36,3574           00051                                    S2                                    
052021,000298: 36,3575           00047                                    X2                                    
052022,000299: 36,3576           53674                           XAD,2    VSL*                                  
052023,000300: 36,3577           02215                                    NORMGAM                               
052024,000301: 36,3600           57576                                    0,2                                   
052025,000302: 36,3601           52724                           XCHX,2   VAD*                                  
052026,000303: 36,3602           00051                                    S2                                    
052027,000304: 36,3603           02643                                    W          +162D,1                    
052028,000305: 36,3604           02701                           STORE    HOLDW      +12D                       
052029,000306: 36,3605           77624        FAZB               CALL                                           
052030,000307: 36,3606           56712                                    GRP2PC                                
052031,000308: 36,3607           77776                           EXIT                                           
052032,000309: 36,3610           31252        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
052033,000310: 36,3611           63762                           AD       6DD                                   #      TEMP REG TO PERM W MATRIX
052034,000311: 36,3612           55253                           TS       WIXB                                  
052035,000312: 36,3613           31254                           CA       ZIXA                                  
052036,000313: 36,3614           67715                           AD       MINUS2                                
052037,000314: 36,3615           55255                           TS       ZIXB                                  
052038,000315: 36,3616           06006                           TC       INTPRET                               
052039,000316: 36,3617           66350                           LXA,1    SSP                                   
052040,000317: 36,3620           01252                                    WIXA                                  
052041,000318: 36,3621           00051                                    S1                                    
052042,000319: 36,3622           00006                                    6                                     
052043,000320: 36,3623           77775                           VLOAD                                          
052044,000321: 36,3624           02665                                    HOLDW                                 
052045,000322: 36,3625           06467                           STORE    W          +54D,1                     
052046,000323: 36,3626           77775                           VLOAD                                          
052047,000324: 36,3627           02673                                    HOLDW      +6                         
052048,000325: 36,3630           06555                           STORE    W          +108D,1                    
052049,000326: 36,3631           77214                           BOFF     VLOAD                                 
052050,000327: 36,3632           02746                                    DMENFLG                               
052051,000328: 36,3633           75643                                    FAZB5                                 
052052,000329: 36,3634           02701                                    HOLDW      +12D                       
052053,000330: 36,3635           06643                           STORE    W          +162D,1                    
052054,000331: 36,3636           52100        FAZB2              TIX,1    GOTO                                  
052055,000332: 36,3637           75641                                    +2                                    
052056,000333: 36,3640           75651                                    FAZC                                  #  DONE WITH W MATRIX. UPDATE STATE VECTOR
052057,000334: 36,3641           77634                           RTB                                            
052058,000335: 36,3642           75506                                    FAZA                                  
052059,000336: 36,3643           43335        FAZB5              SLOAD    DAD                                   
052060,000337: 36,3644           01256                                    ZIXB                                  
052061,000338: 36,3645           35764                                    12DD                                  
052062,000339: 36,3646           52030                           BHIZ     GOTO                                  
052063,000340: 36,3647           75651                                    FAZC                                  
052064,000341: 36,3650           75636                                    FAZB2                                 
052065,000342: 36,3651           77624        FAZC               CALL                                           
052066,000343: 36,3652           56712                                    GRP2PC                                

Page 1226

052068,000345: 36,3653           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
052069,000346: 36,3654           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
052070,000347: 36,3655           01273                                    DELTAX     +12D                       #  INCORPORATION FOR X789
052071,000348: 36,3656           03450                           STORE    TX789                                 
052072,000349: 36,3657           47014                           BON      RTB                                   
052073,000350: 36,3660           00707                                    VEHUPFLG                              
052074,000351: 36,3661           75751                                    DOCSM                                 
052075,000352: 36,3662           26745                                    MOVEPLEM                              
052076,000353: 36,3663           77004        FAZAB              BOVB     AXT,2                                 
052077,000354: 36,3664           57314                                    TCDANZIG                              
052078,000355: 36,3665           00000                                    0                                     
052079,000356: 36,3666           77014                           BOFF     AXT,2                                 
052080,000357: 36,3667           04343                                    MOONTHIS                              
052081,000358: 36,3670           75672                                    +2                                    
052082,000359: 36,3671           00002                                    2                                     
052083,000360: 36,3672           53775                           VLOAD    VSR*                                  
052084,000361: 36,3673           01257                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
052085,000362: 36,3674           57205                                    0          -7,2                       
052086,000363: 36,3675           40055                           VAD      BOV                                   
052087,000364: 36,3676           01521                                    TDELTAV                               
052088,000365: 36,3677           75711                                    FAZAB1                                
052089,000366: 36,3700           25521                           STOVL    TDELTAV                               
052090,000367: 36,3701           01265                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
052091,000368: 36,3702           53257                           VSR*     VAD                                   
052092,000369: 36,3703           57202                                    0          -4,2                       
052093,000370: 36,3704           01527                                    TNUV                                  
052094,000371: 36,3705           77600                           BOV                                            
052095,000372: 36,3706           75715                                    FAZAB2                                
052096,000373: 36,3707           35527                           STCALL   TNUV                                  
052097,000374: 36,3710           75724                                    FAZAB3                                
052098,000375: 36,3711           53375        FAZAB1             VLOAD    VAD                                   
052099,000376: 36,3712           01535                                    RCV                                   
052100,000377: 36,3713           01257                                    DELTAX                                
052101,000378: 36,3714           01535                           STORE    RCV                                   
052102,000379: 36,3715           53375        FAZAB2             VLOAD    VAD                                   
052103,000380: 36,3716           01543                                    VCV                                   
052104,000381: 36,3717           01265                                    DELTAX     +6                         
052105,000382: 36,3720           01543                           STORE    VCV                                   
052106,000383: 36,3721           45134                           SXA,2    CALL                                  
052107,000384: 36,3722           02150                                    PBODY                                 
052108,000385: 36,3723           23344                                    RECTIFY                               
052109,000386: 36,3724           77624        FAZAB3             CALL                                           
052110,000387: 36,3725           56712                                    GRP2PC                                
052111,000388: 36,3726           47014                           BON      RTB                                   
052112,000389: 36,3727           00707                                    VEHUPFLG                              
052113,000390: 36,3730           75754                                    DOCSM1                                
052114,000391: 36,3731           26724                                    MOVEALEM                              
052115,000392: 36,3732           77624                           CALL                                           
052116,000393: 36,3733           20263                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
052117,000394: 36,3734           77624        FAZAB4             CALL                                           

Page 1227

052119,000396: 36,3735           56712                                    GRP2PC                                #  PHASE CHANGE
052120,000397: 36,3736           77214                           BOFF     VLOAD                                 
052121,000398: 36,3737           02746                                    DMENFLG                               
052122,000399: 36,3740           75743                                    FAZAB5                                #  6 DIMENSIONAL
052123,000400: 36,3741           03450                                    TX789                                 #  9 DIMENSIONAL
052124,000401: 36,3742           01701                           STORE    X789                                  
052125,000402: 36,3743           66150        FAZAB5             LXA,1    SXA,1                                 
052126,000403: 36,3744           02317                                    EGRESS                                
052127,000404: 36,3745           00052                                    QPRET                                 
052128,000405: 36,3746           77776                           EXIT                                           
052129,000406: 36,3747           04574                           TC       POSTJUMP                              #  EXIT
052130,000407: 36,3750           27406                           CADR     INTWAKE                               
052131,000408: 36,3751           52034        DOCSM              RTB      GOTO                                  
052132,000409: 36,3752           26700                                    MOVEPCSM                              
052133,000410: 36,3753           75663                                    FAZAB                                 
052134,000411: 36,3754           45034        DOCSM1             RTB      CALL                                  
052135,000412: 36,3755           26651                                    MOVEACSM                              
052136,000413: 36,3756           20237                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
052137,000414: 36,3757           77650                           GOTO                                           
052138,000415: 36,3760           75734                                    FAZAB4                                
052139,000416: 36,3761  26,3331               ZEROD              =        ZEROVECS                              
052140,000417: 36,3761           00066        54DD               DEC      54         B-14                       
052141,000418: 36,3762           77771        6DD                DEC      -6         B-14                       
052142,000419: 36,3763           00014        12DD               DEC      12         B-14                       

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