; WinRes Palette handling, Copr. 1994 Matthias K”ppe

;    $Id: wrespal.asm 1.3 1999/02/09 11:10:51 mkoeppe Exp $
 
;    This library is free software; you can redistribute it and/or
;    modify it under the terms of the GNU Library General Public
;    License as published by the Free Software Foundation; either
;    version 2 of the License, or (at your option) any later version.

;    This library is distributed in the hope that it will be useful,
;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;    Library General Public License for more details.

;    You should have received a copy of the GNU Library General Public
;    License along with this library; if not, write to the Free
;    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
	
		LOCALS	@@

	.286

CODE		SEGMENT BYTE PUBLIC

		ASSUME	CS: CODE

		PUBLIC	TripleToQuad

TripleToQuad	PROC	NEAR
		ARG	Count: WORD, Quad: DWORD, Triple: DWORD = ArgSize
		push	bp
		mov	bp, sp
		mov	cx, Count
		push	ds
		lds	si, Triple
		les	di, Quad
		cld
@@1:		lodsw
		stosw
		lodsb
		xor	ah, ah
		stosw
		loop	@@1
		pop	ds
		leave
		ret	ArgSize
TripleToQuad	ENDP

CODE		ENDS

		END
