HP-41CV Cross Compiler

[Bill (Smithville NJ)]

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

[twdeckard]

excellent

[mfleming]

(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...

[Valentin Albillo]

.
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.

Thanks in advance.
V.
.

[Bill (Smithville NJ)]

(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.

Thanks in advance.
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

[Thomas Klemm]

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

[Valentin Albillo]

.
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.

Downloaded both with no problems. Thank you very much for your kindness.

Regards.
V.
.