0021 - Lerroa irakurri

title irakur.asm

Datuak segment para public 'data'
 mezua db 'Mesedez sartu zerbait: ','$'
 irakurritakoa db 11,11 dup(?)
Datuak ends


Kodea segment para public 'code'
 assume cs:Kodea,ds:Datuak

nagusia proc near

hasi:
 mov ax, Datuak
 mov ds, ax

 ; mezua atera
 mov ah,09h
 lea dx, mezua
 int 21h

 xor cx,cx
 xor dx,dx

 ; testua irakurri
 mov ah,0ah
 lea dx,irakurritakoa
 int 21h

 sub  ch,ch
 mov cl,irakurritakoa+1
 add  dx,2

 mov ah,4ch
 int 21h

nagusia endp
Kodea ends

end hasi