LJMP	START

	ORG	100H

START:

	LCALL 	LCD_CLR

	LCALL	WAIT_KEY

	MOV R7,A

	LCALL 	TO_BCD

	LCALL	WRITE_HEX



	MOV A,#10

	LCALL DELAY_100MS



	LCALL 	LCD_CLR

	LCALL	WAIT_KEY

	MOV R6,A

	LCALL 	TO_BCD

	LCALL	WRITE_HEX



	MOV A,#01

	LCALL DELAY_100MS

	LCALL 	LCD_CLR



	;MOV A,R7

	;MOV B,R6



	LCALL WAIT_KEY

	CJNE A,#01,ODEJM; SPRAWDŹ CZY DODAWANIE

	MOV A,R7

	MOV B,R6

	ADD A,B; WYKONAJ DODAWANIE

	MOV R5,A

	MOV A,R7

	LCALL WRITE_HEX

	MOV A,#2BH

	LCALL WRITE_DATA

	MOV A,R6

	LCALL WRITE_HEX

	MOV A,#3DH

	LCALL WRITE_DATA

	MOV A,R5
	LCALL 	TO_BCD

	LCALL WRITE_HEX



	MOV A,#10

	LCALL DELAY_100MS

	LJMP $



ODEJM:

    CJNE A,#02,MNOZ; SPRAWDŹ CZY ODEJMOWANIE

	CLR C;

	MOV A,R7

	MOV B,R6

	SUBB A,B; WYKONAJ ODEJMOWANIE

	MOV R5,A

	MOV A,R7

	LCALL WRITE_HEX

	MOV A,#2DH

	LCALL WRITE_DATA

	MOV A,R6

	LCALL WRITE_HEX

	MOV A,#3DH

	LCALL WRITE_DATA

	MOV A,R5
	LCALL 	TO_BCD

	LCALL WRITE_HEX



	MOV A,#100

	LCALL DELAY_100MS
	LJMP $



MNOZ:

	CJNE A,#03,DZIEL; SPRAWDŹ CZY MNOŻENIE

	MOV A,R7

	MOV B,R6

	MUL AB; ; WYKONAJ MNOŻENIE

	MOV R5,A

	MOV R4,B

	MOV A,R7

	LCALL WRITE_HEX

	MOV A,#2AH

	LCALL WRITE_DATA

	MOV A,R6

	LCALL WRITE_HEX

	MOV A,#3DH

	LCALL WRITE_DATA

	MOV A,R4

	LCALL WRITE_HEX

	MOV A,R5
	;LCALL 	TO_BCD

	LCALL WRITE_HEX



	MOV A,#100

	LCALL DELAY_100MS

	LJMP $



DZIEL:

	;CJNE A,#13,START; SPRAW

	MOV A,R7

	MOV B,R6

	DIV AB; ; WYKONAJ MNOŻENIE

	MOV R5,A

	MOV R4,B

	MOV A,R7

	LCALL WRITE_HEX

	MOV A,#2FH

	LCALL WRITE_DATA

	MOV A,R6

	LCALL WRITE_HEX

	MOV A,#3DH

	LCALL WRITE_DATA

	MOV A,R5

	LCALL WRITE_HEX

	MOV A,#00H

	LCALL WRITE_DATA



	MOV A,R4

	LCALL WRITE_HEX

	MOV A,#2FH

	LCALL WRITE_DATA

	MOV A,R6
	LCALL 	TO_BCD

	LCALL WRITE_HEX





	MOV A,#100

	LCALL DELAY_100MS
	LJMP $







	;LJMP	$ ;- pozostań w tym miejscu



TO_BCD:

	;ZAMIANA NA BCD -POCZĄTEK

	MOV B,#10; DZIELNIK

	DIV AB; WYDZIELAMY CYFRE DZIESIATEK

	SWAP A; PRZESUWAMY CYFRĘ DZIESIĄTEK NA WYŻSZY 4 BITY

	ORL A,B; DODAJEMY CYFRĘ JEDNOŚCI

	;ZAMIANA NA BCD -KONIEC

	RET

	NOP