.PSECT
#ROUTINE NAME#::	MOV	R5,-(SP)
	MOV	(PC)+,R1
	.BYTE	0,#CHARACTERS TO MATCH#
	MOV	#KTB,R2
	MOV	@4(R5),R3
	MOV	2(R5),R4
	MOV	##SYNTAX#,R5
	CALL	.TPARS
	BCS	TPRERR
	MOV	(SP)+,R5
	MOV	#1,@6(R5)
	RETURN
TPRERR:	MOV	#SEBUF,R0
	TST	R3
	BEQ	2$
1$:	MOVB	(R4)+,(R0)+
	SOB	R3,1$
2$:	CLRB	(R0)
	CLR	-(SP)
	MOV	#TPERM,-(SP)
	MOV	SP,R0
	CLR	R1
	JSR	PC,$ERRLG
	CMP	(SP)+,(SP)+
	MOV	(SP)+,R5
	CLR	@6(R5)
	RETURN
TPERM:	.ASCII	/SYNTAX ERROR/<15><12>/???   /
SEBUF:	.BLKB	132.
	.EVEN