(HP-65) Welding Programs (x3)

[C.Ret]

Hello,
And thanks for sharing this !

Once again an interesting catch of a practical application from the handle-calculator's holy times.

Indeed, also the first time I read RPN code in an array format!

I get in trouble finding out how to make this code computing as expected, here is a transcription of the matrix code which may be easier to decipher than the extract from the page capture. I voluntary replace the difficult to read traditional divide sign ÷ by a slash to spare reader’s time (since this was the main source of my own pains here after an hidden ENTER^ key deguise into what appears to be a sort of f or 1 or ! or ↑ little symbol - at the sixteen position of the matrix code).

Code:

LBL        A          f`¹        SF 1       GTO        1          LBL        B          f          SF 1      
LBL        1          RCL(1)     RCL(2)     -          ENTER↑     STO(5)     RCL(4)     f          TAN       
×          STO(6)     2          /          ×          STO(7)     RCL(1)     RCL(3)     ×          STO       
+          7          RCL(6)     RCL(3)     +          STO(5)     f`¹        TF 2       2          ×         
f          TF 1       GTO        2          1          +          .          6          g          y^x       
1          6          /          STO(6)     RCL(5)     ×          2          ×          3          /         
RCL(7)     +          STO(7)     3          .          4          ×          RTN        LBL        2         
2          5          +          .          6          g          y^x        4          .          4         
/          STO(6)     RCL(5)     ×          2          ×          3          /          RCL(7)     +         
STO(7)     .          0          0          7          8          5          ×          RTN

The partially merged code from HP-65 is for me a bit hard to read. Here is a transcription of the code in a more conventianal or later time columnwise RPN transcription. In the right columns, an attempt to translate into an HP-42S/DM-42S newest RPN flavor code.

Code:

LBL                                                                              
A                 001 LBL A                                                      
f`¹                                                                              
SF 1              002 CF 1              %% Emperial units mode set               
GTO                                                                              
1                 003 GTO 1                                                      
LBL                                                                              
B                 004 LBL B                                                      
f                                                                                
SF 1              005 SF 1              %% Metric units mode set                 
LBL                                                                              
1                 006 LBL 1             %% MAIN START                            
RCL(1)            007 RCL 1                                                      
RCL(2)                                                                           
-                 008 RCL-2                                                      
↑                 009 ENTER             %% hidden ENTER^ key here !              
STO(5)            010 STO 5                                                      
RLC(4)            011 RCL 4                                                      
f                                                                                
TAN               012 TAN                                                        
×                 013 *                                                          
STO(6)            014 STO 6             %% R6: ← b                               
2                 015 2                                                          
÷                 016 /                                                          
×                 017 *                                                          
STO(7)            018 STO 7             %% R7: ← A1                              
RCL(1)            019 RCL 1                                                      
RCL(3)                                                                           
×                 020 RCL*3                                                      
STO                                                                              
+                                                                                
7                 021 STO+7             %% R7: ← A1+A2                           
RCL(6)            022 RCL 6                                                      
RCL(3)                                                                           
+                 025 RCL+3                                                      
STO(5)            026 STO 5             %% R5: ← W                               
f`¹                                                                              
TF 2                                    %% T Joint cases test                    
| 2               027 FC? 2                                                      
| ×               028 RCL+5             %% x: ← 2W                               
f                                                                                
TF 1              029 FS? 1                                                      
| GTO             030 GTO 2                                                      
| 2                                     %% Emperial Calculations Unit            
1                 031 1                                                          
+                 032 +                                                          
.                                                                                
6                 033 0,6                                                        
g                                                                                
y^x               034 Y^X                                                        
1                                                                                
6                 035 16                                                         
÷                 036 /                                                          
STO(6)            037 STO 6             %% R6: ← a (in)                          
RCL(5)                                                                           
×                 038 RLC*5                                                      
2                 039 2                                                          
*                 040 *                                                          
3                 041 3                                                          
÷                 042 /                 %% A3 (in²)                              
RCL(7)                                                                           
+                 043 RCL+7                                                      
STO(7)            044 STO 7             %% R7: ← AT=A1+A2+A3 (in²)               
3                                                                                
.                                                                                
4                 045 3.4                                                        
×                 046 *                                                          
RTN               047 RTN               %% DISPLAY Weight (lb/ft)                
LBL                                                                              
2                 048 LBL 2             %% Metric Calculations Unit              
2                                                                                
5                 049 25                                                         
+                 050 +                                                          
.                                                                                
6                 051 .6                                                         
g                                                                                
y^x               052 y^x                                                        
4                                                                                
.                                                                                
4                 053 4.4                                                        
÷                 054 /                                                          
STO(6)            055 STO 6             %% R6: ← a (mm)                          
RCL(5)                                                                           
×                 056 RCL*5                                                      
2                 057 2                                                          
×                 058 *                                                          
3                 059 3                                                          
÷                 060 /                 %% A3 (mm²)                              
RCL(7)                                                                           
+                 061 RCL+7                                                      
STO(7)            062 STO 7             %% R7: AT←A1+A2+A3 (mm²)                 
.                                                                                
0                                                                                
0                                                                                
7                                                                                
8                                                                                
5                 063 7.85E-03                                                     
×                 064 *                                                          
RTN               065 END               %% DISPLAY Weight (Kg/m)

This makes this transcription a curious beast mixing oldest with newest RPN !