home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 57
/
Amiga_Dream_57.iso
/
Amiga
/
Programmation
/
Assembleur
/
ESA.lha
/
ESA
/
examples
/
sss
/
data.i
next >
Wrap
Text File
|
1998-10-30
|
3KB
|
76 lines
*******************************************************************************
* data v1.1.3
*******************************************************************************
section MiscData,DATA
*******************************************************************************
* variables
cnop 0,4
_DOSBase dc.l 0
_StdOut dc.l 0 ;standard output handle
CmdLnPtr dc.l 0 ;adr of command line
CmdLnLen dc.l 0 ;length of command line
WrkBufAdr dc.l 0 ;work buffer adr
WrkBufLen dc.l 0 ;work buffer length
ChnkSize dc.l 0 ;chunk length
InFileHnd dc.l 0 ;source file handle
InFileSze dc.l 0 ;size of source file
ExtnAdr dc.l 0 ;ptr to extension
MaxChnk dc.l 0 ;highest chunk #
DgtNmb dc.l 0 ;min necessary length of extension
flags dc.b 0 ;see defs.i for bit allocations
*******************************************************************************
* tables
cnop 0,4
ErrTab dc.l txt_AllDne,txt_LowMem,txt_SouFle
dc.l txt_ChnkSz,txt_DstFle,txt_ChnkNb
*******************************************************************************
* texts
_DOSName dc.b "dos.library",0
txt_vers dc.b "$VER: sss v1.0 (26.10.1998)",0
txt_title dc.b 10,"¢1msss v1.0¢0m (26.10.1998) - ⌐ 1998 Simone Bevilacqua",10,10,0
txt_InfoArrow dc.b " -> ",0
txt_InfoBytes dc.b " bytes"
txt_ENTER dc.b 10,0
txt_writing dc.b 13,"writing : ",0
txt_InfoFName dc.b "source file name : ",0
txt_InfoFSize dc.b "source file size : ",0
txt_InfoOFile dc.b "chunks file names: ",0
txt_InfoCSize dc.b "chunks size : ",0
txt_InfoBSize dc.b "buffer size : ",0
txt_error dc.b "ERROR: ",0
txt_AllDne dc.b "all done!",10,10,0
txt_LowMem dc.b "not enough memory!",10,0
txt_SouFle dc.b "can't read from source file",10,0
txt_DstFle dc.b "can't write to destination",10,0
txt_ChnkSz dc.b "wrong chunk size",10,0
txt_ChnkNb dc.b "too many chunks (max. 10000)!",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,0
*******************************************************************************
* buffers
section bufs,BSS
InFile ds.b 1024 ;file to split
OutBase ds.b 1024
cnop 0,4
TmpBuf ds.b 256