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.

051711,000002:                                                                                                  ## Copyright:   Public domain.
051712,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
051713,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
051714,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
051715,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
051716,000007:                                                                                                  ## Assembler:   yaYUL
051717,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
051718,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051719,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
051720,000011:                                                                                                  ## Mod history: 2011-04-13 JL   Adapted from corresponding Colossus 249 file.
051721,000012:                                                                                                  ##              2011-04-27 JL   Removed 2 lines.
051722,000013:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
051723,000014:                                                                                                  ##                              and fixed errors found.
051724,000015: 

Page 1219

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

Page 1220

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

Page 1221

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

Page 1222

051879,000170: 36,3434           75437                                    INCOR2AB                              
051880,000171: 36,3435           15332                                    ZEROVECS                              
051881,000172: 36,3436           03474                           STORE    OMEGA      +12D                       
051882,000173: 36,3437           66374        INCOR2AB           AXT,2    SSP                                   
051883,000174: 36,3440           00022                                    18D                                   
051884,000175: 36,3441           00052                                    S2                                    
051885,000176: 36,3442           00006                                    6                                     
051886,000177: 36,3443           77773        INCOR3             VLOAD*                                         
051887,000178: 36,3444           74275                                    OMEGA      +18D,2                     
051888,000179: 36,3445           53761                           VXSC     VSL*                                  
051889,000180: 36,3446           00001                                    0                                     #  DELTAQ/A
051890,000181: 36,3447           20201                                    0,1                                   
051891,000182: 36,3450           11301                           STORE    DELTAX     +18D,2                     
051892,000183: 36,3451           77304                           TIX,2    VLOAD                                 
051893,000184: 36,3452           75443                                    INCOR3                                
051894,000185: 36,3453           01265                                    DELTAX     +6                         
051895,000186: 36,3454           77732                           VSL3                                           
051896,000187: 36,3455           01265                           STORE    DELTAX     +6                         
051897,000188: 36,3456           77650                           GOTO                                           
051898,000189: 36,3457           02317                                    EGRESS                                
051899,000190: 

Page 1223

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

Page 1224

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

Page 1225

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

Page 1226

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

Page 1227

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

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