HP41C - workaround for the SIZE? missing

[Werner]

(04-21-2016 05:24 PM)Dieter Wrote:  

Code:

>LBL"SIZE?"
 255
 ENTER
 ISG X
>LBL 01
 SF 25
 ENTER
 CLX
 RCL IND Z
 RDN
 FC?C 25
 CHS
 2
 /
 ST+ Y
 ABS
 INT
 X>0?
 GTO 01
 X<> L
 +
 END

The CLX disables stack lift so that the RCL overwrites X if the register is available, otherwise it leaves a zero.

Otherwise I really like your code. It's short, fast and effective.

Dieter

The previous version at 37 bytes used almost exactly that trick. Almost, since ENTER itself also disables stack lift and so the CLX is not needed ;-))

And I tried out the VIEW/CLD on a real 41, the VIEWs do not show, that's why I thought it was acceptable.

Cheers, Werner
And now I'm going to read Gene's post ;-)