.data?
	buffer_seg dw ?

.code

copy_buffer proc

	; copy via coprocessor
	push	ds
	push	es
	mov	ds, buffer_seg
	xor	si, si
	mov	ax, 0a000h
	mov	es, ax
	xor	di, di
	mov	cx, 64000/8
cb_copy:
	fld	qword ptr [si]
	add	si, 8
	fstp	qword ptr es:[di]
	add	di, 8
	dec	cx
	jnz	cb_copy
	pop	ds
	pop	es

	ret
endp

clear_buffer proc
	push	es
	mov	es, buffer_seg
	xor	di, di
	xor	eax, eax
	mov	cx, 16000
	cld
	rep	stosd
	pop	es
	ret
endp

retrace proc
	mov	dx, 03dah
r1:
	in	al, dx
	test	al, 8
	jz	r1
r2:
	in	al, dx
	test	al, 8
	jnz	r2
	ret
endp

;------------------------------------------------------------
;	in:	si - offset to palette
;	out:	none
;------------------------------------------------------------

set_palette proc
	mov	dx, 03c8h
	xor	ax, ax
	out	dx, al
	inc	dx
	mov	cx, 768
	cld
	rep	outsb
	ret
endp