Robotron: 2084: Routine at 60796

60796: Routine at ED7C

Used by the routines at 60360 and 60688.
60796	LD DE,22528
60799	LD A,(DE)
60800	LD HL,61019
60803	LD BC,10
60806	CPIR
60808	JR NZ,60812
60810	LD A,(HL)
60811	LD (DE),A
60812	INC DE
60813	LD A,D
60814	CP 91
60816	JR NZ,60799
60818	RET
This entry point is used by the routine at 60360.
60819	LD A,(DE)
60820	LD HL,61019
60823	LD BC,10
60826	CPIR
60828	JR NZ,60832
60830	LD A,(HL)
60831	LD (DE),A
60832	INC DE
60833	PUSH IX
60835	POP HL
60836	AND A
60837	SBC HL,DE
60839	JR NZ,60819
60841	RET
This entry point is used by the routine at 60360.
60842	PUSH IX
60844	POP HL
60845	LD A,E
60846	PUSH BC
60847	CALL 60930
60850	POP BC
60851	RET NZ
60852	INC HL
60853	LD A,(HL)
60854	CP D
60855	RET Z
60856	LD E,A
60857	INC HL
60858	LD A,(HL)
60859	PUSH DE
60860	CALL 60939
60863	POP DE
60864	CALL 60957
60867	PUSH IX
60869	POP HL
60870	INC HL
60871	LD A,D
60872	CALL 60930
60875	INC HL
60876	LD A,(HL)
60877	PUSH DE
60878	CALL 60939
60881	POP DE
60882	INC HL
60883	INC HL
60884	LD B,28
60886	LD (HL),C
60887	INC HL
60888	DJNZ 60886
60890	LD D,E
60891	XOR A
60892	RET
This entry point is used by the routine at 60360.
60893	PUSH IX
60895	POP HL
60896	LD A,E
60897	PUSH BC
60898	CALL 60930
60901	POP BC
60902	RET NZ
60903	INC HL
60904	LD A,(HL)
60905	CP D
60906	RET Z
60907	LD E,A
60908	INC HL
60909	LD L,(HL)
60910	LD H,89
60912	LD (HL),71
60914	PUSH IX
60916	POP HL
60917	INC HL
60918	LD A,D
60919	CALL 60930
60922	INC HL
60923	LD L,(HL)
60924	LD H,89
60926	LD (HL),C
60927	LD D,E
60928	XOR A
60929	RET
60930	CP (HL)
60931	RET Z
60932	INC HL
60933	INC HL
60934	INC HL
60935	DJNZ 60930
60937	DEC B
60938	RET