;<Program for division of two numbers, assuming
;the numbers are perfectly divisible. >

jmp start


;code
start:	lda 5001h
	mov b,a
	lda 5002h  
	mvi c,00h
		
loop1: 	inr c
	sub b	
	jnz loop1

hlt