ВходНаше всё Теги codebook 无线电组件 Поиск Опросы Закон Воскресенье
30 июня
241609 Топик полностью
580BM80 (04.03.2011 07:27 - 07:30, просмотров: 338) ответил mazur на Вот полученная мною подпрограмма. Напишите ее короче.
Вот код, который покороче будет:  .DEF al =r16 .DEF ah =r17 ;************************************************* test_bit: mov zl,al ;в al номер бита lsr zl lsr zl lsr zl ldi zh,0 sub zl, low(-table_flags) ;адресуем массив битов sbc zh, high(-table_flags) ld ah,z ldi zl,low (shifts+3) ldi zh,high (shifts+3) sbrc al,2 swap ah andi al,3 sub zl,al sbci zh,0 ijmp shifts: ror ah ror ah ror ah ror ah ret ;флаг переноса содержит результат ;************************************************* А ваш код не имеет смысла, т.к. адресуемый бит не проверяется. Ошибку сами найдёте?