kod segment
  assume cs:kod,ds:adat,ss:verem

;kiszámolja egy előjeltelen bájtsorozat átlagát
;1. param: sor offsetje
;2. param: sor hossza
avg proc
  push  bp         ;bp mentése
  mov   bp, sp     ;verem teteje
  push  cx si bx dx;regiszterek mentése
  
  mov   cx, [bp+4] ;2. paraméter
  mov   si, [bp+6] ;1. paraméter
  mov   ax, 0      ;részeredmények
ciklus:
  mov   bl, [si]
  mov   bh, 0      ;előjeltelen számok 
                   ;(cikluson kivül erdemesebb)
  add   ax, bx
  inc   si
  loop  ciklus
  
  mov   cx, [bp+4]
  mov   dx, 0
  div   cx         ;osztunk a sor hosszával
  
  pop   bx dx si cx;regiszterek visszatöltése
  pop   bp         ;bp visszatöltése
  ret
avg endp


start:
  mov   ax,adat    ;ds betoltese
  mov   ds,ax      ;ds beallitasa
            
  mov   ax, offset sor       
  push  ax         ;1. param
  mov   ax, 5
  push  ax         ;2. param
  call  avg        
  add   sp, 4      ;2 paraméter kivesz
                   
  mov ah,4ch       ;kilepes
  mov al,00h       ;visszateresi kod
  int 21h          ;dos megszakitás
kod ends

adat  segment
  sor db 3, 5, 4, 2, 6
adat  ends

verem segment stack
  db  1024  dup (1)
verem ends

end     start