CGROUP	GROUP	TEXT
		TEXT	CSEG

_Hpalet_set00::
		push	es

		mov		si,ax

		mov		bx,0f0h
		xor		ax,ax
		mov		es,ax

loop:
		mov		ax,[ bx + si + 0 ]
		mov		es:[ bx + 0fe00h ],ax

		mov		ax,[ bx + si + 2 ]
		mov		es:[ bx + 0fe02h ],ax

		mov		ax,[ bx + si + 4 ]
		mov		es:[ bx + 0fe04h ],ax

		mov		ax,[ bx + si + 6 ]
		mov		es:[ bx + 0fe06h ],ax

		mov		ax,[ bx + si + 8 ]
		mov		es:[ bx + 0fe08h ],ax

		mov		ax,[ bx + si + 10 ]
		mov		es:[ bx + 0fe0ah ],ax

		mov		ax,[ bx + si + 12 ]
		mov		es:[ bx + 0fe0ch ],ax

		mov		ax,[ bx + si + 14 ]
		mov		es:[ bx + 0fe0eh ],ax

		sub		bx,0010h

		jae		loop
;
		pop		es
		ret

_Hpalet_set01::
		push	es

		mov		si,ax

		mov		bx,0fch
		xor		ax,ax
		mov		es,ax

loop2:
		mov		ax,[ bx + si + 0 ]
		mov		es:[ bx + 0ff00h ],ax

		mov		ax,[ bx + si + 2 ]
		mov		es:[ bx + 0ff02h ],ax

		sub		bx,0004h

		jae		loop2
;
		pop		es
		ret

  END