list.inc

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

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


FLIST	struc
	lst_len	dw	?
	lst_grain	dw	?
	lst_head	dw	?
	lst_curptr	dw	?
	ends

CreateList	MACRO	list,grain,rim
		IFNB	<rim>
			err	'Syntax: CreateList list,grain'
		ENDIF
		IFB	<grain>
			err	'Syntax: CreateList list,grain'
		ENDIF
		LibCall	CreateList,<list>,<grain>
		ENDM

ClearList	MACRO	list,rim
		IFNB	<rim>
			err	'Syntax: ClearList list'
		ENDIF
		IFB	<list>
			err	'Syntax: ClearList list'
		ENDIF
		LibCall	ClearList,<list>
		ENDM

lstInsertBefore	MACRO list,value,rim
			IFNB	<rim>
				err	'Syntax: lstInsertBefore list,value'
			ENDIF
			IFB	<value>
				err	'Syntax: lstInsertBefore list,value'
			ENDIF
			LibCall	lstInsertBefore,<list>,<value>
			ENDM

lstInsertAfter	MACRO list,value,rim
			IFNB	<rim>
				err	'Syntax: lstInsertAfter list,value'
			ENDIF
			IFB	<value>
				err	'Syntax: lstInsertAfter list,value'
			ENDIF
			LibCall	lstInsertAfter,<list>,<value>
			ENDM

lstGetValue	MACRO list,value,rim
		IFNB	<rim>
			err	'Syntax: lstGetValue list,value'
		ENDIF
		IFB	<value>
			err	'Syntax: lstGetValue list,value'
		ENDIF
		LibCall	lstGetValue,<list>,<value>
		ENDM

lstSetValue	MACRO list,value,rim
		IFNB	<rim>
			err	'Syntax: lstSetValue list,value'
		ENDIF
		IFB	<value>
			err	'Syntax: lstSetValue list,value'
		ENDIF
		LibCall	lstSetValue,<list>,<value>
		ENDM

lstDelete	MACRO	list,rim
		IFNB	<rim>
			err	'Syntax: lstDelete list'
		ENDIF
		IFB	<list>
			err	'Syntax: lstDelete list'
		ENDIF
		LibCall	lstDelete,<list>
		ENDM

lstLength	MACRO	list,rim
		IFNB	<rim>
			err	'Syntax: lstLength list'
		ENDIF
		IFB	<list>
			err	'Syntax: lstLength list'
		ENDIF
		LibCall	lstLength,<list>
		ENDM

lstMoveBy	MACRO	list,step,rim
		IFNB	<rim>
			err	'Syntax: lstMoveBy list,step'
		ENDIF
		IFB	<grain>
			err	'Syntax: lstMoveBy list,step'
		ENDIF
		LibCall	lstMoveBy,<list>,<step>
		ENDM

lstMoveTo	MACRO	list,position,rim
		IFNB	<rim>
			err	'Syntax: lstMoveTo list,position'
		ENDIF
		IFB	<grain>
			err	'Syntax: lstMoveTo list,position'
		ENDIF
		LibCall	lstMoveTo,<list>,<position>
		ENDM