.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

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

get_palette proc
	mov	dx,03c7h
	xor	ax,ax
	out	dx,al
	add	dx,2
	mov	cx,768
	cld
	rep	insb
	ret
endp