misc.inc

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

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


FFBLK	struc
	ff_reserved	db	21d	dup(?)
	ff_attrib	db	?
	ff_ftime	dw	?
	ff_fdate	dw	?
	ff_fsize	dd	?
	ff_name	db	13d	dup(?)
	ends

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

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

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

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

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

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

GetArgStr	MACRO	index,rim
		IFNB	<rim>
			err	'Syntax: GetArgStr index'
		ENDIF
		IFB	<index>
			err	'Syntax: GetArgStr index'
		ENDIF
		LibCall	GetArgStr,<index>
		ENDM

Delay	MACRO	milliseconds,rim
	IFNB	<rim>
		err	'Syntax: Delay milliseconds'
	ENDIF
	IFB	<milliseconds>
		err	'Syntax: Delay milliseconds'
	ENDIF
	LibCall	Delay,<milliseconds>
	ENDM

Sound	MACRO	frequency,rim
	IFNB	<rim>
		err	'Syntax: Sound frequency'
	ENDIF
	IFB	<frequency>
		err	'Syntax: Sound frequency'
	ENDIF
	LibCall	Sound,<frequency>
	ENDM

FindNext	MACRO	ffblk,rim
		IFNB	<rim>
			err	'Syntax: FindNext ffblk'
		ENDIF
		IFB	<ffblk>
			err	'Syntax: FindNext ffblk'
		ENDIF
		LibCall	FindNext,<ffblk>
		ENDM

GetVect	MACRO	index,rim
		IFNB	<rim>
			err	'Syntax: GetVect index'
		ENDIF
		IFB	<index>
			err	'Syntax: GetVect index'
		ENDIF
		LibCall	GetVect,<index>
		ENDM


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

SetVect	MACRO	index,address,rim
		IFNB	<rim>
			err	'Syntax: SetVect index,address'
		ENDIF
		IFB	<address>
			err	'Syntax: SetVect index,address'
		ENDIF
		LibCall	SetVect,<index>,<address>
		ENDM

Exec	MACRO	program,cmdline,rim
	IFNB	<rim>
		err	'Syntax: Exec program,cmdline'
	ENDIF
	IFB	<cmdline>
		err	'Syntax: Exec program,cmdline'
	ENDIF
	LibCall	Exec,<program>,<cmdline>
	ENDM


FindFirst	MACRO	path,ffblk,attribute,rim
		IFNB	<rim>
			err	'Syntax: FindFirst path,ffblk,attribute'
		ENDIF
		IFB	<attribute>
			err	'Syntax: FindFirst path,ffblk,attribute'
		ENDIF
		LibCall	FindFirst,<path>,<ffblk>,<attribute>
		ENDM

PutStringDirect	MACRO	string,position,color,rim
			IFNB	<rim>
				err	'Syntax: PutStringDirect string,position,color'
			ENDIF
			IFB	<color>
				err	'Syntax: PutStringDirect string,position,color'
			ENDIF
			LibCall	PutStringDirect,<string>,<position>,<color>
			ENDM