.TITLE	_TPDEF	DEFINE TPARSE/EXPRESS BLOCK
;
	.MACRO	_TPDEF  
	.SAVE_PSECT	LOCAL_BLOCK
	.PSECT	$ABS$	ABS
.	=	TPA$C_LENGTH0		;SKIP TO END OF TPA BLOCK
;
NUM_TYPE:	.BLKW	1		;TYPE OF NUMBER
NUM_FLAGS:	.BLKW	1		;FLAGS
NUM_VALUE:	.BLKL	2		;VALUE
NUM_DESCR:	.BLKL	1		;DESCRIPTOR OF NUMBER
NUM_START:	.BLKL	1		;ADDRESS OF NUMBER STRING
;
;		    ARGUMENT LIST FOR OTS$CVT_T_D
;
NUM_ARGS:	.BLKL	1		;NUMBER OF ARGUMENTS = 5
NUM_ARG1:	.BLKL	1		;FIRST ARGUMENT:  STRING DESCR. ADDR.
NUM_ARG2:	.BLKL	1		;SECOND ARGUMENT: RESULT ADDR.
		.BLKL	1		;DIGITS IN FRACTION
		.BLKL	1		;SCALE FACTOR
		.BLKL	1		;FLAGS
;
;		    ARGUMENTS FOR LIB$GET_VM AND LIB$FREE_VM
;
STK_ARGS:	.BLKL	1		;NUMBER OF ARGUMENTS = 2
STK_ARG1:	.BLKL	1		;ADDR. OF STK_LEN
STK_ARG2:	.BLKL	1		;ADDR. OF STK_ADDR
STK_LEN:	.BLKL	1		;LENGTH OF STACK
STK_ADDR:	.BLKL	1		;ADDRESS OF ALLOCATED STACK AREA
;
;		    LOCAL VARIABLES
;
IS0:		.BLKL	1		;OPERAND STACK POINTER
IS1:		.BLKL	1		;OPERATOR STACK POINTER
S0_PTR:		.BLKL	1		;TOP OF OPERAND STACK
S1_PTR:		.BLKL	1		;TOP OF OPERATOR STACK
ACTRTN:		.BLKL	1		;ACTION ROUTINE ADDRESS
OPERATOR:	.BLKL	1		;OPERATOR
;
FRAME_LEN:	.BLKL	0		;LENGTH OF ABOVE + TPA BLOCK
;
		.RESTORE_PSECT
;
		.MACRO	_TPDEF
		.ENDM
;
		.ENDM	_TPDEF
		.END