0018 - Teklatukoa irakurri eta atera

title logtekla.asm

Datuak segment para public 'data'
 mezua db 'Teklatutik jaso',10,13,'$'
 mezua2 db 'Jasotakoa:',10,13,'$'
 log db 15,0,'...............','$'
 ;log db 128 dup(?)
Datuak ends

Kodea segment para public 'code'
 assume cs:Kodea,ds:Kodea
nagusia proc near
hasi:

 mov ax,Datuak
 mov ds,ax

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

 ; teklatutik irakurri
 mov ah, 0ah
 lea dx, log
 int 21h

 ; irakurritakoa atera
 mov ah,09h
 lea dx,mezua2
 int 21h

 ; irakurritakoa atera
 mov ah,09h
 lea dx,log
 int 21h

 irten:
 mov ah,4ch
 int 21h

nagusia endp
Kodea ends
end hasi