Robotron: 2084: Routine at 36224

36224: Routine at 8D80

Used by the routines at 54626, 54640 and 61517.
36224	LD B,69
36226	LD C,H
36227	SLA C
36229	RL B
36231	LD H,70
36233	SLA L
36235	RL H
36237	LD A,(HL)
36238	INC HL
36239	LD H,(HL)
36240	LD L,A
36241	LD A,(BC)
36242	ADD A,L
36243	LD L,A
36244	INC BC
36245	LD A,(BC)
36246	OR (HL)
36247	LD (HL),A
36248	RET
36249	LD B,69
36251	LD C,H
36252	SLA C
36254	RL B
36256	LD H,70
36258	SLA L
36260	RL H
36262	LD A,(HL)
36263	INC HL
36264	LD H,(HL)
36265	LD L,A
36266	LD A,(BC)
36267	ADD A,L
36268	LD L,A
36269	INC BC
36270	LD A,(BC)
36271	CPL
36272	AND (HL)
36273	LD (HL),A
36274	RET
36275	LD B,69
36277	LD C,H
36278	SLA C
36280	RL B
36282	LD H,70
36284	SLA L
36286	RL H
36288	LD A,(HL)
36289	INC HL
36290	LD H,(HL)
36291	LD L,A
36292	LD A,(BC)
36293	ADD A,L
36294	LD L,A
36295	INC BC
36296	LD A,(BC)
36297	XOR (HL)
36298	LD (HL),A
36299	RET