zadanie6

	LJMP START
	ORG 100H
START:
	LCALL LCD_CLR
	LCALL WAIT_KEY
	MOV R0, A
	LCALL WRITE_HEX
	MOV A, #'*'
	LCALL WRITE_DATA
	LCALL WAIT_KEY
	MOV R1, A
	LCALL WRITE_HEX
	MOV A, #'='
	LCALL WRITE_DATA
	MOV A, R0
	MOV B, R1
	MUL AB
	LCALL KONWERTUJ
	LCALL WRITE_HEX
	SJMP $
KONWERTUJ:
	MOV B, #10
	DIV AB
	SWAP A
	ADD A, B
	RET