ORG 800H
	 LXI H,TEKST1
	 RST 3
	 LXI H,TEKST2
	 RST 3
	 RST 5
POCZ 	 LXI H,TEKST3
	 RST 3
	 RST 2
	 CPI '+'
	 JZ DODA
	 CPI '-'
	 JZ ODEJ
	 CPI 'n'
	 JZ NEGA
	 JMP ERRR
DODA 	 LXI H,TEKST5
	 RST 3
	 MOV B,D
	 MOV C,E
	 LXI H,TEKST2
	 RST 3
	 RST 5
	 MOV A,C
	 ADD E
	 MOV C,A
	 MOV A,B
	 ADC D
	 MOV B,A
	 LXI H,TEKST6
	 RST 3
	 CC PRZEP
	 MOV A,B
	 RST 4
	 MOV A,C
	 RST 4
	 HLT
PRZEP 	 MVI A,'1'
	 RST 1
	 RET
ODEJ 	 LXI H,TEKST8
	 RST 3
	 MOV B,D
	 MOV C,E
	 LXI H,TEKST2
	 RST 3
	 RST 5
	 MOV A,B
	 SUB D
	 MOV B,A
	 MOV A,C
	 SUB E
	 MOV C,A
	 LXI H,TEKST6
	 RST 3
	 MOV A,B
	 RST 4
	 MOV A,C
	 RST 4
	 HLT
NEGA 	 LXI H,TEKST7
	 RST 3
	 MOV A,D
	 CMA
	 MOV D,A
	 MOV A,E
	 CMA
	 MOV E,A
	 LXI H,TEKST6
	 RST 3
	 MOV A,D
	 RST 4
	 MOV A,E
	 RST 4
	 HLT
ERRR 	 LXI H,TEKST4
	 RST 3
	 JMP POCZ
TEKST1 	 DB 10,13,'Witaj w kalkulatorze@'
TEKST2 	 DB 10,13,'Podaj liczbe@'
TEKST3 	 DB 10,13,'Wpisz znak(+,-,n)@'
TEKST4 	 DB 10,13,'Blad, podaj poprawny znak@'
TEKST5 	 DB 10,13,'Wybrales dodawanie@'
TEKST6 	 DB 10,13,'Wynik to =@'
TEKST7 	 DB 10,13,'Wybrales negacje @'
TEKST8 	 DB 10,13,'Wybrales ODEJMOWANIE @'
TEKST9 	 DB 13,'Wynik = @'