(12C) Decimal to Fraction

[Thomas Klemm]

(08-08-2018 07:04 PM)Dieter Wrote:  The translation for the 12C is a bit tricky since there are no subroutines. ;-)

We can just inline these calls.

There are only two tests:

• x≤y
• x=0
  

But we also need:

Code:

   x=y          ; c = v ?
   GTO 2        ; no need to jump
   -            ; v-c

We can switch the order:

Code:

   -            ; v-c
   x=0          ; c = v ?
   GTO 2        ; no need to jump

The function ABS is missing. But we can also compare the squares.

Thus instead of:

Code:

   ABS          ; |n/d-f|

We can just use:

Code:

   ENTER
   ×

Did I miss something?

Quote:Finally I wanted to suggest an improvement regarding the GSB 6 subroutine, but you noticed this yourself. Since both calls are preceded by an ENTER the latter can also be included in the subroutine itself (requires two ENTERs then). It even looks like this way LBL 4 could be replaced with LBL 6.

Good catch. And here we can shave off another 2 steps.

Thanks
Thomas