Advertisement
Guest User

Untitled

a guest
Nov 18th, 2018
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. org 100h
  2.  
  3. ; Pętla głównego programu.
  4. mov cx, 1
  5. Program:
  6.  
  7. mov dx, prosze_wpisac
  8. mov ah, 9
  9. int 21h
  10.  
  11. ; Wpisanie ciągu znaków z klawiatury.
  12. mov ah, 0ah
  13. mov dx, znaki
  14. int 21h
  15.  
  16. ; Sprawdzenie czy ciąg znaków jest niepusty.
  17. mov al, [(znaki + 2 ) + 0]
  18. cmp al, 10
  19. je CzyKoniec
  20.  
  21. mov dx, 10
  22. mov ah, 2
  23. int 21h
  24.  
  25. ; Wypisywanie znaków.
  26. mov dx, wynik
  27. mov ah, 9
  28. int 21h
  29.  
  30. mov dx, znaki
  31. mov ah, 9
  32. int 21h
  33.  
  34. jmp CzyKoniec
  35. ; Koniec wypisywania znaków.
  36.  
  37. loop Program
  38. ; Koniec pętli głównego programu.
  39.  
  40.  
  41.  
  42. ; Sprawdzenie, czy użytkownik chce zakończyć program.
  43. CzyKoniec:
  44. mov dx, 10
  45. mov ah, 2
  46. int 21h
  47.  
  48. mov dx, czy_zakonczyc
  49. mov ah, 9
  50. int 21h
  51.  
  52. mov dx, 10
  53. mov ah, 2
  54. int 21h
  55.  
  56. mov dx, jesli_nie
  57. mov ah, 9
  58. int 21h
  59.  
  60. mov ah, 7
  61. int 21h
  62.  
  63. cmp al, 37
  64. je Koniec
  65.  
  66. mov dx, 10
  67. mov ah, 2
  68. int 21h
  69. inc cx
  70. ; Koniec funkcji.
  71.  
  72. ;Kończy program.
  73. Koniec:
  74. mov ax, 4c00h
  75. int 21h
  76. ;
  77.  
  78. section .data
  79. brak db "Nie wpisano znakow, prosze wpisac ponownie$"
  80. prosze_wpisac db "Prosze podac ciag znakow: $"
  81. wynik db "Zmieniony ciag znakow: $"
  82. czy_zakonczyc db "By zakonczyc program wcisnij znak '%'.$"
  83. jesli_nie db "W przypadku wprowadzenia innego znaku program bedzie kontynuowany.$"
  84. znaki db 51
  85. db 0
  86. times 52 db "$"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement