
{
{   The purpose of this procedure is to set the access mode of a segment
{ based on its hardware attributes.
{
{        MMP$SET_ACCESS_MODE (SEGMENT_DESCRIPTOR, ACCESS_MODE)
{
{ SEGMENT_DESCRIPTOR: (input) This parameter is the segment descriptor
{        from the segment table.
{
{ ACCESS_MODE: (output) This parameter is where the access mode for the
{        specified segment descriptor is returned.
{
