Rex: Routine at C9E3

C9E3: Generate train parts: front, middle or rear wagon

Called but never completely executed. There are no trains in Rex (Side B). Used by the routine at 9470.
C9E3	LD A,($A1DE)	Return if not generating train in current room
C9E6	OR A
C9E7	RET Z
code never executed. Remnant from Rex (Side A)
C9E8	LD A,($A1E1)
C9EB	DEC A
C9EC	LD ($A1E1),A
C9EF	OR A
C9F0	RET NZ
C9F1	LD HL,$5E72
C9F4	LD A,($A22B)
C9F7	LD B,A
C9F8	LD A,(HL)
C9F9	OR A
C9FA	JP Z,$CA08
C9FD	LD DE,$001B
CA00	ADD HL,DE
CA01	DJNZ $C9F8
CA03	XOR A
CA04	LD ($A1DE),A
CA07	RET
CA08	LD DE,$000C
CA0B	AND A
CA0C	SBC HL,DE
CA0E	PUSH HL
CA0F	POP IX
CA11	LD IY,($A1DF)
CA15	LD A,(IY+$00)
CA18	CP $FF
CA1A	JP Z,$CA30
CA1D	CALL $CB77
CA20	LD A,(IY+$03)
CA23	LD ($A1E1),A
CA26	LD DE,$0004
CA29	ADD IY,DE
CA2B	LD ($A1DF),IY
CA2F	RET
CA30	XOR A
CA31	LD ($A1DE),A
CA34	RET