HP-41C T register duplication disabling

[Werner]

I wonder what the use is, but here goes
works even when Z and/or T contains string data or complex numbers.

1. keeping T intact if it was different from Z to start with

Code:

>LBL "T#Z"
 X<> ST Z
 R^
 X=Y?
 CLX
 X=Y?
 ISG ST X
 X#Y?
 Rv
 X<> ST Z
 END

2. destroying T

Code:

>LBL "T#Z"
 PI
 R^
 X=Y?
 STO- ST Y
 Rv
 Rv
 END

Cheers, Werner