model   tiny,pascal
                .code
                .286
                jumps

                public  cls

cls             proc
                uses    es
                arg     color:byte

                push    0a000h
                pop     es
                xor     di,di
                mov     al,color
                mov     ah,al
                mov     cx,(320*200/2)
                rep     stosw
                ret
cls             endp

                end