ostapdontstop

15

Jan 7th, 2021 (edited)
247
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;====== Программа 15. Файл z4_pr15.asm ====================
  2.  
  3. masm
  4. model tiny
  5.  
  6.  
  7. .code
  8.     org     100h
  9.  
  10.  
  11. start:
  12.     call print_arr
  13.  
  14.  
  15.     mov cx,len
  16.     dec cx
  17.     mov bx,0
  18. .outer:
  19.     mov dl,array[bx]
  20.  
  21.     push cx
  22.     mov cx,len
  23.     sub cx,bx
  24.     dec cx
  25.  
  26.     mov si,bx
  27.  
  28. .inner:
  29.     inc si
  30.     cmp dl,array[si]
  31.  
  32.     jng .body
  33.     xchg dl,array[si]
  34.  
  35.  
  36. .body:
  37.     loop .inner
  38.  
  39.     mov array[bx],dl
  40.  
  41.     inc bx
  42.     pop cx
  43.     loop .outer
  44.     pop cx
  45.  
  46.  
  47.     call print_arr
  48.  
  49. .exit:
  50.     mov ax,4c00h
  51.     int 21h
  52.  
  53.  
  54. print_arr proc
  55.  
  56.     mov cx,len
  57.     mov bx,0
  58. .l:
  59.     mov dl,array[bx]
  60.     or dl,30h
  61.     mov ah,02h
  62.     int 21h
  63.  
  64.     cmp cx,1
  65.     je .endl
  66.  
  67.     mov dl, 2ch
  68.     int 21h
  69.  
  70.     inc bx
  71.     loop .l
  72.  
  73. .endl:
  74.     mov dl,10
  75.     int 21h
  76.  
  77.     ret
  78.  
  79. print_arr endp
  80.  
  81. array   db  1,9,8,5,2,0,7,4,3,6
  82. ; array     db  5,4,3,2,1
  83. len     equ $-array
  84.  
  85.  
  86. end start
  87.  
  88.  
RAW Paste Data