binaris - decimalis szubrutin

[b.joe]

On Thu, 3 Nov 2005 12:14:41 +0100
"HWSW Famulus" <hwsw at famulus.hu> wrote:

> This may be implemented;
> 
>      IF (T.BIT15 <> 0) THEN MINUS
> 
>      T_FRACT_100 = ((T.BYTE0 >> 3) * 312) / 10
>      DEBUG DEC T.BYTE1, ".", DEC T_FRACT_100, CR
>      GOTO CONTINUE
> 
> MINUS:
>      T = ~T + 1          ' perform two's complement
>      T_FRACT_100 = ((T.BYTE0 >> 3) * 312) / 10
>      DEBUG "-", DEC T.BYTE1, ".", DEC T_FRACT_100, CR
>      GOTO CONTINUE
> 
> CONTINUE:

Koszi!
egyszerubb mint gondoltam.

-- 
udv.:
jozsi