OEL TTX2000 Issue 2.3: Routine at 1009

1009: exit_routine: Relocatable exit to BASIC routine.

This routine is copied to RAM so that it can be run with the ROM paged out. 7 bytes of the following routine are also copied.
exit_routine	1009	LD A,(control_register)	Set bit 3 of control register to page out ROM.
	100C	OR $08
	100E	OUT ($7F),A
	1010	LD HL,($5CB2)	Reset stack below RAMTOP.
	1013	DEC HL
	1014	LD SP,HL
	1015	LD A,$38	Set BORDCR system variable to $38 (white).
	1017	LD ($5C48),A	Set BORDCR system variable to $38 (white).
	101A	CALL $0D6B	Call CLS routine.
	101D	LD A,$07	Set the border colour to white, and EAR and MIC bits low.
	101F	OUT ($FE),A	Set the border colour to white, and EAR and MIC bits low.
	1021	XOR A	Set FLAGS system variable to 0.
	1022	LD ($5C3B),A	Set FLAGS system variable to 0.
	1025	LD DE,$1538	Set DE to address before copyright message and call PO_MSG.
	1028	CALL $0C0A	Set DE to address before copyright message and call PO_MSG.
	102B	LD HL,$5C3C	Set bit 5 of TV-FLAG system variable.
	102E	SET 5,(HL)	Set bit 5 of TV-FLAG system variable.
	1030	EI	Enable interrupts and jump to MAIN_1 in the BASIC main execution loop.
	1031	JP $12A9