matrix.inc

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

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


FMATRIX	struc
		mat_addr	dw	?
		mat_row	dw	?
		mat_col	dw	?
		mat_grain	dw	?
		ends

CreateMatrix	MACRO	matrix,row,col,grain,rim
			IFNB	<rim>
				err	'Syntax: CreateMatrix matrix,row,col,grain'
			ENDIF
			IFB	<grain>
				err	'Syntax: CreateMatrix matrix,row,col,grain'
			ENDIF
			LibCall	CreateMatrix,<matrix>,<row>,<col>,<grain>
			ENDM

DestroyMatrix	MACRO	matrix,rim
			IFNB	<rim>
				err	'Syntax: DestroyMatrix matrix'
			ENDIF
			IFB	<matrix>
				err	'Syntax: DestroyMatrix matrix'
			ENDIF
			LibCall	DestroyMatrix,<matrix>
			ENDM

matGetValue	MACRO	matrix,row,col,value,rim
		IFNB	<rim>
			err	'Syntax: matGetValue matrix,row,col,value'
		ENDIF
		IFB	<value>
			err	'Syntax: matGetValue matrix,row,col,value'
		ENDIF
		LibCall	matGetValue,<matrix>,<row>,<col>,<value>
		ENDM

matSetValue	MACRO	matrix,row,col,value,rim
		IFNB	<rim>
			err	'Syntax: matSetValue matrix,row,col,value'
		ENDIF
		IFB	<value>
			err	'Syntax: matSetValue matrix,row,col,value'
		ENDIF
		LibCall	matSetValue,<matrix>,<row>,<col>,<value>
		ENDM