Marsport: Routine at 8628

8628: Herald warning

Used by the routine at Bg_DrawColumn.
Warning_Herald	8628	PUSH HL
	8629	LD A,($BD65)
	862C	XOR (IX+$08)
	862F	AND $7F
	8631	JR Z,Warning_Herald_0
	8633	LD A,(Hero_ThroughDoor)
	8636	AND A
	8637	JR NZ,Warning_Herald_0
	8639	CALL Print_WarningCentered
Str_WarningHerald	863C	DEFM "warning - warden!",$5E	String : Warning, herald
Warning_Herald_0	864E	LD HL,$8624
This entry point is used by the routine at _85f4.
Warning_Herald_1	8651	LD A,($C3CE)
	8654	AND A
	8655	JR NZ,Warning_Herald_3
	8657	LD DE,$C3D9
	865A	LD BC,$0004
	865D	LDIR
	865F	LD HL,$C3CE
	8662	LD (HL),$61
	8664	INC HL
	8665	LD C,$03
	8667	LD B,$01
	8669	BIT 7,(IY+$3E)
	866D	JR Z,Warning_Herald_2
	866F	LD C,$01
	8671	LD B,$FF
Warning_Herald_2	8673	LD (HL),C
	8674	INC HL
	8675	LD (HL),$0C
	8677	INC HL
	8678	LD (HL),$00
	867A	INC HL
	867B	LD (HL),B
	867C	LD HL,($5B02)
	867F	LD ($C3D3),HL
	8682	LD HL,($5B06)
	8685	LD ($C3D5),HL
	8688	LD A,$18
	868A	LD ($C3D7),A
	868D	LD A,(Level_Char)
	8690	LD ($C3D8),A
	8693	LD HL,(Handle_Lockers)
	8696	INC HL
	8697	LD (HL),$02
	8699	LD A,($C3D9)
	869C	LD ($C41D),A
Warning_Herald_3	869F	POP HL
	86A0	RET