DIR_DR
set_blocked(sp, DIR_DR);
sp->s_fval[BLACK][DIR_DR].s = 0x600;
sp->s_fval[WHITE][DIR_DR].s = 0x600;
sp->s_fval[BLACK][DIR_DR].s = 0x500;
sp->s_fval[WHITE][DIR_DR].s = 0x500;
sp->s_fval[BLACK][DIR_DR].s = 0x401;
sp->s_fval[WHITE][DIR_DR].s = 0x401;
set_blocked(sp, DIR_DR);
sp->s_fval[BLACK][DIR_DR].s = 0x600;
sp->s_fval[WHITE][DIR_DR].s = 0x600;
if (!is_blocked(sp, DIR_DR)) {
sp->s_fval[BLACK][DIR_DR].s = 0x500;
sp->s_fval[WHITE][DIR_DR].s = 0x500;