Chaos: Routine at C64C

C64C: SORT

Used by the routines at subversion_spell, raise_dead_spell, turmoil_spell, routine08, disbelieve_spell, routine17, routine55, routine59, routine60, routine62, routine64, routine66, FIREON, routine81 and routine84.
SORT	C64C	PUSH DE
	C64D	LD (unknown59),A
	C650	LD B,A
SORT_0	C651	PUSH BC
	C652	PUSH HL
	C653	LD A,(unknown59)
	C656	LD B,A
SORT_1	C657	PUSH BC
	C658	LD E,(HL)
	C659	INC HL
	C65A	LD D,(HL)
	C65B	INC HL
	C65C	LD C,(HL)
	C65D	INC HL
	C65E	LD B,(HL)
	C65F	DEC HL
	C660	LD A,C
	C661	CP E
	C662	JR Z,SORT_2
	C664	JR C,SORT_2
	C666	INC HL
	C667	LD (HL),D
	C668	DEC HL
	C669	LD (HL),E
	C66A	DEC HL
	C66B	LD (HL),B
	C66C	DEC HL
	C66D	LD (HL),C
	C66E	INC HL
	C66F	INC HL
SORT_2	C670	POP BC
	C671	DJNZ SORT_1
	C673	POP HL
	C674	POP BC
	C675	DJNZ SORT_0
	C677	POP DE
	C678	RET