OEL TTX2000 Issue 2.3: Routine at 170A

170A: OELRoutine03

Used by the routine at OELRoutine08.
OELRoutine03	170A	PUSH BC
	170B	LD A,C
	170C	LD HL,OELBuffer01
	170F	LD DE,$5B9A
	1712	PUSH HL
	1713	PUSH DE
	1714	LD BC,$001F
	1717	LD (HL),$FF
	1719	LDIR
	171B	LD B,A
	171C	RRCA
	171D	RRCA
	171E	RRCA
	171F	AND $1F
	1721	POP DE
	1722	POP HL
	1723	PUSH BC
	1724	LD C,A
	1725	LD B,$00
	1727	LD (HL),B
	1728	OR A
	1729	JR Z,OELRoutine03_0
	172B	LDIR
OELRoutine03_0	172D	ADD A,A
	172E	ADD A,A
	172F	ADD A,A
	1730	POP BC
	1731	SUB B
	1732	ADD A,$08
	1734	LD B,A
	1735	XOR A
OELRoutine03_1	1736	SCF
	1737	RRA
	1738	DJNZ OELRoutine03_1
	173A	LD (HL),A
	173B	POP BC
	173C	RET