include	clib.inc
include	conio.inc

_TEXT	SEGMENT

resetpal proc dist public
	push si
	xor si,si
	.repeat
	    invoke setpal, si, si
	    inc si
	.until si == 8
	mov si,56
	.repeat
	    mov ax,si
	    add ax,-48
	    invoke setpal, si, ax
	    inc si
	.until si == 64
	invoke setpal, 0014h, 0006h
	pop si
	ret
resetpal endp

_TEXT	ENDS

	END
