!*** MODULE $TEBDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Thread Environment Block Definitions
 ! 
	PARAMETER TEB$M_ASTACT = '00000001'X
	PARAMETER TEB$M_ASTEN = '00000002'X
	STRUCTURE /TEB/
	    INTEGER*8 TEB$PQ_FLINK			 !  Forward queue link
	    INTEGER*8 TEB$PQ_BLINK			 !  Backward queue link
	    INTEGER*2 TEB$W_SIZE			 !  Size of TEB, in bytes
	    BYTE      TEB$B_VERSION			 !  Version number for TEB
	    BYTE      TEB$B_TYPE			 !  Structure type code for TEB
	    BYTE      TEB$b_reserved_2(1:4)		 !  Reserved to DECthreads
	    INTEGER*4 TEB$Q_SEQUENCE(2)		 !  Thread sequence number
	    INTEGER*4 TEB$q_reserved_3(2,1:2)	 !  Reserved to DECthreads
	    INTEGER*8 TEB$PQ_PER_KT_AREA		 !  Address of per kernel thread area
	    INTEGER*8 TEB$PQ_STACK_BASE		 !  Address of first usable byte in stack
	    INTEGER*8 TEB$PQ_STACK_RESERVE		 !  Address of first byte in reserve area
	    INTEGER*8 TEB$PQ_STACK_YELLOW		 !  Address of first byte in yellow area
	    INTEGER*8 TEB$PQ_STACK_GUARD		 !  Address of first byte in guard area
	    INTEGER*4 TEB$Q_STACK_SIZE(2)		 !  Total stack allocation (green+reserve+yellow+red)
	    INTEGER*8 TEB$PQ_TSD_VALUES		 !  Address of thread-specific data array
	    INTEGER*4 TEB$L_TSD_COUNT		 !  Count of thread-specific data values
	    INTEGER*4 TEB$L_CANCEL_FLAGS		 !  cancel flags
	    INTEGER*4 TEB$L_CANCEL_COUNT		 !  CMA alert scope nesting count
	    UNION
	        MAP
	        INTEGER*4 TEB$L_THREAD_FLAGS		 !  thread flags
	        END MAP
	        MAP
	            PARAMETER TEB$S_ASTACT = 1
	            PARAMETER TEB$V_ASTACT = 0		 !  there's a user mode AST active
	            PARAMETER TEB$S_ASTEN = 1
	            PARAMETER TEB$V_ASTEN = 1		 !  use mode ASTs are enabled
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    INTEGER*4 TEB$L_THD_ERRNO		 !  Per-thread errno value
	    INTEGER*4 TEB$l_reserved_4		 !  Reserved to DECthreads
	    INTEGER*8 TEB$PQ_STACK_HIWATER		 !  Lowest known SP address
	    INTEGER*4 TEB$L_HOME_RAD		 !  Thread's home RAD
	    INTEGER*4 TEB$L_RAD_SAFE		 !  Scratch: written by Tru64 UNIX
	    INTEGER*8 TEB$PQ_REG_STACK_BASE		 !  Current regstack base
	    INTEGER*8 TEB$PQ_REG_STACK_YELLOW	 !  Current regstack yellow zone
	    INTEGER*8 TEB$PQ_REG_STACK_GUARD	 !  Current regstack guard zone
	    INTEGER*8 TEB$PQ_REG_STACK_SIZE		 !  Size of regstack
	    INTEGER*8 TEB$PQ_REG_STACK_HIWATER	 !  Highest known bsp
	END STRUCTURE	! TEB
	PARAMETER TEB$K_LENGTH = '000000B8'X	 !  Length of TEB 
	PARAMETER TEB$C_LENGTH = '000000B8'X	 !  Length of TEB 
	PARAMETER TEB$C_TSD_KEY_SSPI = '00000001'X  !  TSD key value reserved for SSPI
!DEC$ END OPTIONS