Программирование на ассемблере

[ivagor]

Получилось сократить на 5 байт и ускорить:

;A(=L)=HL/DE
UDiv16168:		
		mvi b,8
		xra a
UDiv16168_1:
		dad h\ adc a\ mov c,a\ jc UDiv16168_2
		mov a,h\ sub e\ mov a,c\ sbb d
		mov a,c
		jc UDiv16168_3
UDiv16168_2:
		mov a,h\ sub e\ mov h,a\ mov a,c\ sbb d
		inr l
UDiv16168_3:
		dcr b
		jnz UDiv16168_1
		mov a,l
		ret

Заплатить пришлось порчей остатка, но добавив одну команду можем его сохранить при необходимости.