SHARE
TWEET

Untitled

a guest Nov 18th, 2019 89 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  ORG 800H  
  2.      LXI H,NAPIS1  
  3.      RST 3  
  4.      RST 5  
  5. POWR     LXI H,NAPIS2  
  6.      RST 3  
  7.      RST 2  
  8.      CPI '+'  
  9.      JZ DODAJ  
  10.      CPI '-'  
  11.      JZ ODEJMIJ  
  12.      CPI 'n'  
  13.      JZ NEGUJ  
  14.      JMP POWR  
  15. DODAJ    LXI H,NAPIS3  
  16.      RST 3  
  17.      MOV B,D  
  18.      MOV C,E  
  19.      RST 5  
  20.      LXI H,NAPIS4  
  21.      RST 3  
  22.      MOV H,B  
  23.      MOV L,C  
  24.      DAD D  
  25.      JNC WYNIK1  
  26.      MVI A,01H  
  27.      RST 4  
  28. WYNIK1  
  29.      MOV A,H  
  30.      RST 4  
  31.      MOV A,L  
  32.      RST 4  
  33. ODEJMIJ      LXI H,NAPIS3  
  34.      RST 3  
  35.      MOV B,D  
  36.      MOV C,E  
  37.      RST 5  
  38.      MOV A,B  
  39.      SUB D  
  40.      JC PRZEPEL  
  41.      MOV C,A  
  42.      MOV A,B  
  43.      SBB D  
  44.      MOV B,A  
  45.      LXI H,NAPIS4  
  46.      RST 3  
  47.      JMP WYNIK2  
  48. PRZEPEL  
  49.      CMC  
  50.      MOV A,E  
  51.      SUB C  
  52.      MOV C,A  
  53.      MOV A,D  
  54.      SBB B  
  55.      MOV B,A  
  56.      LXI H,NAPIS4  
  57.      RST 3  
  58.      LXI H,NAPIS5  
  59.      RST 3  
  60. WYNIK2  
  61.      RST 4  
  62.      MOV A,C  
  63.      RST 4  
  64.      HLT  
  65. NEGUJ    LXI H,NAPIS4  
  66.      RST 3  
  67.      MOV A,D  
  68.      CMA  
  69.      RST 4  
  70.      MOV A,E  
  71.      CMA  
  72.      RST 4  
  73.      HLT  
  74. NAPIS4   DB 10,13,'Wynik: '10,13,'@'                  
  75. NAPIS1   DB 'Wprowadz pierwsza liczbe '10,13,'@'                  
  76. NAPIS2   DB 10,13,'Wprowadz znak '10,13,'@'                    
  77. NAPIS3   DB 10,13,'Wprowadz druga liczbe '10,13,'@'                  
  78. NAPIS5   DB 10,13,'-@'
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top