spiSend(0xAC);
spiSend(0xA0);
spiSend(0);
spiSend((BYTE)*(*buf+0));
Sleep(50);
spiSend(0xAC);
spiSend(0xA8);
spiSend(0);
spiSend((BYTE)*(*buf+1));
Sleep(50);
spiSend(0xAC);
spiSend(0xA4);
spiSend(0);
spiSend((BYTE)*(*buf+2));

static void
DoWriteFuses(uchar i1, uchar i3)
{
    uchar iobuf[4] = { 0xAC, i1, 0x00, i3 };
    Dump4bytes(3, "WriteFuses command", iobuf);
    SPIio(4, iobuf);
    Delayus(fuses_delay);
    Dump4bytes(3, "WriteFuses reply  ", iobuf);
}

void
WriteFuses()
{
    assert(dev_id >= 0);
    assert(WorkChip()->fuselist != NULL);

    os_printf("Programming fuses\n");
    // fusein[].mask collected in CollectFuses to OR of all implemented fields
    for(int i = 0; i < FUSE_SIZE; ++i)
    {
        // mask unused bits in fusein[].val to '1' (can be readed as 'x' => must be ignored)
        fuseout[i].val = uchar((fuseout[i].val & fuseout[i].mask)       // requested
                               | ((fusein[i].val | ~fusein[i].mask) & ~fuseout[i].mask));       // read | not_implemented
    }

    fusetype ft = WorkChip()->ftype;

    switch (ft)
    {
    case F_NONE:               // error
        return;

    case F_OLD1:
    case F_OLD2:
        DoWriteFuses(uchar((fuseout[0].val & 0xBF) | 0xA0), 0);
        break;

    case F_NEW:
        fusemask fmask = WorkChip()->fmask;
        if(fmask & FM_LOW && fuseout[FA_LOW].mask != 0)
            DoWriteFuses(0xA0, fuseout[FA_LOW].val);
        if(fmask & FM_HIGH && fuseout[FA_HIGH].mask != 0)
            DoWriteFuses(0xA8, fuseout[FA_HIGH].val);
        if(fmask & FM_EXT && fuseout[FA_EXT].mask != 0)
            DoWriteFuses(0xA4, fuseout[FA_EXT].val);
        if(fmask & FM_LOCK && fuseout[FA_LOCK].mask != 0)
            DoWriteFuses(0xE0, fuseout[FA_LOCK].val);
        break;

    }
}