conio.inc

汇编实时运行 核心的汇编源 代码

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


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

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

GotoXY	MACRO	x,y,rim
		IFNB	<rim>
			err	'Syntax: GotoXY x,y'
		ENDIF
		IFB	<y>
			err	'Syntax: GotoXY x,y'
		ENDIF
		LibCall	GotoXY <x>,<y>
		ENDM

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

ShowCursor	MACRO	solid,rim
		IFNB	<rim>
			err	'Syntax: ShowCursor solid'
		ENDIF
		IFB	<solid>
			err	'Syntax: ShowCursor solid'
		ENDIF
		LibCall	ShowCursor,<solid>
		ENDM

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

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

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

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

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

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

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

MoveText	MACRO	left,top,right,bottom,destleft,desttop,rim
		IFNB	<rim>
			err	'Syntax: MoveText left,top,right,bottom,destleft,desttop'
		ENDIF
		IFB	<desttop>
			err	'Syntax: MoveText left,top,right,bottom,destleft,desttop'
		ENDIF
		LibCall	MoveText,<left>,<top>,<right>,<bottom>,<destleft>,<desttop>
		ENDM

PutText	MACRO	left,top,right,bottom,data,rim
		IFNB	<rim>
			err	'Syntax: PutText left,top,right,bottom,data'
		ENDIF
		IFB	<data>
			err	'Syntax: PutText left,top,right,bottom,data'
		ENDIF
		LibCall	PutText,<left>,<top>,<right>,<bottom>,<data>
		ENDM

GetText	MACRO	left,top,right,bottom,data,rim
		IFNB	<rim>
			err	'Syntax: GetText left,top,right,bottom,data'
		ENDIF
		IFB	<data>
			err	'Syntax: GetText left,top,right,bottom,data'
		ENDIF
		LibCall	GetText,<left>,<top>,<right>,<bottom>,<data>
		ENDM

TextAttributes	MACRO	attributes,rim
			IFNB	<rim>
				err	'Syntax: TextAttributes attributes'
			ENDIF
			IFB	<attributes>
				err	'Syntax: TextAttributes attributes'
			ENDIF
			LibCall	TextAttributes,<attributes>
			ENDM

TextBackground	MACRO	color,rim
			IFNB	<rim>
				err	'Syntax: TextBackground color'
			ENDIF
			IFB	<color>
				err	'Syntax: TextBackground color'
			ENDIF
			LibCall	TextBackground,<color>
			ENDM

TextColor	MACRO	color,rim
		IFNB	<rim>
			err	'Syntax: TextColor color'
		ENDIF
		IFB	<color>
			err	'Syntax: TextColor color'
		ENDIF
		LibCall	TextColor,<color>
		ENDM

Window	MACRO	left,top,right,bottom,rim
		IFNB	<rim>
			err	'Syntax: Window left,top,right,bottom'
		ENDIF
		IFB	<bottom>
			err	'Syntax: Window left,top,right,bottom'
		ENDIF
		LibCall	Window,<left>,<top>,<right>,<bottom>
		ENDM

Scroll	MACRO	row,count,rim
		IFNB	<rim>
			err	'Syntax: Scroll row,count'
		ENDIF
		IFB	<count>
			err	'Syntax: Scroll row,count'
		ENDIF
		LibCall	Scroll,<row>,<count>
		ENDM