model   tiny,pascal
                .code
                .286
                jumps

                public  put_pix

put_pix         proc
                uses    es
                arg     x,y: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
                stosb
                ret
put_pix         endp

                end