A=number
BIN_BCD:
	MOV	B,#100
	DIV	AB
	PUSH	ACC	;SAVE 100's on stack 
	MOV	A,#10
	XCH	A,B
	DIV	AB	;tens in A, rest in B 
	SWAP	A
	ADD	A,B	;pack tens + ones in A
	POP	B	;hundreds in B
	RET