Если отвлечься от требований, которые мне были нужны для конкретной программы, то процедуру можно разлочить до 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