A2osX/BIN/MV.S.txt

PR#3
PREFIX /A2OSX.BUILD
NEW
INC 1
AUTO 6
				.LIST OFF
				.OP	65C02
				.OR	$2000
				.TF /A2OSX.BUILD/BIN/MV
*--------------------------------------
				.INB /A2OSX.BUILD/INC/MACROS.I
				.INB /A2OSX.BUILD/INC/A2OSX.I
				.INB /A2OSX.BUILD/INC/MLI.ERR.I				
*--------------------------------------
X.COPY.TO.DEST	.EQ 1
X.DELETE.SOURCE	.EQ 1				
*--------------------------------------
				.INB /A2OSX.SRC/BIN/X.CPMVRM.S
				.INB /A2OSX.SRC/BIN/X.FILEENUM.S
*--------------------------------------
CS.END
*--------------------------------------
OptionList		>PSTR "CRY"
OptionVars		.DA #bContinue,#bRecurse,#bNoConfirm
*--------------------------------------
MSG.USAGE		>CSTR "Usage : MV [Src File/Dir, *,? wildcards allowed]\r\n   -C : Continue on error\r\n   -R : Recurse subdirectories\r\n   -Y : Dont't prompt for override\r\n"
MSG.DIR			>CSTR "MV Dir :%S%S to %S%S..."
MSG.FILE		>CSTR "MV File:%S%S to %S%S..."
MSG.OVERWRTE	>CSTR "Overwrite [Yes,No,All]?"
MSG.OK			>PSTR "[OK]\r\n"
MSG.ERR			>PSTR "[%h]\r\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
hSrcFile		.BS 1
hDstFile		.BS 1
bPause			.BS 1
bCopy			.BS 1
hToDelete		.BS 1
RC				.BS 1
CopyRC			.BS 1
bContinue		.BS 1
bRecurse		.BS 1
bNoConfirm		.BS 1
DS.END
				.ED
*--------------------------------------
MAN
SAVE /A2OSX.SRC/BIN/MV.S
ASM