OEL TTX2000 Issue 2.3: Routine at 1A9D

1A9D: OELRoutine17

Used by the routines at OELRoutine07, OELRoutine19, OELRoutine23, datatype_and_hardware, OELRoutine24, 1DC4, 1E1B, 1E42, 1F28, 1F40 and 1F67.
OELRoutine17	1A9D	EX DE,HL	read byte from OELWord06 into B
	1A9E	LD HL,(OELWord06)
	1AA1	LD B,(HL)
	1AA2	EX DE,HL
	1AA3	LD A,(OELFlag02)	if OELFlag02 is not zero and byte in B has even parity, then jump to parity_error
	1AA6	OR A
	1AA7	JR Z,OELRoutine17_0
	1AA9	LD A,B
	1AAA	OR A
	1AAB	JP PE,parity_error
OELRoutine17_0	1AAE	RES 7,B	else clear high bit and copy to A
	1AB0	LD A,B	else clear high bit and copy to A
This entry point is used by the routines at OELRoutine18 and OELRoutine24.
OELRoutine17_1	1AB1	PUSH HL	increment OELWord06 and return
	1AB2	LD HL,(OELWord06)
	1AB5	INC HL
	1AB6	LD (OELWord06),HL
	1AB9	POP HL
	1ABA	RET