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

start:
    mov   ax,adat   ;ds betoltese
    mov   ds,ax     ;ds beallitasa
  
                    ;ide jon maga a program
    mov   cx, len   ;cx= hossz
    mov   bx, offset sor ;bx-be kerul sor offsetje
    xor   dx, dx    ;dx=0
betolt:
    mov   al, [bx]  ;szam betöltése al-be
    cmp   al, dl    ;ha <= mint az eddigi legnagyobb
    jbe   kov       ;ugorja át a következő utasítást
    mov   dl, al    ;ez lesz az aktuális legnagyobb
kov:
    inc   bx        ;index novelese
    loop  betolt
    mov   max, dl   ;max valtozoba taroljuk el cl-t
  
    mov   ah,4ch    ;kilepes
    mov   al,00h    ;visszateresi kod
    int   21h       ;dos megszakitás
kod ends

adat  segment
    len   dw 5
    max   db 0
    sor   db 4,5,2,7,3
adat  ends

verem segment stack
  db  1024  dup (1)
verem ends

end     start