Посылаю вам упрощенную версию (для облегчения восприятия) моей работающей программы с 3-мя однотипными блоками, которую я для облегчения отладки решил переписать, используя подпрограмму. Но наткнулся на проблему с использовавшимися в старой версии командами cbr,sbr,sbrc,sbrs, которые в качестве второго операнда требуют константу. В подпрограмме пришлось отказаться от использования этих команд. MBedder дал мне подсказку - только одно слово - bitmask, и я написал новую версию trablset2.asm. После Ваших и других откликнувшихся подсказок и советов я предлагаю последний вариант новой версии trablset3. С удовольствием выслушаю ваши замечания и предложения.
Кстати, во второй версии, учитывая Ваш совет (там стояло PC-1), случайно в макросе поставил метку с использующимся именем, ассемблер не отреагировал и мне пришлось повозиться отыскивая эту ошибку. Подскажите, как вы решили этот вопрос?