.TITLE	ENTREM
		$FABDEF
		$NAMDEF
;
;	CALL DO_ENTER(%DESCR(DIRFILNAM),%REF(FID),%DESCR(ENTFILNAM))
;	CALL DO_REMOVE(%DESCR(DIRFILNAM),%REF(FID),%DESCR(REMFILNAM))
;
		.ENTRY	DO_ENTER,^M<R2,R3,R4,R5>
;
		MOVL	4(AP),R0
		MOVAB	FAB1,R2
		MOVAB	NAM1,R3
		MOVAB	DEFFILE,FAB$L_DNA(R2)
		MOVB	#DEFSIZE,FAB$B_DNS(R2)
		CLRB	FAB$B_FAC(R2)
		BISB	#FAB$M_BIO!FAB$M_GET,FAB$B_FAC(R2)
		MOVL	4(R0),FAB$L_FNA(R2)
		CVTWB	(R0),FAB$B_FNS(R2)
		CLRW	FAB$W_IFI(R2)
		MOVL	R3,FAB$L_NAM(R2)
		CLRB	FAB$B_SHR(R2)
		BISB	#FAB$M_SHRPUT!FAB$M_UPI,FAB$B_SHR(R2)
		CLRB	NAM$B_NOP(R3)
		BISB	#NAM$M_NOCONCEAL,NAM$B_NOP(R3)
		$OPEN	FAB=R2
		BLBC	R0,99$
		$CLOSE	FAB=R2
		BLBC	R0,99$
		MOVL	12(AP),R0
		MOVL	8(AP),R1
		MOVAB	NAM2,R5
		MOVAB	FAB2,R4
		CLRW	FAB$W_IFI(R4)
		MOVL	R5,FAB$L_NAM(R4)
		MOVL	NAM$W_FID(R3),NAM$W_DID(R5)
		MOVW	NAM$W_FID+4(R3),NAM$W_DID+4(R5)
		MOVQ	NAM$T_DVI(R3),NAM$T_DVI(R5)
		MOVQ	NAM$T_DVI+8(R3),NAM$T_DVI+8(R5)
		MOVL	4(R0),NAM$L_ESA(R5)
		CVTWB	(R0),NAM$B_ESL(R5)
		MOVL	(R1),NAM$W_FID(R5)
		MOVW	4(R1),NAM$W_FID+4(R5)
		CLRL	NAM$L_RSA(R5)
		CLRL	NAM$B_RSS(R5)
		$ENTER	FAB=R4
99$:		RET
;
		.ENTRY	DO_REMOVE,^M<R2,R3,R4,R5>
		MOVL	4(AP),R0
		MOVAB	FAB1,R2
		MOVAB	NAM1,R3
		MOVAB	DEFFILE,FAB$L_DNA(R2)
		MOVB	#DEFSIZE,FAB$B_DNS(R2)
		CLRB	FAB$B_FAC(R2)
		BISB	#FAB$M_BIO!FAB$M_GET,FAB$B_FAC(R2)
		MOVL	4(R0),FAB$L_FNA(R2)
		CVTWB	(R0),FAB$B_FNS(R2)
		CLRW	FAB$W_IFI(R2)
		MOVL	R3,FAB$L_NAM(R2)
		CLRB	FAB$B_SHR(R2)
		BISB	#FAB$M_SHRPUT!FAB$M_UPI,FAB$B_SHR(R2)
		CLRB	NAM$B_NOP(R3)
		BISB	#NAM$M_NOCONCEAL,NAM$B_NOP(R3)
		$OPEN	FAB=R2
		BLBC	R0,99$
		$CLOSE	FAB=R2
		BLBC	R0,99$
		MOVL	12(AP),R0
		MOVL	8(AP),R1
		MOVAB	NAM2,R5
		MOVAB	FAB2,R4
		CLRW	FAB$W_IFI(R4)
		CLRL	FAB$L_FOP(R4)
		BISL	#FAB$M_NAM,FAB$L_FOP(R4)
		MOVL	R5,FAB$L_NAM(R4)
		MOVL	NAM$W_FID(R3),NAM$W_DID(R5)
		MOVW	NAM$W_FID+4(R3),NAM$W_DID+4(R5)
		MOVQ	NAM$T_DVI(R3),NAM$T_DVI(R5)
		MOVQ	NAM$T_DVI+8(R3),NAM$T_DVI+8(R5)
		MOVL	4(R0),NAM$L_ESA(R5)
		CVTWB	(R0),NAM$B_ESL(R5)
		MOVL	(R1),NAM$W_FID(R5)
		MOVW	4(R1),NAM$W_FID+4(R5)
		CLRL	NAM$L_FNB(R5)
		CLRL	NAM$L_RSA(R5)
		CLRB	NAM$B_RSL(R5)
		CLRB	NAM$B_RSS(R5)
		CLRL	NAM$L_WCC(R5)
		$REMOVE	FAB=R4
99$:		RET
;
DEFFILE:	.ASCII	/.DIR;1/
DEFSIZE	=	.-DEFFILE
;
		.PSECT	RMSCOM,PIC,OVR,REL,GBL,SHR,NOEXE,RD,WRT,LONG
FAB1:		$FAB
NAM1:		$NAM
FAB2:		$FAB
NAM2:		$NAM
		.END