BCDSUB - subtract two BCD numbers.

Usage:

B:
   result = bcdsub( bcdn1, bcdn2 );

C:
   int bcdsub(int bcdn1, int bcdn2);

Description:

BCDSUB assumes its two arguments both contain six numeric BCD characters. "result" receives the BCD representation of the first BCD number minus the second. Thus "bcdsub(`000035`,`000026`)" returns `000009`.