Summation based benchmark for calculators

[grsbanks]

Although I'm no SysRPL expert I;ve just given this a shot myself. I'm surprised to note that the speed increase is only about 10%.

If anyone wants to pick holes in it and optimize it further, this is the SysRPL code I used. Note that this is the "loop and add" approach rather than the built-in summation function. I can't see any point in converting the latter to SysRPL.

Code:

::
  CK1NOLASTWD
  CK&DISPATCH1
  BINT1 ::
    %IP>#
    %0
    SWAP
    CLKTICKS
    %3 %1/
    { NULLLAM NULLLAM }
    BIND
      #1+_ONE_DO
        INDEX@
        UNCOERCE
        %ATAN
        %SIN
        %EXP
        1GETLAM %^
        %+
      LOOP
      CLKTICKS
      2GETLAM
      bit-
      HXS>%
      % 8192
      %/
    ABND
  ;
;