.386p
locals

code32 segment para public use32
	assume cs:code32, ds:code32

clear_buffer proc
	mov	edi,frame_buffer
	xor	eax,eax
	mov	ecx,64000/4
	cld
	rep	stosd
	ret
endp

copy_buffer proc
	mov	esi,frame_buffer
	mov	edi,_a0000h
	mov	ecx,64000/4
	cld
	rep	movsd
	ret
endp

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

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

set_palette proc
	mov	edx,03c8h
	xor	eax,eax
	out	dx,al
	inc	edx
	mov	ecx,768
	cld
	rep	outsb
	ret
endp

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

get_palette proc
	mov	edx,03c7h
	xor	eax,eax
	out	dx,al
	add	edx,2
	mov	ecx,768
	cld
	rep	insb
	ret
endp

_a0000h		dd ?
frame_buffer	dd ?

code32 ends