stdio.inc

该软件提供了编辑、编译、运行、调试汇编语言程序的集成环境

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


GetChar	MACRO	rim
		IFNB	<rim>
			err	'Syntax: GetChar'
		ENDIF
		LibCall	GetChar
		ENDM

Cls	MACRO	rim
	IFNB	<rim>
		err	'Syntax: Cls'
	ENDIF
	LibCall	Cls
	ENDM

Crlf	MACRO	rim
	IFNB	<rim>
		err	'Syntax: Crlf'
	ENDIF
	LibCall	Crlf
	ENDM

FlushStdin	MACRO	rim
		IFNB	<rim>
			err	'Syntax: FlushStdin'
		ENDIF
		LibCall	FlushStdin
		ENDM

GetInteger	MACRO	rim
		IFNB	<rim>
			err	'Syntax: GetInteger'
		ENDIF
		LibCall	GetInteger
		ENDM

GetIntegerEx	MACRO	radix,rim
			IFNB	<rim>
				err	'Syntax: GetIntegerEx radix'
			ENDIF
			IFB	<radix>
				err	'Syntax: GetIntegerEx radix'
			ENDIF
			LibCall	GetIntegerEx,<radix>
			ENDM

GetLongEx	MACRO	radix,rim
		IFNB	<rim>
			err	'Syntax: GetLongEx radix'
		ENDIF
		IFB	<radix>
			err	'Syntax: GetLongEx radix'
		ENDIF
		LibCall	GetLongEx,<radix>
		ENDM

GetLong	MACRO	rim
		IFNB	<rim>
			err	'Syntax: GetLong'
		ENDIF
		LibCall	GetLong
		ENDM

Fill	MACRO	char,rim
	IFNB	<rim>
		err	'Syntax: Fill char'
	ENDIF
	IFB	<char>
		err	'Syntax: Fill char'
	ENDIF
	LibCall	Fill,<char>
	ENDM

PutChar	MACRO	char,rim
		IFNB	<rim>
			err	'Syntax: PutChar char'
		ENDIF
		IFB	<char>
			err	'Syntax: PutChar char'
		ENDIF
		LibCall	PutChar,<char>
		ENDM

Puts	MACRO	string,rim
	IFNB	<rim>
		err	'Syntax: Puts string'
	ENDIF
	IFB	<string>
		err	'Syntax: Puts string'
	ENDIF
	LibCall	Puts,<string>
	ENDM

Gets	MACRO	string,rim
	IFNB	<rim>
		err	'Syntax: Gets string'
	ENDIF
	IFB	<string>
		err	'Syntax: Gets string'
	ENDIF
	LibCall	Gets,<string>
	ENDM

PutInteger	MACRO	value,rim
		IFNB	<rim>
			err	'Syntax: PutInteger value'
		ENDIF
		IFB	<value>
			err	'Syntax: PutInteger value'
		ENDIF
		LibCall	PutInteger,<value>
		ENDM


PutLongEx	MACRO	hi_value,lo_value,@width,radix,rim
		IFNB	<rim>
			err	'Syntax: PutLongEx hi_value,lo_value,width,radix'
		ENDIF
		IFB	<radix>
			err	'Syntax: PutLongEx hi_value,lo_value,width,radix'
		ENDIF
		LibCall	PutLongEx,<hi_value>,<lo_value>,<@width>,<radix>
		ENDM

PutIntegerEx	MACRO	value,@width,radix,rim
			IFNB	<rim>
				err	'Syntax: PutIntegerEx value,width,radix'
			ENDIF
			IFB	<radix>
				err	'Syntax: PutIntegerEx value,width,radix'
			ENDIF
			LibCall	PutIntegerEx,<value>,<@width>,<radix>
			ENDM

PutLong	MACRO	hi_value,lo_value,rim
		IFNB	<rim>
			err	'Syntax: PutLong hi_value,lo_value'
		ENDIF
		IFB	<lo_value>
			err	'Syntax: PutLong hi_value,lo_value'
		ENDIF
		LibCall	PutLong,<hi_value>,<lo_value>
		ENDM

GetPass	MACRO	buffer,@length,rim
		IFNB	<rim>
			err	'Syntax: GetPass 	buffer,length'
		ENDIF
		IFB	<@length>
			err	'Syntax: GetPass 	buffer,length'
		ENDIF
		LibCall	GetPass,<buffer>,<@length>
		ENDM