(32S) Floor Function

[Gerald H]

For real input the programme returns Floor of input without disturbing the stack.

Improvements most welcome.

Code:


0.    LBL “F”
1.    X>=0?
2.    GTO O
3.    STO F
4.    FP
5.    STO G
6.    ABS
7.    X≠0?
8.    RCL/ G
9.    RCL+ F
10.    LBL O
11.    IP
12.    RTN