; master library - PC98V
;
; Description:
;	パレットの初期化
;
; Function/Procedures:
;	void palette_init( void ) ;
;
; Parameters:
;	none
;
; Returns:
;	none
;
; Binding Target:
;	Microsoft-C / Turbo-C / Turbo Pascal
;
; Running Target:
;	PC-9801
;
; Requiring Resources:
;	CPU: 8086
;
; Notes:
;	PalettesInitの内容をPalettesに転写し、PaletteToneを 100に設定し、
;	アナログパレットモードに設定し、表示します。
;
; Compiler/Assembler:
;	TASM 3.0
;	OPTASM 1.6
;
; Author:
;	恋塚昭彦
;
; Revision History:
;	92/11/17 Initial
;	93/ 6/12 [M0.19] デジタルパレットも初期化

func PALETTE_INIT
	push	SI
	push	DI
	push	DS
	pop	ES
	mov	DI,offset Palettes
	mov	SI,offset PalettesInit
	mov	CX,48/2
	rep	movsw
	pop	DI
	pop	SI

	mov	AL,0
	out	6ah,AL		; Digital mode
	mov	AL,04h		; initialize digital palette
	out	0aeh,AL
	mov	AL,26h
	out	0ach,AL
	mov	AL,15h
	out	0aah,AL
	mov	AL,37h
	out	0a8h,AL

	mov	AL,1
	out	6ah,AL		; Analog mode
	mov	PaletteTone,100
	call	PALETTE_SHOW
	ret
endfunc