.TITLE	MATFAS
;
;		MATFAS IS SIMILAR TO MATCH ACCEPT IT DOES NO LENGTH
;		CHECKING FOR YOU, AND THUS RUNS FASTER.
;		THIS ALSO MEANS IT HAS FEWER PARAMETERS.
;
;		M=MATFAS(PATT,STRN)
;
;	WHERE
;		M=THE RETURN VALUE (MATFAS IS ALWAYS A FUNCTION)
;		PATT=THE PATTERN (SEE MATCH ROUTINE FOR A COMPLETE
;		STRN=THE STRING   DESCRIPTION OF THESE PARAMETERS)
;
MATCH::	MOV	2(R5),R0
	MOV	4(R5),R1
	JSR	PC,$MATCH
	BCS	ERROR
	MOV	#1,R0
	RTS	PC
ERROR:	CLR	R0
	RTS	PC
	.END