Threaded Mode | Linear Mode

TheKaneB · (This post was last modified: 01-17-2018 10:59 PM by TheKaneB.)

EDIT: 1h 18m 45s ( +/- 1 s)

While we're waiting for the result (still running) I should mention that the code for the 15C of that benchmark is very bad. It doesn't take advantage of the built in looping instructions (ISG and DSE), while the 41C version does. So the two times are not comparable.

I think we should rewrite the code with some optimization. I bet we can make it much faster than that Smile

HP 15C code

Code:

HP-15C

 HP-15C LE

 DM-15

-----------

 LBL A  CLEAR REG

        8 STO .0

 LBL 0  RCL 0 RCL .0

        TEST 5 GTO 4

        1 STO+ 0

        RCL 0 STO I

        RCL .0 STO(i)

 LBL 1  1 STO+ .1

        RCL 0 STO 9

 LBL 2  1 STO- 9

        RCL 9 x=0? GTO 0

        RCL 0 STO I RCL(i)

        RCL 9 STO I

        Rv RCL(i) -

        x=0? GTO 3

        ABS RCL 0 RCL 9 -

        TEST 6 GTO 2

 LBL 3  RCL 0 STO I

        1 STO-(i)

        RCL(i) TEST 0 GTO 1

        1 STO- 0

        RCL 0 TEST 0 GTO 3

 LBL 4  RCL .1

        RTN

HP 41C code

Code:

 HP-41C

 HP-41CV

 HP-41CX

 HP-41CY

 HP-41CL

 HP-42S

 DM-41

 DM-41L

 DM-42

 HP-71B / HP-41 Translator ROM Module HP-82490A

------------------------------------------------

 LBL A   CLRG

         8 STO 11

 LBL 00  RCL 00 RCL 11

         X=Y? GTO 04

         ISG 00 DEG

         STO IND 00

 LBL 01  ISG 10 DEG

         RCL 00 STO 09

 LBL 02  DSE 09 DEG

         RCL 09 X=0? GTO 00

         RCL IND 00 RCL IND 09 -

         X=0? GTO 03

         ABS RCL 00 RCL 09 -

         X<>Y? GTO 02

 LBL 03  DSE IND 00 GTO 01

         DSE 00 GTO 03

 LBL 04  RCL 10

         RTN