MSP430 C-Source Code zur BCD Konvertierung

typedef unsigned long bcd_t;

bcd_t l2bcd(long l)

{

   bcd_t ret = 0;

   if (l < 0 || l >= 99999)   // UNDERFLOW oder OVERFLOW

      l = 99999;              // => "Error"

   ret = ret | (l / 10000);   // 1. Ziffer

   l = l % 10000;

   ret = ret << 4;

   ret = ret | (l / 1000);    // 2. Ziffer

   l = l % 1000;

   ret = ret << 4;

   ret = ret | (l / 100);     // 3. Ziffer

   l = l % 100;

   ret = ret << 4;

   ret = ret | (l / 10);      // 4. Ziffer

   l = l % 10;

   ret = ret << 4;

   ret = ret | l;             // 5. Ziffer

   return ret;

}

#define TEST

#ifdef TEST

#include <stdio.h>

int main(void)

{

   long l;

   printf("Hex     |Dez     |BCD     \r\n");

   printf("--------+--------+--------\r\n");

   for (l = -8; l < (99999+8); l++)

   {

      printf("%08lx|%08ld|%08lx\r\n", l, l, l2bcd(l));

      if (l == 8) l = 99999-8;

   }

   return 0;

}

#endif /* TEST */