SIGN built in.

[ggauny@live.fr]

Hi,

In HP41 (DM41l) the SIGN function run this way :

1 SIGN ==> 1
0 SIGN ==> 1
-1 SIGN ==> -1


In HP 35s the SIGN function run this other way :

1 SIGN ==> 1
0 SIGN ==> 0
-1 SIGN ==> -1

So to translate from HP35s to HP41 (DM41l) I use this routine :


LBL SGN
x#0? (x different 0 ?)
SIGN
RTN
END

This run pretty well here.

Good evening.