io.inc

一个汇编编译器很好用的

;----------------------------------------------------------
; 作者：陈文尧
; 文件：io.inc
; 版本：1.04
; 创建日期：2001.08.01
;----------------------------------------------------------


SEEK_CUR	=	01h
SEEK_END	=	02h
SEEK_SET	=	00h

STDIN		=	00h
STDOUT	=	01h
STDERR	=	02h
STDAUX	=	03h
STDPRN	=	04h
O_RDONLY	=	00h
O_WRONLY	=	01h
O_RDWR	=	02h

O_NOINHERIT	=	80h
O_DENYALL	=	10h
O_DENYWRITE	=	20h
O_DENYREAD	=	30h
O_DENYNONE	=	40h

FA_NORMAL	=	00h
FA_RDONLY	=	01h
FA_HIDDEN	=	02h
FA_SYSTEM	=	04h
FA_LABEL	=	08h
FA_DIREC	=	10h
FA_ARCH	=	20h

Read	MACRO	handle,value,count,rim
	IFNB	<rim>
		err	'Syntax: Read handle,value,count'
	ENDIF
	IFB	<count>
		err	'Syntax: Read handle,value,count'
	ENDIF
	LibCall	Read,<handle>,<value>,<count>
	ENDM

Seek	MACRO	handle,hi_offset,lo_offset,fromwhere,rim
	IFNB	<rim>
		err	'Syntax: Seek handle,hi_offset,lo_offset,fromwhere'
	ENDIF
	IFB	<fromwhere>
		err	'Syntax: Seek handle,hi_offset,lo_offset,fromwhere'
	ENDIF
	LibCall	Seek,<handle>,<hi_offset>,<lo_offset>,<fromwhere>
	ENDM

Write	MACRO	handle,value,count,rim
	IFNB	<rim>
		err	'Syntax: Write handle,value,count'
	ENDIF
	IFB	<count>
		err	'Syntax: Write handle,value,count'
	ENDIF
	LibCall	Write,<handle>,<value>,<count>
	ENDM

Open	MACRO	file,mode,rim
	IFNB	<rim>
		err	'Syntax: Open file,mode'
	ENDIF
	IFB	<mode>
		err	'Syntax: Open file,mode'
	ENDIF
	LibCall	Open,<file>,<mode>
	ENDM

Close	MACRO	handle,rim
	IFNB	<rim>
		err	'Syntax: Close handle'
	ENDIF
	IFB	<mode>
		err	'Syntax: Close handle'
	ENDIF
	LibCall	Close,<handle>
	ENDM

Create	MACRO	file,attribute,rim
		IFNB	<rim>
			err	'Syntax: Create file,attribute'
		ENDIF
		IFB	<attribute>
			err	'Syntax: Create file,attribute'
		ENDIF
		LibCall	Create,<file>,<attribute>
		ENDM

Dup	MACRO	handle,rim
	IFNB	<rim>
		err	'Syntax: Dup handle'
	ENDIF
	IFB	<handle>
		err	'Syntax: Dup handle'
	ENDIF
	LibCall	Dup,<handle>
	ENDM

Dup2	MACRO	oldhandle,newhandle,rim
	IFNB	<rim>
		err	'Syntax: Dup2 oldhandle,newhandle'
	ENDIF
	IFB	<newhandle>
		err	'Syntax: Dup2 oldhandle,newhandle'
	ENDIF
	LibCall	Dup2,<oldhandle>,<newhandle>
	ENDM

;跟C/C++的SetMode不同，相当于C/C++的chmod
SetMode	MACRO	file,mode,rim
		IFNB	<rim>
			err	'Syntax: SetMode file,mode'
		ENDIF
		IFB	<mode>
			err	'Syntax: SetMode file,mode'
		ENDIF
		LibCall	SetMode,<file>,<mode>
		ENDM

GetMode	MACRO	file,rim
		IFNB	<rim>
			err	'Syntax: GetMode file'
		ENDIF
		IFB	<file>
			err	'Syntax: GetMode file'
		ENDIF
		LibCall	GetMode,<file>
		ENDM

FileLength	MACRO	handle,rim
		IFNB	<rim>
			err	'Syntax: FileLength handle'
		ENDIF
		IFB	<handle>
			err	'Syntax: FileLength handle'
		ENDIF
		LibCall	FileLength,<handle>
		ENDM