divide16with8

;DIVIDE 16BIT WITH 8BIT

; substract till the 16bit number is smaller than the 8bit number

JMP START
START:  MVI A,10;
	STA 2200;

	MVI A,01;
	STA 2201;

	MVI A,6;
	STA 2202;

	LDA 2201; UPPER BYTE IN A
	MOV B,A; UPPER BYTE IN B

	LDA 2202; 8 BIT NUMBER IN A
	MOV C,A;8 BIT NUMBER IN C

	LDA 2200; LOWER BYTE IN A

	LXI D,0000; CLEAR DE PAIR,USED AS Q
	LXI H,0000; CLEAR HL PAIR

MAIN:	CMP C; COMPARE 8 BIT WITH LOWER BYTE
	JC JUMP1; IF CARRY THEN JUMP TO JUMP1
	SUB C; A-C=>A
	MOV H,A; STORE A
	INX D; INCREMENT DE PAIR
	JMP MAIN


JUMP1:  DCR B; DEC UPPER BYTE	
	JM EXIT; IF B BECOMES 0 THEN EXIT
	ADI 16; ADD 16 TO LOWER BYTE
	SUB C; A-C=>A
	MOV H,A; STORE A
	INX D; INCREMENT DE PAIR
	JMP MAIN

EXIT:	MOV A,H;GET D
	STA 2302; LOWER BYTE OF REMAINDER
	
	MOV A,E
	STA 2300
	
	MOV A,D
	STA 2301

	HLT