Advertisement
Guest User

Untitled

a guest
Feb 8th, 2019
136
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. N equ 5
  2. dseg at 30h
  3. addr_elem: ds 1
  4. min: ds 1
  5. cseg
  6.     sjmp Start
  7.     org 0030h
  8.  
  9. Mass: db 1, 2, 3, 4, 5
  10.  
  11. Start:
  12.     mov r0, #N ; Количество элементов
  13.     mov addr_elem, #Mass
  14.  
  15.     mov dph, #0
  16.     mov dpl, addr_elem
  17.  
  18.     clr a
  19.     movc a, @a + dptr ; Считали элемент
  20.  
  21.     mov min, a ; 1-ый элемент начальный минимум
  22.     inc dptr
  23.  
  24. search_min:
  25.     clr a
  26.     movc a, @a + dptr
  27.  
  28.     mov r1, min
  29.     subb a, r1
  30.     jnc no_swap_min
  31.     mov min, a
  32. no_swap_min:
  33.     inc dptr
  34.     djnz r0, search_min
  35. end
  36.  
  37. ; в min будет минимум
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement