Deathchase: Routine at 6113

6113: Switch from DAY to NIGHT

Used by the routine at 62CB.
6113	LD B,$05	Five colours
6115	LD C,$04	Start off cyan
6117	LD HL,$5841	Point to the attribute buffer
611A	PUSH BC
611B	PUSH HL
611C	LD A,C	Get the next colour?
611D	CP $04	Is it black?
611F	JR Z,$6140	Jump forward if so
6121	SLA C	Shift the colour into PAPER bit position
6123	SLA C
6125	SLA C
6127	LD B,$0A	10 rows
6129	PUSH BC
612A	PUSH HL
612B	LD B,$1E	30 columns
612D	LD A,(HL)	Get the next attribute
612E	AND $C7	Turn off PAPER bits and swap them for current colour
6130	OR C	Turn off PAPER bits and swap them for current colour
6131	LD (HL),A	Put the attribute back
6132	INC HL	Move to next column
6133	DJNZ $612D
6135	POP HL
6136	LD DE,$0020	Move to next row
6139	ADD HL,DE
613A	POP BC
613B	DJNZ $6129
613D	CALL $60AA	Play an ascending sound
6140	POP HL
6141	POP BC
6142	DEC C
6143	DJNZ $611A	Next colour
6145	LD C,$00
6147	CALL $62F7	Flip background colour on huge trees
614A	LD DE,$6B44	6B44 = "NIGHT PATROL"
614D	JP $6108