URL https://opencores.org/ocsvn/1664/1664/trunk

Subversion Repositories 1664

[/] [1664/] [trunk/] [c/] [lista/] [nN__exadesimal_cadena.c] - Blame information for rev 2

Details | Compare with Previous | View Log


#include "tipodef.h"
 
nN nN__exadesimal_cadena(n1 * cadena, nN cuantia)
{
 nN valua = 0;
 n1 c;
 nN i = 0;
 
 while(i<cuantia)
 {
  c = cadena[i++];
  if(c>0x39) c+=0x09;
  valua |= (c&0x0f);
  if(i<cuantia) valua <<= 4;
 }
 
 return valua;
}

Line No.	Rev	Author	Line
1	2	mrdmkg	`#include "tipodef.h"`
2
3			`nN nN__exadesimal_cadena(n1 * cadena, nN cuantia)`
4			`{`
5			`nN valua = 0;`
6			`n1 c;`
7			`nN i = 0;`
8
9			`while(i<cuantia)`
10			`{`
11			`c = cadena[i++];`
12			`if(c>0x39) c+=0x09;`
13			`valua \|= (c&0x0f);`
14			`if(i<cuantia) valua <<= 4;`
15			`}`
16
17			`return valua;`
18			`}`

Browse

Tools

Subversion Repositories 1664

[/] [1664/] [trunk/] [c/] [lista/] [nN__exadesimal_cadena.c] - Blame information for rev 2