model   tiny,pascal
                .code
                .286
                jumps

                public  v_line

v_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     cx,len
next_pix:
                stosb
                add     di,319
                loop    next_pix
                ret
v_line          endp

                end