Вывод на экран со сдвигом в 4px

[NovaStorm]

Сейчас сделано так: в (hl) - текущее знакоместо на экране, в bc pop'аем данные для этого знакоместе(что были бы в нём без сдвига), в (de) - данные следующего по горизонтали знакоместа, скролл идёт влево.
По идее нужно 16битное значение [C или B] : (de) сдвинуть влево на 4 бита и загрузить в (hl).
Мой вариант разочаровывает производительностью =(

ld a,(de) ;правый байт
inc de    ;для следующей итерации
ld (hl),c ;левый байт
rra
rra
rra
rra
rld

Можно ли сделать это быстрее?

[Advertiser]