A2osX/BIN/MV.S.txt

PR#3
PREFIX /A2OSX.SRC
NEW
INC 1
AUTO 6
				.LIST OFF
				.OP	65C02
				.OR	$2000
				.TF /A2OSX.BOOT/BIN/MV
*--------------------------------------
				.INB /A2OSX.DEV/INC/MACROS.I
				.INB /A2OSX.DEV/INC/A2OSX.I
*--------------------------------------
X.MAX.RECURSE	.EQ 8
X.DST.BASE.PATH	.EQ 1
X.DELETE.SOURCE	.EQ 1				
*--------------------------------------
				.INB BIN/X.CPMV.S
*--------------------------------------
				.INB BIN/X.FILEENUM.S
*--------------------------------------
CS.END
*--------------------------------------
OptionList		>PSTR "CRY"
OptionVars		.DA #bContinue,#bRecurse,#bNoConfirm
*--------------------------------------
MSG.USAGE		>CSTR "Usage : MV [Src File/Dir, *,? wildcards allowed]\n   -C : Continue on error\n   -R : Recurse subdirectories\n   -Y : Dont't prompt for override\n"
MSG.DIR			>CSTR "MV Dir :%S to %S..."
MSG.FILE		>CSTR "MV File:%S%S to %S..."
MSG.OK			>CSTR "[OK]\n"
MSG.ERR			>CSTR "[%h]\n"
*--------------------------------------
STAT			.BS S.STAT
ArgCount		.BS 1
ArgIndex		.BS 1
*--------------------------------------
				.DUMMY
				.OR 0
DS.START
Index			.BS 1
hDIRs			.BS X.MAX.RECURSE
hDIRENTs		.BS X.MAX.RECURSE
oDIRENTs		.BS X.MAX.RECURSE*2
hSrcBasePath	.BS 1
hDstBasePath	.BS 1
hFilter			.BS 1
bPause			.BS 1
bContinue		.BS 1
bRecurse		.BS 1
bNoConfirm		.BS 1
DS.END
				.ED
*--------------------------------------
MAN
SAVE BIN/MV.S
ASM