B[x*3+2] := ( A[2+i] + A[14+i] ) shr 3 + ( A[5+i] + A[8+i ] + A[11+i] ) shr 2; inc(i,9);
A:=@A[9]; B:=@B[3];