array.inc

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

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

		
FARRAY	struc
		arr_addr	dw	?
		arr_len	dw	?
		arr_grain	dw	?
		ends

CreateArray	MACRO	array,@length,grain,rim
		IFNB	<rim>
			err	'Syntax: CreateArray array,length,grain'
		ENDIF
		IFB	<grain>
			err	'Syntax: CreateArray array,length,grain'
		ENDIF
		LibCall	CreateArray,<array>,<@length>,<grain>
		ENDM

DestroyArray	MACRO	array,rim
			IFNB	<rim>
				err	'Syntax: DestroyArray array'
			ENDIF
			IFB	<array>
				err	'Syntax: DestroyArray array'
			ENDIF
			LibCall	DestroyArray,<array>
			ENDM

arrGetValue	MACRO	array,index,value,rim
		IFNB	<rim>
			err	'Syntax: arrGetValue array,index,value'
		ENDIF
		IFB	<value>
			err	'Syntax: arrGetValue array,index,value'
		ENDIF
		LibCall	arrGetValue,<array>,<index>,<value>
		ENDM

arrSetValue	MACRO	array,index,value,rim
		IFNB	<rim>
			err	'Syntax: arrSetValue array,index,value'
		ENDIF
		IFB	<value>
			err	'Syntax: arrSetValue array,index,value'
		ENDIF
		LibCall	arrSetValue,<array>,<index>,<value>
		ENDM