Advertisement
T4JNE

Untitled

Nov 23rd, 2021
1,369
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. format PE Console 4.0
  2.  
  3. entry start
  4. include 'win32a.inc'
  5. include 'win_macros.inc'
  6.  
  7. section '.text' code readable executable
  8.  
  9. start:
  10. clrscr  ;1.
  11. ustaw_kursor 10, 2  ;2.
  12. wyswietl txt    ;3.
  13. ustaw_kursor 14, 10 ;4.
  14. mov bx, 0
  15. mov esi, 0
  16.  
  17. petla:
  18. mov bl, byte [txt+esi]  ;5.
  19. cmp bl, NULL        ;6.
  20. je skokdo10         ;6.
  21.  
  22. cmp bl, 48  ;sprawdzenie czy jest kodem ASCII cyfry
  23. jb niecyfra
  24. cmp bl, 57  ;sprawdzenie czy jest kodem ASCII cyfry
  25. ja niecyfra
  26.  
  27. ;8. Znak pominiety. Inkrementacja licznika cyfr
  28. inc [licznik_cyfr]
  29. jmp ety
  30.  
  31. ;7. Znak nie cyfra. wyswietlenie na ekranie
  32. niecyfra:
  33. wysw_znak bl
  34.  
  35. ;9.
  36. ety:
  37. inc esi
  38. jmp petla
  39.  
  40. ;10.
  41. skokdo10:
  42. wyswietl txt2
  43. mov ax, word [licznik_cyfr]
  44. add al, 48
  45. wysw_znak al
  46.  
  47.  
  48. koniec:
  49. pob_znak
  50. CMP al, 27
  51. JNE koniec
  52. end_prog
  53.  
  54. section '.data' data readable writeable
  55.     licznik_cyfr    db  0
  56.     txt     db  'SAD KNADNAJ BDKA 8231 lala',NULL
  57.     txt2    db  10,13,'Liczba pominietych znakow: ',NULL
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement