Если отвлечься от требований, которые мне были нужны для конкретной программы, то процедуру можно разлочить до 8=24/16. Убираем XRA A в начале и MOV A,L в конце и вуаля:
;L=AHL/DE
;AH=AHL%DE
Правда если нужна проверка делителя на ноль в начале, то она в таком случае усложняется
Код:inr e\ dcr e\ jnz $+6
inr d\ dcr d\ rz

