//________________________________________________________________
void KVZALineFinder::SetAList(const char* Alist)
{
Int_t zmax = (Int_t)(((KVIDentifier*)fGrid->GetIdentifiers()->Last())->GetPID()+1);
KVNucleus nuc;
Int_t Z = 1;
fAList.clear();
KVNumberList Al(Alist);
Al.Begin();
while(!Al.End())
{
Int_t A = Al.Next();
if(A<=0) A = nuc.GetAFromZ(Z,fGrid->GetMassFormula());
fAList.push_back(A);
Z++;
}
for(int i=Z+1; i<=zmax; i++) fAList.push_back(nuc.GetAFromZ(i,fGrid->GetMassFormula()));
}
void main()
{
DDRA=255;
DDRB=255;
DDRD=0xf0;
while(1)
{
PORTD=0xef;
_delay_ms(10);
if(((PIND&0x01)==0x00)||c==1)
{
while((PIND&0x0f)==0x0f)
{
c=1;
Al();
}
}
else if(((PIND&0x02)==0x00)||c==2)
{
while((PIND&0x0f)==0x0f)
{
c=2;
Bl();
}
}
else if(((PIND&0x04)==0x00)||c==3)
{
while((PIND&0x0f)==0x0f)
{
c=3;
Cl();
}
}
else if(((PIND&0x08)==0x00)||(c==4))
{
while((PIND&0x0f)==0x0f)
{
c=4;
Dl();
}
}
}
}
