.model medium, basic
.stack 20h
.386
.code

;sub gsfill (seg, offset, color)
public gsfill
gsfill proc
mov bx, bp
mov bp,sp
push es
mov es, [bp+8]
mov di, [bp+6]
mov ax, [bp+4]
mov ah, al
mov cx, ax
shl eax, 16
mov ax, cx
mov cx, 16000
rep stosd
pop es
mov bp, bx
ret 6
gsfill endp
end
