Trying to emulate some functions.

[Gerson W. Barbosa]

(08-31-2019 11:27 AM)ggauny@live.fr Wrote:  May be you give me advertising, help or optimising.
Here it is work good, especially LASTx.

Your program preserves both original X and Y stack registers, but Y will contain the remainder (or an approximation thereof). If just keeping the original X register is ok, I would suggest the following:


01 LBL "IDIV"
02 RCL Y
03 X<>Y
04 MOD
05 ST- Y
06 X<> L
07 /
08 END

——-

PS: Your program doesn’t work when one argument is negative.

Notice 7 \ -2 = -7 \ 2 = -4, not -3.