NEW
  AUTO 3,1
				.LIST OFF
*--------------------------------------	
Index			.BS 1
hDIRs			.BS X.MAX.RECURSE+1
hDIRENTs		.BS X.MAX.RECURSE+1
oDIRENTs		.BS X.MAX.RECURSE*2
STAT			.BS S.STAT
hFullPath		.BS 1
hSrcBasePath	.BS 1
hFilter			.BS 1

				.DO X.COPY.TO.DEST=1
hDstBasePath	.BS 1
				.FIN
*--------------------------------------		
MAN
SAVE USR/SRC/BIN/X.FILEENUM.G
LOAD USR/SRC/BIN/LS.S
ASM
