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
kov: 
    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'   ;kell-e számolni
    jne   nemszamol ;ugrik, ha nem kell számolni
    inc   cl        ;noveli a számlálót
    mov   byte ptr[bx+si], 'b'
nemszamol:
    inc   si
    jmp   kov
vege:   
    mov   n, cl     ;n-be rakjuk a végeredményt
      
        
    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