0020 - Karaktereak banan banan

.model small

.data
cr equ 0ah
lf equ 0dh
mezua db 'Karaktere guztiak: ',cr,lf,'$'
dta db 128 dup(?)

.code
nagusia proc near
hasi:
 mov ax,@data
 mov ds,ax
 
 mov ah,09h
 lea dx,mezua
 int 21h
 
 ; Karaktere guztiak aterako ditugu:
 xor dx,dx
 xor cx,cx
 mov cx,128
 
segi:
 mov dl,cl
 mov ah,02h
 int 21h
 loop segi
 
 mov ah,4ch
 int 21h
 
nagusia endp
end hasi