ENV_BLK
j = (filep)i * BLK + ENV_BLK * BLK;
#define blisti(i) (((i)-ENV_BLK*BLK) / BLK)
tchar corebuf[(ENV_BLK + NBLIST + 1) * BLK];