HP Forums
Looking for HP-25 programs - Printable Version

+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Calculators (and very old HP Computers) (/forum-3.html)
+--- Forum: General Forum (/forum-4.html)
+--- Thread: Looking for HP-25 programs (/thread-6276.html)



Looking for HP-25 programs - wojtek - 05-18-2016 09:04 PM

Cleaninig my old papers (and throwing them away) I came a few days ago across my old notes about HP-25 programs I found years ago in "Electronics" magazine (published till 1990 according to Wikipedia, impossible to find any archives in the internet):
1. "HP-25 finds maneuverability constraints for large cabinets" by Robert P.Owen
Electronics, June 8, 1978, page 150.
2. "HP-25 analyzes spectrum of oscilloscope waveforms" by Alan D.Wilcox
Electronics, February 3, 1977, page 119.
Unfortunately that is all I know about these programs. I have no any listings either.
The 1st one would be useful as I am planning to move to a new location (moving cupboards, desks and etc).
Does anybody know where to find them?
Or maybe someone knows about other programs in these topics? A code for any HP calculator would do.


RE: Looking for HP-25 programs - SlideRule - 05-19-2016 02:20 PM

(05-18-2016 09:04 PM)wojtek Wrote:  ... old notes about HP-25 programs I found years ago in "Electronics" magazine (published till 1990 according to Wikipedia, impossible to find any archives in the internet): ... Electronics, June 8, 1978, page 150. ... Electronics, February 3, 1977, page 119. ... Does anybody know where to find them?
One source for this publication follows:
Electronics magazine
Although these archives do NOT yet cover the time reference of your interest, it IS an archive for the desired publication. Maybe in the future?

BEST!
SlideRule


RE: Looking for HP-25 programs - TASP - 05-19-2016 03:27 PM

Gotta be a sparky hoarder reading posts here with just the issues you're looking for in an old roaster pan beneath a crate of phone books next to the stack of old bread makers under the stairs in the basement.

Smile


RE: Looking for HP-25 programs - Dave Frederickson - 05-19-2016 03:34 PM

There are lots of articles listed in the Periodical Guide for Computerists, including the one on moving cabinets in the '78 issue.


RE: Looking for HP-25 programs - Dieter - 05-19-2016 05:45 PM

(05-19-2016 03:34 PM)Dave Frederickson Wrote:  There are lots of articles listed in the Periodical Guide for Computerists, including the one on moving cabinets in the '78 issue.

The other program is mentioned in the 1977 issue (p. 8, "Program Analyzes Spectrum of Oscilloscope Waveforms (HP-25)").
But in both cases it's just a pointer to the original magazine articles.

Dieter


RE: Looking for HP-25 programs - wojtek - 05-19-2016 09:34 PM

Thank you all for your responses (tasp as well, although I do not understand what is so funny in my post).
I'm afraid that "periodical guide" contains an index only, do not understand the purpose of such an index without links to the articles. I tried to find this magazine at our technical university library but they do not have it either.
Interesting, it happens to me regularly, if I throw away something what seems to be of no value at the moment I will certainly look for it in the future :-) (another Murphies' law?)


RE: Looking for HP-25 programs - TASP - 05-20-2016 03:47 AM

I was poking gentle fun at possibly some of the other posters here.

Including me.

I have Sci Am back to the early 80's, Science News back a few years before that. I think I have almost all the Astronomy magazines going back to their first one in 73 and I had quite a pile of Popular Electronics, but they were lost a couple of moves ago.

But I don't have the ones you want, sorry.


RE: Looking for HP-25 programs - toml_12953 - 05-20-2016 05:39 PM

(05-18-2016 09:04 PM)wojtek Wrote:  Cleaninig my old papers (and throwing them away) I came a few days ago across my old notes about HP-25 programs I found years ago in "Electronics" magazine (published till 1990 according to Wikipedia, impossible to find any archives in the internet):
1. "HP-25 finds maneuverability constraints for large cabinets" by Robert P.Owen
Electronics, June 8, 1978, page 150.
2. "HP-25 analyzes spectrum of oscilloscope waveforms" by Alan D.Wilcox
Electronics, February 3, 1977, page 119.
Unfortunately that is all I know about these programs. I have no any listings either.
The 1st one would be useful as I am planning to move to a new location (moving cupboards, desks and etc).
Does anybody know where to find them?
Or maybe someone knows about other programs in these topics? A code for any HP calculator would do.

I remember the first article you mentioned (maneuverability). At the time those were published, I had an SR-52 and a TI-59 so I converted the programs for use with the 59. I kept the usage instructions the same. If it would be any use to you, I could post a copy. AOS is very simple to understand and the program didn't use any tricks so the port was straightforward. It should be just as easy to port it back.

Tom L


RE: Looking for HP-25 programs - wojtek - 05-21-2016 03:04 AM

(05-20-2016 05:39 PM)toml_12953 Wrote:  I remember the first article you mentioned (maneuverability). At the time those were published, I had an SR-52 and a TI-59 so I converted the programs for use with the 59. I kept the usage instructions the same. If it would be any use to you, I could post a copy. AOS is very simple to understand and the program didn't use any tricks so the port was straightforward. It should be just as easy to port it back.

Tom L

Yes, sure, please post. Have you maybe math formulae which were at the background of this program? I tried to restore it from scratch but it turned out to be too complicated although the problem looks simple on paper.
I have 2 big lab tables in my "home lab" which I assembled myself in the room, quite heavy and difficult to disassemble so I would prefere to move them as a whole without disassembling if possible. Thank you.


RE: Looking for HP-25 programs - toml_12953 - 05-21-2016 04:12 PM

(05-21-2016 03:04 AM)wojtek Wrote:  
(05-20-2016 05:39 PM)toml_12953 Wrote:  I remember the first article you mentioned (maneuverability). At the time those were published, I had an SR-52 and a TI-59 so I converted the programs for use with the 59. I kept the usage instructions the same. If it would be any use to you, I could post a copy. AOS is very simple to understand and the program didn't use any tricks so the port was straightforward. It should be just as easy to port it back.

Tom L

Yes, sure, please post. Have you maybe math formulae which were at the background of this program? I tried to restore it from scratch but it turned out to be too complicated although the problem looks simple on paper.
I have 2 big lab tables in my "home lab" which I assembled myself in the room, quite heavy and difficult to disassemble so I would prefere to move them as a whole without disassembling if possible. Thank you.

Maximum Cabinet Width by Robert P. Owen - Electronics Magazine June 6, 1978
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 E
Display angle necessary x<->t
Notes:
x<->t means swap display register with test register, t
A test such as x>=t is followed by a two step address to branch to if the test is true.
Op 24 means increment register 4 (Op 2x increments register x)
Code:
000 LBL 
001 A
002 STO 
003 01
004 R/S
005 LBL 
006 B
007 STO 
008 02
009 R/S
010 LBL 
011 C
012 STO 
013 03
014 R/S
015 LBL 
016 E
017 STO 
018 00
019 3
020 0
021 STO 
022 04
023 RCL 
024 01
025 STO 
026 05
027 Op 
028 24
029 RCL
030 02
031 *
032 RCL
033 04
034 SIN
035 -
036 RCL
037 00
038 *
039 RCL
040 04
041 SIN
042 *
043 RCL
044 04
045 COS
046 +
047 RCL
048 01
049 *
050 RCL
051 04
052 COS
053 =
054 x<->t
055 RCL
056 05
057 INV
058 x>=t
059 00
060 81
061 x<->t
062 STO
063 05
064 RCL
065 00
066 *
067 RCL
068 04
069 SIN
070 =
071 x<->t
072 RCL
073 01
074 +
075 RCL
076 03
077 =
078 x>=t
079 00
080 27
081 RCL
082 04
083 x<->t
084 RCL
085 05
086 R/S

Tom L


RE: Looking for HP-25 programs - Dieter - 05-22-2016 07:53 PM

(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


RE: Looking for HP-25 programs - wojtek - 05-22-2016 09:41 PM

(05-22-2016 07:53 PM)Dieter Wrote:  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
//    AA1   .............. 1st jump here?
024  Op
025  24
026  RCL
027  02
028  *
029  RCL
030  04
031  SIN        // Door x sin(a)
032  -
033  RCL
034  00
035  *
036  RCL
037  04
038  SIN
039  *
040  RCL
041  04
042  COS      // - CabinetLength x sin(a) x cos(a)
043  +
044  RCL
045  01
046  *
047  RCL
048  04
049  COS
050  =         // + Corridor x cos(a)
051  x<->t
052  RCL
053  05
054  INV
055  x>=t
056  0
057  81     ??? sure ????   //   jump to AA2 from here
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 ????   // jump to AA1 from here
//   AA2 second jump here 
078  RCL
079  04
080  x<->t
081  RCL
082  05
083  R/S

Dieter

Yes, I saw this as well, my guesses are marked on the listing.
As the correct port is impossible without checking on both machines, TI 59, and my 41C and as I was ashamed to ask Tom for more, I just restored the math formulae from the code.
They are something like this:
Cw = Dw x sin(a) - Cl x sin(a) x cos(a) + CorridorW x cos(a)
where:
Cw - cabinet width, Dw - door width, Cl - cabinet length, a - angle
I do not understand the code with the wall thickness, but the formula above, if correct, would be enough for my needs even without that wall thickness.
Anyway the orignal author is very good in math, at least much better than me as I still do not understand how he came to this formula
Thank you all

PS. And yet the drawing to illustrate the problem


RE: Looking for HP-25 programs - toml_12953 - 05-22-2016 10:12 PM

(05-22-2016 07:53 PM)Dieter Wrote:  
(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.

You're right. It should be E instead of D and the jump is to 81 (RCL 04....) I've updated the original listing. It now matches what I have in the written copy I made. Sorry, folks!

Tom L


RE: Looking for HP-25 programs - Dieter - 05-23-2016 01:22 PM

(05-22-2016 10:12 PM)toml_12953 Wrote:  You're right. It should be E instead of D and the jump is to 81 (RCL 04....) I've updated the original listing. It now matches what I have in the written copy I made. Sorry, folks!

Fine, thank you (the problem obviously were the two-step labels on a single line in the listing).

Finally, could you provide an example that shows which input should yield which output?

Dieter


RE: Looking for HP-25 programs - SlideRule - 06-14-2016 09:46 PM

(05-18-2016 09:04 PM)wojtek Wrote:  ... HP-25 programs ... in "Electronics" magazine ... HP-25 finds maneuverability constraints for large cabinets ... HP-25 analyzes spectrum of oscilloscope waveforms ... I have no any listings ... Does anybody know where to find them? ...

My archives are more extensive than my motivation, but for the patient, see [attachment=3674] & [attachment=3675]
the two attachments above.

BEST!
SlideRule


RE: Looking for HP-25 programs - wojtek - 06-15-2016 06:22 AM

Thank you SlideRule, it was a nice surprise!