	.TITLE	RMATCH
;+
; MASK -> .ASCIZ / '*' - Matches all /
;  STR -> .ASCIZ
;
; R1 = MASK
; R3 = STR
;
; R2 = DEST
;-

RMATCH::
	CMPB	(R1),#'*
	BEQ	3$
1$:	CMPB	(R1),#'*
	BEQ	NO
	MOVB	(R1)+,(R2)+
	BNE	1$
2$:	TSTB	(R3)+
	BNE	2$
	BR	YES

3$:	MOVB	(R3)+,(R2)+
	BNE	3$
	TSTB	(R1)+
	TSTB	(R1)+
	BNE	NO

YES:	CLC
	RETURN

NO:	SEC
	RETURN

	.END
                                                                                                                                             