(41CX w/Advantage Pac) Feet inches fractions

06222022, 09:35 PM
(This post was last modified: 06282022 01:51 AM by DMaier.)
Post: #1




(41CX w/Advantage Pac) Feet inches fractions
This code takes decimal inches, e.g., 14.25 in X and returns the following in Alpha:
Note: There's an old forum topic HP41 Advantage Pac AIP function, anyone? that provides alternatives if AIP isn't available. In particular, Namir provides an equivalent to AIP for the CX. The maximum denominator, which should be a power of 2, is assumed to be set in register 0. Note that the code rounds to the nearest fraction. The code modifies flag 2 and registers 2 and 3. Sample output (Reg 1=8, flag 1 clear): Code:
Code:
EDIT: Based on comments from Xorand and Thomas Klemm, below, fixed the description to refer to the correct register and removed a couple of unnecessary bytes. 

06272022, 01:25 AM
Post: #2




RE: (41CX w/Advantage Pac) Feet inches fractions
What should be in register 00? The code starts out by recalling 00 and multiplying it by x, adding 0.5, then dividing by register 00. By default, my register 00 was equal to zero, so I immediately got a data error when dividing.


06272022, 04:53 AM
Post: #3




RE: (41CX w/Advantage Pac) Feet inches fractions  
06272022, 04:39 PM
(This post was last modified: 06272022 04:56 PM by Xorand.)
Post: #4




RE: (41CX w/Advantage Pac) Feet inches fractions
Ah, ok, that makes more sense. Will give it another try.
Edited to add: Yes, that worked. Thanks! 

06272022, 06:40 PM
Post: #5




RE: (41CX w/Advantage Pac) Feet inches fractions
Nice to see it's working for you now.
(06272022 01:25 AM)Xorand Wrote: The code starts out by recalling 00 and multiplying it by x, adding 0.5, then dividing by register 00. You missed taking the integral part with INT: Code: RCL 00 This multiplies the number by the maximum denominator and rounds it to the nearest integer. It makes sure we end up with nice fractions. Later on the fraction is reduced if possible: Code: RCL 00 We could use just .5 instead of 0.5 to save a precious byte and omit the redundant RTN statement at the END to save another one. 

06272022, 11:01 PM
(This post was last modified: 06272022 11:02 PM by Xorand.)
Post: #6




RE: (41CX w/Advantage Pac) Feet inches fractions  
« Next Oldest  Next Newest »

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