Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
- SUB D
- JC PRZEPEL
- MOV C,A
- MOV A,B
- SBB D
- MOV B,A
- 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
- 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,'@'
- NAPIS5 DB 10,13,'-@'
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement