Looking for HP-25 programs

[Dieter]

(05-21-2016 04:12 PM)toml_12953 Wrote:  Instructions:
Enter Corridor Width, Press A
Enter Door Passage, Press B
Enter Wall Thickness, Press C
Enter Cabinet Length (max cabinet width will display), Press D
Display angle necessary x<->t

Could you provide an example here?
And is "Press D" supposed to mean "Press E"? There is no label D, but a label E exists.

(05-21-2016 04:12 PM)toml_12953 Wrote:  A test such as x>=t is followed by a two step address to branch to if the test is true.

Are you sure the jump targets (line 027 and 081) are correct? The former points to the "2" of a RCL 02 command, and instead of the latter line 078 (RCL 04) would make more sense. But maybe I'm wrong here.

Here is a listing with line numbers so that you can see why I'm asking:

Code:

000  LBL
001  A
002  STO
003  01
004  R/S
005  LBL B
006  STO
007  02
008  R/S
009  LBL C
010  STO
011  03
012  R/S
013  LBL E
014  STO
015  00
016  3
017  0
018  STO
019  04
020  RCL
021  01
022  STO
023  05
024  Op
025  24
026  RCL
027  02
028  *
029  RCL
030  04
031  SIN
032  -
033  RCL
034  00
035  *
036  RCL
037  04
038  SIN
039  *
040  RCL
041  04
042  COS
043  +
044  RCL
045  01
046  *
047  RCL
048  04
049  COS
050  =
051  x<->t
052  RCL
053  05
054  INV
055  x>=t
056  0
057  81     ??? sure ????
058  x<->t
059  STO
060  05
061  RCL
062  00
063  *
064  RCL
065  04
066  SIN
067  =
068  x<->t
069  RCL
070  01
071  +
072  RCL
073  03
074  =
075  x>=t
076  0
077  27     ??? sure ????
078  RCL
079  04
080  x<->t
081  RCL
082  05
083  R/S

Dieter