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

skal proc
  push  bp         ;bp mentése
  mov   bp, sp     ;verem teteje
  push  si di bx dx cx;regiszterek mentése
  
  mov   si, [bp+8] ;1. paraméter
  mov   di, [bp+6] ;2. paraméter
  mov   cx, [bp+4] ;3. paraméter (hossz)
  mov   bx, 0      ;részeredmények
ciklus:
  mov   al, [si]
  mul   byte ptr [di]
  add   bx, ax
  inc   si
  inc   di
  loop  ciklus
  
  pop   cx dx bx di si;regiszterek visszatöltése
  pop   bp         ;bp visszatöltése
  ret
skal endp


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

adat  segment
  vector1 db 2, 3, 5
  vector2 db 1, 0, 3
adat  ends

verem segment stack
  db  1024  dup (1)
verem ends

end     start