*******************************************************************************
* dat 1.3.3
*******************************************************************************

	DATA



*******************************************************************************
* variables

	cnop	0,4
_DOSBase	dc.l	0
_StdOut	dc.l	0	;standard output handle

WrkBufAdr	dc.l	0	;work buffer address
WrkBufLen	dc.l	0	;work buffer length
ChnkSz	dc.l	0	;chunk length
InFlHnd	dc.l	0	;source filehandle
InFlSz	dc.l	0	;size of source file
ExtnAdr	dc.l	0	;pointer to extension
MaxChnk	dc.l	0	;highest chunk number
DgtNo	dc.l	0	;minimum necessary length of extension

flgs	dc.b	0	;see defs.i for bit allocations



*******************************************************************************
* tables

	cnop	0,4
ErrTab	dc.l	txt_AllDone,txt_LowMem,txt_SouFl
	dc.l	txt_ChnkSz,txt_DstFl,txt_ChnkNo
	dc.l	txt_UsrBrk



*******************************************************************************
* texts

_DOSName	dc.b	"dos.library",0

txt_vers	dc.b	"$VER: sss 1.4 (20.5.2002)",0
txt_ttl	dc.b	10,"›1msss 1.4›0m (20.5.2002) - © 1999 Simone Bevilacqua",10,10,0
txt_InfoArw	dc.b	" -> ",0
txt_InfoBytes	dc.b	" bytes"
txt_ENTER	dc.b	10,0
txt_wrting	dc.b	13,"writing          : ",0
txt_InfoFlNm	dc.b	"source file name : ",0
txt_InfoFlSz	dc.b	"source file size : ",0
txt_InfoOFl	dc.b	"chunks file names: ",0
txt_InfoCSz	dc.b	"chunks size      : ",0
txt_InfoBSz	dc.b	"buffer size      : ",0

txt_err	dc.b	"ERROR: ",0
txt_AllDone	dc.b	"all done!",10,10,0
txt_LowMem	dc.b	"not enough memory!",10,0
txt_SouFl	dc.b	"can't read from source file",10,0
txt_DstFl	dc.b	"can't write to destination",10,0
txt_ChnkSz	dc.b	"wrong chunk size",10,0
txt_ChnkNo	dc.b	"too many chunks (max. 10000)!",10,0
txt_UsrBrk	dc.b	"***Break",10,0
txt_UsgHlp	dc.b	"  ›1mSYNTAX›0m",10,10
	dc.b	"    sss [›1m-q›0m] ›1mInputFile ChunkSize ›0m[›1mOutBase›0m]",10,10
	dc.b	"  ›1mARGS›0m",10,10
	dc.b	"    ›1m-q       ›0m = quiet mode: don't print any message",10
	dc.b	"    ›1mInputFile›0m = name of the file to split",10
	dc.b	"    ›1mChunkSize›0m = size in bytes of each chunk",10
	dc.b	"                (0 < ChunkSize < $7fffffff = 2,147,483,647)",10
	dc.b	"    ›1mOutBase›0m   = output files will be called ›1mOutBase›0m.x",10
	dc.b	"                (000 <= x <= 99,999; by default ›1mOutBase›0m = ›1mInputFile›0m)",10,10
	dc.b	"  ›1mNOTE›0m",10,10
	dc.b	"    execution can be stopped by pressing ›1mCTRL-C›0m anytime",10,10,0



*******************************************************************************
* buffers

	BSS
InFl	ds.b	1024	;file to split
OutBs	ds.b	1024
CmdLn	ds.b	514	;commandline string

	cnop	0,4
TmpBuf	ds.b	256