(HP-65) Welding Programs (x3)

[C.Ret]

By observing the tree program codes, I notice a lot of similarities and repetitions.
In fact, regrouping all the tree programs in one code is possible on the amazing HP-65 without changing much of the instructions:

Instructions:

Program the HP-65 using the following sequence of steps:

1. Turn on the calculator (or your simulator/emulator software),
2. Switch the calculator to "Write/Program" and clear it from previous program,
3. Enter the following code into the calculator,
4. When completed switch calculator back to "Run",
5. Work the numerous examples to verify correctness of the entered code,
6. When verified, eventually record the program on a new magnetic card :
   • To record the program, switch to "W/Program" and pass a magnetic card into the calculator,
   • Switch back to "RUN" mode and clip the corner of the card to write protect it,
   • Put the necessary identification and labels on the card
     
7. Load a previous saved program form card with switch in "RUN" position and insert the labeled card on top of the keyboard.
   

Programming sequence:

Code:

    00 00
01.    23    LBL
02.    11    A
03.    15    E
04.    03    3
05.    83    .
06.    04    4
07.    33 08 STO 8
08.    01    1
09.    06    6
10.    41    ENTER↑
11.    01    1
12.    22    GTO
13.    01    1

14.    23    LBL
15.    12    B
16.    15    E
17.    07    7
18.    83    .
19.    08    8
20.    05    5
21.    43    EEX
22.    03    3
23.    42    CHS
24.    33 08 STO 8
25.    04    4
26.    83    .
27.    04    4
28.    41    ENTER^
29.    02    2
30.    05    5
31.    22    GTO
32.    01    1

33.    23    LBL
34.    15    E
35.    33 06 STO 6
36.    34 01 RCL 1
37.    34 01 RCL 2
38.    51    -
39.    34 06 RCL 6
40.    34 04 RCL 4
41.    34 06 RCL 6
42.    81    /
43.    31    f
44.    06    TAN
45.    31    f
46.    81    TF 2
47.    02      2
48.    81      /
49.    71    x
50.    71    x
51.    41    ENTER↑
52.    35 08 g ROLDN
53.    71    x
54.    02    2
55.    81    /
56.    33 07 STO 7
57.    35 09 g ROLUP
58.    34 03 RCL 3
59.    61    +
60.    33 05 STO 5
61.    24    RTN

62.    23    LBL
63.    01    1
64.    34 05 RCL 5
65.    31    f
66.    61    TF 1
67.    02      2
68.    71      x
69.    61    +
70.    83    .
71.    06    6
72.    35    g
73.    05    y^x
74.    35 07 g X<>Y
75.    81    /
76.    33 06 STO 6
77.    02    2
78.    31    f
79.    81    TF 2
80.    41      ENTER↑
81.    71      x
82.    34 05 RCL 5
83.    71    x
84.    71    x
85.    03    3
86.    81    /
87.    34 01 RCL 1
88.    34 03 RCL 3
89.    71    x
90.    34 07 RCL 7
91.    61    +
92.    61    +
93.    33 07 STO 7
94.    34 08 RCL 8
95.    71    x
96.    24    RTN

Problem-solving sequence:

1. Enter length data: \( t \) in STO(1), \(f \) in STO(2), \( r \) in STO(3) and \( \theta \) in STO(2).
   Enter all length in expected unit (in) for imperial unit system or in (mm) for metric unit system. Don't mix.
   Select corresponding trigonometric angle mode (DEG/RAD/GRAD).
2. Use Flag 1 to indicate type of joint :
   Clear flag 1 for Butt joint or V grove joint data by pressing f-1 CF 1.
   Set flag 1 for T-shape joint data only by pressing f SF 1.
3. Use Flag 2 to indicate double bevel groove joint :
   Clear flag 2 for single bevel groove joint or single V grove joint (cf. original programs 1 & 3) by pressing f-1 CF 2 .
   Set flag 2 for DOUBLE bevel groove joint (cf. original program 2)by pressing f SF 2.
4. Enter 1 for single or double bevel Butt Joint AND T-shape Joint
   Enter 2 for single V-shape Grove joint
5. Start computation by pressing A (for data in imperial units) or B (for data in metric units).
   Mass of weld metal will be display in respectively (lb/ft) or (Kg/m) units.
6. Other data can be retrieve from register :
   Press RCL(7) for total area \( A_t \) in (in²) or (mm²),
   Press RCL(6) for \( a \) in (in) or (mm),
   Press RCL(5) for wifth \(W \) in (in) or (mm)
7. For corner joint use either Butt or T joint or average them.

Commented and structured program listing:

Code:

LBL A
  E  3.4             STO 8   16  ENTER↑  1  GTO 1                        ;; Initiate imperial unit computation

LBL B
  E  7.85 EEX 3 CHS  STO 8  4.4  ENTER↑ 25  GTO 1                        ;; Initiate metric unit computation

LBL E                                                                   ;;; Sub program ;;;;
  STO 6  RCL 1  RCL 2  -  RCL 6  RCL 4  RCL 6  /  f TAN  f TF 2  2  /    ;; Compute b : argument 1=single or double bevel groove   2=V grove joint
  x  x  ENTER↑  g ROLDN  x  2  /  STO 7                                  ;; Initiate area summation in register R7: 
  g ROLUP  RCL 3  +  STO 5                                               ;; R5: ← W
RTN

LBL 1                                                                   ;;; End program ;;;;
  RCL 5  f TF 1  2  x                                                    ;; Arrange parameter for T joins  (Flag 1 set)
  +  .6  g y^x  g X<>Y  /  STO 6                                         ;; R6: ← a
  2  f TF 2  ENTER↑  x                                                   ;; Arrange parameter for DOUBLE bevel case (Flag 2 set) 
  RCL 5  x  x  3  /  RCL 1  RCL 3  x  RCL 7  +  +  STO 7                 ;; R7: ← total area At per unit length of welding
  RCL 8  x                                                               ;; X ← Weight of metal per unit length of welding (lb/ft) or (Kg/m)
RTN