model   tiny,pascal
                .code
                .286
                jumps

                public  h_line

h_line          proc
                uses    es
                arg     x,y,len:word,color:byte

                cld
                mov     ax,y
                mov     di,ax
                shl     di,6
                shl     ax,8
                add     ax,x
                add     di,ax
                push    0a000h
                pop     es
                mov     al,color
                mov     ah,al
                mov     cx,len
                shr     cx,1
                rep     stosw
                jnc     exit
                stosb
exit:
                ret
h_line          endp

                end