写一个清屏程序

答：
；----------------------------------------------------；
assume  cs:code
code    segment
start:
        mov ax,0b800h
        mov es,ax
        mov bx,0
        mov cx,4000
s:      mov word ptr es:[bx],0720h
        add bx,2
        loop s
        mov ah,2
        mov bh,0
        mov dx,0
        int 10h
        mov ah,4ch
        int 21h
code    ends
end     start
；----------------------------------------------------；