?? stack.inc
字號(hào):
;----------------------------------------------------------
; 作者:陳文堯
; 文件:Stack.inc
; 版本:1.04
; 創(chuàng)建日期: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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -