Advertisement
Guest User

Untitled

a guest
Mar 19th, 2019
121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SAS 1.52 KB | None | 0 0
  1. %include "io.inc"
  2.  
  3. section .bss
  4.     n resd 1
  5.     mas resd 10000
  6.     data resd 1
  7.    
  8. section .data
  9.     ans dd 0
  10.     TWO dd 2
  11.     ZERO dd 0
  12.     I dd 0
  13.     J dd 0
  14.     MIN dd 0
  15.     SPACE db ' '
  16.    
  17. section .text
  18. global CMAIN
  19. CMAIN:
  20.     GET_UDEC 4, n
  21.     mov ecx, 0
  22.     mov ecx, dword[n]
  23.     mov edx, 0
  24.     mov esi, 0
  25.     CYCLE:
  26.         GET_DEC 4, data
  27.         mov edx, dword[data]
  28.         mov eax, edx
  29.         mov dword[mas + esi], eax
  30.         add esi, 4
  31.         dec ecx
  32.         cmp ecx, dword[ZERO]
  33.         jne CYCLE
  34.     mov ecx, dword[n]
  35.     mov esi, 0
  36.     mov ecx, dword[n]
  37.     mov esi, 0
  38.     mov eax, 0
  39.     l1:
  40.         mov ebx, ecx
  41.         mov ecx, dword[n]
  42.         mov dword[J], 0
  43.         l2:
  44.             mov eax, dword[I]
  45.             mov edx, dword[J]
  46.             cmp eax, edx
  47.             jg EndOfIf
  48.             mov esi, dword[I]
  49.             mov eax, dword[mas + esi]
  50.             mov esi, dword[J]
  51.             mov edx, dword[mas + esi]
  52.             cmp eax, edx
  53.             jl EndOfIf
  54.             mov esi, dword[I]
  55.             mov dword[mas + esi], edx
  56.             mov esi, dword[J]
  57.             mov dword[mas + esi], eax
  58.             EndOfIf:
  59.             add dword[J], 4
  60.             loop l2
  61.         add dword[I], 4
  62.         mov ecx, ebx
  63.         loop l1
  64.     mov ecx, dword[n]
  65.     mov esi, 0
  66.     COUT:
  67.         mov eax, dword[mas + esi]
  68.         PRINT_DEC 4, eax
  69.         PRINT_CHAR SPACE
  70.         add esi, 4
  71.         dec ecx
  72.         cmp ecx, 0
  73.         jne COUT
  74.     xor eax, eax
  75.     ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement