	.TITLE	SCNMSK
	.DSABL	GBL
	.GLOBL	FUNC
	.GLOBL	BREAK	KILKEY
	.GLOBL	PTRS	DEV
	.GLOBL	UNPNX	MINI
	.GLOBL	MATCH

SCNMSK::
	MOV	(R5),R3
	BEQ	3$
	MOV	PTRS(R5),R4
1$:	TSTB	BREAK
	BNE	3$
	MOV	(R4),R2
	CALL	UNPNX
MASK	==	. + 2
	MOV	#0,R1
	MOV	#MINI,R2
	CALL	MATCH
	MOV	(R4)+,R2
	BCS	2$
	MOV	R3,-(SP)
	MOV	R4,-(SP)
	CALL	@FUNC
	MOV	(SP)+,R4
	MOV	(SP)+,R3
2$:	SOB	R3,1$
3$:	CALL	KILKEY
	RETURN

	.END
                                                                                     