Robotron: 2084: Routine at 63171

63171: Routine at F6C3

Used by the routine at 51279.
63171	LD HL,63197
63174	LD D,0
63176	LD A,(50431)
63179	DEC A
63180	ADD A,A
63181	LD E,A
63182	ADD HL,DE
63183	LD E,(HL)
63184	INC HL
63185	LD D,(HL)
63186	EX DE,HL
63187	LD DE,63192
63190	PUSH DE
63191	JP (HL)
63192	AND 31
63194	LD B,A
63195	LD C,A
63196	RET
63197	JP (HL)
63198	OR 4
63200	RST 48
63201	LD E,247
63203	DEC A
63204	RST 48
63205	XOR 246
63207	LD D,D
63208	RST 48
63209	CALL 63226
63212	AND C
63213	RET
63214	CALL 63226
63217	AND 31
63219	LD B,A
63220	LD A,C
63221	AND 31
63223	LD C,A
63224	POP HL
63225	RET
63226	LD A,239
63228	IN A,(254)
63230	LD C,A
63231	LD A,247
63233	IN A,(254)
63235	RET
63236	IN A,(31)
63238	LD B,0
63240	RRA
63241	RR B
63243	RRA
63244	RL B
63246	RL B
63248	RRA
63249	RL B
63251	RRA
63252	RL B
63254	RRA
63255	RL B
63257	LD A,B
63258	CPL
63259	OR 224
63261	RET
63262	LD BC,63486
63265	IN A,(C)
63267	OR 239
63269	LD E,A
63270	LD B,239
63272	IN A,(C)
63274	OR 254
63276	AND E
63277	LD E,A
63278	IN A,(C)
63280	OR 231
63282	RRCA
63283	RRCA
63284	AND E
63285	LD E,A
63286	IN A,(C)
63288	OR 251
63290	RLCA
63291	AND E
63292	RET
63293	IN A,(127)
63295	OR 112
63297	LD B,A
63298	RLCA
63299	OR 248
63301	LD C,A
63302	LD A,B
63303	OR 247
63305	AND C
63306	LD C,A
63307	LD A,B
63308	OR 251
63310	RLCA
63311	RLCA
63312	AND C
63313	RET
63314	LD BC,65022
63317	IN A,(C)
63319	OR 254
63321	RLCA
63322	LD E,A
63323	LD B,251
63325	IN A,(C)
63327	OR 254
63329	AND E
63330	RLCA
63331	LD E,A
63332	LD B,223
63334	IN A,(C)
63336	OR 252
63338	RLCA
63339	RLCA
63340	RLCA
63341	AND E
63342	RET