180: Routine at 52215

52215: Routine at CBF7

Used by the routines at InterruptRoutine and 51986.
52215	LD A,(53257)	Return if *53257 is zero.
52218	AND A
52219	RET Z
52220	LD A,0	Write 0 to *52298.
52222	LD (52298),A	Write 0 to *52298.
52225	LD HL,52356	HL=52356.
52228	DEC (HL)	Decrease *HL by one.
52229	JR NZ,52258	Jump to 52258 if *HL is not equal to 0.
52231	LD B,(HL)	B=*HL.
52232	LD IX,52075	IX=52075.
52236	CALL 52554	Call 52554.
52239	LD IX,52106	IX=52106.
52243	CALL 52554	Call 52554.
52246	LD IX,52137	IX=52137.
52250	CALL 52554	Call 52554.
52253	LD HL,52356	HL=52356.
52256	LD (HL),1	Write 1 to *HL.
52258	LD IX,52075	IX=52075.
52262	CALL 52716	Call 52716.
52265	LD (52989),HL	Write HL to *52989.
52268	LD (52997),A	Write A to *52997.
52271	LD IX,52106	IX=52106.
52275	CALL 52716	Call 52716.
52278	LD (52991),HL	Write HL to *52991.
52281	LD (52998),A	Write A to *52998.
52284	LD IX,52137	IX=52137.
52288	CALL 52716	Call 52716.
52291	LD (52993),HL	Write HL to *52993.
52294	LD (52999),A	Write A to *52999.
52297	LD A,0	Write 0 to *52995.
52299	LD (52995),A	Write 0 to *52995.
52302	LD HL,53002	HL=53002.
52305	LD A,13	A=13.
52307	LD C,253	C=253.
52309	LD B,255	B=255.
52311	OUT (C),A	Send A to port *C.
52313	LD B,191	B=191.
52315	OUTD	OUTD.
52317	DEC A	Decrease A by one.
52318	JP P,52309	Jump to 52309 if A is greater than or equal to A.
52321	RET	Return.