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


;eljárás ami kiír egyetlen betűt. a betű kódját al-ben
;várja
betukiir proc             ;al ben a kiirandó betű
         mov     ah, 14   ;BIOS rutin paramétere
         int     10h      ;10h megszakítás hívása
         ret              ;visszatérés
betukiir endp

;eljárás ami kiír egy 0-val záródó karakterláncot
;a string elejét si mutatja
strkiir proc
  kov:  mov     al, [si]  ;következő betű
        cmp     al, 0     ;0 jelzi a str végét
        je      strvege   ;ha elértünk a végére ugrunk
        call    betukiir  ;egy betű kiirása
        inc     si        ;mutató a következő betűre
        jmp     kov       ;ugrás
  strvege:
        ret               ;eljárás vége
strkiir endp



start:
    mov   ax,adat   ;ds betoltese
    mov   ds,ax     ;ds beallitasa
  
                    ;ide jon maga a program
    mov   si, offset haho   ;
    call  strkiir
  
    mov   ah,4ch    ;kilepes
    mov   al,00h    ;visszateresi kod
    int   21h       ;dos megszakitás
kod ends

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

verem segment stack
  db  1024  dup (1)
verem ends

end     start