{++
{
{ FACILITY:	SYMTAB - Global symbol extractor
{
{ ABSTRACT:	This module contains the structure and constant
{		definitions used by the SYMTAB program
{
{ AUTHOR:	Brian K Catlin
{
{ VERSION:	V001-00
{
{ CREATED:	19-JUL-1990
{
{ MODIFICATION HISTORY:
{
{	V001-1	Brian K Catlin	    19-JUL-1990
{		Original version
{
{--

MODULE _symtab_structs;


/*
/*  Language keyword codes
/*

    CONSTANT (
		 dcl					/*
		,linker					/*
		,null					/*
		,sda					/*
		,sdl					/*
	    ) EQUALS 0 INCREMENT 1 PREFIX lang_ COUNTER #max_lang;

    CONSTANT max EQUALS #max_lang PREFIX lang_;

/*
/*  Generic string descriptor
/*

AGGREGATE dscdef STRUCTURE PREFIX dsc_;

    length		WORD UNSIGNED;			/* Length of the string
    dtype		BYTE UNSIGNED;			/* Data type of the descriptor
    class		BYTE UNSIGNED;			/* Class of the descriptor
    pointer		ADDRESS;			/* Address of the string

END dscdef;


/*
/*  Command Description Block
/*

AGGREGATE cdbdef STRUCTURE PREFIX cdb_;

    blk_qlinks          STRUCTURE;                      /* Queue element links
        blk_qfl         ADDRESS;                        /* Forward link
        blk_qbl         ADDRESS;                        /* Backward link
    END blk_qlinks;

    blk_size            WORD UNSIGNED;                  /* Size of this structure
    blk_type		BYTE UNSIGNED;			/* Type code for this structure
    blk_subtype		BYTE UNSIGNED;			/* Subtype code for this structure

    command_line	dscdef;				/* The original command line

    flags		STRUCTURE LONGWORD UNSIGNED;
	lang_qual	BITFIELD MASK;			/* The language qualifier was supplied
	fac_qual	BITFIELD MASK;			/* The facility qualifier was supplied
	offset_qual	BITFIELD MASK;			/* The offset qualifier was supplied
	log_qual	BITFIELD MASK;			/* The log file qualifier was supplied
	out_qual	BITFIELD MASK;			/* The output file qualifier was supplied
	all_qual	BITFIELD MASK;			/* The all qualifier was supplied
	exe_qual	BITFIELD MASK;			/* The executable  qualifier was supplied

	lang_spec	BITFIELD MASK;			/* A language value was supplied
	fac_spec	BITFIELD MASK;			/* A facility value was supplied
	offset_spec	BITFIELD MASK;			/* An offset value was supplied
	log_spec	BITFIELD MASK;			/* A log file value was supplied
	out_spec	BITFIELD MASK;			/* A output file value was supplied
    END flags;

    language		LONGWORD UNSIGNED;

    stb_file		dscdef;				/* Descriptor pointing to the symbol table file
    lang_value		dscdef;				/* Descriptor pointing to the language keyword
    offset_value	dscdef;				/* Descriptor pointing to the offset string
    log_value		dscdef;				/* Descriptor pointing to the log file string
    output_value	dscdef;				/* Descriptor pointing to the output file string

    fac_qlinks          STRUCTURE;                      /* Queue element links
        fac_qfl         ADDRESS;                        /* Forward link
        fac_qbl         ADDRESS;                        /* Backward link
    END fac_qlinks;

END cdbdef;


/*
/*  FDLDEF - Facility Descriptor List Definition
/*

AGGREGATE fdldef STRUCTURE PREFIX fdl_;

    blk_qlinks          STRUCTURE;                      /* Queue element links
        blk_qfl         ADDRESS;                        /* Forward link
        blk_qbl         ADDRESS;                        /* Backward link
    END blk_qlinks;

    blk_size            WORD UNSIGNED;                  /* Size of this structure
    blk_type		BYTE UNSIGNED;			/* Type code for this structure
    blk_subtype		BYTE UNSIGNED;			/* Subtype code for this structure

    fac_value		dscdef;				/* Descriptor pointing to the facility string

END fdldef;


/*
/*  FCBDEF - File Context Block Definition
/*

AGGREGATE fcbdef STRUCTURE PREFIX fcb_;

    blk_qlinks          STRUCTURE;                      /* Queue element links
        blk_qfl         ADDRESS;                        /* Forward link
        blk_qbl         ADDRESS;                        /* Backward link
    END blk_qlinks;

    blk_size            WORD UNSIGNED;                  /* Size of this structure
    blk_type		BYTE UNSIGNED;			/* Type code for this structure
    blk_subtype		BYTE UNSIGNED;			/* Subtype code for this structure

    name_desc		ADDRESS;			/* Address of the file name descriptor

    fab			ADDRESS;			/* Address of the FAB block
    nam			ADDRESS;			/* Address of the NAM block
    rab			ADDRESS;			/* Address of the RAB block
    xabfhc		ADDRESS;			/* Address of the XABFHC block

    rec_buff		ADDRESS;			/* Address of the record buffer
    rec_size		LONGWORD UNSIGNED;		/* Length of the record buffer

END fcbdef;

END_MODULE _symtab_structs;