B3 Configuration for B3 protocol 4: T.30 for Group 3 fax:
Resolution word 0: Standard
                1: High

      m_Bprotocol[17]=1; //1: High
      m_Bprotocol[18]=0;

      m_Bprotocol[17]=0; //0: Standard
      m_Bprotocol[18]=0;

B3 Configuration for B3 protocol 5: T.30 for Group 3 fax extended:
Options word [Bit 0] : Enable high resolution
             [Bit 1] : Accept incoming fax-polling requests
             [Bit 10]: Enable JPEG negotiation (continuous-tone color mode according to T.4 Annex E) (see note 1)
             [Bit 11]: Enable JBIG color and gray-scale negotiation according to T.43 (see note 1)
             [Bit 12]: Do not use JBIG progressive bi-level image compression
             [Bit 13]: Do not use MR compression
             [Bit 14]: Do not use MMR compression
             [Bit 15]: Do not use ECM

      m_Bprotocol[17]=???;
      m_Bprotocol[18]=???;

m_Bprotocol[17]=1;
m_Bprotocol[18]=0;

m_Bprotocol[17]=0;
m_Bprotocol[18]=0;

m_Bprotocol[17]=0;
m_Bprotocol[18]=128;

m_Bprotocol[17]=1;
m_Bprotocol[18]=128;

if (HI)
  m_Bprotocol[17]=1;
else
  m_Bprotocol[17]=0;
if (ECM)
  m_Bprotocol[18]=0;
else
  m_Bprotocol[18]=128;

m_byte[n] =x;
m_byte[n+1] =y;

function GetBit (bitnumber, x, y) As Boolean

Public Function GetBitXY(x As Long, y As Long, Bit As Long) As Boolean
    'WORD - 2 байта x - первый байт (0-255) y - второй байт (0-255)
   Dim l As Long
   l = x + y * 256
   GetBitXY = ((l And 2 ^ Bit) > 0)
End Function

print getbitxy(1,128,15)
True
print getbitxy(1,128,0)
True
print getbitxy(0,128,15)
True
print getbitxy(0,128,0)
False
print getbitxy(1,0,15)
False
print getbitxy(1,0,0)
True
print getbitxy(0,0,15)
False
print getbitxy(0,0,0)
False

print getbitxy(3,128,0)//bit[0]=1;bit[1]=1
True
print getbitxy(2,128,0)//bit[0]=0;bit[1]=1
False

GetBit = ((l && 2 ^ Bit) > 0)

// ! контроль переполнения при сдвиге влево - на совести вызывающего
bool CheckBit(DWORD dwNumber, int iBit)
{
    return ( (dwNumber & (1 << iBit)) != 0 );
}

...
PString reason;
...
// Options (word) [Bit 15]: This is not an ECM connection
reason << "Error Correction=" << 
  !((((int)message.param.disconnect_b3_ind.m_NCPIData[4] * 256 +
  (int)message.param.disconnect_b3_ind.m_NCPIData[3]) & (1 << 15)) != 0) << '\n';
// Options (word) [Bit 0]: Enable high resolution
reason << "High Resolution=" << 
  ((((int)message.param.disconnect_b3_ind.m_NCPIData[4] * 256 +
  (int)message.param.disconnect_b3_ind.m_NCPIData[3]) & (1 << 0)) != 0) << '\n';
...