
;mazanie obrazovky (10 riadkov)

zas      segment stack 'stack'
         dw 64
zas      ends

data       segment
nr         db 13,10,'$'
data         ends

code      segment
       assume cs:code,ss:zas, ds:data
start:
      mov ax,seg data
      mov ds,ax
      mov cl,0
posun:mov dx,offset nr
      mov ah,9
      int 21h
      inc cl
      cmp cl,0ah  ;je uz 10 riadkov?
      jb  posun   ; ak nie, odriadkuj
      mov ax,4c00h
      int 21h	
code  ends
      end start