	.TITLE	COPY2
	.DSABL	GBL
	.GLOBL	RMATCH

;+
; R1 = .ASCIZ	"ABC:*.BAK"
; R3 = .ASCIZ	"MYFILE.MAC"
;
; R2 = .ASCIZ	"ABC:MYFILE.BAK"
;-

.R1:	.ASCIZ	"MYFILE.BAK"<0>
.R3:	.ASCIZ	"MYFILE.MAC"<0>

COPY2::
	MOV	R3,-(SP)
	MOV	R2,-(SP)
	MOV	R1,-(SP)

	MOV	#4,R0
1$:	MOVB	(R1)+,(R2)+
	SOB	R0,1$

	MOV	R1,R0
	MOV	#.R1,R1
2$:	MOVB	(R0)+,(R1)+
	BNE	2$
	MOV	#.R1,R1

	MOV	R3,R0
	MOV	#.R3,R3
3$:	MOVB	(R0)+,(R3)+
	BNE	3$
	MOV	#.R3,R3

	MOV	R1,-(SP)
	CALL	DOTS
	MOV	R3,R1
	CALL	DOTS
	MOV	(SP)+,R1

	CALL	RMATCH
	BCS	RET
	MOVB	#'.,-(R2)
	INC	R2

	CALL	RMATCH

RET:	MOV	(SP)+,R1
	MOV	(SP)+,R2
	MOV	(SP)+,R3
	RETURN

DOTS:	MOVB	(R1)+,R0
	BEQ	1$
	CMPB	R0,#'.
	BNE	DOTS
	CLRB	-(R1)
	INC	R1
	BR	DOTS
1$:	CLRB	(R1)
	RETURN

 	.END
                                                                                                                                                                                                                                                           