DIR_DL
set_blocked(sp, DIR_DL);
sp->s_fval[BLACK][DIR_DL].s = 0x600;
sp->s_fval[WHITE][DIR_DL].s = 0x600;
sp->s_fval[BLACK][DIR_DL].s = 0x500;
sp->s_fval[WHITE][DIR_DL].s = 0x500;
sp->s_fval[BLACK][DIR_DL].s = 0x401;
sp->s_fval[WHITE][DIR_DL].s = 0x401;
set_blocked(sp, DIR_DL);
sp->s_fval[BLACK][DIR_DL].s = 0x600;
sp->s_fval[WHITE][DIR_DL].s = 0x600;
} else if (col == 5 && !is_blocked(sp, DIR_DL)) {
sp->s_fval[BLACK][DIR_DL].s = 0x500;
sp->s_fval[WHITE][DIR_DL].s = 0x500;