; MUL100TBL_H=100倍テーブル先頭の上位バイト
; BCDTBL_H=BCD変換テーブル先頭の上位バイト

; 100倍テーブルとBCD変換テーブルを作成
MAKE_BCDTBL:
	LD HL,MUL100TBL_H*100H
	LD D,L
	LD E,L
	LD BC,100
MKBCDT_L1:
	LD (HL),E
	INC H
	LD (HL),D
	DEC H
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	INC L
	JR NZ,MKBCDT_L1

	LD HL,BCDTBL_H*100H
	XOR A
MKBCDT_L2:
	LD (HL),A
	INC L
	ADD A,1
	DAA
	JR NC,MKBCDT_L2
	RET

; [DE..DE+IX] = packed BCD([HL..HL+BC-1])
BIN2BCD:
	LD A,(HL)
	LD (DE),A
	INC DE
	DEC BC
	ADD HL,BC
	DEC BC
	INC C
	INC B
	LD A,C
	LD C,B
	LD B,A
	EXX
	PUSH IX
	POP BC
BIN2BCD_L1:
	EXX
	PUSH HL
	PUSH BC
	PUSH DE
	XOR A
	LD D,MUL100TBL_H
BIN2BCD_L2:
	LD E,(HL)
	EX DE,HL
	ADC A,(HL)
	EX DE,HL
	LD (HL),A
	DEC HL
	INC D
	LD A,(DE)
	DEC D
	DJNZ BIN2BCD_L2
	DEC C
	JR NZ,BIN2BCD_L2
	ADC A,B
	LD D,BCDTBL_H
	LD E,A
	LD A,(DE)
	POP DE
	LD (DE),A
	INC DE
	POP BC
	POP HL
	EXX
	DEC BC
	LD A,B
	OR C
	JR NZ,BIN2BCD_L1
	RET