# Read two numbers A and B
# Print integer division A/B


A:	CEL	0
B:	CEL	0
C:	CEL	0
TEMP:	CEL	0
ONE:	EQU	0


MAIN:	PROC
	INP	A
	INP	B
	JMP	DIV
	OUT	A
	OUT	B
	OUT	C
	ENDP

# 
# C = A/B
DIV:	PROC
	CLA	A
	STO	TEMP
LOOP:	CLA	TEMP
	SUB	B
	STO	TEMP
	TAC	FINDIV  # IF ACC IS NEGATIVE BREAK THE LOOP
	CLA	C  	# LOAD C
	ADD	ONE 	# INCREMENT BY 1
	STO	C  	# C = C + 1
	JMP	LOOP
FINDIV:	ENDP