{}
{   The purpose of this request is to build a directory containing
{ the code section ordinals and pointers to the beginining of the
{ code sections for each module in the object library.
{}
{       OCP$BUILD_CODE_SEC_DIRECTORY (OBJECT_LIBRARY, CODE_SECTION_DIRECTORY,
{         MODULE_CODE_SECTIONS)
{}
{ OBJECT_LIBRARY: (input) This parameter specifies a pointer to the
{       object_library.
{}
{ CODE_SECTION_DIRECTORY: (output) This parameter specifies an array with
{       an entry for each module pointing into the code section directory.
{}
{ MODULE_CODE_SECTIONS: (output) This parameter specifies the section ordinal
{       and a pointer to the beginning of the code section for each code
{       section in a module.
{}
