Post Reply 
HP 15C and INT(1/√(1-x),0,1)
01-17-2018, 10:35 PM (This post was last modified: 01-17-2018 10:59 PM by TheKaneB.)
Post: #50
RE: HP 15C and INT(1/√(1-x),0,1)
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

Software Failure: Guru Meditation

--
Antonio
IU2KIY
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
HP 15C and INT(1/√(1-x),0,1) - salvomic - 11-26-2017, 07:51 PM
RE: HP 15C and INT(1/√(1-x),0,1) - JimP - 01-12-2018, 04:18 AM
RE: HP 15C and INT(1/√(1-x),0,1) - tgray - 01-09-2018, 03:42 PM
RE: HP 15C and INT(1/√(1-x),0,1) - TheKaneB - 01-17-2018 10:35 PM



User(s) browsing this thread: 1 Guest(s)