Advertisement
Guest User

Untitled

a guest
Nov 20th, 2017
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.90 KB | None | 0 0
  1. .686
  2. .model flat
  3.  
  4. extern _ExitProcess@4 : near
  5. extern __write : near
  6. public _main
  7. .data
  8.  
  9. cyfry db '8','9','2',0
  10. cyfry2 db '1',0
  11. cyfry3 db '1','2',0
  12.  
  13.  
  14. wynik db 10 dup (?)
  15.  
  16. len equ $-tab-wynik
  17.  
  18. .code
  19.  
  20.  
  21. _main PROC
  22.  
  23. mov esi, offset cyfry2
  24. mov edi, offset wynik
  25.  
  26. mov edx,0
  27.  
  28. petla:
  29. mov al,[esi+edx]
  30. cmp al,0
  31. jz koniec
  32. inc edx ; zliczenie znakow
  33. jz koniec
  34. jmp petla
  35. koniec: ; gdy dotrzemy do bitu 0
  36.  
  37.  
  38. cmp edx,3 ; ze wzgledu na ilosc cyfr zmieniamy opcje dzialania
  39. jae wiecejtrzy
  40. cmp edx,2
  41. jae dwa
  42.  
  43. jeden:
  44. mov ecx,dword ptr [esi]
  45. mov [edi],byte ptr '0'
  46. mov [edi+1],byte ptr '.'
  47. mov [edi+2],byte ptr '0'
  48. mov [edi+3],cl
  49.  
  50.  
  51. jmp koniec2
  52. dwa:
  53. dec edx
  54. mov ecx,[ebx][edx] ;
  55. mov eax,[ebx][edx+1];
  56.  
  57.  
  58. jmp koniec2
  59. wiecejtrzy:
  60.  
  61.  
  62.  
  63.  
  64. koniec2:
  65.  
  66.  
  67. push edx
  68. push edi
  69. push 1
  70. call __write
  71. add esp,12
  72.  
  73.  
  74. push 0
  75. call _ExitProcess@4
  76. _main ENDP
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement