OEL TTX2000 Issue 2.3: Routine at 1C1F

1C1F: OELRoutine24


OELRoutine24	1C1F	LD A,$01
	1C21	JR OELRoutine24_0
	1C23	XOR A
OELRoutine24_0	1C24	LD (OELVariable02),A
	1C27	CALL OELRoutine17
	1C2A	LD (OELVariable01),A
	1C2D	LD A,$03
	1C2F	LD (OELVariable12),A
	1C32	CALL OELRoutine17
	1C35	CP $54	If 'T' jump to T.
	1C37	JR Z,T	If 'T' jump to T.
	1C39	CP $44	Else if 'D' jump to D.
	1C3B	JR Z,D	Else if 'D' jump to D.
	1C3D	CP $55	Else if 'U' jump to U.
	1C3F	JR Z,U	Else if 'U' jump to U.
	1C41	CP $45	Else if not 'E' jump to illegal_command.
	1C43	JP NZ,illegal_command	Else if not 'E' jump to illegal_command.
E	1C46	LD DE,OELRoutine11
	1C49	CALL OELRoutine17_1	Skip next two characters (should be SC)
	1C4C	CALL OELRoutine17_1	Skip next two characters (should be SC)
	1C4F	JR OELRoutine24_1
T	1C51	CALL OELRoutine17_1	Skip next character (should be X)
	1C54	CALL OELRoutine17
	1C57	CP $54	If 'T' jump to TXT.
	1C59	JR Z,TXT	If 'T' jump to TXT.
	1C5B	CP $4F	Else if 'O' jump to TXO.
	1C5D	JR Z,TXO	Else if 'O' jump to TXO.
	1C5F	CP $38	Else if not '8' jump to illegal_command.
	1C61	JP NZ,illegal_command	Else if not '8' jump to illegal_command.
TX8	1C64	LD DE,(OELWord17)
	1C68	JR OELRoutine24_1
U	1C6A	CALL OELRoutine17
	1C6D	CP $45	If 'E' jump to UE.
	1C6F	JR Z,UE	If 'E' jump to UE.
	1C71	CP $52	Else if 'R' jump to UR.
	1C73	JR Z,UR	Else if 'R' jump to UR.
	1C75	CP $4C	Else if not 'L' jump to illegal_command.
	1C77	JP NZ,illegal_command	Else if not 'L' jump to illegal_command.
UL	1C7A	CALL OELRoutine17_1	Skip next character (should be B)
	1C7D	LD DE,$1E0D
	1C80	JR OELRoutine24_1
D	1C82	CALL OELRoutine17
	1C85	CP $53	If 'S' jump to DS.
	1C87	JR Z,DS	If 'S' jump to DS.
	1C89	CP $45	Else if 'E' jump to DE.
	1C8B	JR Z,DE	Else if 'E' jump to DE.
	1C8D	CP $49	Else if 'I' jump to DI.
	1C8F	JP Z,DI	Else if 'I' jump to DI.
	1C92	CP $43	Else if 'C' jump to DC.
	1C94	JR Z,DC	Else if 'C' jump to DC.
	1C96	CP $54	Else if 'T' jump to DT.
	1C98	JR Z,DT	Else if 'T' jump to DT.
	1C9A	CP $4C	Else if 'L' jump to DL.
	1C9C	JP Z,DL	Else if 'L' jump to DL.
	1C9F	CP $58	Else if 'X' jump to DX.
	1CA1	JP Z,DX	Else if 'X' jump to DX.
	1CA4	CP $44	Else if not 'D' jump to illegal_command.
	1CA6	JP NZ,illegal_command	Else if not 'D' jump to illegal_command.
DD	1CA9	CALL OELRoutine17_1	Skip next character (should be T)
	1CAC	LD DE,(OELWord20)
	1CB0	JR OELRoutine24_1
TXT	1CB2	LD DE,(OELWord23)
	1CB6	JR OELRoutine24_1
TXO	1CB8	LD DE,OELRoutine07
	1CBB	JR OELRoutine24_1
UE	1CBD	CALL OELRoutine17_1	Skip next character (should be R)
	1CC0	LD DE,OELRoutine05
OELRoutine24_1	1CC3	LD HL,(OELWord01)
	1CC6	LD (OELWord12),HL
	1CC9	LD (HL),$3C
	1CCB	INC HL
	1CCC	LD (HL),E
	1CCD	INC HL
	1CCE	LD (HL),D
	1CCF	JP OELRoutine14_1
UR	1CD2	CALL OELRoutine17_1	Skip next character (should be B)
	1CD5	LD DE,$1E06
	1CD8	JR OELRoutine24_1
DC	1CDA	CALL OELRoutine17_1	Skip next character (should be O)
	1CDD	LD DE,OELRoutine22
	1CE0	JR OELRoutine24_1
DT	1CE2	CALL OELRoutine17_1	Skip next character (should be L)
	1CE5	LD DE,OELRoutine20
	1CE8	JR OELRoutine24_1
DS	1CEA	CALL OELRoutine17
	1CED	CP $42	If 'B' jump to DSB.
	1CEF	JR Z,DSB	If 'B' jump to DSB.
	1CF1	CP $4C	Else if 'L' jump to DSL.
	1CF3	JR Z,DSL	Else if 'L' jump to DSL.
	1CF5	CP $54	Else if not 'T' jump to illegal_command.
	1CF7	JP NZ,illegal_command	Else if not 'T' jump to illegal_command.
DST	1CFA	LD DE,OELRoutine21
	1CFD	JR OELRoutine24_1
DE	1CFF	CALL OELRoutine17
	1D02	CP $42	If 'B' jump to DEB.
	1D04	JR Z,DEB	If 'B' jump to DEB.
	1D06	CP $43	Else if 'C' jump to DEC.
	1D08	JR Z,DEC	Else if 'C' jump to DEC.
	1D0A	CP $53	Else if 'S' jump to DES.
	1D0C	JR Z,DES	Else if 'S' jump to DES.
	1D0E	CP $54	Else if not 'T' jump to illegal_command.
	1D10	JP NZ,illegal_command	Else if not 'T' jump to illegal_command.
DET	1D13	LD DE,OELRoutine06
	1D16	JR OELRoutine24_1
DI	1D18	CALL OELRoutine17
	1D1B	CP $47	If 'G' jump to DIG.
	1D1D	JR Z,DIG	If 'G' jump to DIG.
	1D1F	CP $52	Else if not 'R' jump to illegal_command.
	1D21	JP NZ,illegal_command	Else if not 'R' jump to illegal_command.
DIR	1D24	LD DE,OELRoutine10
	1D27	JR OELRoutine24_1
DL	1D29	CALL OELRoutine17
	1D2C	CP $41	If 'A' jump to DLA.
	1D2E	JR Z,DLA	If 'A' jump to DLA.
	1D30	CP $43	Else if 'C' jump to DLC.
	1D32	JR Z,DLC	Else if 'C' jump to DLC.
	1D34	CP $52	Else if 'R' jump to DLR.
	1D36	JR Z,DLR	Else if 'R' jump to DLR.
	1D38	CP $53	Else if not 'S' jump to illegal_command.
	1D3A	JP NZ,illegal_command	Else if not 'S' jump to illegal_command.
DLS	1D3D	LD DE,$1E3F
	1D40	JR OELRoutine24_1
DX	1D42	CALL OELRoutine17
	1D45	CP $41	If 'A' jump to DXA.
	1D47	JR Z,DXA	If 'A' jump to DXA.
	1D49	CP $52	Else if not 'R' jump to illegal_command.
	1D4B	JP NZ,illegal_command	Else if not 'R' jump to illegal_command.
DXR	1D4E	LD DE,$1DB7
	1D51	JP OELRoutine24_1
DSB	1D54	CALL OELRoutine17
	1D57	LD DE,(OELWord19)
	1D5B	JP OELRoutine24_1
DSL	1D5E	CALL OELRoutine17
	1D61	LD DE,(OELWord18)
	1D65	JP OELRoutine24_1
DEB	1D68	CALL OELRoutine17
	1D6B	LD DE,$175B
	1D6E	JP OELRoutine24_1
DEC	1D71	CALL OELRoutine17
	1D74	LD DE,(OELWord21)
	1D78	JP OELRoutine24_1
DES	1D7B	CALL OELRoutine17
	1D7E	LD DE,$1E42
	1D81	JP OELRoutine24_1
DIG	1D84	CALL OELRoutine17
	1D87	LD DE,$1E1B
	1D8A	JP OELRoutine24_1
DLA	1D8D	CALL OELRoutine17
	1D90	LD DE,$1DC1
	1D93	JP OELRoutine24_1
DLC	1D96	CALL OELRoutine17
	1D99	LD DE,(OELWord22)
	1D9D	JP OELRoutine24_1
DLR	1DA0	CALL OELRoutine17
	1DA3	LD DE,$1DB2
	1DA6	JP OELRoutine24_1
DXA	1DA9	CALL OELRoutine17
	1DAC	LD DE,$1DBC
	1DAF	JP OELRoutine24_1