After Shock: Routine at A16D

A16D: Routine at A16D

Used by the routine at GetRoomPointer.
A16D	PUSH BC	Stash BC on the stack.
A16E	LD B,$10	B=10.
A170	LD A,H	A=H.
A171	LD C,L	C=L.
A172	LD HL,$0000	HL=0000.
A175	ADD HL,HL	HL+=HL.
A176	AND A	Set flags.
A177	RL C
A179	RLA
A17A	JR NC,$A17D
A17C	ADD HL,DE
A17D	DJNZ $A175
A17F	POP BC
A180	RET
A181	PUSH BC
A182	LD B,H
A183	LD C,L
A184	PUSH AF
A185	LD HL,$0000
A188	LD A,B
A189	LD B,$10
A18B	SLA C
A18D	RLA
A18E	ADC HL,HL
A190	SBC HL,DE
A192	JR C,$A1A1
A194	INC C
A195	DJNZ $A18B
A197	JR $A1A4
A199	SLA C
A19B	RLA
A19C	ADC HL,HL
A19E	ADD HL,DE
A19F	JR C,$A194
A1A1	DJNZ $A199
A1A3	ADD HL,DE
A1A4	EX DE,HL
A1A5	LD H,A
A1A6	LD L,C
A1A7	POP AF
A1A8	POP BC
A1A9	RET
A1AA	PUSH DE
A1AB	EX DE,HL
A1AC	LD HL,$0000
A1AF	AND A
A1B0	SBC HL,DE
A1B2	POP DE
A1B3	RET