stack.inc

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

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


FSTACK	struc
		stk_len	dw	?
		stk_grain	dw	?
		stk_top	dw	?
		ends

CreateStack	MACRO	stk,grain,rim
		IFNB	<rim>
			err	'Syntax: CreateStack stack,grain'
		ENDIF
		IFB	<grain>
			err	'Syntax: CreateStack stack,grain'
		ENDIF
		LibCall	CreateStack,<stk>,<grain>
		ENDM

ClearStack	MACRO	stk,rim
		IFNB	<rim>
			err	'Syntax: ClearStack stack'
		ENDIF
		IFB	<stk>
			err	'Syntax: ClearStack stack'
		ENDIF
		LibCall	ClearStack,<stk>
		ENDM

StackPush	MACRO	stk,value,rim
		IFNB	<rim>
			err	'Syntax: StackPush stack,value'
		ENDIF
		IFB	<value>
			err	'Syntax: StackPush stack,value'
		ENDIF
		LibCall	StackPush,<stk>,<value>
		ENDM

StackTop	MACRO	stk,value,rim
		IFNB	<rim>
			err	'Syntax: StackTop stack,value'
		ENDIF
		IFB	<value>
			err	'Syntax: StackTop stack,value'
		ENDIF
		LibCall	StackTop,<stk>,<value>
		ENDM

StackPop	MACRO	stk,value,rim
		IFNB	<rim>
			err	'Syntax: StackPop stack,value'
		ENDIF
		IFB	<value>
			err	'Syntax: StackPop stack,value'
		ENDIF
		LibCall	StackPop,<stk>,<value>
		ENDM

StackLength	MACRO	stk,rim
		IFNB	<rim>
			err	'Syntax: StackLength stack'
		ENDIF
		IFB	<stk>
			err	'Syntax: StackLength stack'
		ENDIF
		LibCall	StackLength,<stk>
		ENDM