(01-07-2021 09:05 PM)albertofenini Wrote: Don't get me wrong, I'm not that lazy, but I want to port this code :
Code:
1 LBL 23
2 A 11
3 STO 1 33 01
4 0 00
5 g x≠y? 35 21
6 RTN 24
7 g NOP 35 01
8 RCL 2 34 02
9 RCL 2 34 02
10 RCL 3 34 03
11 x 71
12 EEX 43
13 2 02
14 ÷ 81
15 - 51
16 STO 1 33 01
17 RTN 24
18 LBL 23
19 B 12
20 STO 2 33 02
21 0 00
22 g x≠y? 35 21
23 RTN 24
24 g NOP 35 01
25 RCL 1 34 01
26 1 01
27 RCL 3 34 03
28 EEX 43
29 2 02
30 ÷ 81
31 - 51
32 ÷ 81
33 STO 2 33 02
34 RTN 24
35 LBL 23
36 C 13
37 STO 3 33 03
38 0 00
39 g x≠y? 35 21
40 RTN 24
41 g NOP 35 01
42 1 01
43 RCL 1 34 01
44 RCL 2 34 02
45 ÷ 81
46 - 51
47 EEX 43
48 2 02
49 x 71
50 STO 3 33 03
51 RTN 24
52 LBL 23
53 E 15
54 DSP 21
55 . 83
56 2 02
57 CLx 44
58 STO 1 33 01
59 STO 2 33 02
60 STO 3 33 03
61 RTN 24
Which was kindly written from several members on my request as a margin calculator for an HP-65 to an HP-67
I'll try it out and see if it works, but thanks for all the suggestions
take care !
[EDIT] also I guess LBL A can be coded just pressing A right ?
This one looks easy, any time a 65 program has a test function followed by one instruction and one NOP, you can just ignore the NOP when converting to a different model.