HP-41CV Cross Compiler
07-20-2018, 12:35 AM (This post was last modified: 07-20-2018 12:38 AM by Bill (Smithville NJ).)
Post: #1
 Bill (Smithville NJ) Senior Member Posts: 397 Joined: Dec 2013
HP-41CV Cross Compiler
Every non and then, just for fun, I do a search on the DTIC.mil site. It always amazes me at the various applications that the military used calculators for.

Today's search was for "HP Calculator" and I noticed a document titled:

A Cross Compiler and Programming Support System for the HP41CV Calculator

What caught my attention was the following statement:

"This thesis provides a Fortran IV program to enable an operations research analyst to more efficiently write and document HP41CV calculator programs."

Wow! A Fortran cross compiler. I downloaded the PDF and it has many examples of HP-41 programs with code and at the end of the document is
the Fortran Source code.

Has anyone ever heard of this or actually used it?

I did noticed at the end, that it has a distribution list of who received this document and how many copies.

At the end of the list was one copy to Mr. Richard Nelson, Editor, PPC Journal.
So we know Richard got a copy many years ago.

Who wants to be the first to key in the Fortran Source code and try the cross-compiler out????

Bill
Smithville, NJ
07-20-2018, 01:57 AM
Post: #2
 twdeckard Member Posts: 68 Joined: Dec 2013
RE: HP-41CV Cross Compiler
excellent
07-20-2018, 02:24 AM
Post: #3
 mfleming Senior Member Posts: 448 Joined: Jul 2015
RE: HP-41CV Cross Compiler
(07-20-2018 12:35 AM)Bill (Smithville NJ) Wrote:  Who wants to be the first to key in the Fortran Source code and try the cross-compiler out????

Dang! I knew I shouldn't have tossed out that box of unused punch cards...
07-20-2018, 02:25 AM
Post: #4
 Valentin Albillo Senior Member Posts: 432 Joined: Feb 2015
RE: HP-41CV Cross Compiler
.
Doesn't work for me. When I try to download or at least open the PDF document the progress bar goes up to 95% and freezes there. Same with the TI-59 document.

Perhaps it isn't available outside the US. If you could put the document somewhere else I would appreciate it.

V.
.

Find All My HP-related Materials here:  Valentin Albillo's HP Collection

07-20-2018, 03:01 AM
Post: #5
 Bill (Smithville NJ) Senior Member Posts: 397 Joined: Dec 2013
RE: HP-41CV Cross Compiler
(07-20-2018 02:25 AM)Valentin Albillo Wrote:  .
Doesn't work for me. When I try to download or at least open the PDF document the progress bar goes up to 95% and freezes there. Same with the TI-59 document.

Perhaps it isn't available outside the US. If you could put the document somewhere else I would appreciate it.

V.
.

Not sure why but I downloaded them with no problem. I've put them on dropbox:

HP-41CV Cross Compiler

TI-59 Cross Compiler

I'll leave the files on Dropbox for a couple of weeks before I delete them.

Bill
Smithville, NJ
07-20-2018, 06:00 AM (This post was last modified: 07-20-2018 08:36 AM by Thomas Klemm.)
Post: #6
 Thomas Klemm Senior Member Posts: 1,448 Joined: Dec 2013
RE: HP-41CV Cross Compiler
Shell Sort
From page 66 with a minor change:
Code:
LBL "SHELL" STO 00 STO 01 LBL 09 RCL 01 2 / INT STO 01 X=0? RTN 1 STO 02 LBL 10 STO 03 LBL 11 RCL 01 + RCL 04 + RCL IND X RCL 03 RCL 04 + X<>Y RCL IND Y X<=Y? GTO 12 STO IND T X<>Y STO IND Z RCL 03 RCL 01 - STO 03 X>0? GTO 11 LBL 12 RCL 00 RCL 01 - RCL 02 1 + STO 02 X<=Y? GTO 10 GTO 09 END

I've tried it with the example in Problem Solving with Algorithms and Data Structures using Python and started with register 10:

54 STO 10
26 STO 11
93 STO 12
17 STO 13
77 STO 14
31 STO 15
44 STO 16
55 STO 17
20 STO 18

Thus the BASE is set to 9:

9 STO 04

The number of data points is passed as an argument to the program.
Instead of register 15 the register 00 is used:

9 XEQ "SHELL"

RCL 10: 17
RCL 11: 20
RCL 12: 26
RCL 13: 31
RCL 14: 44
RCL 15: 54
RCL 16: 55
RCL 17: 77
RCL 18: 93

Thanks for sharing the paper.

Cheers
Thomas
07-23-2018, 12:26 AM
Post: #7
 Valentin Albillo Senior Member Posts: 432 Joined: Feb 2015
RE: HP-41CV Cross Compiler
.
Hi, Bill:

Bill (Smithville NJ) Wrote:I've put them on dropbox:

HP-41CV Cross Compiler
TI-59 Cross Compiler

I'll leave the files on Dropbox for a couple of weeks before I delete them.

Regards.
V.
.

Find All My HP-related Materials here:  Valentin Albillo's HP Collection

 « Next Oldest | Next Newest »

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