ChronosMM: Routine at 57625

57625: Routine at 57625

Used by the routine at L55492.
L57625	57625	LD A,(59686)
	57628	AND 7
	57630	LD B,A
	57631	LD A,(22530)	Get first visible ATTR value
	57634	AND 7
	57636	CP B
	57637	JR Z,L57625_0
	57639	INC A
	57640	AND 7
	57642	LD B,A
	57643	LD A,(22530)	Get first visible ATTR value
	57646	AND 248
	57648	OR B
	57649	LD (22530),A	Set first visible ATTR value
	57652	JP L57541
L57625_0	57655	LD A,(59686)
	57658	AND 56
	57660	LD B,A
	57661	LD A,(22530)	Get first visible ATTR value
	57664	AND 56
	57666	CP B
	57667	JR Z,L57625_1
	57669	SUB 8
	57671	AND 56
	57673	LD B,A
	57674	LD A,(22530)	Get first visible ATTR value
	57677	AND 199
	57679	OR B
	57680	LD (22530),A	Set first visible ATTR value
	57683	JP L57541
L57625_1	57686	LD HL,(59671)
	57689	LD DE,517
	57692	AND A	Clear carry flag
	57693	SBC HL,DE
	57695	JP NZ,L57625_2
	57698	LD A,69
	57700	LD (59686),A
	57703	JP L57625_6
L57625_2	57706	LD HL,(59671)
	57709	LD DE,1067
	57712	AND A	Clear carry flag
	57713	SBC HL,DE
	57715	JP NZ,L57625_3
	57718	LD A,79
	57720	LD (59686),A
	57723	LD A,0
	57725	LD (59667),A
	57728	JP L57625_6
L57625_3	57731	LD HL,(59671)
	57734	LD DE,1600
	57737	AND A	Clear carry flag
	57738	SBC HL,DE
	57740	JP NZ,L57625_4
	57743	LD A,86
	57745	LD (59686),A
	57748	JP L57625_6
L57625_4	57751	LD HL,(59671)
	57754	LD DE,2080
	57757	AND A	Clear carry flag
	57758	SBC HL,DE
	57760	JP NZ,L57625_5
	57763	LD A,68
	57765	LD (59686),A
	57768	JP L57625_6
L57625_5	57771	LD HL,(59671)
	57774	LD DE,2617
	57777	AND A	Clear carry flag
	57778	SBC HL,DE
	57780	RET NZ
	57781	LD A,67
	57783	LD (59686),A
	57786	LD A,1
	57788	LD (59667),A
L57625_6	57791	LD A,(59673)
	57794	INC A
	57795	LD (59673),A
	57798	JP L56117_1