Dseg at 8
S: ds 2
Cseg at 0
Jmp start

start: clr a
Mov r0,#8
Mov r1,P1		//в r1 - делимое
Mov r2,P2		//в r2 - делитель
Mov r3,P3
Cikl:
clr c
Mov b,r1
Mov a,r3
Rr a			//делитель делится на 2 для сравнения
Anl a,#0x7f
Xch a,b
Subb a,b
Jc belzero
Abovezero:		//удвоенное делимое больше делителя
Mov a,r2
Rlc a
clr a
Mov a,r1
Addc a,#0
clr c
Mov b,r3
Subb a,b
Mov b,r1
Add a,b
Mov r1,a
clr a
Mov a,r2
Rl a
Anl a,#0xfe
Inc a
Mov r2,a
jmp finita
belzero:		//удвоенное делимое меньше делителя
clr c
Mov a,r2
Rlc a
clr a
Mov a,r1
Rl a
Anl a,#0xfe
Addc a,#0
Mov r1,a
clr c
Mov a,r2
Rl a
Anl a,#0xfe
Mov r2,a
finita:
Djnz r0,cikl
Mov P0,r2
end