Looking for HP-25 programs
05-18-2016, 09:04 PM (This post was last modified: 05-18-2016 09:07 PM by wojtek.)
Post: #1
 wojtek Member Posts: 131 Joined: Dec 2015
Looking for HP-25 programs
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.
05-19-2016, 02:20 PM
Post: #2
 SlideRule Senior Member Posts: 1,101 Joined: Dec 2013
RE: Looking for HP-25 programs
(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
05-19-2016, 03:27 PM
Post: #3
 TASP Senior Member Posts: 401 Joined: Mar 2015
RE: Looking for HP-25 programs
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.

2speed HP41CX,int2XMEM+ZEN, HPIL+DEVEL, HPIL+X/IO, I/R, 82143, 82163, 82162 -25,35,45,55,65,67,70,80
05-19-2016, 03:34 PM (This post was last modified: 05-19-2016 03:35 PM by Dave Frederickson.)
Post: #4
 Dave Frederickson Senior Member Posts: 1,746 Joined: Dec 2013
RE: Looking for HP-25 programs
There are lots of articles listed in the Periodical Guide for Computerists, including the one on moving cabinets in the '78 issue.
05-19-2016, 05:45 PM (This post was last modified: 05-19-2016 05:45 PM by Dieter.)
Post: #5
 Dieter Senior Member Posts: 2,397 Joined: Dec 2013
RE: Looking for HP-25 programs
(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
05-19-2016, 09:34 PM
Post: #6
 wojtek Member Posts: 131 Joined: Dec 2015
RE: Looking for HP-25 programs
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?)
05-20-2016, 03:47 AM
Post: #7
 TASP Senior Member Posts: 401 Joined: Mar 2015
RE: Looking for HP-25 programs
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.

2speed HP41CX,int2XMEM+ZEN, HPIL+DEVEL, HPIL+X/IO, I/R, 82143, 82163, 82162 -25,35,45,55,65,67,70,80
05-20-2016, 05:39 PM
Post: #8
 toml_12953 Senior Member Posts: 1,407 Joined: Dec 2013
RE: Looking for HP-25 programs
(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

Tom L
...other than that, Mrs. Lincoln, what did you think of the play?
05-21-2016, 03:04 AM
Post: #9
 wojtek Member Posts: 131 Joined: Dec 2015
RE: Looking for HP-25 programs
(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.
05-21-2016, 04:12 PM (This post was last modified: 05-22-2016 10:29 PM by toml_12953.)
Post: #10
 toml_12953 Senior Member Posts: 1,407 Joined: Dec 2013
RE: Looking for HP-25 programs
(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

Tom L
...other than that, Mrs. Lincoln, what did you think of the play?
05-22-2016, 07:53 PM (This post was last modified: 05-22-2016 08:43 PM by Dieter.)
Post: #11
 Dieter Senior Member Posts: 2,397 Joined: Dec 2013
RE: Looking for HP-25 programs
(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
05-22-2016, 09:41 PM (This post was last modified: 05-22-2016 10:29 PM by wojtek.)
Post: #12
 wojtek Member Posts: 131 Joined: Dec 2015
RE: Looking for HP-25 programs
(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

Attached File(s) Thumbnail(s)

05-22-2016, 10:12 PM (This post was last modified: 05-22-2016 10:26 PM by toml_12953.)
Post: #13
 toml_12953 Senior Member Posts: 1,407 Joined: Dec 2013
RE: Looking for HP-25 programs
(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

Tom L
...other than that, Mrs. Lincoln, what did you think of the play?
05-23-2016, 01:22 PM (This post was last modified: 05-23-2016 01:25 PM by Dieter.)
Post: #14
 Dieter Senior Member Posts: 2,397 Joined: Dec 2013
RE: Looking for HP-25 programs
(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
06-14-2016, 09:46 PM (This post was last modified: 06-14-2016 10:56 PM by SlideRule.)
Post: #15
 SlideRule Senior Member Posts: 1,101 Joined: Dec 2013
RE: Looking for HP-25 programs
(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
06-15-2016, 06:22 AM
Post: #16
 wojtek Member Posts: 131 Joined: Dec 2015
RE: Looking for HP-25 programs
Thank you SlideRule, it was a nice surprise!
 « Next Oldest | Next Newest »

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