ORG 800H
     LXI H,NAPIS1
     RST 3
     RST 5
POWR     LXI H,NAPIS2
     RST 3
     RST 2
     CPI '+'
     JZ DODAJ
     CPI '-'
     JZ ODEJMIJ
     CPI 'n'
     JZ NEGUJ
     JMP POWR
DODAJ    LXI H,NAPIS3
     RST 3
     MOV B,D
     MOV C,E
     RST 5
     LXI H,NAPIS4
     RST 3
     MOV H,B
     MOV L,C
     DAD D
     JNC WYNIK1
     MVI A,01H
     RST 4
WYNIK1
     MOV A,H
     RST 4
     MOV A,L
     RST 4
ODEJMIJ      LXI H,NAPIS3
     RST 3
     MOV B,D
     MOV C,E
     RST 5
     MOV A,B
     CMP D
     JZ DRUGI
     MOV A,B
     SUB D
     JC PRZEPEL
     MOV A,C
     SBB E
     MOV C,A
     MOV A,B
     SBB D
     LXI H,NAPIS4
     RST 3
     JMP WYNIK2
DRUGI    MOV A,C
     SUB E
     JC PRZEPEL
     MOV A,C
     SBB E
     MOV C,A
     MOV A,B
     SBB D
     LXI H,NAPIS4
     RST 3
     JMP WYNIK2
PRZEPEL
     CMC
     MOV A,E
     SUB C
     MOV C,A
     MOV A,D
     SBB B
     MOV B,A
     LXI H,NAPIS4
     RST 3
     LXI H,NAPIS5
     RST 3
WYNIK2
     RST 4
     MOV A,C
     RST 4
     HLT
NEGUJ    LXI H,NAPIS4
     RST 3
     MOV A,D
     CMA
     RST 4
     MOV A,E
     CMA
     RST 4
     HLT
NAPIS5   DB 10,13,'-@'
NAPIS4   DB 10,13,'Wynik: '10,13,'@'
NAPIS1   DB 'Wprowadz pierwsza liczbe '10,13,'@'
NAPIS2   DB 10,13,'Wprowadz znak '10,13,'@'
NAPIS3   DB 10,13,'Wprowadz druga liczbe '10,13,'@'