Hunchback: Routine at 8B5F

8B5F: Input a new entry in the high score table

Used by the routine at 8A71.
8B5F	LD HL,$8D49
8B62	INC HL
8B63	INC HL
8B64	LD B,$0C
8B66	LD (HL),$5F
8B68	INC HL
8B69	DJNZ $8B66
8B6B	LD IX,$8D49
8B6F	CALL $8BC4
8B72	LD DE,$8D4B
8B75	LD HL,$5A22
8B78	PUSH DE
8B79	PUSH HL
8B7A	CALL $028E
8B7D	LD A,E
8B7E	CP $FF
8B80	JR NZ,$8B7A
8B82	POP HL
8B83	CALL $8C13
8B86	POP DE
8B87	CP $21
8B89	RET Z
8B8A	CP $23
8B8C	JR NZ,$8BA4
8B8E	LD A,E
8B8F	CP $4B
8B91	JR Z,$8B78
8B93	LD A,$5F
8B95	DEC DE
8B96	LD (DE),A
8B97	PUSH DE
8B98	PUSH HL
8B99	LD IX,$8D49
8B9D	CALL $8BC4
8BA0	POP HL
8BA1	POP DE
8BA2	JR $8B78
8BA4	PUSH HL	Add the selected character to the new high score name
8BA5	PUSH DE
8BA6	LD DE,$5A22
8BA9	SBC HL,DE
8BAB	EX DE,HL
8BAC	LD HL,$8C55
8BAF	ADD HL,DE
8BB0	LD A,(HL)
8BB1	POP DE
8BB2	LD (DE),A
8BB3	PUSH DE
8BB4	LD IX,$8D49
8BB8	CALL $8BC4
8BBB	POP DE
8BBC	INC DE
8BBD	POP HL
8BBE	LD A,E
8BBF	CP $57
8BC1	RET Z
8BC2	JR $8B78