!*** MODULE $TBKDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	STRUCTURE /tbk_api_param/
	    INTEGER*2 TBK$W_LENGTH			 ! Input, structure length, by value
	    BYTE      TBK$B_TYPE			 ! Input, must be zero.
	    BYTE      TBK$B_VERSION			 ! Input, version of this structure.
	    INTEGER*4 TBK$L_RESERVEDA		 ! Input, must be zero.
	    INTEGER*4 TBK$Q_FAULTING_PC(2)		 ! Input, pc value, by value
	    INTEGER*4 TBK$Q_FAULTING_FP(2)		 ! Input, frame pointer, by value
	    INTEGER*8 TBK$PQ_FILENAME_DESC		 ! Output, string descriptor
	    INTEGER*8 TBK$PQ_LIBRARY_MODULE_DESC	 ! Output, string descriptor
	    INTEGER*8 TBK$PQ_RECORD_NUMBER		 ! Output, record number within filename or within text library
					! Output, record number within filename or within text library
	    INTEGER*8 TBK$PQ_IMAGE_DESC		 ! Output, string descriptor, image name
	    INTEGER*8 TBK$PQ_MODULE_DESC		 ! Output, string descriptor, module name
	    INTEGER*8 TBK$PQ_ROUTINE_DESC		 ! Output, string descriptor, routine name
	    INTEGER*8 TBK$PQ_LISTING_LINENO		 ! Output, compiler listing line number
	    INTEGER*8 TBK$PQ_REL_PC			 ! Output, relative pc within module or within image
	    INTEGER*8 TBK$PQ_IMAGE_BASE_ADDR	 ! Output, base address of the image which contains the pc val
					! Output, base address of the image which contains the pc valu
 ! by reference
	    INTEGER*8 TBK$PQ_MODULE_BASE_ADDR	 ! Output, base address of the module, which contains the pc 
					! Output, base address of the module, which contains the pc va
 ! by reference
 ! Input, address of a routine, which provides malloc() functionality
	    INTEGER*8 TBK$PQ_MALLOC_RTN
 ! Input, address of a routine, which provides free() functionality
	    INTEGER*8 TBK$PQ_FREE_RTN
 ! Input, address of a quadword, specifying options to be provided by this call
	    INTEGER*8 TBK$PQ_SYMBOLIZE_FLAGS
	    INTEGER*4 TBK$Q_RESERVED0(2)		 ! Reserved by HP
	    INTEGER*4 TBK$Q_RESERVED1(2)		 ! Reserved by HP
	    INTEGER*4 TBK$Q_RESERVED2(2)		 ! Reserved by HP
	END STRUCTURE	! tbk_api_param
	PARAMETER tbk$k_length = '00000098'X
	PARAMETER tbk$c_length = '00000098'X
	PARAMETER tbk$k_version = '00000001'X
 ! 
 !  SYMBOLIZE_FLAGS options
 !  The following may be applied to the quadword pointed to
 !  by the SYMBOLIZE_FLAGS field.
 ! 
 !  EXCEPTION_IS_FAULT values affect line number and
 !      record number calculation.
 !  On an API entry, when an exception has occurred in a frame, select the value 1.
 !      0=> (Default) Program Adjusts the PC value to correctly determine the line number
 !      1=> Program Uses the supplied PC value to determine the line number 
 ! 
 !  ENTRY_TYPE values which affect processing
 !      0=> TRACE was entered via the API ENTRY
 !      1=> TRACE was entered via the TRACEBACK exception processing
 ! 
	PARAMETER TBK$M_EXCEPTION_IS_FAULT = '00000001'X
	PARAMETER TBK$M_ENTRY_TYPE = '00000000'X
	STRUCTURE /tbk_symbolize_flags/
	    PARAMETER TBK$S_EXCEPTION_IS_FAULT = 1
	    PARAMETER TBK$V_EXCEPTION_IS_FAULT = 0
	    PARAMETER TBK$S_FILLER1 = 31
	    PARAMETER TBK$V_FILLER1 = 1
	    PARAMETER TBK$S_ENTRY_TYPE = 1
	    PARAMETER TBK$V_ENTRY_TYPE = 32
	    PARAMETER TBK$S_FILLER2 = 31
	    PARAMETER TBK$V_FILLER2 = 33
	    BYTE %FILL (8)
	END STRUCTURE	! tbk_symbolize_flags
!DEC$ END OPTIONS