Guest User

Untitled

a guest
May 20th, 2018
141
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.49 KB | None | 0 0
  1. org 100h
  2.  
  3. mov ah, 09h
  4. mov dx, info3
  5. int 21h
  6.  
  7. mov ah, 09h
  8. mov dx, info1
  9. int 21h
  10.  
  11. xor bx, bx
  12. mov cx, 4
  13.  
  14. wczytuj1:
  15. xor ah, ah
  16. int 16h
  17.  
  18. cmp al, '0'
  19. jb wczytuj1
  20. cmp al, '9'
  21. ja czyznak1
  22. jbe okcyfra1
  23.  
  24. czyznak1:
  25. cmp al, 'a'
  26. jb wczytuj1
  27. cmp al, 'f'
  28. ja wczytuj1
  29. jb okznak1
  30.  
  31. okcyfra1:
  32. mov ah, 0Eh
  33. int 10h
  34. sub al, 48
  35. shl bx, 4
  36. or bl, al
  37. jmp dalej1
  38.  
  39. okznak1:
  40. mov ah, 0Eh
  41. int 10h
  42. sub al, 97
  43. add al, 10
  44. shl bx, 4
  45. or bl, al
  46. jmp dalej1
  47.  
  48. dalej1:
  49. loop wczytuj1
  50.  
  51. mov ah, 09h
  52. mov dx, info2
  53. int 21h
  54.  
  55. xor dx, dx
  56. mov cx, 4
  57.  
  58. wczytuj2:
  59. xor ah, ah
  60. int 16h
  61.  
  62. cmp al, '0'
  63. jb wczytuj2
  64. cmp al, '9'
  65. ja czyznak2
  66. jbe okcyfra2
  67.  
  68. czyznak2:
  69. cmp al, 'a'
  70. jb wczytuj2
  71. cmp al, 'f'
  72. ja wczytuj2
  73. jb okznak2
  74.  
  75. okcyfra2:
  76. mov ah, 0Eh
  77. int 10h
  78. sub al, 48
  79. shl dx, 4
  80. or dl, al
  81. jmp dalej2
  82.  
  83. okznak2:
  84. mov ah, 0Eh
  85. int 10h
  86. sub al, 97
  87. add al, 10
  88. shl dx, 4
  89. or dl, al
  90. jmp dalej2
  91.  
  92. dalej2:
  93. loop wczytuj2
  94.  
  95.  
  96. cmp bx, dx
  97. je rowny
  98. jmp inny
  99.  
  100. rowny:
  101. mov ah, 09h
  102. mov dx, rowne
  103. int 21h
  104. mov ax, 4C00h
  105. int 21h
  106.  
  107. inny:
  108. mov ah, 09h
  109. mov dx, falsz
  110. int 21h
  111. mov ax, 4C00h
  112. int 21h
  113.  
  114.  
  115.  
  116. info1 db "Wpisz pierwsza liczbe: $"
  117. info2 db 0ah, "Wpisz druga liczbe: $"
  118. info3 db "Program sprawdza czy pierwsza liczba jest rΓ³wna liczbie drugiej drugiej", 0ah, "$"
  119.  
  120. falsz db 0ah, "Falsz$"
  121. rowne db 0ah, "Rowne$"
Add Comment
Please, Sign In to add comment