rand.inc

来自「一个汇编编译器很好用的」· INC 代码 · 共 48 行

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


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

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

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

Random	MACRO	number,rim
		IFNB	<rim>
			err	'Syntax: Random number'
		ENDIF
		IFB	<number>
			err	'Syntax: Random number'
		ENDIF
		LibCall	Random,<number>
		ENDM

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