1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

inline INT8U *fast_itoa_b( INT8U n, INT8U *buf, INT8U bufsize )
{
  if(bufsize < 2 || !buf) {
    return NULL;
  }
  
  if(bufsize < 4) {
    *buf = 0;
    if(3 == bufsize && n > 99) {
      return buf;
    }
    if(2 == bufsize && n > 9) {
      return buf;
    }
  }

  INT8U d2, d1, d0, q;
  INT8U *tmp = buf;

  d1 = (n>>4)  & 0xF;

  d0 = 6*d1 + (n & 0xF);
  q = (d0 * 0x19A) >> 12;
  d0 = d0 - 10*q;

  d1 = q + d1;
  q = (d1 * 0x19A) >> 12;
  d1 = d1 - 10*q;

  d2 = q;

  if(d2) *tmp++ = d2 + '0';
  if(d2 || d1) *tmp++ = d1 + '0' ;
  if(d2 || d1 || d0 || (!d0 && !d1 && !d2)) *tmp++ = d1 + '0';

  *tmp = 0;
}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

inline INT8U *fast_itoa_b( INT8U n, INT8U *buf, INT8U bufsize )
...
  INT8U d2, d1, d0, q;
  INT8U *tmp = buf;

  d1 = (n>>4)  & 0xF;

  d0 = 6*d1 + (n & 0xF);
  q = (d0 * 0x19A) >> 12;
  d0 = d0 - 10*q;
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:

program nichts;

{$Apptype console}
{aus BintoBCD http://www.htsoft.com/forum/all/showflat.php?Number=13298 }
var
  i,res,d2,d1,d0: byte;


function BintoBCD(res:byte):byte;
{ n aus [0..99] }
const
 adj_val : array[0..7] of byte = (00,22,50,72,100,128,150,178);
var
  tmp : ^byte;
  adj : byte;

begin
  ADj := res;
  Adj := adj shr 4;  {SWAP Adj }
  Adj := adj AND 7;
  {adj:= adj_val[adj];}
  tmp := @adj_val;
  inc(tmp,Adj);
  adj := tmp^;

  res := res AND 15;
  res := res + adj;

  {Simuliert falls HalfCarry Gesetzt }
  {if Hc ->  res := res+6 }
  adj := res;
  adj := adj XOR adj;
  adj := adj AND 16;
  if adj <> 0 then
    res := res+6;

  adj := res;
  adj := adj AND 15;
  if adj > 9 then
    res := res+6;
  BintoBCD := res;
end;

procedure itoa_b(res:byte);
Label
  SprungMarke;

var
  d2,d1,d0:byte;
begin
  d2 := 0+ord('0');
  if res >199 then
    begin
    d2:= 2+ord('0');
    res := res-200;
    GOTO SprungMarke;
    end;
  if res >99 then
    begin
    d2:= 1+ord('0');
    res := res-100;
    end;

SprungMarke:
  res := BintoBCD(res);

  d0 := res;
  d0 := d0 AND 15;
  d0 := d0+ord('0');

  d1 := res;
  d1 := res shr 4;
  d1 := d1+ord('0');

  write(chr(d2):2);
  write(chr(d1):1);
  write(chr(d0):1);
end;


begin
  for i := 0 to 255 do
    begin
    write(i:4);
    itoa_b(i);
    end;
  writeln;
end.