	.TITLE	CMPDIR
	.DSABL	GBL
	.GLOBL	ENTRY
	.GLOBL	MODE	RDRAW
	.GLOBL	ENTSIZ	DIR
	.GLOBL	$0	$1
	.GLOBL	CMPDAT
	.GLOBL	BUFF

	.INCLU	"SCRMAC"
	.INCLU	"DIAMAC"

$NA	=	2
$ME	=	4
$EXT	=	6
$SIZE	=	10
$DATE	=	14

.MACRO	.CMP	$BY	NOB
		CMP	$BY(R1),$BY(R2)
.IIF B <NOB>	BNE	NOT
.ENDM

A.F5::
	MOV	$0+MODE,R0
	BIS	$1+MODE,R0
	BIT	#100200,R0
	BEQ	1$
	.DIALOG	#D.YN2
	BR	3$

1$:	.DIALOG	#D.CMPING

	CLR	DIFF

	MOV	R5,R4
	ADD	-(R4),R4
	CALL	CMPDIR
	MOV	R4,R5
	ADD	-(R4),R4
	CALL	CMPDIR

	CLRB	ING
	.WRES
	.WSCUR
DIFF	=	. + 2
	TST	#0
	BNE	2$
	.DIALOG	#D.TDI
2$:
3$:	JMP	ENTRY

CMPDIR:
	MOV	@R5,R0
	BEQ	RET

	MOV	DIR(R5),R1
	MOV	#BUFF,R2
1$:	MOVB	@R1,(R2)+
	ADD	#ENTSIZ,R1
	SOB	R0,1$

	MOV	@R5,R0
	MOV	DIR(R5),R1
ONE:	INC	DIFF
	BIS	#1,@R1

	MOV	@R4,R3
	BEQ	.ONE
	MOV	DIR(R4),R2
TWO:	MOV	R3,-(SP)

	.CMP	$NA
	.CMP	$ME
	.CMP	$EXT
	CALL	CMPDATE
	BNE	YES
	.CMP	$SIZE	NOB

YES:	BHI	2$
	BNE	1$
1$:	DEC	DIFF
	BIC	#1,@R1
2$:	TST	(SP)+
	BR	.ONE

NOT:	ADD	#ENTSIZ,R2
	MOV	(SP)+,R3
	SOB	R3,TWO

.ONE:	ADD	#ENTSIZ,R1
	SOB	R0,ONE

	MOV	@R5,R0
	MOV	DIR(R5),R1
	MOV	#BUFF,R2
1$:	CMPB	@R1,(R2)+
	BEQ	2$
	INCB	RDRAW(R5)
	BR	RET

2$:	ADD	#ENTSIZ,R1
	SOB	R0,1$

RET:	RETURN

	.END
                                                                                                                                                                                                                                                                                           