(35S) Bézout or EGCD

[Gerald H]

Here an alternative programme to the above, same input & output. I expected the time taken for calculations to be less than with the first progamme & don't really understand why that's not the case.

1 LBL E
2 STO H
3 x<>y
4 STO G
5 [H,1]
6 [G,0]
7 REGX*[1,0]
8 x=0?
9 GTO E022
10 REGZ
11 x<>y
12 /
13 [1,0]
14 *
15 IP
16 REGY
17 *
18 REGZ
19 -
20 +/-
21 GTO E007
22 REGZ*[1,0]
23 REGT*[0,1]
24 (REGY-REGX*H)/G
25 x<>y
26 RTN