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   cl, 0     ;számláló
    mov   bx, offset text
    mov   si, 0
betolt: 
    mov   al, [bx+si] ;betöltjük a köv. betűt
    cmp   al, 0     ;elérkeztünk a végére?
    je    vege      ;ha igen, ugrik a végére
    cmp   al, 'a'   ;a-nal nagyobb e
    jb    kov       ;ugrik, ha nem
    cmp   al, 'z'   ;z-nel kisebb e
    ja    kov
    add   al, 'A'-'a'
    mov   [bx+si], al
kov:
    inc   si
    jmp   betolt
vege:   
        
    mov   ah,4ch    ;kilepes
    mov   al,00h    ;visszateresi kod
    int   21h       ;dos megszakitás
kod ends

adat  segment
    n     db ?
    text  db "Hahaha kabala", 0
adat  ends

verem segment stack
  db  1024  dup (1)
verem ends

end     start