//---------------------------------------------------------------------------

#ifndef rzH
#define rzH
template <class T>
struct RZ
{
union
  {
   long data32;
   short data16[ 2 ];
   struct
   {
    unsigned Label: 8 ;
    unsigned x: 21 ;
    unsigned SSM: 2 ;
    unsigned Parity: 1 ;
   }f;
   T data;
  }data;
void Send(short);
bool ParityCheck(void);
void SetParity(void);
void SetLabel(int,int,int);
void SetLabel(unsigned);
};
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
#include "ports.h"

#pragma hdrstop

#include "rz.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

template <class T>
void RZ<T>::Send(short prt=- 1 )
{
if(prt< 0 )prt=port;
SetParity();
outportX(prt,data16[ 0 ]);
outportX(prt+ 2 ,data16[ 1 ]);
}

template <class T>
bool RZ<T>::ParityCheck(void)
{
 int i,sum= 0 ;
 for(i= 0 ;i< 32 ;i++)
  sum+=(data32>>i)& 1 ;
 return sum& 1 ;
}

template <class T>
void RZ<T>::SetParity(void)
{
if(!ParityCheck())
 data.f.Parity=!data.f.Parity;
}

template <class T>
void RZ<T>::SetLabel(int a,int b,int c)
{
 unsigned char a0,a1,b0,b1,b2,c0,c1,c2;
 a0=(a& 1 )<< 1 ;
 a1=(a& 2 )>> 1 ;
 b0=(b& 1 )<< 4 ;
 b1=(b& 2 )<< 2 ;
 b2=b& 4 ;
 c0=(c& 1 )<< 7 ;
 c1=(c& 2 )<< 5 ;
 c2=(c& 4 )<< 3 ;
 data.f.Label=c0|c1|c2|b0|b1|b2|a0|a1;
}

template <class T>
void RZ<T>::SetLabel(unsigned a)
{
 int a,b,c;
 a=L/ 100 ;
 b=(L% 100 )/ 10 ;
 c=L% 10 ;
 SetLabel(a,b,c);
}

#include "rz.h"

RZ<RZ016f> RZ016;

RZ016.SetLabel( 16 )