* PATCH FOR EDIT

ESC	EQU	$1B


INSTAT EQU	$F044
INCHA	EQU	$F015
OUTCH	EQU	$F018


	ORG	$006A

ENINT	RTS	Enable Interrupt
	NOP

DIINT	RTS	Disable Interrupt
	NOP

_RESET BRA	RESET1

_TSTIN BRA	TSTIN1

_INCH	BRA	INCH1

_OUTCH BRA	OUTCH1

RESET1 CLR	ESCFLG
	CLR	ESCWT
	RTS

TSTIN1 JMP	[INSTAT]

INCH1	JMP	INCHA

OUTCH1 TST	ESCFLG
	BEQ	OUTCH2
	JMP	ESC1
OUTCH2 TST	ESCWT
	BEQ	OUTCH3
	DEC	ESCWT
	BRA	NOESC
OUTCH3 CMPA	#ESC
	BNE	NOESC
	STA	ESCFLG
	RTS
NOESC	CMPA	#$08
	BNE	NOBS
	LDA	#$19
	BRA	NOHOME
NOBS	CMPA	#$1E
	BNE	NOHOME
	LDA	#$1D
NOHOME CLR	ESCFLG
OUT1	JMP	OUTCH

	ORG	$E400

ESC1	PSHS	X,B
	LDX	#ESCTAB
ESC2	TST	,X
	BEQ	ESC3
	CMPA	,X+
	BEQ	ESCSEQ
	LDB	,X+
	LEAX	B,X
	BRA	ESC2
*
ESC3	PULS	B,X
	CLR	ESCFLG
	RTS
*
ESCSEQ CMPA	#'=
	BNE	ESCSE2
	LDB	#2
	STB	ESCWT
ESCSE2 LDB	,X+
ESCSE1 LDA	,X+
	JSR	OUTCH
	DEC	B
	BNE	ESCSE1
	CLR	ESCFLG
	PULS	B,X,PC


ESCFLG FCB	0
ESCWT	FCB	0

ESCTAB FCB	'=
	FCB	2
	FCB	ESC,'E
	FCB	'T
	FCB	2
	FCB	ESC,'K
	FCB	't
	FCB	2
	FCB	ESC,'K
	FCB	'*
	FCB	1
	FCB	$0C
	FCB	'Y
	FCB	2
	FCB	ESC,'Z
	FCB	'y
	FCB	2
	FCB	ESC,'Z
	FCB	'(
	FCB	2
	FCB	ESC,'Q
	FCB	')
	FCB	2
	FCB	ESC,'P
*
	FCB	0

	END
                                                                                                                                                                                                                                                        