model   tiny,pascal
                .code
                .286
                jumps

                public  bar

bar             proc
                uses    es
                arg     x1,y1,x2,y2:word,color:byte

                cld
                mov     bx,x1
                mov     ax,y1
                mov     dx,ax
                mov     di,ax
                shl     di,6
                shl     ax,8
                add     ax,bx
                add     di,ax
                mov     cx,y2
                sub     cx,dx
                inc     cx
                mov     dx,x2
                sub     dx,bx
                inc     dx
                push    0a000h
                pop     es
                mov     al,color
                mov     ah,al
                shr     dx,1
next_line:
                push    di cx
                mov     cx,dx
                rep     stosw
                jnc     next
                stosb
next:
                pop     cx di
                pushf
                add     di,320
                popf
                loop    next_line
                ret
bar             endp

                end