Теперь в свете вышесказанного про правильный детект модели БК. Нужна надёжная установка палитры на БК11 и 11М, но подпрограмма не должна делать ничего деструктивного на БК10. Пока код такой:
Код:
void PALETTE (int n)
{
asm("\
CMPB @$0177717, $0200 \n\
BEQ BK0010 \n\
MOV %0, R0 \n\
BIC $0177760, R0 \n\
SWAB R0 \n\
BIS $040000, R0 \n\
MOV R0, @$0177662 \n\
BK0010:"
::"g"(n)
);
}
Зачем вообще детектить здесь модель? Экспериментально было выяснено, что засылка в регистр 177662 на БК10 приводит к сбою.