ORG 800H
     LXI H,WITAJ
     RST 3
     LXI H,NAPIS
     RST 3
     RST 5
     LXI H,NAPIS1
     RST 3
WROC     RST 2
     CPI '+'
     JZ DODAJ
     CPI '-'
     JZ ODEJMIJ
     CPI 'n'
     JZ NEGUJ
     STC
     CMC
     JMP WROC
DODAJ    LXI H,NAPIS2
     RST 3
     MOV B,D
     MOV C,E
     RST 5
     LXI H,NAPIS3
     RST 3
     MOV H,B
     MOV L,C
     DAD D
     JNC BEZPRZE
     MVI A,1
     RST 4
BEZPRZE      MOV A,H
     RST 4
     MOV A,L
     RST 4
     JMP KONIEC
NEGUJ    LXI H,NAPIS3
     RST 3
     MOV A,D
     CMA
     RST 4
     MOV A,E
     CMA
     RST 4
     JMP KONIEC
ODEJMIJ      LXI H,NAPIS2
     RST 3
     MOV B,D
     MOV C,E
     RST 5
     LXI H,NAPIS3
     RST 3
     MOV A,B
     CMP D
     JZ NAMINUS2
     MOV A,B
     SUB D
     JC NAMINUS
     JMP SKOK
NAMINUS2     MOV A,C
     SUB E
     JC NAMINUS
SKOK     MOV A,C
     SUB E
     MOV E,A
     MOV A,B
     SBB D
     MOV D,A
     JNC WYNIK
NAMINUS      CMC
     LXI H,ZNAK
     RST 3
     MOV A,E
     SUB C
     MOV E,A
     MOV A,D
     SBB B
     MOV D,A
WYNIK    RST 4
     MOV A,E
     RST 4
KONIEC   HLT
NAPIS2   DB 13,10,'Wprowadz drugi operand: @'
NAPIS3   DB 13,10,'Wynik operacji: @'
NAPIS    DB 13,10,'Wpisz pierwszy operand: @'
WITAJ    DB 'WITAJ W KALKULATORZE! @'
NAPIS1   DB 13,10,'Wprowadz operator: @'
ZNAK     DB '-@'