After Shock: Routine at 41325

41325: Routine at A16D

Used by the routine at GetRoomPointer.
41325	PUSH BC	Stash BC on the stack.
41326	LD B,16	B=16.
41328	LD A,H	A=H.
41329	LD C,L	C=L.
41330	LD HL,0	HL=0000.
41333	ADD HL,HL	HL+=HL.
41334	AND A	Set flags.
41335	RL C
41337	RLA
41338	JR NC,41341
41340	ADD HL,DE
41341	DJNZ 41333
41343	POP BC
41344	RET
41345	PUSH BC
41346	LD B,H
41347	LD C,L
41348	PUSH AF
41349	LD HL,0
41352	LD A,B
41353	LD B,16
41355	SLA C
41357	RLA
41358	ADC HL,HL
41360	SBC HL,DE
41362	JR C,41377
41364	INC C
41365	DJNZ 41355
41367	JR 41380
41369	SLA C
41371	RLA
41372	ADC HL,HL
41374	ADD HL,DE
41375	JR C,41364
41377	DJNZ 41369
41379	ADD HL,DE
41380	EX DE,HL
41381	LD H,A
41382	LD L,C
41383	POP AF
41384	POP BC
41385	RET
41386	PUSH DE
41387	EX DE,HL
41388	LD HL,0
41391	AND A
41392	SBC HL,DE
41394	POP DE
41395	RET