.model small
.code
public clrscr
clrscr proc
       push  ax
       push  es
       push  di
       push  cx
       mov   ax,0b800h
       mov   es,ax
       xor   di,di
       mov   cx,2000
       mov   ax,0720h
       rep   stosw
;
       mov  dx,0
       mov  ah,02
       int  10h
       pop  cx
       pop  di
       pop  es
       pop  ax
       ret
clrscr endp
       end