{
{ NOTE:
{   The type nlt$tcpip_address is a 32 bit address.  There are three address classes A, B, and C.
{   The class is identified by the first two bits of the address.  The first two bits of a class
{   A address are either 00(2) or 01(2).  The first two bits of a class B address are 10(2).  The
{   first two bits of a class C address are 11(2).  Class A has a one byte (8 bit) network identifier
{   and a 3 byte (24 bit) host identifier.  Class B has a two byte (16 bit) network identifier and a
{   2 byte (16 bit) host identifier.  Class C has a three byte (24 bit) network identifier and a 1
{   byte (8 bit) host identifier.

  TYPE
    nlt$tcpip_address = packed record
      case 0 .. 6 of
      = 0 =
        full: 0 .. 0ffffffff(16),
      = 1 =
        sub_part: array [1 .. 4] of 0 .. 0ff(16),
      = 2 =
        set_value: set of 0 .. 31,
      = 3 =
        class: 0 .. 3,
      = 4 =
        network_id_class_a: 0 .. 0ff(16),
        host_id_class_a: 0 .. 0ffffff(16),
      = 5 =
        network_id_class_b: 0 .. 0ffff(16),
        host_id_class_b: 0 .. 0ffff(16),
      = 6 =
        network_id_class_c: 0 .. 0ffffff(16),
        host_id_class_c: 0 .. 0ff(16),
      casend,
    recend;
