Robotron: 2084: Routine at 62600

62600: Routine at F488

Used by the routine at 62880.
62600	LD HL,22528
62603	LD C,A
62604	LD B,0
62606	LD E,A
62607	LD D,0
62609	SLA E
62611	RL D
62613	SLA E
62615	RL D
62617	SLA E
62619	RL D
62621	SLA E
62623	RL D
62625	SLA E
62627	RL D
62629	ADD HL,DE
62630	ADD HL,BC
62631	PUSH HL
62632	LD A,32
62634	SUB C
62635	SUB C
62636	LD B,A
62637	LD (50438),A
62640	LD A,(50439)
62643	LD (HL),A
62644	INC HL
62645	DJNZ 62643
62647	POP HL
62648	LD DE,32
62651	ADD HL,DE
62652	LD A,22
62654	SUB C
62655	SUB C
62656	JR Z,62688
62658	LD B,A
62659	LD A,(50438)
62662	DEC A
62663	LD E,A
62664	LD D,0
62666	LD (50436),DE
62670	LD A,(50439)
62673	PUSH HL
62674	LD (HL),A
62675	LD DE,(50436)
62679	ADD HL,DE
62680	LD (HL),A
62681	POP HL
62682	LD DE,32
62685	ADD HL,DE
62686	DJNZ 62673
62688	LD A,(50438)
62691	LD B,A
62692	LD A,(50439)
62695	LD (HL),A
62696	INC HL
62697	DJNZ 62695
62699	RET