void
Rename_UiAO_EQL(int *_bb,int _ss,int _tt)
{
int idx,offset,seg,top,xidx,xoffset,xseg,v1,v2,pp,qq;
BDEC(&seg,_ss);
UMUL(&offset,Rename_UiArrOP2,seg);
UINC(&idx,offset);
UADD(&top,offset,Rename_UiArrOP2);
BDEC(&xseg,_tt);
UMUL(&xoffset,Rename_UiArrOP2,xseg);
UINC(&xidx,xoffset);
pp = TRUE;
while ( pp == TRUE ) {
Rename_C_VAL(&v1,idx);
Rename_C_VAL(&v2,xidx);
UINC(&idx,idx);
UINC(&xidx,xidx);
ULE(&pp,idx,top);
BEQ(&qq,v1,v2);
if ( pp == TRUE && qq == TRUE ) {
pp = TRUE;
}
else {
pp = FALSE;
}
};
Rename_O_STO(_ss,1);
Rename_O_STO(_tt,1);
*_bb = qq;
}
void
Rename_UiAO1_FILL(int _vv)
{
int ii;
ii = 0;
while ( ii < Rename_UiArrO1P1 ) {
UINC(&ii,ii);
Rename_O1_STO(ii,_vv);
};
Rename_N1_STO(1);
}
void
Rename_UiAO_CPY(int _pp,int _qq)
{
int idx,offset,seg,top,xidx,xoffset,xseg,vv;
BDEC(&seg,_pp);
UMUL(&offset,Rename_UiArrOP2,seg);
UINC(&idx,offset);
UADD(&top,offset,Rename_UiArrOP2);
BDEC(&xseg,_qq);
UMUL(&xoffset,Rename_UiArrOP2,xseg);
UINC(&xidx,xoffset);
while ( idx <= top ) {
Rename_C_VAL(&vv,idx);
Rename_C_STO(xidx,vv);
UINC(&idx,idx);
UINC(&xidx,xidx);
};
Rename_O_STO(_pp,1);
Rename_O_STO(_qq,1);
}
void
Rename_UiAO1_STO(int _ii,int _vv)
{
int jj;
Rename_O1_STO(_ii,_vv);
if ( _ii < Rename_UiArrO1P1 ) {
UINC(&jj,_ii);
Rename_N1_STO(jj);
}
else {
Rename_N1_STO(1);
}
}
void
Rename_UiAO_FILL(int _pp,int _vv)
{
int seg,ii,top;
BDEC(&seg,_pp);
UMUL(&ii,seg,Rename_UiArrOP2);
UADD(&top,ii,Rename_UiArrOP2);
while ( ii != top ) {
UINC(&ii,ii);
Rename_C_STO(ii,_vv);
};
Rename_O_STO(_pp,1);
}
void
INI_Rename_UiArrO1(void)
{
INI_Rename_O1_UiArr();
INI_Rename_N1_Uns();
{
int ii;
ii = 0;
while ( ii < Rename_UiArrO1P1 ) {
UINC(&ii,ii);
Rename_O1_STO(ii,Rename_UiArrO1P2);
};
Rename_N1_STO(1);
}
}
void
Rename_UiAO_STO(int _pp,int _ii,int _vv)
{
int nx,offset,seg,index;
BDEC(&seg,_pp);
UMUL(&offset,Rename_UiArrOP2,seg);
UADD(&index,offset,_ii);
Rename_C_STO(index,_vv);
if ( _ii < Rename_UiArrOP2 ) {
UINC(&nx,_ii);
Rename_O_STO(_pp,nx);
}
else {
Rename_O_STO(_pp,1);
}
}
