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, 0     ;szamlalo
  mov bx, offset hahostr
 betolt:
  mov al, [bx]
  cmp al, 0
  je  vege
  inc bx
  inc cx
  jmp betolt
vege:
  
  mov ah,4ch    ;kilepes
  mov al,00h    ;visszateresi kod
  int 21h       ;dos megszakitás
kod ends

adat  segment
  hahostr   db "Haho !", 0
adat  ends

verem segment stack
  db  1024  dup (1)
verem ends

end     start