SHARE
TWEET

Untitled

a guest Nov 18th, 2019 81 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.      ORG 800H  
  2.      LXI H,WITAJ  
  3.      RST 3  
  4.      LXI H,NAPIS  
  5.      RST 3  
  6.      RST 5  
  7.      LXI H,NAPIS1  
  8.      RST 3  
  9. WROC     RST 2  
  10.      CPI '+'  
  11.      JZ DODAJ  
  12.      CPI '-'  
  13.      JZ ODEJMIJ  
  14.      CPI 'n'  
  15.      JZ NEGUJ  
  16.      STC  
  17.      CMC  
  18.      JMP WROC  
  19. DODAJ    LXI H,NAPIS2  
  20.      RST 3  
  21.      MOV B,D  
  22.      MOV C,E  
  23.      RST 5  
  24.      LXI H,NAPIS3  
  25.      RST 3  
  26.      MOV H,B  
  27.      MOV L,C  
  28.      DAD D  
  29.      JNC BEZPRZE  
  30.      MVI A,1  
  31.      RST 4  
  32. BEZPRZE      MOV A,H  
  33.      RST 4  
  34.      MOV A,L  
  35.      RST 4  
  36.      JMP KONIEC  
  37. NEGUJ    LXI H,NAPIS3  
  38.      RST 3  
  39. NAMINUS      MOV A,D  
  40.      CMA  
  41.      RST 4  
  42.      MOV A,E  
  43.      CMA  
  44.      RST 4  
  45.      JMP KONIEC  
  46. ODEJMIJ      LXI H,NAPIS2  
  47.      RST 3  
  48.      MOV B,D  
  49.      MOV C,E  
  50.      RST 5  
  51.      LXI H,NAPIS3  
  52.      RST 3  
  53.      MOV A,C  
  54.      SUB E  
  55.      MOV E,A  
  56.      MOV A,B  
  57.      SBB D  
  58.      MOV D,A  
  59.      JNC WYNIK  
  60.      INR A  
  61.      LXI H,ZNAK  
  62.      RST 3  
  63.      DCR E  
  64.      JMP NAMINUS  
  65. WYNIK    RST 4  
  66.      MOV A,E  
  67.      RST 4  
  68. KONIEC   HLT  
  69. NAPIS1   DB 13,10,'Wprowadz operator: @'                              
  70. ZNAK     DB '-@'            
  71. NAPIS2   DB 13,10,'Wprowadz drugi operand: @'            
  72. NAPIS3   DB 13,10,'Wynik operacji: @'            
  73. NAPIS    DB 13,10,'Wpisz pierwszy operand: @'          
  74. WITAJ    DB 'WITAJ W KALKULATORZE! @'
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
 
Top